fmakextcs.pas

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

unit FMAKEXTCS;

interface

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

type
  TF_MAKEXTCS = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Image1: TImage;
    Panel7: TPanel;
    Panel8: TPanel;
    Image4: TImage;
    Image5: TImage;
    Label14: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    GBcs: TGroupBox;
    Label12: TLabel;
    Label15: TLabel;
    Label30: TLabel;
    SEzczx: TSpinEdit;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    ProgressBar1: TProgressBar;
    ListBox1: TListBox;
    Edit7: TEdit;
    Label13: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Edit1: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    PROCEDURE PAINTPAGE;
  public
    MINSTEP,MAXSTEP,THISSTEP:BYTE;
    { Public declarations }
  end;

var
  F_MAKEXTCS: TF_MAKEXTCS;

implementation

uses sys_dm, UDATASOURCE, sys_global;

{$R *.DFM}

PROCEDURE TF_MAKEXTCS.PAINTPAGE;
var
   i:integer;
BEGIN
     for i:=0 to ComponentCount-1 do begin
         if Components[i].ClassType = Timage then
            timage(Components[i]).visible:=timage(Components[i]).tag=thisstep;
         if (Components[i].ClassType=Tpanel) and (Tpanel(Components[i]).tag<>0) then
            Tpanel(Components[i]).visible:=Tpanel(Components[i]).tag=thisstep;
     end;
     bitbtn2.Enabled:=thisstep>minstep;
     if thisstep=maxstep then
        bitbtn3.Caption:=listbox1.items[0]
     else
        bitbtn3.Caption:=listbox1.items[1];
     if thisstep=2 then
        Edit7.SETFOCUS;
END;

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

procedure TF_MAKEXTCS.BitBtn3Click(Sender: TObject);
var
   EXECSTR:STRING;
   CID:INTEGER;
begin
     if thisstep=2 then begin
        if TRIM(EDIT7.Text)='' then begin
           BEEP;
           MessageBox(handle,pchar(listbox1.items[5]),'提示',16);
           EDIT7.SETFOCUS;
           EXIT;
        end;
        if TRIM(EDIT1.Text)='' then begin
           BEEP;
           MessageBox(handle,pchar(listbox1.items[5]),'提示',16);
           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;
     end;

     IF THISSTEP=MAXSTEP THEN BEGIN
       { beep;
        if MessageBox(HANDLE,pchar(listbox1.items[6]+#13+#13+listbox1.items[7]),'提示',36)<>6 then
           exit;}
        progressbar1.Visible:=true;
        progressbar1.Position:=1;
        APPLICATION.ProcessMessages;
        CID:=random(gettickcount()) mod 10000;
        m_com:=COMBOBOX1.ITEMINDEX+1;
        writecom(m_com);
        progressbar1.Position:=2;
        APPLICATION.ProcessMessages;
        progressbar1.Position:=3;
        APPLICATION.ProcessMessages;
        progressbar1.Position:=4;
        APPLICATION.ProcessMessages;
        EXECSTR:='INSERT INTO XTCS (NETBARNAME,ID,RECDEL,ICPASS) VALUES ('''+
           trim(EDIT7.TEXT)+''','+inttostr(cid)+','+INTTOSTR(SEZCZX.Value)+','''+TRIM(EDIT1.Text)+''')';
        if not myexecsql(EXECSTR) then begin
           beep;
           messagebox(handle,PCHAR(LISTBOX1.ITEMS[8]),'提示',16);
           modalresult:=mrcancel;
           exit;
        end;
        progressbar1.Position:=5;
        APPLICATION.ProcessMessages;

        //PostPara(NCOM,pchar(xts));
        BEEP;
        messagebox(handle,PCHAR(LISTBOX1.ITEMS[9]),'提示',64);
        modalresult:=mrok;
        EXIT;
     END;
     THISSTEP:=THISSTEP+1;
     PAINTPAGE;
end;

procedure TF_MAKEXTCS.BitBtn2Click(Sender: TObject);
begin
     if thisstep=minstep then
        exit;
     thisstep:=thisstep-1;
     paintpage;
end;

procedure TF_MAKEXTCS.FormShow(Sender: TObject);
begin
     Randomize;
     thisstep:=minstep;
     paintpage;
end;

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

end.