Телефонный справочник

Автор работы: Пользователь скрыл имя, 10 Января 2012 в 18:18, курсовая работа

Краткое описание

Программа «Телефонный справочник» была разработана для удобного хранения телефонных номеров, адресов и прочей информации на Вашем персональном компьютере. Программа имеет удобный и понятный интерфейс, систему быстрого поиска по имени, функцию хранения, ваших заметок. Вы можете легко распечатать нужную вам заметку.

В наше время появилось огромное количество номеров телефонов, адресов электронной почты и много другой различной информации, которое время от времени забывается или теряется. Поэтому, я решил создать программу, в которой вы можете хранить всю эту важную информацию не боясь что она потеряется, или вы ее забудете. Моя программа совмещает в себе несколько важных и нужных функций для хранения личной информации, это:

1)Заметки – Вы можете здесь записывать любую информацию, сохранять какие либо ссылки к важным веб узлам, и т п.

2) Телефонный справочник – Здесь Вы можете записывать все важные вам телефонные номера, контактные данные важных вам людей.

3) Систему технической поддержки

4) Мини браузер для работы в интернете.

Содержание работы

Введение …………………………………………….…………………………...3

Глава 1. Среда визуального программирования Delphi. ……..…………..…..4

1.2 Компоненты Borland Delphi 7 использованные при разработке PhoneBook……..…………………………………….…………………………….4

Глава 2. Описание программы PhoneBook………………..…………………....8

2.1 Вкладка «Настройки»………………………….………………..…………...9

2.2. Общие параметры……………………………...……………………………9

2.3. Параметры телефонной книги...…………………………………………….9

2.4 Параметры экспорта в Excel и HTML……………………………………..10

2.5 Параметры «Заметок»……………………………………………………….10

2.6 Опция «Перетаскивать по словам» ………………………………………..11

2.7 Техподдержка………………………………………………………………..11

2.8 Мини браузер………………………………………………………………..11

2.9 Время и дата…………………………………………………………………12

2.10 Вкладка «Телефонная книга»…..………………………………………...14

2.11 Сортировка контактов по группам……………………………………….14

2.12 Поиск контактов по имени………………………………………………..15

2.13 Экспорт контактов в Excel и HTML…..………………………………….15

2.13.1 Экспорт в Excel…..……………………………………………………....15

2.13.2 Экспорт в HTML….……………………………………………………...20

2.14 Добавление новой записив телефонный справочник……………………………………………………………………….21

2.15 Печать документа………………………………………………………….23

2.16 Сохранить как……………………………………………………………...24

2.17 Работа с буфером обмена….………………………………………………24

2.18 Обработка и исправление текста………………………………………….24

2.19 Заставка программы……………………………………………………….25

2.19.1Получение информации о пользователе и владельце ПК……………...25

2.19.2 Создание заставки программы…………………………………………..26

2.20 Ограничения программы…………………………………………………..27

2.20.1 «Демо» версия……………………………………………………………28

Глава 3. Требования по обеспечению пожарной безопасности……………………………………………………………………..31

3.1 Общие требования пожарной безопасности:……………………………..31

3.2 Правила поведения при пожаре:…………………………………………..32

3.3 Организация мероприятий при пожаре:…………………………………...33

3.4 Ответственность…………………………………………………………….34

Приложение1……..…………………………………………………………….36

Приложение 2…..………………………………………………………………65

Литература………………………………………………………………………66

Скачать целиком (513.77 Кб) Сколько стоит заказать работу?

Содержимое работы - 1 файл

ТРПП Курсовая.doc

— 930.00 Кб (Скачать файл)

WB.Navigate(Edit1.Text); Адресная строка

end;

procedure TForm8.WBPropertyChange(Sender: TObject;

const szProperty: WideString);

begin

StatusBar1.SimpleText:=Text;

end;

procedure TForm8.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if Key = #13 then

WB.Navigate(Edit1.Text);

end;

end.

2.10 Время и дата

Очень удобная и простая функция программы.

