mc_glbsetup.pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

unit MC_GLBSetup;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  TGLBSetup = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    Button1: TButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GLBSetup: TGLBSetup;

implementation

uses MC_WHCD, MC_GJ, MC_ZY, MC_JG, MC_ZC, MC_ZW, MC_BM, MC_GZ, MC_TSXZ,
  MC_TSZT, MC_TSFS;

{$R *.DFM}

procedure TGLBSetup.BitBtn1Click(Sender: TObject);   //调入文化程度录入窗体
begin
  If Not Assigned(WHCD) Then
  begin
    WHCD:=TWHCD.Create(Self);
    WHCD.ShowModal;
  end;
end;

procedure TGLBSetup.BitBtn5Click(Sender: TObject);   //调入国籍录入窗体
begin
  If Not Assigned(GJ) Then
  begin
    GJ:=TGJ.Create(Self);
    GJ.ShowModal;
  end;
end;

procedure TGLBSetup.BitBtn2Click(Sender: TObject);    //调入职业种类录入窗体
begin
  If Not Assigned(zy) Then
  begin
    ZY:=TZY.Create(Self);
    zy.ShowModal;
  end;
end;

procedure TGLBSetup.BitBtn6Click(Sender: TObject);    //调入籍贯录入窗体
begin
  If Not Assigned(JG) Then
  begin
    JG:=TJG.Create(self);
    JG.ShowModal;
  end;
end;

procedure TGLBSetup.BitBtn3Click(Sender: TObject);   //调入职称种类录入窗体
begin
  If Not Assigned(ZC) Then
  begin
    ZC:=TZC.Create(Self);
    ZC.ShowModal;
  end;
end;

procedure TGLBSetup.BitBtn4Click(Sender: TObject);   //调入职务种类录入窗体
begin
  If Not Assigned(ZW) Then
  begin
    ZW:=TZW.Create(Self);
    ZW.ShowModal;
  end;
end;

procedure TGLBSetup.BitBtn7Click(Sender: TObject);    //调入小区部门录入窗体
begin
   If Not Assigned(Bm) Then
   begin
     BM:=TBM.Create(Self);
     Bm.ShowModal;
   end;
end;

procedure TGLBSetup.BitBtn8Click(Sender: TObject);   //调入员工种类录入窗体
begin
  If Not Assigned(GZ) Then
  begin
    GZ:=TGZ.Create(Self);
    GZ.ShowModal;
  end;
end;

procedure TGLBSetup.BitBtn9Click(Sender: TObject);  //调入投诉性质录入窗体
begin
  If Not Assigned(TSXZ) Then
  begin
    TSXZ:=TTSXZ.Create(Self);
    TSXZ.ShowModal;
  end;
end;

procedure TGLBSetup.BitBtn10Click(Sender: TObject);   //调入投诉状态录入窗体
begin
  If Not Assigned(TSZT) Then
  begin
    TSZT:=TTSZT.Create(Self);
    TSZT.ShowModal;
  end;
end;

procedure TGLBSetup.BitBtn11Click(Sender: TObject);   //调入投诉方式录入窗体
begin
  If Not Assigned(TSFS) Then
  begin
    TSFS:=TTSFS.Create(Self);
    TSFS.ShowModal;
  end;
end;

procedure TGLBSetup.Button1Click(Sender: TObject);
begin
 CLOSE;
end;

end.