reg.pas

职工信息管理系统的源代码

unit reg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons,registry, Mask,
  TFlatMaskEditUnit;

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    Button1: TSpeedButton;
    button2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    SpeedButton2: TSpeedButton;
    Edit3: TFlatMaskEdit;
    Edit4: TFlatMaskEdit;
    Edit5: TFlatMaskEdit;
    Edit6: TFlatMaskEdit;
    Label7: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
   ky:string;
implementation
 uses quan ;
{$R *.dfm}

procedure TForm3.Button2Click(Sender: TObject);
begin
halt;
end;

procedure TForm3.Button1Click(Sender: TObject);
var p,p1:string;
begin
getdir(0,p);
p1:=P+'\bak';
if (frac(strtoint(edit5.text)/17)<>0) or (frac(strtoint(edit5.text)/33)<>0)or (frac(strtoint(edit6.text)/17)<>0) or (frac(strtoint(edit6.text)/33)<>0)or (frac(strtoint(edit3.text)/17)<>0) or (frac(strtoint(edit3.text)/33)<>0)or (frac(strtoint(edit4.text)/17)<>0) or (frac(strtoint(edit4.text)/33)<>0) or (strtoint(edit3.Text)=0) or (strtoint(edit6.Text)=0) or (strtoint(edit4.Text)=0) or (strtoint(edit5.Text)=0)then
begin
if application.MessageBox('注册码不正确，请仔细检查后重新输入','注册信息',mb_ok+mb_iconinformation)=idok then
begin
edit3.SetFocus;
edit3.SelectAll;
end;
end
else
if (edit1.Text='') or (edit2.Text='')then
begin
if application.MessageBox('用户名与公司名不可为空！','错误！',mb_ok+mb_iconinformation)=idok then
begin
edit1.SetFocus;
edit1.AutoSelect:=true;
end;
end
else
begin
re:=Tregistry.create;
re.RootKey:=HKEY_USERS;
re.OpenKey('.default\software\wo\date',true);
re.WriteString('username',edit1.Text);
re.WriteString('complay',edit2.Text);
re.WriteInteger('bak',0);
re.WriteString('dir',p1);
re.WriteInteger('zhu_ce',1);
application.MessageBox('软件已注册成功！','恭喜您',mb_ok+mb_iconinformation);
close;
end
end;
procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit2.SetFocus;
end;

procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit3.SetFocus;
end;

procedure TForm3.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
button1.Click;
end;

procedure TForm3.FormShow(Sender: TObject);
begin
ky:='';
edit1.SetFocus;
end;

procedure TForm3.SpeedButton1Click(Sender: TObject);
var p,p1:string;
begin
getdir(0,p);
p1:=P+'\bak';
if application.MessageBox('您将只有30天的使用期,要以后注册吗?','信息',mb_okcancel+mb_iconquestion)=idok then
begin
re.RootKey:=HKEY_USERS;
re.OpenKey('.default\software\wo\date',true);
re.WriteString('username',edit1.Text);
re.WriteString('complay',edit2.Text);
re.WriteInteger('bak',0);
re.WriteString('dir',p1);
re.WriteInteger('zhu_ce',0);
re.WriteDateTime('lasttime',date);
re.WriteInteger('time',30);
close;
end
else
exit;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
edit5.Text:='00000';
edit6.Text:='00000';
edit3.Text:='00000';
edit4.Text:='00000';
end;

procedure TForm3.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
ky:=edit3.text;
if edit3.ReadOnly=false then
 if (key <>48)and  (key <>8)and ((key<97) OR (key>105))and (key <>144) and (key <>49)and (key <>50)and (key <>51)and (key <>52)and (key <>53)and (key <>54)and (key <>55)and (key <>56)and (key <>57)and (key <>13)then
begin
application.MessageBox('此处应输入数字','错误',mb_ok);
edit3.Text:=ky;
edit3.SelStart:=length(ky);
end
else
ky:=edit3.Text;
if length(edit3.Text)=5 then
edit4.SetFocus;
end;

procedure TForm3.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
ky:=edit4.text;
if edit4.ReadOnly=false then
 if (key <>48)and  (key <>8)and ((key<97) OR (key>105))and (key <>144) and (key <>49)and (key <>50)and (key <>51)and (key <>52)and (key <>53)and (key <>54)and (key <>55)and (key <>56)and (key <>57)and (key <>13)then
begin
application.MessageBox('此处应输入数字','错误',mb_ok);
edit4.Text:=ky;
edit4.SelStart:=length(ky);
end
else
ky:=edit4.Text;
if length(edit4.Text)=5 then
edit5.SetFocus;
end;

procedure TForm3.Edit5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
ky:=edit5.text;
if edit5.ReadOnly=false then
 if (key <>48)and  (key <>8)and ((key<97) OR (key>105))and (key <>144) and (key <>49)and (key <>50)and (key <>51)and (key <>52)and (key <>53)and (key <>54)and (key <>55)and (key <>56)and (key <>57)and (key <>13)then
begin
application.MessageBox('此处应输入数字','错误',mb_ok);
edit5.Text:=ky;
edit5.SelStart:=length(ky);
end
else
ky:=edit5.Text;
if length(edit5.Text)=5 then
edit6.SetFocus;
end;

procedure TForm3.Edit6KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
ky:=edit6.text;
if edit6.ReadOnly=false then
 if (key <>48)and  (key <>8)and ((key<97) OR (key>105))and (key <>144) and (key <>49)and (key <>50)and (key <>51)and (key <>52)and (key <>53)and (key <>54)and (key <>55)and (key <>56)and (key <>57)and (key <>13)then
begin
application.MessageBox('此处应输入数字','错误',mb_ok);
edit6.Text:=ky;
edit6.SelStart:=length(ky);
end
else
ky:=edit6.Text;
end;

procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure TForm3.FormPaint(Sender: TObject);
var a,b:real;
i:integer;
begin
a:=clientheight/256;
b:=0;
for i:=255 downto 0 do
begin
canvas.Brush.Color:=$000000000+i*$10000;
canvas.FillRect(rect(0,round(b),clientwidth,round(a+b)));
b:=b+a;
end;
end;

end.