uregcount.pas

小型库存管理,希望有帮助,小型库存管理,希望有帮助

unit uRegCount;

interface

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

type
  TfrmRegCount = class(TForm)
    Label1: TLabel;
    idtNumber: TEdit;
    Label2: TLabel;
    idtID: TEdit;
    Label3: TLabel;
    btnOK: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
    strIdeSerialNumber :string ; //当前硬盘ID
  public
    { Public declarations }
  end;

var
  frmRegCount: TfrmRegCount;

implementation

{$R *.dfm}

uses MsgU ;

procedure TfrmRegCount.FormCreate(Sender: TObject);
begin
   strIdeSerialNumber :=strpas(GetIdeSerialNumber) ;
   strIdeSerialNumber :=PSEncrypt(trim(strIdeSerialNumber)) ;
   idtID.Text :=trim(strpas(GetIdeSerialNumber));
end;

{确定　核对注册信息}
procedure TfrmRegCount.btnOKClick(Sender: TObject);
begin
  //是否是同一硬盘
  if trim(idtNumber.Text)<>strIdeSerialNumber then
    begin
     MessageDlg('该注册码不正确,请退出.',mtError,[mbOk],0);
     exit ;
    end ;
  SetCount('93zpw6AZwoOvM'); //999 加密所得
  MessageDlg('感谢您使用本软件.',mtInformation,[mbOk],0);
  close ; 
end;

end.