私はこのコードをアプリの検索ボックスで機能させましたが、残念ながら検索またはフィルタリングすると、データベースのすべての行がチェックされ、検索された単語が見つかると、tlabels に表示されます。
procedure Tspcb.dccolbtnClick(Sender: TObject);
begin
zdctable.First;
while not zdctable.EOF do
begin
if (zdctable.FieldByName('Collector').AsString = dcedit.Text)
then begin
cn.Caption := zdctable.FieldByName('Client_Name').AsString;
col.Caption := zdctable.FieldByName('Collector').AsString;
pay.Caption := zdctable.FieldByName('Daily_Payment').AsString;
date.Caption := zdctable.FieldByName('Date').AsString;
ddate.Caption := zdctable.FieldByName('Due_Date').AsString;
id.Caption := zdctable.FieldByName('ID').AsString;
la.Caption := zdctable.FieldByName('Loan').AsString;
tc.Caption := zdctable.FieldByName('Total_Collectibles').AsString;
end;
ShowMessage('click ok for next profile');
zdctable.Next;
end;
end;
私がやりたいのは、データベース内のすべての行を検索するのではなく、検索された単語を含む行をチェックすることです。
私はこのコードを分析するのに助けが必要です。デルファイ 7 の使用方法とプログラミング方法を学んでいる初心者です。
ありがとうございました