gongzichaxun.pas

企业人事信息管理系统开发

unit gongzichaxun;

interface

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

type
  TForm9 = class(TForm)
    Bevel3: TBevel;
    Bevel2: TBevel;
    Bevel1: TBevel;
    Label2: TLabel;
    Label3: TLabel;
    StaticText1: TStaticText;
    Memo1: TMemo;
    DBGrid1: TDBGrid;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

uses gongzixiugai, gongzibaobiao;

{$R *.dfm}

procedure TForm9.BitBtn3Click(Sender: TObject);
begin
form10.show;
end;

procedure TForm9.BitBtn4Click(Sender: TObject);
begin
form11.quickrep1.preview;
end;

procedure TForm9.BitBtn1Click(Sender: TObject);
begin
ADOTable1.Refresh;
  with ADOTable1 do
   try
     disablecontrols;
     filtered:=false;
     if combobox1.Text='按员工姓名查询' then memo1.Text:='name=' +''''
     +edit1.Text+'''';
     if combobox1.Text='按所在部门查询' then memo1.Text:='department门=' +''''
     +edit1.Text+'''';
     filter:=memo1.Text;
     filtered:=true;
    finally
      enablecontrols;
  if ADOTable1.RecordCount=0 then
    begin
     showmessage('没有符合条件的记录，请确认条件或放弃查询！');
     if messagedlg('是否继续查询？，只有结束查询才能进行其他操作！',mtinformation,[mbYes,mbNo],0)=mrno then
     begin
       filtered:=false;
       ADOTable1.Close;
       ADOTable1.Open;
     end;
    end
   else
    begin
      showmessage('已找到符合条件的记录！');
      ADOTable1.filtered:=true;
      ADOTable1.Close;
      ADOTable1.Open;
    end;
   end;
end;

procedure TForm9.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.