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.