main.~pas

1. 发卡服务端：Server 项目文件：autojet.prj 2. 计费客户端：Client 项目文件：internet.prj Explorer.prj 先启动Exp

  Frm_Init.free ;
end;

// 普通费率设定
procedure TFrm_Main.N16Click(Sender: TObject);
begin
  m_Flag := '01' ;
  Frm_GRate := TFrm_GRate.create(application);
  Frm_GRate.Caption := ' 普通费率设定' ;
  Frm_GRate.showmodal ;
  Frm_GRate.free ;
end;

// 特别费率设定
procedure TFrm_Main.N17Click(Sender: TObject);
begin
  m_Flag := '02' ;
  Frm_GRate := TFrm_GRate.create(application);
  Frm_GRate.Caption := ' 特别费率设定' ;
  Frm_GRate.showmodal ;
  Frm_GRate.free ;
end;

// 终端设定
procedure TFrm_Main.N19Click(Sender: TObject);
begin
  Frm_Terminal := TFrm_Terminal.create(application);
  Frm_Terminal.showmodal ;
  Frm_Terminal.free ;
end;

// 卡片发行
procedure TFrm_Main.N22Click(Sender: TObject);
begin
  frm_CardIssue := Tfrm_CardIssue.create(application);
  frm_cardIssue.showmodal ;
  frm_cardIssue.free ;
end;

// 卡片修改
procedure TFrm_Main.N24Click(Sender: TObject);
begin
  frm_CardUpdate := Tfrm_CardUpdate.create(application);
  frm_cardUpdate.showmodal ;
  frm_cardUpdate.free ;
end;
// 卡片加钱
procedure TFrm_Main.N25Click(Sender: TObject);
begin
  frm_CardAddOn := TFrm_CardAddOn.Create(application);
  frm_CardAddOn.showmodal ;
  frm_CardAddOn.free ;
end;
//卡片注销
procedure TFrm_Main.N27Click(Sender: TObject);
begin
  Frm_CardDele := TFrm_CardDele.create(application);
  Frm_CardDele.showmodal ;
  Frm_CardDele.free ;
end;
// 卡片挂失
procedure TFrm_Main.N28Click(Sender: TObject);
begin
  Frm_CardLoss := TFrm_CardLoss.create(application);
  Frm_cardLoss.showmodal ;
  Frm_CardLoss.free ;
end;
// 每日交班
procedure TFrm_Main.N32Click(Sender: TObject);
begin
  m_mode := 'b' ; // 交班
  Frm_HandIN := TFrm_HandIN.create(application);
  Frm_HandIN.Caption := '本日未交班金额' ;
  Frm_HandIN.LB_title.Caption   := '本日未交班' ;
  Frm_HandIN.Btn_HandIn.Caption := '交班(&H)' ;
  Frm_HandIN.showmodal ;
  Frm_HandIN.free;
end;
// 每日交款
procedure TFrm_Main.N34Click(Sender: TObject);
begin
  m_mode := 'k' ; // 交班
  Frm_HandIN := TFrm_HandIN.create(application);
  Frm_HandIN.Caption := '本日未交款金额' ;
  Frm_HandIN.LB_title.Caption   := '本日未交款' ;
  Frm_HandIN.Btn_HandIn.Caption := '交款(&H)' ;
  Frm_HandIN.showmodal ;
  Frm_HandIN.free;
end;
// 帮助
procedure TFrm_Main.N42Click(Sender: TObject);
begin
end;
// 修改密码
procedure TFrm_Main.N44Click(Sender: TObject);
begin
  Frm_AlterPassword := TFrm_AlterPassword.Create(Application);
  Frm_AlterPassword.showmodal;
  Frm_AlterPassword.free ;
end;
// 屏幕保护
procedure TFrm_Main.N45Click(Sender: TObject);
begin
  Frm_ScreenProtect := TFrm_ScreenProtect.Create(application);
  Frm_ScreenProtect.showmodal;
  Frm_ScreenProtect.free;
end;
//退出
procedure TFrm_Main.N47Click(Sender: TObject);
begin
  if application.MessageBox(' 您要退出吗？','提示',MB_yesno+mb_iconquestion+mb_defbutton2)=ID_No then
     exit ;
  SSocket.Close ;
  application.Terminate ;
end;


procedure TFrm_Main.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  with TCustomDBGridCracker(sender) do
  begin
    if DataLink.ActiveRecord = Row-1 then
    begin
      Canvas.Font.Color := clred ;
      Canvas.Brush.color := $00FFEEEE
    end
    else
     begin
      canvas.Font.color := clBlack ;

      if (frm_sys_dm.Qr_tmppSYJE.Value <1.5) and (frm_sys_dm.Qr_tmppGstate.Value ='上机')
      then
         canvas.Brush.Color := clAqua
      else
         canvas.Brush.Color := clwhite;
    end;

      if (frm_sys_dm.Qr_tmppictype.Value ='管理卡')
     then   canvas.Brush.Color := clyellow;

    DefaultDrawColumnCell(Rect,DataCol,column,state);
  end;
