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

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

1.3.2 Описание алгоритма

Текст программы представлен в приложении Б.

2.4 Описание программы, входные и выходные данные

2.4.1 Процесс работы в программе

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

Добавление записей происходит при помощи пункта меню «Файл - Открыть». При этом на экране появляется форма добавления, в которой добавляются новые записи. Сохранение новых данных происходит при помощи пункта меню «Файл - Сохранить как», при этом данные сохраняются в виде файла *.txt в выбранную папку, откуда в последствии их можно будет заново загружать в программу для дальнейшего просмотра или редактирования. А сохранение измененных данных - «Правка - Сохранить изменения» или кнопка «ОК» на главной форме программы. При этом сохраняются изменения, внесенные на второй странице блокнота - «Список всех записей».

При помощи пунктов меню «Правка - Сортировать - А => Я / Я => А» происходит сортировка записей по «Фамилии» в алфавитном порядке или обратно алфавитному порядку.

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

При помощи кнопок «Следующий» / «Предыдущий» можно перейти к следующей / предыдущей записи, данные которой будут отображаться в полях «Выберите фамилию из списка», «Введите фамилию» и «Найдена запись».

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

Выбрав пункт меню «О программе» можно просмотреть информацию о программе и об авторе программы.

Нажатие кнопки «Выход» завершает работу с приложением.

2.4.5 Тестирование программы

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

Запускаем программу, считываем с диска файл телефонного справочника, выбираем фамилию в комбинированном списке и меняем её в поле редактирования «Фамилия». Убеждаемся в том, что синхронные изменения происходят и в комбинированном списке. Сохраняем изменения и используем кнопки «Предыдущий» и «Следующий» для навигации по записям. Удаляем одну из записей кнопкой «Удалить», сохраняем изменения. Пунктами меню «Сортировать» проверяем правильность сортировки записей в списке. Кнопкой «Найти» проверяем правильность осуществления поиска в списке записей. Редактируем данные в таблице, сохраняем справочник в файле на диске, просматриваем окно «О программе», заканчиваем работу с программой.

При тестировании программы ошибок не обнаружено. Все операции с базой справочника обрабатываются корректно.

Листинг программы «Телефонный справочник»

unit Unit3;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ComCtrls, ExtCtrls, Grids, Menus, Dialogs;

type

TPagesDlg1 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

OKBtn: TButton;

ComboBox1: TComboBox;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Label3: TLabel;

GroupBox1: TGroupBox;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

StringGrid1: TStringGrid;

mm1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

dlgSave1: TSaveDialog;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

F1: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

PopupMenu1: TPopupMenu;

OpenDialog1: TOpenDialog;

procedure N4Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure NewEdit (Sender: TObject);

procedure NewComboBox;

procedure N6Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure F1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure OKBtnClick (Sender: TObject);

procedure Button3Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

info = record {Тип записи}

familia, imja: string [20];

adres: string [100];

tel: string [15];

end;

var

PagesDlg1: TPagesDlg1;

F: file of info; {Файл записей}

r: info; {Одна запись}

N: integer; {Количество записей}

implementation

uses

Unit2;

{$R *.dfm}

procedure TPagesDlg1. NewComboBox;

var

i, j: integer;

begin

{Заполняем активную позицию комбинированного}

j:=ComboBox1. ItemIndex; {списка}

{очищаем комбинированный список}

N:=1;

ComboBox1. Clear;

while StringGrid1. Cells [0, N]<>'' do

begin

{В обновленный комбинированный список добавляем

все фамилии из первого столбца таблицы}

ComboBox1. Items. Add (StringGrid1. Cells [0, N]);

N:=N+1;

end;

{Переходим на позицию j}

ComboBox1. ItemIndex:=j;

end;

procedure TPagesDlg1.N4Click (Sender: TObject);

begin

AboutBox. Show;

end;

procedure TPagesDlg1.N10Click (Sender: TObject);

begin

Close;

end;

procedure TPagesDlg1.N3Click (Sender: TObject);

var i: integer;

begin

{Выполнение стандартного диалога «Open file»}

if OpenDialog1. Execute then

begin

{F - название выбранного диалогом файла}

{свойство FileName объекта OpenDialog1}

AssignFile (F, OpenDialog1. FileName);

Reset(F);

N:=0; {Читаем с начала файла}

{Считываем все записи из файла}

