fxtcs.pas

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

unit Fxtcs;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Spin, ComCtrls,shlobj, ExtCtrls;

type
  TF_xtcs = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    GBcs: TGroupBox;
    Label12: TLabel;
    Label15: TLabel;
    Label30: TLabel;
    Label13: TLabel;
    SEzczx: TSpinEdit;
    EJDMC: TEdit;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Edit1: TEdit;
    procedure BBqdClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  F_xtcs: TF_xtcs;
implementation

uses sys_dm, sys_global, UDATASOURCE;
{$R *.DFM}


procedure TF_xtcs.BBqdClick(Sender: TObject);
begin
     if TRIM(EJDMC.Text)='' then begin
        BEEP;
        MessageBox(handle,'请输入网吧名称！','提示信息',64);
        EJDMC.SETFOCUS;
        EXIT;
     end;
     if TRIM(EDIT1.Text)='' then begin
        BEEP;
        MessageBox(handle,'请输入IC卡初始密码！','提示信息',64);
        EDIT1.SETFOCUS;
        EXIT;
     end;
     EDIT1.Text:=PADL(TRIM(EDIT1.Text),6);
     TRY
        STRTOINT('$'+TRIM(EDIT1.Text));
     EXCEPT
        BEEP;
        MessageBox(handle,'IC卡初始密码输入错误！','提示信息',16);
        EDIT1.SETFOCUS;
        EXIT;
     END;
     frm_sys_dm.qxtcs.edit;
     frm_sys_dm.qxtcs['NETBARNAME']:=trim(ejdmc.Text);
     frm_sys_dm.qxtcs['ICPASS']:=trim(edIT1.Text);
     frm_sys_dm.qxtcs['RECDEL']:=SEZCZX.VALUE;
     TRY
        FRM_SYS_DM.QXTCS.UpdateBatch;
     EXCEPT
        FRM_SYS_DM.QXTCS.CancelBatch();
        BEEP;
        MESSAGEBOX(HANDLE,'数据保存失败！','提示信息',16);
        EXIT;
     END;
     M_COM:=COMBOBOX1.ITEMINDEX+1;
     WRITECOM(M_COM);
     modalresult:=mrok;
end;

procedure TF_xtcs.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     release;
end;

procedure TF_xtcs.FormShow(Sender: TObject);
begin
    if not frm_sys_dm.QXTCS.Active then
       frm_sys_dm.QXTCS.Open;
    combobox1.itemindex:=m_com-1;
    Ejdmc.Text:=trim(frm_sys_dm.QXTCS.fieldbyname('NETBARNAME').asstring);
    Edit1.Text:=trim(frm_sys_dm.QXTCS.fieldbyname('ICPASS').asstring);
    IF frm_sys_dm.QXTCS.RecordCount>0 THEN
       SEzczx.Value:=frm_sys_dm.qxtcs.fieldbyname('RECDEL').asinteger;
end;

procedure TF_xtcs.FormKeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
        selectnext(activecontrol,true,true);
end;

end.