unit YWGL_KHQJ_CXSZFORM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls;

type
  TYWGL_KHQJ_CXSZ = class(TForm)
    Label2: TLabel;
    Bevel1: TBevel;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YWGL_KHQJ_CXSZ: TYWGL_KHQJ_CXSZ;

implementation

uses MRWX_KHQJ;

{$R *.DFM}

procedure TYWGL_KHQJ_CXSZ.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
animatewindow(handle,300,AW_VER_NEGATIVE+AW_CENTER+AW_HIDE);

end;

procedure TYWGL_KHQJ_CXSZ.FormShow(Sender: TObject);
begin
combobox1.itemindex:=0;
edit1.text:='';
combobox1.setfocus;

end;

procedure TYWGL_KHQJ_CXSZ.BitBtn1Click(Sender: TObject);
begin
if combobox1.Text='' then begin
   messagedlg('請選擇查詢項目',mterror,[mbok],0);
   combobox1.setfocus;
end else begin
   mr_wxkhqj.adotable1.filtered:=true;
   mr_wxkhqj.adotable1.filter:=format(combobox1.text+'='+'''%s''',[edit1.text])+' and '+
                               format('維修部門'+'='+'''%S''',[mr_wxkhqj.combobox1.text]);
   mr_wxkhqj.bitbtn1.caption:='刷   新[&S]';
   close;
end;

end;

procedure TYWGL_KHQJ_CXSZ.BitBtn2Click(Sender: TObject);
begin
close;

end;

procedure TYWGL_KHQJ_CXSZ.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then edit1.setfocus;

end;

procedure TYWGL_KHQJ_CXSZ.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then bitbtn1.Click;

end;

procedure TYWGL_KHQJ_CXSZ.Edit1Exit(Sender: TObject);
begin
tedit(sender).color:=clwindow;

end;

procedure TYWGL_KHQJ_CXSZ.Edit1Enter(Sender: TObject);
begin
tedit(sender).color:=claqua;

end;

end.