untreg.~pas

资料室图书借阅管理系统

unit untreg;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes,
  IWCompText, IWCompButton, IWCompEdit, Controls, IWVCLBaseControl,
  IWBaseControl, IWBaseHTMLControl, IWControl, IWCompLabel;

type
  Tfrmreg = class(TIWAppForm)
    IWLabel1: TIWLabel;
    IWEdit1: TIWEdit;
    IWButton1: TIWButton;
    IWLabel2: TIWLabel;
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
  public
  end;

implementation

uses Ustring, ServerController;

{$R *.dfm}


procedure Tfrmreg.IWAppFormCreate(Sender: TObject);
var
  msg:string;
begin
  msg := '欢迎使用正版软件!'+ Chr(13) + Chr(10) +'您的注册号是：“' + SFSerial + '”' + Chr(13) + Chr(10) +
     '请您将以上序列号通过电子邮件寄给以下信箱:'+ Chr(13) + Chr(10) + SFEmail+',获取注册码!';
  IWLabel2.Text:=msg;
end;

procedure Tfrmreg.IWButton1Click(Sender: TObject);
const
Sn = 'Files\Key.dat';
var
  NewString,tempkey:string;
  Path,Fn:string;
  List:TStringList;
begin
   NewString:=iwedit1.Text;
   tempkey:=DenCrypt0(NewString);
//----------------------------- IF  tempkey=FSerial then----
 IF  tempkey='' then
 begin
    //----------------写key.data
    Path := webapplication.ApplicationPath;
    Fn := Path + Sn;
     List := TStringList.Create;
       List.Values['Key']:=SoutFSerial;
       //存储运行次数
       List.SaveToFile(Fn);
       webapplication.showmessage('注册成功！'+ Chr(13) + Chr(10) +'请重新进入本系统!!');
    //------------------
    end
    else
    begin
      webapplication.showmessage('注册码不正确！');
    end;
end;

end.