BolXB
Сообщений: 23
Оценки: 0
Присоединился: 2008-05-14 11:11:31.813333
|
еще раз здраствуйте
procedure TfmSpisok.cbPacChange(Sender: TObject);
begin
edLastN.Text := '';
edLastN.SetFocus;
end;
procedure TfmSpisok.edLastNChange(Sender: TObject);
var LocField: string[20];
begin
if edLastN.Text <> '' then
begin
case cbPac.ItemIndex of
0: LocField := 'Last_Name';
1: LocField := 'First_Name';
2: LocField := 'Father_Name';
end;
dmOft.Pacient.Locate(LocField, edLastN.Text, [loCaseInsensitive]);
end;
end;
Суть такова через ComboBox выбираем где осуществляется поиск, а в dbEdit вводим фамилию, имя и отчество, но при нажатии клавиши Enter ничего не происходит.
|
не получается организовать поиск Delphi 7. Поясните - 