while not eof(F) do

begin

{В переменную r считываем текущую запись}

Read (F, r);

{Фамилия - в первый столбец таблицы}

StringGrid1. Cells [0, N+1]:= r.familia;

{Имя - во второй столбец таблицы}

StringGrid1. Cells [1, N+1]:= r.imja;

{Адрес - в третий столбец таблицы}

StringGrid1. Cells [2, N+1]:= r.adres;

{Телефон - в четвертый столбец таблицы}

StringGrid1. Cells [3, N+1]:= r.tel;

N:=N+1; {Увеличиваем общее число записей N}

end;

CloseFile(F); {Закрываем файл}

{Описанная ниже процедура заполняет поля

редактирования второй страницы формы}

NewEdit(ComboBox1);

{Описанная ниже процедура заполняет

комбинированный список второй страницы формы}

NewComboBox;

end;

end;

procedure TPagesDlg1.N8Click (Sender: TObject);

var i: integer;

begin

if dlgSave1. Execute then

begin

AssignFile (F, dlgSave1. FileName+'.txt');

Rewrite(F);

i:=1;

while StringGrid1. Cells [3, i] <> '' do

begin

r.familia:=StringGrid1. Cells [0, i];

r.imja:=StringGrid1. Cells [1, i];

r.adres:=StringGrid1. Cells [2, i];

r.tel:=StringGrid1. Cells [3, i];

Write (F, r);

i:= i+1;

end;

CloseFile(F);

end;

end;

procedure TPagesDlg1. FormCreate (Sender: TObject);

begin

{Заполняем заголовок таблицы}

StringGrid1. Cells [0,0]:= 'Фамилия';

StringGrid1. Cells [1,0]:= 'Имя';

StringGrid1. Cells [2,0]:= 'Адрес';

StringGrid1. Cells [3,0]:= 'Телефон';

{Создаем пустую строку в комбинированном списке}

ComboBox1. Items. Add('');

{Активизируем эту строку на случай

создания нового справочника}

ComboBox1. ItemIndex:=0;

end;

procedure TPagesDlg1. NewEdit (Sender: TObject);

var i: integer;

begin

{i - номер строки данных в таблице}

i:= ComboBox1. ItemIndex+1;

if i > 0 then

begin

{Для значащих позиций комбинированного списка}

Edit1. Text:= StringGrid1. Cells [0, i];

{копируем данные i-ой записи с}

Edit2. Text:= StringGrid1. Cells [1, i];

{первой страницы формы в}

Edit3. Text:= StringGrid1. Cells [2, i];

{в соответствующие поля на второй странице}

Edit4. Text:= StringGrid1. Cells [3, i];

end;

end;

procedure TPagesDlg1.N6Click (Sender: TObject);

var i:integer;

begin

{Определяем номер активной записи}

i:=ComboBox1. ItemIndex+1;

if PageControl1. ActivePage=TabSheet2 then

begin {Если активная вторая страница,}

StringGrid1. Cells [0, i]:= Edit1. Text;

{то вносим изменения в первую}

StringGrid1. Cells [1, i]:= Edit2. Text;

StringGrid1. Cells [2, i]:= Edit3. Text;

StringGrid1. Cells [3, i]:= Edit4. Text;

end

{Иначе - вносим изменения во вторую страницу}

else NewEdit(ComboBox1);

{В обоих случаях добавляем комбинированный список}

NewComboBox;

end;

procedure TPagesDlg1. Button1Click (Sender: TObject);

begin

if ComboBox1. ItemIndex = 0 then

{Зацикливаем список}

ComboBox1. ItemIndex:=N-1

else

{В середине списка показатель уменьшается на единицу}

ComboBox1. ItemIndex:=ComboBox1. ItemIndex - 1;

{Обновляем панель «Найдена запись»}

NewEdit(ComboBox1);

end;

procedure TPagesDlg1. Button4Click (Sender: TObject);

begin

if ComboBox1. ItemIndex = N-1 then

{Зацикливаем список}

ComboBox1. ItemIndex:=0

else

{В середине списка показатель увеличивается на единицу}

ComboBox1. ItemIndex:=ComboBox1. ItemIndex+1;

{Обновляем панель «Найдена запись»}

NewEdit(ComboBox1);

end;

procedure TPagesDlg1.N7Click (Sender: TObject);

var

A:array of array of String;

