regform.~pas

家庭理财系统.rar

unit RegForm;

interface

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

type
  TReg = class(TForm)
    GroupBox1: TGroupBox;
    reg_key: TEdit;
    Label1: TLabel;
    reg_code: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Reg: TReg;

implementation

uses LoginForm, MainForm;

{$R *.dfm}

procedure TReg.FormCreate(Sender: TObject);
begin
  reg_code.Text := login.regcode ;
end;

procedure TReg.Button2Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure TReg.Button1Click(Sender: TObject);
var
  Ini:TiniFile;
  filename:string ;
begin
  if (reg_key.Text <> login.regkey) then
    messagebox(getactivewindow(),'注册码错误，点击确定重新输入注册码!','注册失败!' ,MB_OK + MB_ICONINFORMATION)
  else
  begin
    filename:=ExtractFilePath(paramstr(0))+'system.ini';
    Ini:=Tinifile.Create(filename);
    Ini.WriteString('reg','reg_info',reg_key.Text);
    Ini.Free;
    messagebox(getactivewindow(),'注册成功，您可以使用此软件了！','注册成功!' ,MB_OK + MB_ICONINFORMATION);
    hide;
    with TLogin.Create(self) do
      showmodal;
    application.Terminate;
  end;
end;

end.