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

Автор работы: Пользователь скрыл имя, 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;

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

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

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

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

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

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

Связанные документы