Label11.Caption:=FloatTostr(now);

Label11.Caption:=DateTimeTostr(now);

2.11 Вкладка «Телефонная книга»

2.12.1 Сортировка контактов по группам.

Функция сортировки контактов по группам создана для удобного хранения контактов. Вы можете сортировать Ваши контакты так как вам удобно. Например: «Коллеги», «Родственники», «Друзья».

Добавление новой группы контактов:

var newstr:string; Переменные

i:integer;

glist:tstringlist;

begin

try

NewStr:=InputBox('Новая группа телефонов','Введите имя группы',''); Создаем новую группу

if newstr<>'' then begin

groups.Items.add.Caption:=newstr; Добавляем новую группу в список, присваиваем имя введенное при создании группы.

glist:=tstringlist.create;

glist.Clear;

for i:=1 to groups.Items.Count-1 do begin

Glist.add(groups.Items[i].Caption);

end;

try

FileSetAttr(dir+'groups.pdb',$00);

Glist.SaveToFile(dir+'groups.pdb'); Сохраняем группу в базе данных

Glist.Free;

except

WriteLog(log,'FileWriteError(Groups.pdb)','N1Click');

end;

except

WriteLog(log,'NewGroupError','N1Click');

end;

2.12.2 Поиск контактов по имени.

Функция быстрого поиска контакта по имени, позволяет быстро и легко найти нужную запись. Для того, чтобы найти нужную запись, достаточно всего ввести имя, программа покажет нужную вам запись.

Поиск контактов по имени:

var i:integer; Счетчик

s:ShortString;

begin

for i:=0 to phones.items.count-1 do begin

s:=Ansiuppercase(system.Copy(phones.items[i].CAPTION,0,length(editFind.Text))); Сравниваем текст введенный в поле для поиска с записями в телефонной книге.

if Ansiuppercase(EditFind.text)=s then begin

phones.items[i].Selected:=true; Если есть совпадения, выделяем запись

phones.ItemIndex:=i;

phones.ItemFocused:=phones.items[i];

break;

end;

if phones.ItemFocused<>nil then

phones.ItemFocused.MakeVisible(false);

2.13 Экспорт контактов в Excel и HTML.

Функция экспорта контактов из телефонного справочника в HTML и Excel очень удобная опция, для тех кто хочет встраивать нужные контактные данные на свой сайт, или просто распечатать их. Для экспорта в HTML можно настроить: цвет текста, фона и рамки. Для этого необходимо выбрать желаемый цвет в отделе «Настройки» программы.

2.13.1Экспорт в Excel:

Процесс экспорта записей из телефонного справочника:

fst:=2;

xl:=createoleobject('Excel.Application'); Открываем Excel

try

maxrow:=0;

xl.visible:=true;

XL.WorkBooks.Add; Создаем новую книгу в Excel

ws := XL.ActiveWorkBook.ActiveSheet;

ws.Range['A1:O500'].NumberFormat:='@';

ws.Range['A'+inttostr(fst)].Value := '№пп';

ws.Range['B'+inttostr(fst)].Value := 'Имя'; Название столбца

col:=1;

if cb1.Checked then begin

inc(col);

ws.Range[Chr(Ord('A')+col)+inttostr(fst)].Value := 'Телефон'; Название столбца

end;

if cb2.Checked then begin

inc(col);

ws.Range[Chr(Ord('A')+col)+inttostr(fst)].Value := 'Рабочий телефон'; Название столбца

end;

if cb3.Checked then begin

inc(col);

ws.Range[Chr(Ord('A')+col)+inttostr(fst)].Value := 'Мобильный'; Название столбца

end;

if cb4.Checked then begin

inc(col);

ws.Range[Chr(Ord('A')+col)+inttostr(fst)].Value := 'Адрес'; Название столбца

end;

if cb5.Checked then begin

inc(col);

ws.Range[Chr(Ord('A')+col)+inttostr(fst)].Value := 'E-Mail'; Название столбца

