【控件功能】我来做练习-第47课-Delphi database filter example

Delphi database filter example

提示：数据库的过滤筛查

核心源码

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal; // Open insert form
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if ADOTable1.RecordCount > 0 then // If there are records
Form3.ShowModal // Open edit form
else
ShowMessage(‘No records’); // Else show warning
end;

procedure TForm1.Button3Clic