uemplyer_lb.pas

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

unit uemplyer_lb;

interface

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

type
  Tfrmemplyer_lb = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmemplyer_lb: Tfrmemplyer_lb;

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

procedure Tfrmemplyer_lb.FormCreate(Sender: TObject);
begin
strsql:='select * from emplyer';
adoexect(adoquery1,strsql);

end;

procedure Tfrmemplyer_lb.Edit1Change(Sender: TObject);
begin
strsql:='select * from emplyer where workid like '+''''+trim(edit1.Text)+'%'+''''+'order by workid asc';
adoexect(adoquery1,strsql);
if adoquery1.Recordset.eof and adoquery1.Recordset.bof then
   begin
   strsql:='select * from emplyer where name like '+''''+'%'+trim(edit1.Text)+'%'+''''+'order by workid asc';
   adoexect(adoquery1,strsql);
   end;
end;

procedure Tfrmemplyer_lb.RzBitBtn1Click(Sender: TObject);
begin
if adoquery1.Recordset.EOF and adoquery1.Recordset.BOF then exit;
emplyer:=trim(adoquery1.fieldbyname('name').asstring);
close;
end;

procedure Tfrmemplyer_lb.RzBitBtn2Click(Sender: TObject);
begin
close;
end;

end.