ywgl_pxglform.~pas

明日腾龙编修管理系统,对于做相关软件的朋友是一个非常好的参考

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   //判断是否有待修设备
if combobox2.text='' then begin
  showmessage('请选择维修部门信息.');
  combobox2.setfocus;
  exit;
end;
if combobox1.text='' then begin    //选择维修人
  showmessage('请选择维修人员.');
  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;      //调入备件领取窗口
//  if application.FindComponent('YWGL_PXGL_BJ')<>nil then YWGL_PXGL_BJ.Release;
 adotable2.InsertRecord([adotable1.fieldbyname('单号').asstring,
 date,adotable1.fieldbyname('设备名称').asstring,
 adotable1.fieldbyname('品牌、机型').asstring,
 adotable1.fieldbyname('整机型号').asstring,
 adotable1.fieldbyname('序号').asstring,
 adotable1.fieldbyname('故障现象').asstring,
 adotable1.fieldbyname('故障部位').asstring,
 adotable1.fieldbyname('故障原因').asstring,nil,
 YWGL_PXGL_BJ.edit1.text,
 adotable1.fieldbyname('费用').asstring,
 YWGL_PXGL_BJ.edit2.text,
 adotable1.fieldbyname('客户').asstring,
 adotable1.fieldbyname('联系电话').asstring,
 adotable1.fieldbyname('联系人').asstring,
 combobox1.text,
 adotable1.fieldbyname('版机号').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('无设备可派修.');
end;
end;
procedure TYWGL_PXGL.Edit1KeyPress(Sender: TObject; var Key: Char);    //添加待修单号
begin
 if key=#13 then BEGIN
 If adotable1.Recordset.RecordCount > 0 Then
 begin
  if not adotable1.Locate('单号',edit1.text,[loCaseInsensitive]) then
  begin
    showmessage('无此待修单号,请从新添加.');
  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);   //备件领取
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);     //选择待修单号
 begin
  If adotable1.Recordset.RecordCount > 0 Then
 begin
  edit1.text:=adotable1.fieldbyname('单号').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.