Прилоэюение
private
Procedure Show; end;
var
FindForm: TFindForm; implementation
uses BaseUnit; {$R *.DFM}
Procedure TFindForm.Show; begin
FamEdit, Text: =Base/amily; NameEdit. Text: =Base. name; FonEdit. Text: =Base. telefon; end;
procedure TFindForm.FormActivatefSender: TObject); begin
ExitButton.SetFocus; end;
procedure TFindForm.FindButtonClickfSender: TObject); begin
FamEdit. SetFocus; end;
procedure TFindForm.FamEditKeyPressfSender: TObject; var Key: Char); begin
ifKey=#}3 then begin Key:=#0;
NameEdit.SetFocus; end;
end;
procedure TFindForm.NameEditKeyPress(Sender: TObject; var Key: Char); begin
ifKey=#13 then begin Key:=#0;
if Base.Find(FamEdit. Text,NameEdit. Text) then begin
Show;
NextButton. SetFocus; end
else begin
MessageDlg( 'Hem daHHbix\mtInformation,[mbOk],0);
[JpiuioDtceHue
ExitButton, SetFocus; end
end;
end;
procedure TFindForm.NextButtonClick(Sender: TObject); begin
if BascFindNext then begin
Show;
NextButton,SetFocus; end
else begin
MessageDlg( 'Hem daHHbix\mtInformationJmbOkJ,0); ExitButton. SetFocus;
end end;
procedure TFindForm.ExitButtonClickfSender: TObject); begin
ModalResult:= mrOK; {завершить благополучно}; end;
end.
В процессе проектирования приложения Delphi автоматически строит файл проекта.
program BookProject; uses Forms,
MainUnit in 'MainUnit.pas' {MainFormj, InputUnit in 'InputUnit.pas' {InputForm}, AddUnit in 'AddUnit.pas' {AddForm}, FindUnit in FindUnit.pas' fFindForm}, Base Unit in 'BaseUnit.pas';
{$R *.RES} begin
Application. Initialize;
Application. CreateForm(TMainForm, MainForm); Application. CreateForm(TInputForm, InputForm); Application. CreateFormfTAddForm, AddForm); Application. CreateFormfTFindForm, FindForm); Application. Run;
end.
сп и с о к ЛИТЕРАТУРЫ
1.Бадд Т. Объектно-ориентированное программирование в действии. СПб.: Питер, 1997.
2.Буч Г. Объектно-ориентированный анализ и проектирование с примерами приложений на C++. М.: Бином; СПб.: Невский диалект, 1998.
3.Вирт И. Алгоритмы и структуры данных. М.: Мир, 1989.
4.Дал У., Дейкстра Э., Хоор К. Структурное программирование. М.: Мир, 1975.
5.Иванова Г.С., Ничушкина Т.Н., Пугачев Е.К. Объектно-ориентированное про граммирование. М.: Изд-во МГТУ им. Н.Э. Баумана, 2001.
6.Кормен Т., Лейзерсон Ч., Ривест Р. Алгоритмы: построение и анализ. М.: МЦНМО, 2000.
7.Майерс Г. Искусство тестирования программ. М.: Мир, 1982.
8.Фаронов В.В. Турбо-Паскаль. Основы Турбо-Паскаля. М.: «МВТУ - ФЕСТО ДИДАКТИК», 1992.
9.Хьюз Дэю., Мичтом Дэю. Структурный подход к программированию. М.: Мир, 1980.
Учебное издание
ИНФОРМАТИКА В ТЕХНИЧЕСКОМ УНИВЕРСИТЕТЕ
Иванова Галина Сергеевна
ОСНОВЫ ПРОГРАММИРОВАНИЯ
Редактор Н.Е. Овчеренко Художники С.С. Водчиц, Н.Г. Столярова
Корректоры Л.Я. Малютина, ОАО. Соколова
Компьютерная верстка Б.А. Иванов
Подписано в печать 16.05.2002. Формат 70x100/16. Печать офсетная. Бумага газетная Гарнитура «Тайме». Усл. печ. л. 33,8. Уч.-изд. л. 33,25. Тираж 5000 экз.
Заказ 1433
Издательство МГТУ им. Н.Э. Баумана 105005, Москва, 2-я Бауманская, 5
Отпечатано с оригинал-макета во ФГУП ИПК «Ульяновский Дом печати». 432980, г. Ульяновск, ул. Гончарова, 14