end;

for i:=fst+1 to Phones.Items.Count+fst do begin

col:=1;

ws.Range['a'+inttostr(i)].Value := i-(fst);//# работы

ws.Range['b'+inttostr(i)].Value := Phones.Items[i-fst-1].Caption;

if cb1.Checked then begin

inc(col);

ws.Range[Chr(Ord('A')+col)+inttostr(i)].Value:=Phones.Items[i-fst-1].SubItems[0]; Экспорт записей

end;

if cb2.Checked then begin

inc(col);

ws.Range[Chr(Ord('A')+col)+inttostr(i)].Value:=Phones.Items[i-fst-1].SubItems[1];

end;

if cb3.Checked then begin

inc(col);

ws.Range[Chr(Ord('A')+col)+inttostr(i)].Value:=Phones.Items[i-fst-1].SubItems[2];

end;

if cb4.Checked then begin

inc(col);

ws.Range[Chr(Ord('A')+col)+inttostr(i)].Value:=Phones.Items[i-fst-1].SubItems[3];

end;

if cb5.Checked then begin

inc(col);

ws.Range[Chr(Ord('A')+col)+inttostr(i)].Value:=Phones.Items[i-fst-1].SubItems[4];

end;

maxrow:=i;

end;

Процесс создания таблицы в Excel:

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(maxrow)].Borders[xlEdgeLeft].LineStyle:=xlContinuous;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(maxrow)].Borders[xlEdgeLeft].Weight:=xlThin;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(maxrow)].Borders[xlEdgeLeft].ColorIndex:=xlAutomatic;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(maxrow)].Borders[xlEdgeTop].LineStyle:=xlContinuous;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(maxrow)].Borders[xlEdgeTop].Weight:=xlThin;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(maxrow)].Borders[xlEdgeTop].ColorIndex:=xlAutomatic;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(maxrow)].Borders[xlEdgeBottom].LineStyle:=xlContinuous;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(maxrow)].Borders[xlEdgeBottom].Weight:=xlThin;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(maxrow)].Borders[xlEdgeBottom].ColorIndex:=xlAutomatic;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(maxrow)].Borders[xlEdgeRight].LineStyle:=xlContinuous;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(maxrow)].Borders[xlEdgeRight].Weight:=xlThin;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(maxrow)].Borders[xlEdgeRight].ColorIndex:=xlAutomatic;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(maxrow)].Borders[xlInsideVertical].LineStyle:=xlContinuous;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(maxrow)].Borders[xlInsideVertical].Weight:=xlThin;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(maxrow)].Borders[xlInsideVertical].ColorIndex:=xlAutomatic;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(maxrow)].Borders[xlInsideHorizontal].LineStyle:=xlContinuous;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(maxrow)].Borders[xlInsideHorizontal].Weight:=xlThin;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(maxrow)].Borders[xlInsideHorizontal].ColorIndex:=xlAutomatic;

//наружние границы

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(fst)].Borders[xlEdgeLeft].LineStyle:=xlContinuous;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(fst)].Borders[xlEdgeLeft].Weight:=xlMedium;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(fst)].Borders[xlEdgeLeft].ColorIndex:=xlAutomatic;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(fst)].Borders[xlEdgeTop].LineStyle:=xlContinuous;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(fst)].Borders[xlEdgeTop].Weight:=xlMedium;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(fst)].Borders[xlEdgeTop].ColorIndex:=xlAutomatic;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(fst)].Borders[xlEdgeBottom].LineStyle:=xlContinuous;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(fst)].Borders[xlEdgeBottom].Weight:=xlMedium;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(fst)].Borders[xlEdgeBottom].ColorIndex:=xlAutomatic;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(fst)].Borders[xlEdgeRight].LineStyle:=xlContinuous;

ws.Range['A'+inttostr(fst)+':'+Chr(Ord('A')+col)+inttostr(fst)].Borders[xlEdgeRight].Weight:=xlMedium;

Информация о работе Телефонный справочник