ywgl_khqjform.~pas

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

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.