u_reg.pas

河南师范大学餐饮进销存软件,只要控制库存的数据。

unit u_Reg;

interface

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

type
  TfrmReg = class(TForm)
    Label1: TLabel;
    Btn1: TBitBtn;
    Btn2: TBitBtn;
    edtReg: TEdit;
    lblHint: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Btn1Click(Sender: TObject);
    procedure edtRegKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure Btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmReg: TfrmReg;

implementation

uses u_ShareFun, u_Main;

{$R *.dfm}

procedure TfrmReg.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frmReg.Close;
end;

procedure TfrmReg.Btn1Click(Sender: TObject);
begin
REGISTER_JXC_REGISTER('\SOFTWARE\WEB',edtReg.Text);
IF REGISTER_KEY_VALUE_STR('\SOFTWARE\WEB','SF_ID') <> REGISTER_NUMBER_JXC(REGISTER_KEY_VALUE_INT('\SOFTWARE\WEB','CPU_ID')) THEN
   begin
     showmessage('注册不成功，请重新输入！！');
     edtReg.Text:= '';
     edtReg.SetFocus;
   end
else
   begin
     showmessage('祝贺你，注册成功！！');
     IsJXCAvailable := true;
     frmmain.Caption := '机电商业Mis系统' ;
     Close;
   end;

end;

procedure TfrmReg.edtRegKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then Btn1.SetFocus;
end;

procedure TfrmReg.FormShow(Sender: TObject);
begin
lblHint.Caption:=inttostr(REGISTER_KEY_VALUE_INT('\SOFTWARE\WEB','CPU_ID'));
edtReg.SetFocus;
end;

procedure TfrmReg.Btn2Click(Sender: TObject);
begin
  Close;
end;

end.