inireg.pas

计量功能 事件记录 购电提醒 欠费报警 负荷控制 自检功能 显示功能 用户插卡错误信息显示

unit IniReg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Mask, MskEdit, ConstDef;

type
  TFrmIniReg = class(TForm)
    Label1: TLabel;
    LabCompy: TLabel;
    EdtCompy: TEdit;
    ProgramBmp: TImage;
    BtnOpReg: TButton;
    GrpBoxHint: TGroupBox;
    LabHostName: TLabel;
    MskEdtGUID: TMskEdit;
    EdtSrvName: TEdit;
    LabSN: TLabel;
    BtnCloseSys: TButton;
    LabMsg: TLabel;
    procedure BtnCloseSysClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FrmIniReg(Sender: TObject);
    procedure BtnOpRegClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmIniReg: TFrmIniReg;
  iStep: integer;
  NImsInfo: RecNImsInfoType;
  sGUID: String;

Function sFunGetRandomGUID: WideString;
   export;far;external 'NIMSsys.dll';
Procedure PrdGetNIMSInfo(var RecNImsInfo: RecNImsInfoType);
   export;far;external 'NIMSsys.dll';   
Procedure PrdSetNIMSInfo(RecNImsInfo: RecNImsInfoType; sGUID: String);
   export;far;external 'NIMSsys.dll';

implementation

{$R *.DFM}

procedure TFrmIniReg.FormCreate(Sender: TObject);
begin
  iStep:=0; FrmIniReg(Sender);
end;

procedure TFrmIniReg.FrmIniReg(Sender: TObject);
begin
  case iStep of
   0: begin
        LabCompy.Caption:='Version';
        EdtCompy.Enabled:=False; EdtCompy.Text:='1.0';
        GrpBoxHint.Enabled:=False; GrpBoxHint.Visible:=False;
        LabMsg.Caption:=
             '欢迎使用预付费管理系统!'+#13#13
            +'* 应用程序在安装完毕后必须正确设置方可使用!'+#13#13
            +'* 管理器与服务器可相互独立地安装在同一台计算机上！'+#13#13
            +'* 请保存好系统信息和登录帐号、登录口令，以保证系统安全!'+#13#13
            +'* 若有问题请与'+Def_Compy_Name+'联系!'+#13#13;
       end;
   1: begin
        BtnOpReg.Caption:='下一步>>'; LabCompy.Caption:='使用单位';
        EdtCompy.Enabled:=True;   EdtCompy.Text:=Def_Compy_Name;
        EdtCompy.SetFocus;
        LabMsg.Caption:=
               '请输入:* 服务器(主机)计算机名'#13
              +'        (可在服务器的"控制面板/网络/标识"中找到)'+#13
              +'       * 服务器识别号(可在"NIms软件资料)"中找到)';
        GrpBoxHint.Enabled:=True;  GrpBoxHint.Visible:=True;
        {$ifndef Def_Test}
          EdtSrvName.Text:='';
          MskEdtGUID.Text:='';
        {$else}
          EdtSrvName.Text:=Def_Host_Name;
          MskEdtGUID.Text:=Def_NIms_Soft_SN;//安装序列号
        {$endif}
       end;
   2: begin
        LabMsg.Caption:='请验证所输入的信息无误!';
        sGUID:=MskEdtGUID.Text;
        PrdGetNIMSInfo(NImsInfo);
        NImsInfo.sCompy:=EdtCompy.Text;
        NImsInfo.SrvHost.sHostName:=EdtSrvName.Text;
       end;
   3: begin
        if MskEdtGUID.Text<>Def_NIms_Soft_SN then begin
           LabMsg.Caption:='服务器识别号错误!';
           iStep:=0; Exit;
         end;
        LabMsg.Caption:=
               '开始设置预付费管理器!'+#13#13
            +'* 获取管理器信息!'+#13#13
            +'* 设置管理器信息!'+#13#13
            +'* 准备记录管理器信息！';
        EdtCompy.Enabled:=False;   EdtCompy.Visible:=True;
        GrpBoxHint.Enabled:=False; GrpBoxHint.Visible:=False;
        {$ifndef Def_Test}
          sGUID:=sFunGetRandomGUID;
        {$else}
          sGUID:=Def_NIms_Soft_SN;//软件识别号
        {$endif}
       end;
   4: begin
        BtnCloseSys.Enabled:=False;
        PrdSetNIMSInfo(NImsInfo,sGUID);
        LabMsg.Caption:='请记录管理器信息并填入'
            +'NIms服务器中"NIms管理器信息数据库"内!'#13
            +'(执行"NIms服务器/超级管理/修改管理器信息/添加"命令)';
        GrpBoxHint.Caption:='管理器信息';
        GrpBoxHint.Enabled:=True; GrpBoxHint.Visible:=True;
        LabHostName.Caption:='管理器'#13'计算机名';
        EdtSrvName.Text:=NImsInfo.ClntHost.sHostName;
        EdtSrvName.ReadOnly:=True; LabSN.Caption:='管理器'#13'识别号';
        MskEdtGUID.Text:=sGUID; MskEdtGUID.ReadOnly:=True;
       end;
   5: begin
        LabMsg.Caption:=
              '预付费管理系统设置成功!'+#13#13
             +'(要删除管理器信息可执行'
             +'"NIms服务器/超级管理/修改管理器信息/删除"命令)';
        GrpBoxHint.Enabled:=False;  GrpBoxHint.Visible:=False;
        BtnOpReg.Caption:='完成设置';
       end;
   else
     ModalResult:=mrCancel;
   end; //end case
  Exit;
end;

procedure TFrmIniReg.BtnCloseSysClick(Sender: TObject);
begin
  if wFunShowASK('确定要退出设置吗?',[mbOK])=mrOK
    then ModalResult:=mrCancel;
end;

procedure TFrmIniReg.BtnOpRegClick(Sender: TObject);
begin
  iStep:=iStep+1; FrmIniReg(Sender);
end;

end.