sys_reg.pas

汽配前台收费,一个具有详细功能的小系统

unit sys_reg;

interface

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

type
  Tfrm_sys_reg = class(TForm)
    pe_2: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    txt_sj: TEdit;
    txt_us: TEdit;
    Panel3: TPanel;
    Label5: TLabel;
    txt_zc: TEdit;
    Label1: TLabel;
    lbl_days: TLabel;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure cmdOKClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cmdCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_sys_reg: Tfrm_sys_reg;

implementation

{$R *.DFM}

uses
  log, main;
  
procedure Tfrm_sys_reg.FormCreate(Sender: TObject);
var
  hReg: TRegIniFile;
  strValue, strValue1: string;
  strValue2: string;
  i: integer;
  v, v2, code: integer;
  code1, code2: integer;
begin
  hReg := TRegIniFile.Create('');
  hReg.RootKey := HKEY_CLASSES_ROOT;
  //
  if hReg.OpenKey('\WONDER\MOBILE', False) then begin
    strValue := hReg.ReadString('\WONDER\MOBILE', 'isRegedit', '-1');
    if Trim(strValue) = '0' then begin   //尚未注册
      ShowMessage('注册信息已损坏，系统将退出');
      Close;
      Exit;
    end else if Trim(strValue) = '1' then begin //已经产生随机数、用户码但未注册
      strValue := hReg.ReadString('\WONDER\MOBILE', 'remoValue', '-1');
      strValue1 := hReg.ReadString('\WONDER\MOBILE', 'userValue', '-1');
      strValue2 := hReg.ReadString('\WONDER\MOBILE', 'regeValue', '-1');
      if (Trim(strValue) = '-1') or (Trim(strValue1) = '-1') or (Trim(strValue2) = '-1') then begin
        ShowMessage('注册信息已损坏，系统将退出');
        hReg.Destroy;
        Close;
        Exit;
      end else begin
        Val(Trim(strValue), v, code);
        Val(Trim(strValue1), v, code1);
        Val(Trim(strValue2), v2, code2);
        if (code <> 0) or (code1 <> 0) or (code2 <> 0) then begin
          ShowMessage('注册信息已损坏，系统将退出');
          hReg.Destroy;
          Close;
          Exit;
        end else begin
          txt_sj.Text := Trim(strValue);
          txt_us.Text := Trim(strValue1);
          //
          lbl_days.Caption := IntToStr(frm_log.receiveDays) + '次';
          //
        end;
      end;
      //
      //isReg := False;
    end else if Trim(strValue) = '2' then begin //注册完毕
      hReg.Destroy;
      Close;
      Exit;
    end else begin
      ShowMessage('注册信息已损坏，系统将退出');
      hReg.Destroy;
      Close;
      Exit;
    end;
  end else begin
    ShowMessage('注册信息已损坏，系统将退出');
    hReg.Destroy;
    Close;
    Exit;
  end;
end;

procedure Tfrm_sys_reg.cmdOKClick(Sender: TObject);
var
  intx, inty, intz: Cardinal;
  intx1: Cardinal;
  hReg: TRegIniFile;
  code: integer;
begin
    if Trim(txt_zc.Text) = '' then begin
      MessageBox(Handle, '请您首先输入注册码', '沈阳信德', MB_ICONQUESTION or MB_OK);
      txt_zc.SetFocus;
      Exit;
    end else begin
      Val(txt_zc.Text, intz, code);
      Val(txt_sj.Text, intx, code);
      Val(txt_us.Text, inty, code);
      //
      intx1 := frm_log.GetRandomX(intx, inty, intz);
      if intx1 <> intx then begin
        MessageBox(Handle, '注册码不正确', '沈阳信德', MB_ICONQUESTION or MB_OK);
        txt_zc.SetFocus;
        Exit;
      end else begin
        hReg := TRegIniFile.Create('');
        hReg.RootKey := HKEY_CLASSES_ROOT;
        hReg.WriteString('\WONDER\MOBILE', 'isRegedit', '2');
        hReg.Destroy;
        //
        MessageBox(Handle, '注册成功', '沈阳信德', MB_ICONQUESTION or MB_OK);
       
        //
        Close;
      end;
    end;
end;

procedure Tfrm_sys_reg.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure Tfrm_sys_reg.FormDestroy(Sender: TObject);
begin
  frm_sys_reg := nil;
end;

procedure Tfrm_sys_reg.FormShow(Sender: TObject);
begin
  txt_zc.SetFocus;
end;

procedure Tfrm_sys_reg.cmdCancelClick(Sender: TObject);
begin
  Close;
end;

end.