unit YWGL_PXGLFORM;

interface

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

type
  TYWGL_PXGL = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOTable2: TADOTable;
    DataSource2: TDataSource;
    ADOTable2DSDesigner: TStringField;
    ADOTable2DSDesigner2: TDateTimeField;
    ADOTable2DSDesigner3: TStringField;
    ADOTable2DSDesigner4: TStringField;
    ADOTable2DSDesigner5: TStringField;
    ADOTable2DSDesigner6: TStringField;
    ADOTable2DSDesigner7: TStringField;
    ADOTable2DSDesigner8: TStringField;
    ADOTable2DSDesigner9: TStringField;
    ADOTable2DSDesigner10: TStringField;
    ADOTable2DSDesigner12: TBCDField;
    ADOTable2DSDesigner13: TBCDField;
    ADOTable2DSDesigner14: TStringField;
    ADOTable2DSDesigner15: TStringField;
    ADOTable2DSDesigner16: TStringField;
    ADOTable2DSDesigner17: TStringField;
    ADOTable2DSDesigner18: TStringField;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Panel1: TPanel;
    ComboBox1: TComboBox;
    Label1: TLabel;
    ADOTable1DSDesigner: TStringField;
    ADOTable1DSDesigner2: TDateTimeField;
    ADOTable1DSDesigner3: TStringField;
    ADOTable1DSDesigner4: TStringField;
    ADOTable1DSDesigner5: TStringField;
    ADOTable1DSDesigner6: TStringField;
    ADOTable1DSDesigner7: TStringField;
    ADOTable1DSDesigner8: TStringField;
    ADOTable1DSDesigner9: TStringField;
    ADOTable1DSDesigner10: TStringField;
    ADOTable1DSDesigner11: TBCDField;
    ADOTable1DSDesigner12: TStringField;
    ADOTable1DSDesigner13: TStringField;
    ADOTable1DSDesigner14: TStringField;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    Bevel1: TBevel;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ADOTable2DSDesigner11: TStringField;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    ADOTable2DSDesigner19: TStringField;
    ADOTable1DSDesigner15: TStringField;
    ADOTable2DSDesigner20: TStringField;
    Label7: TLabel;
    ComboBox2: TComboBox;
    ADOQuery1: TADOQuery;
    ADOTable2DSDesigner21: TStringField;
    QuickRep1: TQuickRep;
    TitleBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel3: TQRLabel;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    PageFooterBand1: TQRBand;
    QRLabel2: TQRLabel;
    QRDBText1: TQRDBText;
    QRLabel6: TQRLabel;
    SummaryBand1: TQRBand;
    QRShape1: TQRShape;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    QRDBText10: TQRDBText;
    QRDBText11: TQRDBText;
    QRDBText12: TQRDBText;
    QRDBText13: TQRDBText;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    QRLabel14: TQRLabel;
    QRDBText6: TQRDBText;
    DATE1: TDateTimePicker;
    Label8: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2Click(Sender: TObject);
 //   procedure ComboBox2Exit(Sender: TObject);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure QuickRep1Preview(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    myCn : Variant;
    myRs : Variant;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YWGL_PXGL: TYWGL_PXGL;
   myconnstr:String;
implementation

uses YWGL_PXGL_BJFORM, MRWX_BB, MR_WXFORM;

{$R *.DFM}

procedure TYWGL_PXGL.FormCreate(Sender: TObject);
begin
  myCn:=CreateOleObject('ADODB.Connection');
  myRs:=CreateOleObject('ADODB.RecordSet');
  myconnstr:='Provider=MSDASQL.1;;;Data Source=mr_wx';
  myCn.Open(myconnstr);
  myRs.open('select * from 庫',myCn);
  If myrs.RecordCount > 0 Then
  myRs.Movelast;
  begin
   myRs.MoveFirst;
   While not myRs.EOF Do
   begin
    combobox2.Items.Add(myRs.Fields['庫房'].value);
    myRs.MoveNext;
   End;
  end;
  myrs.close;
  mycn.close;
  myconnstr:='Provider=MSDASQL.1;;;Data Source=mr_wx';
  myCn.Open(myconnstr);
  myRs.open('select * from 職員表',myCn);
  If myrs.RecordCount > 0 Then
  myRs.Movelast;
  begin
   myRs.MoveFirst;
   While not myRs.EOF Do
   begin
    combobox1.Items.Add(myRs.Fields['職員名稱'].value);
    myRs.MoveNext;
   End;
  end;
  myrs.close;
  mycn.close;
