如何在 Delphi 中编写患者搜索应用程序的代码？

Question

I'm working on a patient search app. I have a problem with ADOQuery.Active which does not deactivate when I delete a word in the search bar.

This is my code:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, scControls,
  scDBControls, scGrids, scDBGrids, scGPControls, Data.DB, Data.Win.ADODB;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    Edit1: TEdit;
    scDBGrid1: TscDBGrid;
    ADOQuery1: TADOQuery;
    ADOQuery1PATIENTId: TAutoIncField;
    ADOQuery1NAME_PAT: TStringField;
    ADOQuery1PRENOM_PAT: TStringField;
    procedure Edit1Change(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Text = '' then
    ADOQuery1.Filtered := false
  else
  begin
    ADOQuery1.Active := true;
    ADOQuery1.Filtered := False;
    ADOQuery1.Filter := 'NAME_PAT' + ' LIKE ' + QuotedStr(Edit1.Text + '%');
    ADOQuery1.Filtered := True;
  end;
end;

end.

After clean TEdit , I set ADOQuery1.Active:= false

Answer 1

The problem here is you are not affecting the right properties according to your first description. Generally in database applications, you don't need to deactivate the dataset, just write an event for disabling the filter 'Filtered:= False' that will be triggered when the filter text input is cleared (by deleting the filter string manually or a "clear text" button). But, if you need to deactivate the dataset, then you have to set that property in your code. Like this:

procedure TForm1.Edit1Change(Sender: TObject); 
begin
  if Edit1.Text = '' then 
  begin
    ADOQuery1.Filtered := False;
    ADOQuery1.Active := False;
  end
  else
  begin
    ADOQuery1.Active := True;  
    ADOQuery1.Filtered := False; 
    ADOQuery1.Filter := 'NAME_PAT' + ' LIKE ' + QuotedStr(Edit1.Text + '%');
    ADOQuery1.Filtered := True;
  end; 
end;

Here is some useful links from Delphi documentation about the "TDataSet.Active" property and how to set filters in datasets:

https://docwiki.embarcadero.com/Libraries/Alexandria/en/Data.DB.TDataSet.Active https://docwiki.embarcadero.com/Libraries/Alexandria/en/Data.DB.TDataSet.Filter https://docwiki.embarcadero.com/RADStudio/Alexandria/en/Setting_the_Filter_Property