mr_wxform.pas

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

unit MR_WXFORM;

interface

uses
  Windows, Menus, ImgList, Controls, DB, ADODB, ComCtrls, ToolWin,
  Graphics, Classes, ExtCtrls,  Messages,  Forms,
  Dialogs, StdCtrls, jpeg;
type
  TMR_WX = class(TForm)
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    ADOQuery2DSDesigner: TStringField;
    ADOQuery2DSDesigner3: TStringField;
    ADOQuery2DSDesigner5: TBooleanField;
    ADOTable3: TADOTable;
    ADOTable3DSDesigner: TStringField;
    ADOTable3DSDesigner2: TStringField;
    ADOTable3Year: TIntegerField;
    ADOTable3Month: TIntegerField;
    ADOTable2: TADOTable;
    ADOTable2DSDesigner: TBCDField;
    ADOTable2DSDesigner2: TIntegerField;
    ADOTable2DSDesigner3: TIntegerField;
    ADOTable2DSDesigner4: TFloatField;
    ADOTable1: TADOTable;
    ADOTable1DSDesigner: TStringField;
    ADOTable1DSDesigner2: TStringField;
    ADOTable1DSDesigner3: TStringField;
    ADOTable1EMAIL: TStringField;
    ADOTable1DSDesigner4: TStringField;
    ADOTable1DSDesigner5: TStringField;
    ADOTable1DSDesigner6: TStringField;
    ADOTable1DSDesigner7: TStringField;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton10: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton16: TToolButton;
    ToolButton11: TToolButton;
    ToolButton14: TToolButton;
    ToolButton13: TToolButton;
    ToolButton22: TToolButton;
    ToolButton15: TToolButton;
    ToolButton17: TToolButton;
    ToolButton12: TToolButton;
    ToolButton18: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N16: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N21: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N40: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    Image1: TImage;
    N15: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Timer1: TTimer;
    procedure N2Click(Sender: TObject);
    procedure ToolButton21Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MR_WX: TMR_WX;
 // Formmain: TFormmain;
  loginuser:string;
implementation

uses JBXX_BJXXFORM,JBXX_GYSFORM,JBXX_KHFORM, JBXX_SBXXFORM, YWGL_DXGLFORM,
  YWGL_PXGLFORM, JBXX_GSXXFORM, YWGL_SBWXFORM, YWGL_KHQJFORM,YWGL_BJLQFORM,
  ywgl_BJRKFORM, ywgl_BJckform, YWGL_GJGLFORM, SJGL_BJXXFORM,
   YGGL_ZYXXFORM,YGGL_GZJLFORM, XTSZ_BMSZFORM, XTSZ_SHSZFORM, XTSZ_KLSZFORM,
  MRWX_GY, MRWX_BZ, XTSZ_QXSZFORM;

{$R *.dfm}
//载入公司信息
procedure TMR_WX.N2Click(Sender: TObject);
begin
 if application.FindComponent('JBXX_GSXX')=nil then application.CreateForm(TJBXX_GSXX,JBXX_GSXX);
 JBXX_GSXX.showmodal;
 if application.FindComponent('JBXX_GSXX')<>nil then JBXX_GSXX.Release;
end;
//退出系统
procedure TMR_WX.ToolButton21Click(Sender: TObject);
begin
 CLOSE;
end;
//在入备件信息
procedure TMR_WX.N4Click(Sender: TObject);
begin
 if application.FindComponent('JBXX_BJXX')=nil then application.CreateForm(TJBXX_BJXX,JBXX_BJXX);
 JBXX_BJXX.showmodal;
 if application.FindComponent('JBXX_BJXX')<>nil then JBXX_BJXX.Release;
end;
//在入设备信息
procedure TMR_WX.N5Click(Sender: TObject);
begin
 if application.FindComponent('JBXX_SBXX')=nil then application.CreateForm(TJBXX_SBXX,JBXX_SBXX);
 JBXX_SBXX.showmodal;
 if application.FindComponent('SBXX_BJXX')<>nil then JBXX_SBXX.Release;
