Всем привет!
Делаю простенькую прогу баз данных.
Нужно сделать выборку по запросу:найти по дате абонента и вывести окно с его фамилией.
Почему код
------------
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if Table1['Data']= StrToDate(edit1.text)
then
begin
ShowMessage (Table1['Family']);
exit;
end
else
Showmessage('Абонента нет с введенной датой');

end;
----------
работает не правильно.
Подскажите,пожалуйста!
компоненты - Table1 (DatabaseName-AS; TableName - asa.db;
TableType -ttParadox)
DataSourse1 (DataSet -Table)
DBGrid1 (DataSourse-DataSourse1)
DBEdit1(DataSourse-DataSourse1;DataField-Family)
DBEdit2(DataSourse-DataSourse1;DataField-Telephone)
DBEdit3(DataSourse-DataSourse1;DataField-Data)
DBRichedit1 (DataSourse-DataSourse1;DataField-Adress)
DBNavigator (DataSourse-DataSourse1)
Edit1,BitBtn,BitBtn2,BitBtn3
Или может подскажите код с применением SQL.
База -типа Paradox Способ доступа - BDE

Раз используется навигационный способ доступа к даным то для поиска следует воспользоватся методомм Locate(const KeyFields : String; const KeyValues : Variant; Options : TLocateOptions) вот код вашего примера:

Код

procedure TForm1.BitBtn3Click(Sender: TObject); begin if Table1.Locate('Data', edit1.text, []) then begin   ShowMessage (Table1['Family']);   exit; end else   Showmessage('Абонента нет с введенной датой'); end;

Но стоит учесть что Locate ищет только первое значение.

Это сообщение отредактировал(а) New Neon - 14.12.2004, 01:58