f_reg.pas

用Delphi 开发的一个 户籍管理系统

unit f_reg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIForm, StdCtrls, SUIButton, SUIEdit, ActnList,
  SUIMemo, DB, ADODB, RzAnimtr, ImgList;

type
  Tfm_reg = class(TForm)
    sfrm_reg: TsuiForm;
    lbl_1: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    btn_getregcode: TsuiButton;
    edt_regcode: TsuiEdit;
    edt_regOK: TsuiEdit;
    Label5: TLabel;
    btn_exit: TsuiButton;
    actlst_reg: TActionList;
    act_getregcode: TAction;
    act_regOK: TAction;
    act_exit: TAction;
    mmo_associate: TsuiMemo;
    lbl_showregcode: TLabel;
    btn_regOK: TsuiButton;
    ani_1: TRzAnimator;
    il_1: TImageList;
    lbl_RegOK: TLabel;
    procedure act_getregcodeExecute(Sender: TObject);
    procedure act_regOKExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure act_exitExecute(Sender: TObject);
    procedure lbl_showregcodeDblClick(Sender: TObject);
    procedure lbl_RegOKDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure RegOK;
  end;

var
  fm_reg: Tfm_reg;
  ide, reg: string;
const MD5MB ='liniocensus';
implementation
uses f_IdeDisk, f_md5, F_RDB, f_main;
{$R *.dfm}

procedure Tfm_reg.act_getregcodeExecute(Sender: TObject);
begin
  edt_regcode.Text := MD5Print(MD5String(ide + MD5MB));
end;

procedure Tfm_reg.act_regOKExecute(Sender: TObject);
begin
  if edt_regOK.Text <> reg then
    Application.MessageBox('您的确认码有误,请支持正版,谢谢！', '提示', MB_OK +
      MB_ICONSTOP)
  else
  begin
    RDB.regOK := true;
    with RDB.dst_reg do
    begin
      if not Active then
        Active := True;
      First;
      Edit;
      FieldByName('regcode').AsString := reg;
      Post;
    end;
    Application.MessageBox('试用激活成功！您可以试用20条记录，谢谢您对我们的支持！', '提示', MB_OK +
      MB_ICONINFORMATION);
    RegOK;
  end;
end;

procedure Tfm_reg.FormCreate(Sender: TObject);
begin
  ide := GetIdeDiskSerialNumber;
  reg := MD5Print(MD5String(ide + Trim(MD5MB)));
  reg := MD5Print(MD5String(reg + Trim(MD5MB)));
  if rdb.regOK = True then
  begin
    btn_regOK.Enabled := false;
    edt_regOK.Text := reg;
    act_getregcodeExecute(Sender);
    RegOK;
  end;
end;

procedure Tfm_reg.act_exitExecute(Sender: TObject);
begin
  Close;
end;

procedure Tfm_reg.lbl_showregcodeDblClick(Sender: TObject);
begin
  edt_regOK.Text := MD5Print(MD5String(edt_regOK.Text + Trim(MD5MB)));
end;

procedure Tfm_reg.RegOK;
begin
  Self.Caption := '软件注册   --『任你用』户籍管理系统  试用版';
  edt_regOK.Text := reg;
  edt_regOK.ReadOnly := True;
  fm_main.Caption := '『任你用』户籍管理系统  试用版';
  fm_main.ActionOpen;
  btn_regOK.Enabled := False;
  edt_regOK.Visible := False;
  Label5.Visible:=False;
end;

procedure Tfm_reg.lbl_RegOKDblClick(Sender: TObject);
var
  RegString:string;
begin
  RegString := MD5Print(MD5String(edt_regOK.Text + Trim(MD5MB)));
  edt_regOK.Text := MD5Print(MD5String(RegString + Trim(MD5MB)));
end;

end.