Min: Integer;

j, i, k, y: Integer;

Buf: String;

begin

SetLength (A, ComboBox1. Items. Count, 4);

For i:=0 to ComboBox1. Items. Count-1 do

begin

A [i, 0]:=(StringGrid1. Cells [0, i+1]);

A [i, 1]:=(StringGrid1. Cells [1, i+1]);

A [i, 2]:=(StringGrid1. Cells [2, i+1]);

A [i, 3]:=(StringGrid1. Cells [3, i+1]);

end;

for i:=0 to ComboBox1. Items. Count-1 do

begin

Min:=i;

For j:=i+1 to ComboBox1. Items. Count-1 do

begin

If A [j, 0]<A [Min, 0] then

Min:=j;

end;

For y:=0 to 3 do

begin

Buf:=A [i, y];

A [i, y]:=A [Min, y];

A [Min, y]:=Buf;

end;

end;

For y:=0 to 3 do

For k:=0 to ComboBox1. Items. Count-1 do

begin

StringGrid1. Cells [y, k+1]:=A [k, y];

end;

NewComboBox;

NewEdit(ComboBox1);

end;

procedure TPagesDlg1.F1Click (Sender: TObject);

var

A:array of array of String;

Min: Integer;

j, i, k, y: Integer;

Buf: String;

begin

SetLength (A, ComboBox1. Items. Count, 4);

For i:=0 to ComboBox1. Items. Count-1 do

begin

A [i, 0]:=(StringGrid1. Cells [0, i+1]);

A [i, 1]:=(StringGrid1. Cells [1, i+1]);

A [i, 2]:=(StringGrid1. Cells [2, i+1]);

A [i, 3]:=(StringGrid1. Cells [3, i+1]);

end;

for i:=0 to ComboBox1. Items. Count-1 do

begin

Min:=i;

For j:=i+1 to ComboBox1. Items. Count-1 do

begin

If A [j, 0]>A [Min, 0] then

Min:=j;

end;

For y:=0 to 3 do

begin

Buf:=A [i, y];

A [i, y]:=A [Min, y];

A [Min, y]:=Buf;

end;

end;

For y:=0 to 3 do

For k:=0 to ComboBox1. Items. Count-1 do

begin

StringGrid1. Cells [y, k+1]:=A [k, y];

end;

NewComboBox;

NewEdit(ComboBox1);

end;

procedure TPagesDlg1. Button2Click (Sender: TObject);

var obr: string;

i, j: integer;

a: array of array of string;

found: boolean;

begin

obr:=Edit5. Text;

i:=1;

found:=False;

repeat

 //for j:= 1 to Stringgrid1. ColCount - 1 do begin

if Stringgrid1. Cells [0, i] = obr then

begin

found:=True; j:=i -1

end;

i:=i+1;

until (i> ComboBox1. Items. Count) or found;

if found then

begin

ShowMessage ('Данная фамилия в Вашей книге найдена!');

 // PagesDlg1. Caption:=IntToStr(j);

ComboBox1. ItemIndex:=j;

{Обновляем панель «Найдена запись»}

NewEdit(ComboBox1);

end

else ShowMessage ('Данная фамилия в Вашей книге НЕ найдена!');

end;

procedure TPagesDlg1.OKBtnClick (Sender: TObject);

var i:integer;

begin

{Определяем номер активной записи}

i:=ComboBox1. ItemIndex+1;

if PageControl1. ActivePage=TabSheet2 then

begin {Если активная вторая страница,}

StringGrid1. Cells [0, i]:= Edit1. Text;

{то вносим изменения в первую}

StringGrid1. Cells [1, i]:= Edit2. Text;

StringGrid1. Cells [2, i]:= Edit3. Text;

StringGrid1. Cells [3, i]:= Edit4. Text;

end

{Иначе - вносим изменения во вторую страницу}

else NewEdit(ComboBox1);

{В обоих случаях добавляем комбинированный список}

NewComboBox;

end;

procedure TPagesDlg1. Button3Click (Sender: TObject);

var obr, obrc: string;

i, j: integer;

a: array of array of string;

found: boolean;

begin

obrc:= ComboBox1. Text;

obr:=Edit5. Text;

i:=1;

found:=False;

repeat

 // for j:= 1 to Stringgrid1. ColCount - 1 do begin

if (Stringgrid1. Cells [0, i] = obr)