end;
procedure TYWGL_PXGL.BitBtn1Click(Sender: TObject);    //派修
begin
If adotable1.RecordCount > 0 Then begin   //判斷是否有待修設(shè)備
if combobox2.text='' then begin
  showmessage('請(qǐng)選擇維修部門信息.');
  combobox2.setfocus;
  exit;
end;
if combobox1.text='' then begin    //選擇維修人
  showmessage('請(qǐng)選擇維修人員.');
  combobox1.setfocus;
  exit;
end ;

//if radiobutton1.Checked then
// BEGIN
//  if application.FindComponent('YWGL_PXGL_BJ')=nil then application.CreateForm(TYWGL_PXGL_BJ,YWGL_PXGL_BJ);
//    YWGL_PXGL_BJ.showmodal;      //調(diào)入備件領(lǐng)取窗口
//  if application.FindComponent('YWGL_PXGL_BJ')<>nil then YWGL_PXGL_BJ.Release;
 adotable2.InsertRecord([adotable1.fieldbyname('單號(hào)').asstring,
 date,adotable1.fieldbyname('設(shè)備名稱').asstring,
 adotable1.fieldbyname('品牌、機(jī)型').asstring,
 adotable1.fieldbyname('整機(jī)型號(hào)').asstring,
 adotable1.fieldbyname('序號(hào)').asstring,
 adotable1.fieldbyname('故障現(xiàn)象').asstring,
 adotable1.fieldbyname('故障部位').asstring,
 adotable1.fieldbyname('故障原因').asstring,nil,
 YWGL_PXGL_BJ.edit1.text,
 adotable1.fieldbyname('費(fèi)用').asstring,
 YWGL_PXGL_BJ.edit2.text,
 adotable1.fieldbyname('客戶').asstring,
 adotable1.fieldbyname('聯(lián)系電話').asstring,
 adotable1.fieldbyname('聯(lián)系人').asstring,
 combobox1.text,
 adotable1.fieldbyname('版機(jī)號(hào)').asstring,
 adotable1.fieldbyname('附件信息').asstring,nil,
 combobox2.text]);
 adotable1.delete;
// END;
if messagedlg('是否打印派修單?',mtConfirmation,[mbyes,mbno],0)=mryes then begin
QuickRep1.Print ;
end;
showmessage('派修完畢。');
END else begin
 showmessage('無設(shè)備可派修.');
end;
end;
procedure TYWGL_PXGL.Edit1KeyPress(Sender: TObject; var Key: Char);    //添加待修單號(hào)
begin
 if key=#13 then BEGIN
 If adotable1.Recordset.RecordCount > 0 Then
 begin
  if not adotable1.Locate('單號(hào)',edit1.text,[loCaseInsensitive]) then
  begin
    showmessage('無此待修單號(hào),請(qǐng)從新添加.');
  end else
  begin
    combobox2.setfocus;
  end;
  end;
 END;
end;
procedure TYWGL_PXGL.ComboBox1KeyPress(Sender: TObject; var Key: Char);    //選擇維修人
begin
 if key=#13 then begin
 DATE1.SetFocus;
 end;
end;
procedure TYWGL_PXGL.RadioButton1KeyPress(Sender: TObject; var Key: Char);   //備件領(lǐng)取
begin
 if key=#13 then bitbtn1.setfocus;
end;

procedure TYWGL_PXGL.ComboBox2Click(Sender: TObject);    //選擇部門
begin
 adotable2.Filter:=format('維修部門'+'='+'''%s''',[combobox2.text]);
end;
procedure TYWGL_PXGL.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
 combobox1.SetFocus;
 key:=#13 ;
end;
end;
procedure TYWGL_PXGL.QuickRep1Preview(Sender: TObject);
begin
 mr_wxbb.qrpreview1.qrprinter:=quickrep1.qrprinter;
end;
procedure TYWGL_PXGL.DBGrid2DblClick(Sender: TObject);     //選擇待修單號(hào)
 begin
  If adotable1.Recordset.RecordCount > 0 Then
 begin
  edit1.text:=adotable1.fieldbyname('單號(hào)').asstring;
 end;
END;
procedure TYWGL_PXGL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Close;      //退出
end;
procedure TYWGL_PXGL.BitBtn3Click(Sender: TObject);
begin
CLOSE;
end;

end.