finput.pas

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

unit finput;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons, Db, DBTables;

type
  Tf_input = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ListBox1: TListBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
     SID:STRING;
     LASTDATE:TDATETIME;
     FIRSTDATE:TDATETIME;
     guestid:longword;
    { Public declarations }
  end;

var
  f_input: Tf_input;

implementation

uses UCRYPT, SYS_DM ;

{$R *.DFM}

procedure Tf_input.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     RELEASE;
end;

procedure Tf_input.FormShow(Sender: TObject);
begin
     label4.Caption:=sid;
end;

procedure Tf_input.BitBtn1Click(Sender: TObject);
var
   tmpstr,S:string;
   LDATE:TDATETIME;
begin
     tmpstr:=trim(edit1.text);
     if length(tmpstr)<>12 then begin
        beep;
        messagebox(handle,PCHAR(LISTBOX1.ITEMS[0]),'提示',64);
        EDIT1.SETFOCUS;
        exit;
     end;
     IF NOT DECRYPTLIMIT0(TMPSTR,SID,LDATE) THEN BEGIN
        beep;
        messagebox(handle,PCHAR(LISTBOX1.ITEMS[1]),'提示',64);
        edit1.setfocus;
        EXIT;
     END;
     if LDATE<=DATE then begin
        beep;
        messagebox(handle,PCHAR(LISTBOX1.ITEMS[1]),'提示',64);
        edit1.setfocus;
        EXIT;
     end;
    if not cryptlimit1(ldate,guestid,TMPSTR) then
       exit;
    IF DATE<FIRSTDATE THEN
       FIRSTDATE:=DATE;
    if NOT cryptlimit2(FIRSTdate,GUESTID,S) then
       EXIT;
       
    myexecsql('UPDATE XTCS SET LDATE='''+TMPSTR+''',FDATE='''+S+'''');
    MODALRESULT:=MROK;
end;

end.