用Delphi建立應用軟件注冊安全機制(3)

9．創建注冊窗體。選擇File/New Form創建一個新窗體，並加入組件TLabel、TEdit和TbitBtn各兩個。窗體和組件屬性按表5設置，命名其單元為Login.pas，存於Login目錄。

表5注冊窗體中組件屬性設置

組件	      屬性	              設置
Form2	    ActiveControl	UserNameEdit
	        Caption	        請注冊
	         Name	        LoginDialogForm
	        Position	    poScreenCenter
Label1	Caption	        用戶：
Label2	Caption	        密碼：
Edit1 	Name	        LoginNameEdit
	        Text	
Edit2	    Name	        PasswordEdit
	        PassWordChar	*
	        Text	
BitBtn1	Caption  	    注冊(&L)
	        Enabled	        False
	        Kind	        bkOK
	        Name	        LoginBitBtn
BitBtn2	Caption	        取消(&C)
	        Enabled	        True
	        Kind	        bkCancel
	        Name	        CancelBitBtn

10．選擇File/New命令，從NewItems 的New頁中選擇Unit項建一個無窗體單元Addition.pas存入Login目錄，在其interface段輸入下列語句：

usesClasses,Forms,Sysutils;
type
TApplicationUser=class(TComponent)
private
FUserName:string;
FFullName:string;
FUserGroup:Integer;
public
propertyUserName:stringreadFUserNamewrite FUserName;
propertyUserFullName:stringreadFFullName writeFFullName;
propertyUserGroup:IntegerreadFUserGroup writeFUserGroup;
end;
var
LoginUser:TApplicationUser;

在implementation段加入下列語句：

initialization

LoginUser:=TapplicationUser.Create(Application);

11．創建注冊窗體(LoginDialogForm) 的OnCreate事件處理程序。在private段中聲明CountDown為Integer變量，作為計數器，並將下述語句插入begin與end之間：

CountDown:=3;//允許嘗試注冊3次

12．建立用戶名輸入框(LoginNameEdit) 的OnChange事件處理程序，使窗體LoginDialogForm創建時注冊按鈕為灰色，用戶輸入登錄名後才可用。不難實現，源代碼略。