Именно эти параметры создают условия для полноценной работы IDE Delphi 7 и программ, созданных в этой среде.
Дополнительных средств (принтер, сканер, дополнительные дисководы и т.д.) не требуется.
2 Разработка рабочего проекта Разработка программы “Записная книжка”
Разработка программы
Для разработки приложения "Записная книжка" используются средства визуального программирования Delphi и система управления базами данных MS Access. Проект программы содержит четыре окна:
1. frmMain - рисунок 1;
2. frmClient - рисунок 2;
3. frmMessage - рисунок 3;
Рис.1 Окно игры - frmMain
Компонент frmMain: TForm
Свойства:
Сaption - “Записная книжка”;
Border - bsSingle;
BiSystemMenu - false;
1 - компонент BitBtn1: TBitBtn
Свойства:
Caption - "Добавить";
События: открывается окно для заполнения и добавления данных о клиенте.
2 - компонент BitBtn2: TBitBtn
Свойства:
Caption - "Редактировать";
События: открывается окно для редактирования данных о клиенте.
3 - компонент BitBtn3: TBitBtn
Свойства:
Caption - "Обновить";
События: обновляется таблица с данными.
4 - компонент BitBtn4: TBitBtn
Свойства:
Caption - "Удалить";
События: удаляется выбранный клиент из таблицы.
5 - компонент BitBtn5: TBitBtn
Свойства:
Caption - "Отправить в Excel";
События: все данные отправляются в Excel.
6 - компонент BitBtn6: TBitBtn
Свойства:
Caption - "Отправить сообщение";
События: открывается окно для написание сообщения и отправки его клиентам.
7 - компонент ComboBox1: TComboBox
Свойства:
Style - csDropDownList;
События: производится фильтрация по городу в таблице клиентов.
|
|
|
8 - компонент DBGrid: TDBGrid
Свойства: отображает данные о человеке
События: нет.
8 - компонент Label1: TLabel
Caption: “ - сегодня день рождения”
События: нет.
9 - компонент Label2: TLabel
Caption: “ - день рождения на этой недели”
События: нет.
10 - компонент Label3: TLabel
Caption: “ - день рождения в этом месяце”
События: нет.
11 - компонент Shape1: TShape
Color: clYellow;
События: нет.
12 - компонент Shape2: TShape
Color: clMoneyGreen;
События: нет.
13 - компонент Shape3: TShape
Color: clActiveCaption;
События: нет.
14 - компонент Edit1: TEdit
Text: “”
События: при вводе значений производит поиск по столбцу "ФИО" людей.
15 - компонент Edit2: TEdit
Text: “”
События: при вводе значений производит поиск по столбцу "Емайл" людей.
16 - компонент Edit3: TEdit
Text: “”
События: при вводе значений производит поиск по столбцу "Номер телефона" людей.
17 - компонент ADOConnection: TADOConnection
Свойства: связывает базу данных с программой;
События: нет.
18 - компонент tbClient: TADOQuery
Свойства: связывает таблицу tbClient с программой;
События: нет.
19 - компонент tbCity: TADOQuery
Свойства: связывает таблицу tbCity с программой;
События: нет.
20 - компонент tbDomen: TADOQuery
Свойства: связывает таблицу tbDomen с программой;
События: нет.
21 - компонент ExcelApplication1: TExcelApplication1
Свойства: нет;
События: для построения отчетов.
|
|
|
Рис.2 Окно добавления, редактирования записи
Компонент Client: TForm
Свойства:
Сaption - “”;
Border - bsSingle;
BiSystemMenu - false;
1 - компонент BitBtn1: TBitBtn
Свойства:
Caption - "Добавить";
Enable - false;
События: добавляет нового человека в записную книжку.
2 - компонент BitBtn2: TBitBtn
Свойства:
Caption - "Сохранить";
Enable - false;
События: сохраняет сделанные изменения.
3 - компонент BitBtn3: TBitBtn
Свойства:
Caption - "Отмена";
События: закрывает окно.
4 - компонент Edit1: TEdit
Text: “”
Font - Arial;
Color - black;
События: нет.
5 - компонент Edit2: TEdit
Text: “”
Font - Arial;
Color - black;
События: нет.
6 - компонент Edit3: TEdit
Text: “”
Font - Arial;
Color - black;
События: нет.
7 - компонент ComboBox1: TComboBox
Text: “”
Font - Arial;
Color - black;
События: нет.
8 - компонент ComboBox2: TComboBox
Text: “”
Font - Arial;
Color - black;
События: нет.
9 - компонент DateTimePicker1: TDateTimePicker
Date - now;
Font - Arial;
Color - black;
События: нет.
Рис.3 Окно написания и отправления сообщения
Компонент frmMessage: TForm
Свойства:
Сaption - “Сообщение ”;
Border - bsSingle;
BiSystemMenu - false;
1 - компонент TBitBtn
Свойства:
Caption - "Отправить";
События: отправляет сообщение выбранному человеку.
2 - компонент TEdit
Свойства:
Text - "";
События: нет.
3 - компонент TMemo
Свойства:
Text - "";
|
|
|
События: нет.
Написание программы
Программную реализацию разработанных алгоритмов содержат обработчики событий. Все по порядку.
При созданий главной формы приложения - frmMain обрабатывается событие frmMainShow. В ней динамически создается строка соединение с БД Note. db, далее открываются все таблицы, заполнение списков городов. Ошибка вызова события может возникнуть при отсутствии файла Note. db.
При нажатие кнопки "Добавить" открывается форма - Client (с параметром Client. Flag_Save = 1), обрабатывается событие ClientShow.
При нажатие кнопки "Редактировать" открывается форма - Client (с параметром Client. Flag_Save = 2), обрабатывается событие ClientShow. В ней происходит условие проверки флага открытия, блок схема на рис.4.
Рис.4 Блок-схема открытия формы для добавления редактирования.
Если будет нажата кнопка "Удалить", то текущая запись будет удалена с таблицы.
Если будет нажата кнопка "Обновить", то будут сброшены все фильтры и поиски в таблице.
В программе присутствует процедура заполнения всплывающих списков - ComboAdd. Здесь три обязательных параметра Combo - компонент который должен заполнится, TableStr, FieldStr - название таблицы и поля от куда считывается данные. В случае неправильной передачи параметров в блоке составления запроса вызовется исключительная ситуация, с сообщением об ошибки. Листинг процедуры:
|
|
|
ComboAdd (Combo: tComboBox; TableStr,FieldStr: string);
Var
ado: TADOQuery;
temp: Variant;
Begin
Try
ado: = TADOQuery. Create (nil);
ado. Connection: = ADOConnection1;
ado. CursorType: = ctStatic;
ado. Close;
ado. SQL. Clear;
ado. SQL. Add ('Select '+FieldStr+' from '+TableStr);
ado. Open;
Except
MessageDlg (‘ComboAdd () procedure!!! ’,mtError, [mbOK],0);
exit;
end;
ado. First;
Combo. Items. Clear;
while not ado. Eof do
Begin
temp: = ado [fieldstr];
Combo. Items. Add (trim (temp));
ado. Next;
end;
end;
Описание программы
Общие сведения
Разработанное приложение является устройством записи номеров , дней рождений и.т.д «Записная книжка».
Функциональное назначение
Приложение предназначено для записи различных заметок.
Дата добавления: 2021-07-19; просмотров: 61; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!