ucountry.pas

来自「工廠採購管理系統」· PAS 代码 · 共 55 行

unit ucountry;

interface

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

type
  Tfrmcountry = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  frmcountry: Tfrmcountry;

implementation
uses uconst,ufunction,udm1;
{$R *.dfm}

procedure Tfrmcountry.BitBtn1Click(Sender: TObject);
begin
lbname:= adoquery1.fieldbyname('classname').AsString;
close;

end;

procedure Tfrmcountry.FormCreate(Sender: TObject);

begin
strsql:='select * from country_class';
adoexect(adoquery1,strsql);
end;

procedure Tfrmcountry.Edit1Change(Sender: TObject);
begin
strsql:='select * from country_class where classname like'+''''+'%'+trim(edit1.Text)+'%'+'''';
adoexect(adoquery1,strsql);
end;

end.