clntmain.pas

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

          Connected:=True; //连接到服务器
          CntResult:=AppServer.btFunRmtCnt(ClntHost.sHostName,RecSum.btSum1,
                     RecSum.btSum2,RecSum.btSum3,RecSum.btSum4,RecSum.btSum5);
          Connected:=False;
         end;
      if CntResult<>CntSuccess then
         MessageDlg('NetIms注册失败！  ',mtInformation,[mbOK],0);
      end;
    except
      CntResult:=CntFail;
     end;
   end;
  PrdClntCntResultCheck(Sender);
end;

Procedure TFrmClntMain.PrdRemoteLogOff(Sender: TObject);
var
  btClass: Byte;
begin //远程注销
  try
   with DCOMCntToSever do begin
     Connected:=True; //连接到服务器
     btClass:=Byte(RecOpInfo.cOpClass);
     CntResult:=AppServer.btFunRmtLogOff(RecOpInfo.sAccount,btClass);
     Connected:=False;
    end;
  except
    CntResult:=CntLogFail;
   end;
  bOpInUse:=False;
  if CntResult=CntLogFail  then wFunShowError('注销NIms失败!',[mbOK])
  else if CntResult=CntNotExist then
     wFunShowError('注销帐号不存在！',[mbOK])
  else if CntResult=CntLogged   then
     wFunShowError('操作员已退出！',[mbOK]);
  PrdClntCntResultCheck(Sender);
end;

procedure TFrmClntMain.BtnOpLogClick(Sender: TObject);
var
  iRet: integer;
  sStr: string;
begin
  if bOpInUse=True then begin //系统操作员正在使用
    bOpInUse:=False;
    PrdRemoteLogOff(Sender); //远程退出
    if not FrmRWCard.bFunCardDevExit then//Close CardDev Error
       wFunShowError('写卡器不能正常关闭!',[mbOK]);
    PrdFrmClntMainIni(Sender); Exit;
   end
  else begin  //[FrmOpLog]远程登录
    sStr:=BtnOpLog.Caption; BtnOpLog.Caption:='请稍等...';
    if not FrmRWCard.bFunCardDevIni then begin//Open CardDev Error
       wFunShowError('写卡器不能正常打开!',[mbOK]);
       BtnOpLog.Caption:=sStr; Exit;
     end;
    FrmOpLog:=TFrmOpLog.Create(Self);
    FrmOpLog.EnterMode:=OpLogInMode;
    FrmOpLog.Caption:='操作员登录';
    iRet:=FrmOpLog.ShowModal;
    FrmOpLog.Free;
    if iRet=mrOk then bOpInUse:=True;
    PrdFrmClntMainIni(Sender);
   end;
end;

procedure TFrmClntMain.BtnCloseSysClick(Sender: TObject);
begin
  if wFunShowASK('确定要关闭系统吗?',[mbOK]+[mbCancel])=mrOk
    then close;
end;

procedure TFrmClntMain.ItmChangePswClick(Sender: TObject);
begin
  FrmOpLog:=TFrmOpLog.Create(Self);
  FrmOpLog.EnterMode:=OpChgPswMode;
  FrmOpLog.Caption:='更改登录口令';
  FrmOpLog.ShowModal;
  FrmOpLog.Free;
end;

procedure TFrmClntMain.ItmAskClick(Sender: TObject);
begin
  try
   with DCOMCntToSever do begin
    Connected:=True; //连接到服务器
    CntResult:=AppServer.btFunAnswer(CntAsk);
    Connected:=False;
    end;
  except
    CntResult:=CntFail;
   end;
  if CntResult = CntAsk then wFunShowOK('远程应答成功，网络连接正常！',[mbOK])
  else wFunShowError('远程应答失败，请检查网络连接是否正常！',[mbOK]);
end;

procedure TFrmClntMain.ItmChkCardDevClick(Sender: TObject);
begin
  if FrmRWCard.bFunTestCardDev then
    wFunShowOK('写卡器检测正常！',[mbOK])
  else wFunShowError('写卡器检测失败，请检查写卡器状态！',[mbOK]);
end;

procedure TFrmClntMain.ItmRefreshClick(Sender: TObject);
begin
  FrmRef:=TFrmRef.Create(Self);
  FrmRef.EnterMode:=RefreshMode;
  FrmRef.Caption:='更新本地数据库';
  FrmRef.ShowModal;
  FrmRef.Free;
end;

procedure TFrmClntMain.PrdClntCntResultCheck(Sender: TObject);
var
  bExit: Boolean;
begin
  if  (CntResult=CntSuccess) or (CntResult=CntLogOK) then
     bExit:=False
  else if CntResult = InValidNetIms then begin
    MessageDlg(Def_Compy_Name+#13+#13+'严正声明:'+#13+#13
      +'此软件为非授权软件...'+#13+'使用此软件将导致严重后果！'
      +#13+'由此带来的一切后果由使用者承担！'+'       ',
      mtWarning,[mbOK],0);
    bExit:=True;
   end
  else if CntResult = UnRegNetIms then begin
    MessageDlg('软件未进行初始化！',mtWarning,[mbOK],0);
    bExit:=True;
   end
  else if (CntResult=CntFail) or (CntResult=CntLogFail)
    then bExit:=True
  else bExit:=True;
  if bExit=False then PrdFrmClntMainIni(Sender)
  else Close;
