Разработка программной системы «Автоматизированная записная книжка», страница 7

else if MessageDlg(

'Текст "'+FindText+'" не найден. Продолжатьдиалог?',

mtConfirmation, mbYesNoCancel, 0) <> mrYes

then CloseDialog;

end;

Memo1.SetFocus;

end;

3.  Пользователь выбрал форму «органайзер»:

Обзор дел происходит по следующему алгоритму, выполняется процедура (procedure TForm5.BitBtn8Click(Sender: TObject)):

begin

DataModule1.ADOQuery5.Close;

DataModule1.ADOQuery5.SQL.Clear;

DataModule1.ADOQuery5.SQL.Add('select * from Organajzer');

DataModule1.ADOQuery5.Open;

 end;

Данные выводятся DBGrid1.

Добавление нового сообщения , выполняется процедура (procedure TForm5.BitBtn6Click(Sender: TObject)):

var t: integer;l: string;

begin

l:=MaskEdit3.Text+':00';

DataModule1.ADOQuery5.Close;

DataModule1.ADOQuery5.SQL.Clear;

DataModule1.ADOQuery5.SQL.Add('select max(ID_zapisi) from Organajzer');

DataModule1.ADOQuery5.Open;

t:=DataModule1.ADOQuery5.Fields[0].AsInteger;

t:=t+1;

DataModule1.ADOQuery5.Close;

DataModule1.ADOQuery5.SQL.Clear;

DataModule1.ADOQuery5.SQL.Add('insert into Organajzer (ID_zapisi,vremia, data, Zapis )  values ('+inttostr(t)+','''+l+''','''+MaskEdit1.Text+''','''+ComboBox1.Text+''')');

DataModule1.ADOQuery5.ExecSQL;

end;

Изменение сообщения происходит по следующему алгоритму(procedure TForm5.BitBtn16Click(Sender: TObject)):

begin

DataModule1.ADOQuery5.Close;

 DataModule1.ADOQuery5.SQL.Clear;

 DataModule1.ADOQuery5.SQL.Add('update Organajzer set vremia='''+MaskEdit3.Text+''' where ID_zapisi='+inttostr(n)+' ');

 DataModule1.ADOQuery5.ExecSQL;

 DataModule1.ADOQuery5.Close;

 DataModule1.ADOQuery5.SQL.Clear;

 DataModule1.ADOQuery5.SQL.Add('update Organajzer set data='''+MaskEdit1.Text+''' where ID_zapisi='+inttostr(n)+' ');

 DataModule1.ADOQuery5.ExecSQL;

 DataModule1.ADOQuery5.Close;

 DataModule1.ADOQuery5.SQL.Clear;

 DataModule1.ADOQuery5.SQL.Add('update Organajzer set Zapis='''+Edit3.Text+''' where ID_zapisi='+inttostr(n)+' ');

DataModule1.ADOQuery5.ExecSQL;

 end;

Выбор нужной даты происходит при выборе дата в MonthCalendar1, выполняется процедура (procedure TForm5.MonthCalendar1Click (Sender: TObject)):

var d: TDateTime;

t:string;

begin

d:=MonthCalendar1.Date;

t:=DateToStr(d);

Edit1.Text:=DateToStr(d);

DataModule1.ADOQuery5.Close;

DataModule1.ADOQuery5.SQL.Clear;

DataModule1.ADOQuery5.SQL.Add('select * from Organajzer where data='''+t+''' ');

DataModule1.ADOQuery5.Open;

end;

4  ТЕСТИРОВАНИЕ

При тестировании программы возникли следующие ошибки:

1.  При обновлении формы «редактирование контактов» форма не обновлялась – Ошибка исправлена.

2.  В ListBox1 формы «редактирование контактов» фамилии не были отсортированы – Ошибка исправлена.

3.  При добавлении нового контакта группу приходись вводить, а не выбирать из имеющихся – Ошибка исправлена.

4.  При выборе книги на форме «читать», если книга была не найдена приложение закрывалось – Ошибка исправлена.

5.  На форме «органайзер» в заголовке сообщения с напоминанием выводилось название проекта – Ошибка исправлена.

6.  На форме «органайзер» при удалении записи ,если номер записи не был введен приложение закрывалось – Ошибка исправлена.

7.  На форме «органайзер» при редактировании записи ,если номер записи не был введен приложение закрывалось – Ошибка исправлена.

5  РУКОВОДСТВО ПОЛЬЗОВАТЕЛЯ

Требования к аппаратному и программному обеспечению:

Процессор: Intel Pentium 4

ОЗУ: от 512 Мбайт

Объем пространства на жестком диске: 48Мбайт

Клавиатура

Мышь

Операционная система: Microsoft Windows XP;

НеобходимоеПО: СУБД Microsoft Office Access 2003, Borland Delphi 7.0;

Процесс инсталляции программы:

1.  Установка программы при открытии файла установки «курсовик.exe», появляется окно установки:

2.  Нажать «Next»;

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