ywgl_khqj_qjform.~pas

这是用Delphi编写的维修管理系统。主要功能包括业务管理

unit YWGL_KHQJ_QJFORM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Db, Mask, DBCtrls, ADODB, Qrctrls, QuickRpt;

type
  TYWGL_KHQJ_QJ = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    Label12: TLabel;
    DBEdit3: TDBEdit;
    DBLookupComboBox3: TDBLookupComboBox;
    ADOTable3: TADOTable;
    ADOTable3DSDesigner: TStringField;
    ADOTable3DSDesigner2: TStringField;
    ADOTable3DSDesigner3: TStringField;
    ADOTable3DSDesigner4: TStringField;
    ADOTable3DSDesigner5: TDateTimeField;
    ADOTable3DSDesigner6: TStringField;
    ADOTable3DSDesigner7: TStringField;
    ADOTable3DSDesigner8: TStringField;
    ADOTable3DSDesigner9: TStringField;
    ADOTable3DSDesigner10: TStringField;
    DataSource4: TDataSource;
    QuickRep1: TQuickRep;
    ColumnHeaderBand1: TQRBand;
    QRShape1: TQRShape;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    QRShape14: TQRShape;
    QRShape15: TQRShape;
    QRShape16: TQRShape;
    QRShape17: TQRShape;
    QRShape18: TQRShape;
    QRLabel10: TQRLabel;
    QRSysData1: TQRSysData;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRLabel19: TQRLabel;
    QRLabel20: TQRLabel;
    QRLabel22: TQRLabel;
    QRLabel23: TQRLabel;
    QRLabel24: TQRLabel;
    QRLabel25: TQRLabel;
    QRLabel26: TQRLabel;
    QRLabel27: TQRLabel;
    QRLabel28: TQRLabel;
    QRLabel21: TQRLabel;
    PageFooterBand1: TQRBand;
    QRLabel29: TQRLabel;
    QRLabel30: TQRLabel;
    TitleBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    CheckBox1: TCheckBox;
    ComboBox1: TComboBox;
    Label8: TLabel;
    ADOQuery1: TADOQuery;
    ADOQuery1DSDesigner: TStringField;
    ADOQuery1DSDesigner2: TDateTimeField;
    ADOQuery1DSDesigner3: TStringField;
    ADOQuery1DSDesigner4: TStringField;
    ADOQuery1DSDesigner5: TStringField;
    ADOQuery1DSDesigner6: TBCDField;
    ADOQuery1DSDesigner7: TBCDField;
    ADOQuery1DSDesigner8: TBCDField;
    ADOQuery1h: TBooleanField;
    procedure BitBtn2Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DataSource2DataChange(Sender: TObject; Field: TField);
    procedure FormShow(Sender: TObject);
    procedure DBLookupComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBLookupComboBox3KeyPress(Sender: TObject; var Key: Char);
 //   procedure QuickRep1Preview(Sender: TObject);
//    procedure DataSource3DataChange(Sender: TObject; Field: TField);
//    procedure FormCreate(Sender: TObject);
  private
     years,months:integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YWGL_KHQJ_QJ: TYWGL_KHQJ_QJ;

implementation

uses YWGL_KHQJFORM, MRWX_BB, YWGL_DXGLFORM, MR_WXFORM;

{$R *.DFM}

procedure TYWGL_KHQJ_QJ.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then begin
 If (ActiveControl Is tdbedit) Then
 Perform(WM_nextdlgctl,0,0);
 end;
end;
procedure TYWGL_KHQJ_QJ.DataSource2DataChange(Sender: TObject;
Field: TField);
var nowyear,nowmonth,nowday:word;
begin
If YWGL_KHQJ.ADOTable2.Modified Then begin
  YWGL_KHQJ.ADOTable2.fieldbyname('维护期限').asstring:=
  mr_wx.ADOTable3.fieldbyname('维护期限').asstring;
  years:=mr_wx.ADOTable3.fieldbyname('year').asinteger;
  months:=mr_wx.ADOTable3.fieldbyname('month').asinteger;
  decodedate(date,nowyear,nowmonth,nowday);
  nowmonth:=nowmonth+months+1;
  If nowmonth > 12 Then begin
     nowmonth:=nowmonth-12;
     nowyear:=nowyear+1;
  end;
  nowyear:=nowyear+years;
  nowday:=1;
  YWGL_KHQJ.ADOTable2.FieldByName('维护到期').asdatetime:=encodedate(nowyear,nowmonth,nowday);
