unit YWGL_KHQJFORM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Db, Grids, DBGrids, ADODB, StdCtrls, Buttons, ExtCtrls;

type
  TYWGL_KHQJ = class(TForm)
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    ComboBox1: TComboBox;
    ADOTable2: TADOTable;
    ADOTable2DSDesigner: TStringField;
    ADOTable2DSDesigner2: TDateTimeField;
    ADOTable2DSDesigner3: TStringField;
    ADOTable2DSDesigner4: TStringField;
    ADOTable2DSDesigner5: TDateTimeField;
    ADOTable2DSDesigner6: TStringField;
    ADOTable2DSDesigner7: TStringField;
    ADOTable2DSDesigner8: TStringField;
    ADOTable2DSDesigner9: TBCDField;
    ADOTable2DSDesigner10: TBCDField;
    ADOTable2DSDesigner11: TBCDField;
    ADOTable2DSDesigner12: TStringField;
    ADOTable2DSDesigner13: TStringField;
    ADOTable2DSDesigner14: TStringField;
    ADOTable1: TADOTable;
    ADOTable1DSDesigner: TStringField;
    ADOTable1DSDesigner2: TDateTimeField;
    ADOTable1DSDesigner3: TStringField;
    ADOTable1DSDesigner4: TStringField;
    ADOTable1DSDesigner5: TStringField;
    ADOTable1DSDesigner6: TStringField;
    ADOTable1DSDesigner7: TStringField;
    ADOTable1DSDesigner8: TStringField;
    ADOTable1DSDesigner9: TStringField;
    ADOTable1DSDesigner10: TStringField;
    ADOTable1DSDesigner11: TStringField;
    ADOTable1DSDesigner12: TStringField;
    ADOTable1DSDesigner13: TBCDField;
    ADOTable1DSDesigner15: TBCDField;
    ADOTable1DSDesigner16: TBCDField;
    ADOTable1DSDesigner17: TStringField;
    ADOTable1DSDesigner18: TStringField;
    ADOTable1DSDesigner19: TStringField;
    ADOTable1DSDesigner20: TStringField;
    ADOTable1DSDesigner21: TStringField;
    ADOTable1DSDesigner22: TStringField;
    ADOTable1DSDesigner14: TStringField;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YWGL_KHQJ: TYWGL_KHQJ;

implementation

uses  YWGL_KHQJ_CXFORM, YWGL_KHQJ_QJFORM;

{$R *.DFM}

procedure TYWGL_KHQJ.FormShow(Sender: TObject);
begin
 //label1.refresh;
 //label2.Refresh;
 //label3.Refresh;
 label4.refresh;
 label5.refresh;
 label6.refresh;
 combobox1.Items.clear;
 adoquery1.First;
 while not adoquery1.Eof do begin
   combobox1.items.Add(adoquery1.fieldbyname('庫房').asstring);
   adoquery1.next;
 end;
 combobox1.ItemIndex:=0;
 adotable1.Filter:=format('維修部門'+'='+'''%S''',[combobox1.text]);
 adotable2.filter:=format('維修部門'+'='+'''%S''',[combobox1.text]);
 bevel1.Refresh;
 dbgrid1.Refresh;
end;
procedure TYWGL_KHQJ.BitBtn3Click(Sender: TObject);    //客戶取機
begin
If adotable1.RecordCount = 0 Then begin
  showmessage('系統無以修復的設備信息.');
 end else begin
  adotable2.Insert;
  adotable2.FieldByName('單號').asstring:=adotable1.fieldbyname('單號').asstring;
  adotable2.fieldbyname('取機日期').asdatetime:=date;
  adotable2.FieldByName('備件費用').asfloat:=adotable1.fieldbyname('備件費用').asfloat;
  adotable2.FieldByName('維修費用').asfloat:=adotable1.fieldbyname('費用').asfloat;
  adotable2.FieldByName('總金額').asfloat:=adotable1.fieldbyname('金額').asfloat;
  adotable2.FieldByName('維修人').asstring:=adotable1.fieldbyname('維修人').asstring;
  adotable2.fieldbyname('維修部門').asstring:=adotable1.fieldbyname('維修部門').asstring;
 if application.FindComponent('TYWGL_KHQJ_qj')=nil then application.CreateForm(TYWGL_KHQJ_qj,YWGL_KHQJ_qj);
  YWGL_KHQJ_qj.showmodal;        //調用取機窗口
end;
end;
procedure TYWGL_KHQJ.BitBtn1Click(Sender: TObject);   //客戶取機信息查詢
begin
if tbitbtn(sender).caption='刷   新[&S]' then begin
   tbitbtn(sender).caption:='信息查詢[&S]';
   adotable1.Filter:=format('維修部門'+'='+'''%S''',[combobox1.text]);
end else begin
  if application.FindComponent('JBXX_BJXX_CX')=nil then application.CreateForm(TYWGL_KHQJ_CX,YWGL_KHQJ_CX);
   YWGL_KHQJ_CX.showmodal;
end;
end;
procedure TYWGL_KHQJ.ComboBox1Click(Sender: TObject);  //選擇維修部門
begin
 adotable1.Filter:=format('維修部門'+'='+'''%S''',[combobox1.text]);
 adotable2.filter:=format('維修部門'+'='+'''%S''',[combobox1.text]);
end;
procedure TYWGL_KHQJ.BitBtn2Click(Sender: TObject);   //退出
begin
 close;
end;
end.