finputpass.pas

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

unit finputpass;

interface

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

type
  TF_INPUTPASS = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Panel2: TPanel;
    Panel3: TPanel;
    Label2: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_INPUTPASS: TF_INPUTPASS;

implementation

uses sys_dm, sys_global;

{$R *.dfm}

procedure TF_INPUTPASS.BitBtn1Click(Sender: TObject);
begin
     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卡初始密码输入错误！','提示信息',64);
        edit1.SetFocus;
        exit;
     end;
     m_icpass:=trim(edit1.Text);
     myexecsql('UPDATE XTCS SET ICPASS='''+M_ICPASS+'''');
     OPENQUERY(FRM_SYS_DM.QXTCS,'');
     MODALRESULT:=MROK;
end;

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

procedure TF_INPUTPASS.FormShow(Sender: TObject);
begin
     EDIT1.TEXT:=M_ICPASS;
end;

end.