end;
//在入客户信息
procedure TMR_WX.N6Click(Sender: TObject);
begin
 if application.FindComponent('JBXX_KH')=nil then application.CreateForm(TJBXX_KH,JBXX_KH);
 JBXX_KH.showmodal;
 if application.FindComponent('SBXX_KH')<>nil then JBXX_KH.Release;
end;
//在入供应商信息
procedure TMR_WX.N7Click(Sender: TObject);
begin
 if application.FindComponent('JBXX_GYS')=nil then application.CreateForm(TJBXX_GYS,JBXX_GYS);
 JBXX_GYS.showmodal;
 if application.FindComponent('SBXX_GYS')<>nil then JBXX_GYS.Release;
end;
//退出系统
procedure TMR_WX.N9Click(Sender: TObject);
begin
  CLOSE;
end;
//载入派修管理
procedure TMR_WX.N12Click(Sender: TObject);
begin
  if application.FindComponent('YWGL_PXGL')=nil then application.CreateForm(TYWGL_PXGL,YWGL_PXGL);
  YWGL_PXGL.showmodal;
  if application.FindComponent('YWGL_PXGL')<>nil then YWGL_PXGL.Release;
end;
//载入待修管理
procedure TMR_WX.N11Click(Sender: TObject);
begin
 if application.FindComponent('YWGL_DXGL')=nil then application.CreateForm(TYWGL_DXGL,YWGL_DXGL);
 YWGL_DXGL.showmodal;
 if application.FindComponent('YWGL_DXGL')<>nil then YWGL_DXGL.Release;
end;
//载入设备维护
procedure TMR_WX.N13Click(Sender: TObject);
begin
 if application.FindComponent('YWGL_SBWX')=nil then application.CreateForm(TYWGL_SBWX,YWGL_SBWX);
 YWGL_SBWX.showmodal;
 if application.FindComponent('YWGL_SBWX')<>nil then YWGL_SBWX.Release;
end;
//载入客户取机
procedure TMR_WX.N14Click(Sender: TObject);
begin
 if application.FindComponent('YWGL_KHQJ')=nil then application.CreateForm(TYWGL_KHQJ,YWGL_KHQJ);
 YWGL_KHQJ.showmodal;
 if application.FindComponent('YWGL_KHQJ')<>nil then YWGL_KHQJ.Release;
end;
//载入备件领取
procedure TMR_WX.N16Click(Sender: TObject);
begin
 if application.FindComponent('YWGL_bjlq')=nil then application.CreateForm(TYWGL_bjlq,YWGL_bjlq);
 YWGL_BJLQ.showmodal;
 if application.FindComponent('YWGL_bjlq')<>nil then YWGL_bjlq.Release;
end;
//载入备件入库
procedure TMR_WX.N18Click(Sender: TObject);
begin
 if application.FindComponent('YWGL_bjrk')=nil then application.CreateForm(TYWGL_BJRK,YWGL_BJRK);
 YWGL_BJRK.showmodal;
 if application.FindComponent('YWGL_bjrk')<>nil then YWGL_BJRK.Release;
end;
//载入备件出库
procedure TMR_WX.N19Click(Sender: TObject);
begin
 if application.FindComponent('YWGL_BJCK')=nil then application.CreateForm(TYWGL_BJCK,YWGL_BJCK);
 YWGL_bjCK.showmodal;
 if application.FindComponent('YWGL_bjCK')<>nil then YWGL_BJCK.Release;
end;
//载入工具管理
procedure TMR_WX.N21Click(Sender: TObject);
begin
 if application.FindComponent('YWGL_GJGL')=nil then application.CreateForm(TYWGL_GJGL,YWGL_GJGL);
 YWGL_GJGL.showmodal;
 if application.FindComponent('YWGL_GJGL')<>nil then YWGL_GJGL.Release;
