Программирование на Delphi 7



             

Главная форма проекта DemoFind



Рисунок 14.3. Главная форма проекта DemoFind




 Листинг 14.1. Секция Implementation главного модуля Main проекта DemoFind 

implementation 

{$R *.DFM}

procedure TForml.FormShow(Sender: TObject);

begin 

try

Cust.Open;

except

on E: EDBEngineError do ShowMessage('Ошибка при открытии таблицы');

end;

end;

procedure TForml.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Gust.Close;

end;

procedure TForml.FindBtnClick(Sender: TObject);

begin

try 

if not Gust.FindKey([Editl.Text, Edit2.Text])

then ShowMessage('Запись не найдена');

except on E: EDatabaseError

do ShowMessage('Ошибка поиска'); 

end; 

end;

end.

Набор данных открывается в методе-обработчике FormShow при открытии формы и закрывается в методе-обработчике Formclose. При щелчке на кнопке FindBtn в метод FindKey передаются значения для поиска из компонентов Edit1 И Edit2.

 











Содержание  Назад  Вперед