end;
end;
procedure TYWGL_KHQJ_QJ.FormShow(Sender: TObject);
begin
 dblookupcombobox1.KeyValue:=MR_WX.ADOTable3.fieldbyname('维护方法').asstring;
 combobox1.ItemIndex:=0;
 dblookupcombobox1.setfocus;
end;
procedure TYWGL_KHQJ_QJ.DBLookupComboBox1KeyPress(Sender: TObject;
var Key: Char);
begin
 if key=#13 then
 dbedit4.setfocus;
end;
procedure TYWGL_KHQJ_QJ.BitBtn1Click(Sender: TObject);    //客户取机登记
begin
if (dblookupcombobox1.text='') or (dbedit4.Text='') then begin
  showmessage('请选择维护方式。');
  exit;
end;
if dblookupcombobox3.text='' then begin
  showmessage('请选择经手人姓名.');
  dblookupcombobox3.SetFocus;
  exit;
end;
if dbedit6.text='' then begin
  showmessage('请输入取机人姓名.');
  dbedit6.setfocus;
  exit;
end;
YWGL_KHQJ.ADOTable2.FieldByName('付款方式').asstring:=combobox1.Text;
YWGL_KHQJ.ADOTable2.Post;
if combobox1.text='挂帐' then begin
 If strtofloat(dbedit11.Text) <> 0 Then begin
 with adoquery1 do begin
   adoquery1.Insert;
   fieldbyname('单号').asstring:=YWGL_KHQJ.ADOTable1.fieldbyname('单号').asstring;
   fieldbyname('日期').asdatetime:=date;
   fieldbyname('客户').asstring:=YWGL_KHQJ.ADOTable1.FieldByName('客户').asstring;
   fieldbyname('设备名').asstring:=YWGL_KHQJ.adotable1.fieldbyname('设备名称').asstring;
   fieldbyname('设备型号').asstring:=YWGL_KHQJ.ADOTable1.fieldbyname('品牌、机型').asstring;
   fieldbyname('应收').asfloat:=YWGL_KHQJ.ADOTable2.fieldbyname('总金额').asfloat;
   fieldbyname('实收').asfloat:=0;
   fieldbyname('欠款').asfloat:=fieldbyname('应收').asfloat-
        fieldbyname('实收').asfloat;
   fieldbyname('h').asboolean:=false;
   post;
  end;
 end;
end;
//If checkbox1.Checked Then begin
//  QuickRep1.Print ;
//end;
YWGL_KHQJ.ADOTable1.Delete;     //删除修复登记记录
close;
end;
procedure TYWGL_KHQJ_QJ.DBLookupComboBox3KeyPress(Sender: TObject;
var Key: Char);
begin
 if key=#13 then bitbtn1.setfocus;
end;
{procedure TYWGL_KHQJ_QJ.QuickRep1Preview(Sender: TObject);
begin
 qrlabel1.Caption:=MR_WX.adotable1.fieldbyname('公司名称').asstring+'维修单';
 qrlabel1.Left:=(titleband1.Width-qrlabel1.Width) div 2;
 qrlabel5.caption:=MR_WX.ADOTable1.fieldbyname('电话').asstring;
 qrlabel7.Caption:=MR_WX.ADOTable1.fieldbyname('传真').asstring;
 qrlabel9.Caption:=MR_WX.ADOTable1.fieldbyname('E-MAIL').asstring;
 qrlabel30.caption:=MR_WX.ADOTable1.fieldbyname('网址').asstring;
 qrlabel2.Caption:=dbedit1.text;
 qrlabel21.caption:=YWGL_KHQJ.ADOTable1.fieldbyname('客户').asstring;
 qrlabel22.caption:=YWGL_KHQJ.adotable1.fieldbyname('联系电话').asstring;
 qrlabel23.caption:=YWGL_KHQJ.adotable1.fieldbyname('设备名称').asstring;
 qrlabel24.caption:=YWGL_KHQJ.adotable1.FieldByName('品牌、机型').asstring;
 qrlabel25.caption:=YWGL_KHQJ.adotable1.fieldbyname('序号').asstring;
 qrlabel26.caption:=YWGL_KHQJ.adotable1.fieldbyname('故障现象').asstring;
 qrlabel27.caption:=YWGL_KHQJ.adotable1.fieldbyname('所需备件').asstring;
 qrlabel28.caption:=YWGL_KHQJ.adotable1.fieldbyname('附件信息').asstring;
 mr_wxbb.qrpreview1.qrprinter:=quickrep1.qrprinter;
end;    }
procedure TYWGL_KHQJ_QJ.BitBtn2Click(Sender: TObject);
begin
 YWGL_KHQJ.ADOTable2.cancel;  //取消客户取机登记
 close;
end;
end.