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

Автор работы: Пользователь скрыл имя, 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 Кб (Скачать файл)

align="justify"> //применение параметров в зависимости от выбранного элимента списка

case PhoneBook.list.selected.imageindex of

0: begin //корень

//установим кооментарий и деактивизируем недоступные элименты

// покажем доступные

PhoneBook.NewSubcategory.Enabled:=true;

PhoneBook.newtext.enabled:=true;

PhoneBook.setfirst.enabled:=false;

PhoneBook.chgprop.enabled:=false;

PhoneBook.cut.enabled:=false;

PhoneBook.copy.enabled:=false;

PhoneBook.paste.enabled:=false;

PhoneBook.Remove.enabled:=false;

PhoneBook.files.enabled:=False;

PhoneBook.savenote.Enabled:=false;

PhoneBook.allUpper.enabled:=false;

PhoneBook.allLower.enabled:=false;

PhoneBook.allInvert.enabled:=False;

PhoneBook.allProper.enabled:=false;

PhoneBook.PrintNote.Enabled:=false;

end;

1: begin //группа

PhoneBook.chgprop.enabled:=true;

PhoneBook.Remove.enabled:=True;

PhoneBook.newtext.enabled:=true;

PhoneBook.setfirst.enabled:=true;

PhoneBook.NewSubcategory.Enabled:=true;

//недоступные элименты

PhoneBook.cut.enabled:=false;

PhoneBook.copy.enabled:=false;

PhoneBook.paste.enabled:=false;

PhoneBook.files.enabled:=False;

PhoneBook.savenote.Enabled:=false;

PhoneBook.allUpper.enabled:=false;

PhoneBook.allLower.enabled:=false;

PhoneBook.allInvert.enabled:=false;

PhoneBook.allProper.enabled:=false;

PhoneBook.PrintNote.Enabled:=false;

end;

3: begin //группа

//доступные элименты

PhoneBook.setfirst.enabled:=True;

PhoneBook.chgprop.enabled:=true;

PhoneBook.Remove.enabled:=True;

PhoneBook.newtext.enabled:=true;

PhoneBook.NewSubcategory.Enabled:=true;

//недоступные элименты

PhoneBook.cut.enabled:=false;

PhoneBook.copy.enabled:=false;

PhoneBook.paste.enabled:=false;

PhoneBook.files.enabled:=False;

PhoneBook.savenote.Enabled:=false;

PhoneBook.allUpper.enabled:=false;

PhoneBook.allLower.enabled:=false;

PhoneBook.allInvert.enabled:=false;

PhoneBook.allProper.enabled:=false;

PhoneBook.PrintNote.Enabled:=false;

end;

2: begin //заметка

PhoneBook.NewSubcategory.Enabled:=False;

PhoneBook.allUpper.enabled:=false;

PhoneBook.allLower.enabled:=false;

PhoneBook.allProper.enabled:=false;

PhoneBook.allInvert.enabled:=false;

PhoneBook.cut.enabled:=false;

PhoneBook.copy.enabled:=false;

//доступные элименты управления

PhoneBook.PrintNote.Enabled:=true;

PhoneBook.setfirst.enabled:=True;

PhoneBook.chgprop.enabled:=true;

PhoneBook.Remove.enabled:=True;

PhoneBook.newtext.enabled:=true;

PhoneBook.files.enabled:=true;

PhoneBook.savenote.Enabled:=true;

PhoneBook.paste.enabled:=true;

//загрузим текст

fll:=tstringlist.create;

try

if FileExists(dir+'text\'+PhoneBook.list.selected.Text+'.txt') then begin

fileSetAttr(dir+'text\'+PhoneBook.list.selected.Text+'.txt',$00);

fll.LoadFromFile(dir+'text\'+PhoneBook.list.selected.Text+'.txt');

end

else Fll.SavetoFile(dir+'text\'+PhoneBook.list.selected.Text+'.txt');

except

writelog(log,'FileWriteError('+PhoneBook.list.selected.Text+'.txt)','UpdateNotes');

end;

PhoneBook.files.Clear;

PhoneBook.files.lines.AddStrings(fll);

//очистим времменую переменную

fll.free;

end;

cntfiles:=0;

for i:=0 to PhoneBook.list.Items.count-1 do

if PhoneBook.list.Items[i].ImageIndex=2 then inc(cntfiles);

PhoneBook.StatusBar1.Panels[1].text:='Заметок:'+inttostr(cntfiles);

end;

procedure TPhoneBook.SaveNoteExecute(Sender: TObject);

begin

sd.FileName:=list.selected.Text+'.txt';

if sd.Execute then begin

try

files.Lines.SaveToFile(sd.FileName);

except

writelog(log,'FileWriteError('+sd.filename+')','SaveNoteExecute');

end;

procedure TPhoneBook.AllUpperExecute(Sender: TObject);

var s,l:integer;

begin

s:=files.SelStart;

l:=files.SelLength;

if l>0 then begin

files.SelText:=ansiuppercase(files.SelText);

files.SelStart:=s;

files.SelLength:=l;

end;

procedure TPhoneBook.AllLowerExecute(Sender: TObject);

var s,l:integer;

begin

s:=files.SelStart;

l:=files.SelLength;

if l>0 then begin

files.SelText:=ansilowercase(files.SelText);

files.SelStart:=s;

files.SelLength:=l;

end;

procedure TPhoneBook.AllProperExecute(Sender: TObject);

var s,l:integer;

begin

s:=files.SelStart;

l:=files.SelLength;

if l>0 then begin

files.seltext:=propercase(files.seltext);

files.SelStart:=s;

files.SelLength:=l;

end;

procedure TPhoneBook.AllInvertExecute(Sender: TObject);

var s,l:integer;

begin

s:=files.SelStart;

l:=files.SelLength;

if l>0 then begin

files.seltext:=invertcase(files.seltext);

files.SelStart:=s;

files.SelLength:=l;

end;

procedure TPhoneBook.CutExecute(Sender: TObject);

begin

if files.SelLength>0 then files.CutToClipboard;

end;

procedure TPhoneBook.PasteExecute(Sender: TObject);

begin

files.PasteFromClipboard;

end;

procedure TPhoneBook.CopyExecute(Sender: TObject);

begin

if files.sellength>0 then files.CopyToClipboard;

end;

procedure TPhoneBook.filesKeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if files.SelLength=0 then begin

cut.enabled:=false;

copy.enabled:=false;

AllProper.enabled:=false;

AllInvert.enabled:=false;

AllUpper.enabled:=false;

AllLower.enabled:=false;

end

else begin

cut.enabled:=true;

copy.enabled:=true;

AllProper.enabled:=true;

AllInvert.enabled:=True;

AllUpper.enabled:=True;

AllLower.enabled:=True;

end;

StatusBar1.Panels[2].Text:=inttostr(files.CaretPos.x)+':'+inttostr(files.CaretPos.y+1);

end;

procedure TPhoneBook.filesMouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if files.SelLength=0 then begin

cut.enabled:=false;

copy.enabled:=false;

AllProper.enabled:=false;

AllInvert.enabled:=false;

AllUpper.enabled:=false;

AllLower.enabled:=false;

end

else begin

cut.enabled:=true;

copy.enabled:=true;

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