Запрос в базе данных [D7, Paradox]
66 © (2004-12-14 00:52:00)
Всем привет!
Делаю простенькую прогу баз данных.
Нужно сделать выборку по запросу:найти по дате абонента и
вывести окно с его фамилией.
Почему код
------------
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.
Fedia (2004-12-14 04:27:00) [1]
var
i: integer;
bool: Boolean;
begin
bool:=false;
Table1.First;
for i:=0 to Table1.RecordCount-1 do
begin
if Table1['Data']=40 then
begin
ShowMessage(Table1['Family']);
bool:=true;
break;
end;
Table1.Next;
end;
if not bool then
ShowMessage('Абонента нет с введенной датой');
end;
Твой код не работает, т.к. ты проверяешь только текущую
запись таблицы.
Наверх 
ЧАТ |
Орешник |
|