or (Stringgrid1. Cells [0, i] = obrc) then

begin

found:=True; j:=i -1

end;

i:=i+1;

until (i> ComboBox1. Items. Count) or found;

if found then

Stringgrid1. Rows [j+1].Clear

else ShowMessage ('Данная фамилия в Вашей книге НЕ найдена!');

for j:=j+1 to N do

begin

Stringgrid1. Rows[j].Clear;

Stringgrid1. Rows[j]:= Stringgrid1. Rows [j + 1]

end;

Edit1. Clear;

Edit2. Clear;

Edit3. Clear;

Edit4. Clear;

Edit5. Clear;

ComboBox1. Clear;

NewComboBox;

NewEdit(ComboBox1);

end;

end.

Заключение

Объектно-ориентированный подход к проектированию базируется на представлении конкретной сферы задачи в виде большого количества моделей для независимой от языка создания системы программы на основе ее прагматики. В базе объектно-ориентированного языка программирования заложены два главных понятия: объект и класс.

Объектом является определенная опознаваемая сущность, которая имеет необходимо действующее назначение в конкретной области. Классом в объектно-ориентированном программировании является абстрактный тип данных, состоящий из данных, функций и процедур.

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

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

При выполнении курсового проекта были дополнительно изучены различные средства ИСР Delphi, предоставляемые разработчику приложений баз данных. Среди них средства диалоговой организации программ, средства подключения и обслуживания баз данных, средства отладки приложений.

Во время проектирования и разработки рабочего проекта приложения возникали небольшие ошибки выполнения, которые были устранены на этапе отладки и тестирования.

Выполнение курсового проекта позволило мне закрепить ранее изученный материал по дисциплине «Объектно-ориентированное программирование», изучить новый материал по проектированию приложений баз данных в интегрированной среде разработки Delphi.

Цель курсовой работы достигнута, задачи выполнены:

теоретически проанализирована научная и методическая литература по проблеме разработки приложения «Телефонный справочник»;

изучены основные компоненты и средства построения интерфейса среды программирования Delphi;

спроектирован интерфейс программы и порядок ее взаимодействия с пользователем;

разработано приложение «Телефонный справочник».

Разработанное приложение можно применять для поиска номеров телефона сотрудников предприятия, клиентов, пользователей, студентов группы, преподавателей.

Список источников

программа телефонный справочник delphi

1. Архангельский А.Я. Delphi 2006. Язык Delphi, классы, функции Win32 и.NET. Справочное пособие / [Текст]. - М.: Бином-Пресс, 2011. - 1152 с. - ISBN 978-5-9518-0336-8.

2. Гофман В. Delphi 7. Наиболее полное руководство [Текст]. - СПб.: БХВ - Санкт-Петербург, 2011. - 2516 с. - ISBN 978-5-9922-0767-5.

3. Григорьев А.Б. О чем не пишут в книгах по Delphi [Текст]. - СПб.: БХВ-Петербург, 2010. - 576 с. - ISBN 978-5-699-40703-3.

4. Когаловский М.Р. Энциклопедия технологий баз данных / [Текст]. - М.: Финансы и статистика, 2002. - 800 с. - ISBN 5-279-02276-4.

5. Кумскова И.А. Базы данных / [Текст]. - М.: КноРус, 2011. - 488 с. - ISBN 978-5-406-01764-7.

6. Осипов Д.Л. Базы данных и Delphi. Теория и практика / [Текст]. - М.: БХВ-Петербург, 2011. - 752 с. - ISBN 978-5-9775-0659-5.

7. Парижский С.М. Delphi. Учимся на примерах /Под ред. Ю.А. Шпака [Текст]. - Киев: МК-Пресс, 2005. - 216 с. - ISBN 978-5-9775-0516-1.

8. Пирогов В.Ю. Информационные системы и базы данных. Организация и проектирование / [Текст]. - М.: БХВ-Петербург, 2009. - 528 с. - ISBN 978-5-9775-0399-0.

9. Рудикова Л.В. Базы данных. Разработка приложений / [Текст]. - М.: БХВ-Петербург, 2006. - 496 с. - ISBN 5-94157-805-9.

10. Свиридова М.Ю. Система управления базами данных Access / [Текст]. - М.: Академия, 2010. - 192 с. - ISBN 978-5-7695-4664-8.

Размещено на Allbest.ru