end;

procedure TFrmClntMain.ItmNewCustClick(Sender: TObject);
begin
  FrmOpen:=TFrmOpen.Create(Self);
  FrmOpen.EnterMode:=NewCustMode;
  FrmOpen.Caption:='用户开户';
  FrmOpen.ShowModal;
  FrmOpen.Free;
end;

procedure TFrmClntMain.ItmCustBuyClick(Sender: TObject);
begin
  FrmOpen:=TFrmOpen.Create(Self);
  FrmOpen.EnterMode:=CustBuyMode;
  FrmOpen.Caption:='用户申购';
  FrmOpen.ShowModal;
  FrmOpen.Free;
end;

procedure TFrmClntMain.ItmUnBuyClick(Sender: TObject);
begin
  FrmOpen:=TFrmOpen.Create(Self);
  FrmOpen.EnterMode:=CustUnBuyMode;
  FrmOpen.Caption:='用户结算';
  FrmOpen.ShowModal;
  FrmOpen.Free;
end;

procedure TFrmClntMain.ItmCustCloseClick(Sender: TObject);
begin
  FrmOpen:=TFrmOpen.Create(Self);
  FrmOpen.EnterMode:=CustCloseMode;
  FrmOpen.Caption:='用户销户';
  FrmOpen.ShowModal;
  FrmOpen.Free;
end;

procedure TFrmClntMain.ItmCustChkClick(Sender: TObject);
begin
  FrmCustChk:=TFrmCustChk.Create(Self);
  FrmCustChk.EnterMode:=CheckDataMode;
  FrmCustChk.Caption:='用户检查';
  FrmCustChk.ShowModal;
  FrmCustChk.Free;
end;

procedure TFrmClntMain.ItmEdtCustInfoClick(Sender: TObject);
begin
  FrmOpen:=TFrmOpen.Create(Self);
  FrmOpen.EnterMode:=EdtCustMode;
  FrmOpen.Caption:='修改用户数据';
  FrmOpen.ShowModal;
  FrmOpen.Free;
end;

procedure TFrmClntMain.ItmPatchClick(Sender: TObject);
begin
  FrmOpen:=TFrmOpen.Create(Self);
  FrmOpen.EnterMode:=CustPatchMode;
  FrmOpen.Caption:='用户补卡';
  FrmOpen.ShowModal;
  FrmOpen.Free;
end;

procedure TFrmClntMain.ItmCreateChkCardClick(Sender: TObject);
begin
  FrmOpen:=TFrmOpen.Create(Self);
  FrmOpen.PrdCreatChkCard(Self);
  FrmOpen.Free;
end;

procedure TFrmClntMain.ItmClearChkCardClick(Sender: TObject);
begin
  FrmOpen:=TFrmOpen.Create(Self);
  FrmOpen.PrdClearChkCard(Self);
  FrmOpen.Free;
end;

procedure TFrmClntMain.ItmReadCardClick(Sender: TObject);
begin
  FrmCustChk:=TFrmCustChk.Create(Self);
  FrmCustChk.EnterMode:=ReadCardMode;
  FrmCustChk.Caption:='读取卡内数据';
  FrmCustChk.ShowModal;
  FrmCustChk.Free;
end;

procedure TFrmClntMain.ImgNewCustClick(Sender: TObject);
begin
  ItmNewCustClick(Sender);
end;

procedure TFrmClntMain.ImgChgPswClick(Sender: TObject);
begin
  ItmChangePswClick(Sender);
end;

procedure TFrmClntMain.ImgReadCardClick(Sender: TObject);
begin
  ItmReadCardClick(Sender);
end;

procedure TFrmClntMain.ImgCustBuyClick(Sender: TObject);
begin
  ItmCustBuyClick(Sender);
end;

procedure TFrmClntMain.ItmSoftInfoClick(Sender: TObject);
begin
  FrmSoftInfo:=TFrmSoftInfo.Create(Self);
  FrmSoftInfo.ShowModal;
  FrmSoftInfo.Free;
end;

procedure TFrmClntMain.ItmCompyIntroClick(Sender: TObject);
begin
  FrmAboutCompy:=TFrmAboutCompy.Create(Self);
  FrmAboutCompy.ShowModal;
  FrmAboutCompy.Free;
end;

procedure TFrmClntMain.ImgSoftClick(Sender: TObject);
begin
  ItmSoftInfoClick(Sender);
end;

procedure TFrmClntMain.ImgActiveClick(Sender: TObject);
begin
  ItmCompyIntroClick(Sender);
end;

procedure TFrmClntMain.TimActiveTimer(Sender: TObject);
var
  iSwayBmp: integer;
begin
   iActive:=iActive+1;
   if (iActive>=1) and (iActive<=MaxCLntSwayBmpNum)
     then iSwayBmp:=iActive
   else if iActive<=2*(MaxCLntSwayBmpNum-1)
     then iSwayBmp:=2*MaxCLntSwayBmpNum-iActive
   else begin
     iActive:=1; iSwayBmp:=iActive;
    end;
   ImgActive.Visible:=False;
   ImgActive.Picture.Bitmap:=BmpAct[iSwayBmp];
   ImgActive.Visible:=True;
end;

end.