unemployeefind.pas

来自「一个电力的巡检项目,用到三个控件,可自己去下载,」· PAS 代码 · 共 127 行

unit UnEmployeeFind;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,Adodb,db;

type
  TEmployeeFind_frm = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    CheckBox3: TCheckBox;
    Cbx_Dept: TComboBox;
    Button1: TButton;
    Button2: TButton;
    CheckBox2: TCheckBox;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EmployeeFind_frm: TEmployeeFind_frm;

implementation

uses Undm, UnEmployee;

{$R *.dfm}
var
  findemployee:string;

procedure TEmployeeFind_frm.FormCreate(Sender: TObject);
var
  ado_tmp:TADOQuery;
begin

 with  ado_tmp  do
 begin
  ado_tmp:=TADOQuery.Create(self);
  try
    SQL.Clear;
    Connection:=DM.AdoConn;
    SQL.Text:='select * from T_Dept';
    Prepared:=true;
    Open;
    while not Recordset.EOF do begin
      Cbx_Dept.Items.Add(Fieldbyname('DeptNo').AsString+'-'+Fieldbyname('DeptName').AsString);
      Next;
    end;
    Close;
  finally
    Free;
  end;
 end;
end;

procedure TEmployeeFind_frm.Button1Click(Sender: TObject);
var
  ado_tmp:TADOQuery;
begin
  findemployee:='';
  if CheckBox3.Checked then
     findemployee:='where deptno='+quotedstr(copy(Cbx_Dept.Text,1,2));
  if CheckBox1.Checked then
  begin
    if findemployee='' then
      findemployee:='where username like ''%'+edit1.Text+'%'''
    else
      findemployee:=findemployee+' and username like ''%'+edit1.Text+'%''';
  end;
  if CheckBox2.Checked then
  begin
    if findemployee='' then
      findemployee:='where no like ''%'+edit2.Text+'%'''
    else
      findemployee:=findemployee+' and no like ''%'+edit2.Text+'%''';
  end;

  if findemployee='' then
    findemployee:='select * from T_employee'
  else
    findemployee:='select * from T_employee '+findemployee;
  ado_tmp:=TADOQuery.Create(self);
  with ado_tmp do
  begin
    try
      Connection:=DM.AdoConn;
      SQL.Clear;
      SQL.Text:=findemployee;
      Prepared:=True;
      Open;
      if Recordset.RecordCount<=0 then
      begin
        application.MessageBox('对不起，找不到你此人员信息!','查询提示',MB_OK+MB_ICONINFORMATION);
      end else begin
        dm.AQ1.Locate('no',fieldbyname('no').AsString,[loCaseInsensitive]);
        Employee_Frm.listrec(dm.AQ1);
      end;
    finally
      Free;
    end;
  end;
  Close;
end;

procedure TEmployeeFind_frm.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TEmployeeFind_frm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=cafree; EmployeeFind_frm:=nil;
end;

end.