unit1.~pas

来自「Delphi_7.0数据库开发源代码。有内容十一章节」· ~PAS 代码 · 共 48 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls;

type
  TForm1 = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='' then
   ShowMessage('No Input')
else
    begin
       Edit1.Text:='';
       Query1.SQL.Clear;
       Query1.SQL.Add('select CustNO, Company, City, State from customer.db');
       Query1.SQL.Add('where country =(:countryName)');
       Query1.Params[0].AsString:=Edit1.Text;
       Query1.ExecSQL;
       Query1.Active:=True;
    end;
end;

end.