end;

procedure TFrm_Main.ToolButton1Click(Sender: TObject);
begin
  if m_Card<>'1' then begin
     messagebox(handle,'您没有这个操作权限.','提示',mb_ok);
     exit ;
  end;
  frm_CardIssue := Tfrm_CardIssue.create(application);
  frm_cardIssue.showmodal ;
  frm_cardIssue.free ;
end;

procedure TFrm_Main.ToolButton2Click(Sender: TObject);
begin
  if m_Card<>'1' then begin
     messagebox(handle,'您没有这个操作权限.','提示',mb_ok);
     exit ;
  end;
  frm_CardUpdate := Tfrm_CardUpdate.create(application);
  frm_cardUpdate.showmodal ;
  frm_cardUpdate.free ;
end;

procedure TFrm_Main.ToolButton3Click(Sender: TObject);
begin
  if m_Card<>'1' then begin
     messagebox(handle,'您没有这个操作权限.','提示',mb_ok);
     exit ;
  end;
  Frm_CardDele := TFrm_CardDele.create(application);
  Frm_CardDele.showmodal ;
  Frm_CardDele.free ;
end;

procedure TFrm_Main.N36Click(Sender: TObject);
begin
  Frm_GrpSum := TFrm_GrpSum.create(application);
  Frm_GrpSum.showmodal ;
  Frm_GrpSum.free ;
end;

procedure TFrm_Main.N6Click(Sender: TObject);
begin
  if canc(m_com, '0001')=0 then showmessage('ok') else showmessage('fail');
end;


procedure TFrm_Main.SSocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  memo1.Lines.Add(socket.ReceiveText);
  SSocket.Socket.Connections[0].SendText('发送消息成功');
  messagebox(handle,'您好, 已有一个消息发来! ','提示',mb_ok+MB_ICONWARNING);
end;


procedure TFrm_Main.CLSocketError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  ErrorCode := 0 ;
  CLSocket.Close ;
end;


// 远程重启
procedure TFrm_Main.N3Click(Sender: TObject);
var
  ReqCodeStr:string;
begin
  Frm_Dlg1 := TFrm_Dlg1.create(application);
  Frm_Dlg1.Edt_Cname.Text := RHost ;
  if Frm_Dlg1.showmodal = mrok then begin
     if Frm_Dlg1.Edt_Cname.Text ='' then
     begin
       Frm_Dlg1.Free ;
       exit ;
     end;
     CLSocket.close;
     CLSocket.Host := Frm_Dlg1.Edt_Cname.Text ;
     try
       CLSocket.Active := true ;
     except
       messagebox(handle,'操作失败！','提示',mb_ok);
       Frm_Dlg1.Free ;
       CLSocket.close;
       exit;
     end;
     ReqCodeStr := 'restart' ;
     CLSocket.Socket.SendText(ReqCodeStr);
     messagebox(handle,'远程重启成功！','提示',mb_ok);
  end;
  Frm_Dlg1.Free ;
  CLSocket.Close ;
end;

// 远程关机
procedure TFrm_Main.N2Click(Sender: TObject);
var
  ReqCodeStr:string;
begin
  Frm_Dlg1 := TFrm_Dlg1.create(application);
  Frm_Dlg1.Edt_Cname.Text := RHost ;
  if Frm_Dlg1.showmodal = mrok then begin
     if Frm_Dlg1.Edt_Cname.Text ='' then
     begin
       Frm_Dlg1.Free ;
       exit ;
     end;
     CLSocket.close;
     CLSocket.Host := Frm_Dlg1.Edt_Cname.Text ;
     try
       CLSocket.Active := true ;
     except
       messagebox(handle,'操作失败！','提示',mb_ok);
       Frm_Dlg1.Free ;
       CLSocket.close;
       exit;
     end;
     ReqCodeStr := 'close' ;
     CLSocket.Socket.SendText(ReqCodeStr);
     messagebox(handle,'远程关闭成功！','提示',mb_ok);
  end;
  Frm_Dlg1.Free ;
  CLSocket.Close ;
end;

// 发送消息
procedure TFrm_Main.N10Click(Sender: TObject);
var
  ReqCodeStr: string;
  xinxi: string;      // 信息
begin
  Frm_Dlg3 := TFrm_Dlg3.create(application);
  if Frm_Dlg3.showmodal = mrok then begin
     xinxi :=  Frm_Dlg3.edt_news.text ;
     if Frm_Dlg3.Edt_Cname.Text ='' then exit ;
     if  xinxi='' then exit ;
     CLSocket.close;
     CLSocket.Host := Frm_Dlg3.Edt_Cname.Text ;
     try
       CLSocket.Active := true ;
     except
       messagebox(handle,'操作失败！','提示',mb_ok);
       Frm_Dlg3.Free ;
       CLSocket.close;
       exit;
     end;
     ReqCodeStr:='