end;
//载入备件信息
procedure TMR_WX.N24Click(Sender: TObject);
begin
 if application.FindComponent('sjgl_bjxx')=nil then application.CreateForm(Tsjgl_bjxx,sjgl_bjxx);
 sjgl_bjxx.showmodal;
 if application.FindComponent('sjgl_bjxx')<>nil then sjgl_bjxx.Release;
end;
//载入职员信息
procedure TMR_WX.N28Click(Sender: TObject);
begin
 if application.FindComponent('YGGL_ZYXX')=nil then application.CreateForm(TYGGL_ZYXX,YGGL_ZYXX);
 YGGL_ZYXX.showmodal;
 if application.FindComponent('YGGL_ZYXX')<>nil then YGGL_ZYXX.Release;
end;
//载入工资管理
procedure TMR_WX.N29Click(Sender: TObject);
begin
 if application.FindComponent('YGGL_GZJL')=nil then application.CreateForm(TYGGL_GZJL,YGGL_GZJL);
 YGGL_GZJL.showmodal;
 if application.FindComponent('YGGL_GZJL')<>nil then YGGL_GZJL.Release;
end;
//载入部门设置
procedure TMR_WX.N42Click(Sender: TObject);
begin
 if application.FindComponent('XTSZ_BMSZ')=nil then application.CreateForm(TXTSZ_BMSZ,XTSZ_BMSZ);
 XTSZ_BMSZ.showmodal;
 if application.FindComponent('XTSZ_BMSZ')<>nil then XTSZ_BMSZ.Release;
end;
//载入售后设置
procedure TMR_WX.N43Click(Sender: TObject);
begin
 if application.FindComponent('XTSZ_SHSZ')=nil then application.CreateForm(TXTSZ_SHSZ,XTSZ_SHSZ);
 XTSZ_SHSZ.showmodal;
 if application.FindComponent('XTSZ_SHSZ')<>nil then XTSZ_SHSZ.Release;
end;
//载入备份与恢复
procedure TMR_WX.N46Click(Sender: TObject);
var mdir:string;
begin
 getdir(0,mdir);
 if messagedlg('数据的备份和恢复需要您退出系统,'+#13+
 '     您确定要继续吗?',mtCustom,[mbyes,mbno],0)= mryes then begin
 close;
 winexec('sjbf',2);
end;
end;
//载入口令修改
procedure TMR_WX.N45Click(Sender: TObject);
begin
 if application.FindComponent('XTSZ_KLSZ')=nil then application.CreateForm(TXTSZ_KLSZ,XTSZ_KLSZ);
 XTSZ_klSZ.showmodal;
 if application.FindComponent('XTSZ_KLSZ')<>nil then XTSZ_KLSZ.Release;
end;
//载入关于
procedure TMR_WX.N48Click(Sender: TObject);
begin
 if application.FindComponent('MR_WXGY')=nil then application.CreateForm(TMR_WXGY,MR_WXGY);
 MR_WXGY.showmodal;
 if application.FindComponent('MR_WXGY')<>nil then MR_WXGY.Release;
end;
//载入帮助
procedure TMR_WX.N49Click(Sender: TObject);
begin
 if application.FindComponent('MR_WXBZ')=nil then application.CreateForm(TMR_WXBZ,MR_WXBZ);
 MR_WXBZ.showmodal;
 if application.FindComponent('MR_WXBZ')<>nil then MR_WXBZ.Release;
end;
//载入权限设置
procedure TMR_WX.N15Click(Sender: TObject);
begin
 if application.FindComponent('XTSZ_QXSZ')=nil then application.CreateForm(TXTSZ_QXSZ,XTSZ_QXSZ);
 XTSZ_QXSZ.showmodal;
 if application.FindComponent('XTSZ_QXSZ')<>nil then XTSZ_QXSZ.Release;
end;

procedure TMR_WX.Timer1Timer(Sender: TObject);
begin
// statusbar1.Panels[2].Text:=timetostr(now);
end;

end.