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

6．返回DelphiIDE，新建項目Register.dpr 並存入C:\Register目錄，主窗體單元命名為Main.pas。用戶注冊成功後，方能啟動主窗體進入系統。本系統僅顯示用戶信息及登錄的日期和時間以 表示注冊成功（見圖5），並不做其它任何事情，這裡便是讀者應用系統的接口。為此，在主窗體上放入一個TGroupBox組件，TLabel和TEdit組件各五個。 將所有TEdit的Text屬性清空，ReadOnly屬性值設為True，窗體和組件其余屬性按表3設置。

7．創建主窗體的OnActivate事 件處理程序，登錄成功並激活主窗體時執行，顯示用戶信息、登錄日期和時 間。過程如下：

procedureTMainForm.ForMactivate(Sender:TObject);
begin
ifTime=StrToTime(12:00:00)then
Caption:=上午好，您已成功登錄！
else
Caption:=下午好，您已成功登錄！;
//顯示登錄用戶信息、登錄日期和時間
NameEdit.Text:=LoginUser.UserName;
FullNameEdit.Text:=LoginUser.UserFullName;
GroupEdit.Text:=IntToStr(LoginUser.UserGroup);
DisplayDateEdit.Text:=DateToStr(Date);
DisplayTimeEdit.Text:=TimeToStr(Time);
end;

表3主窗體中組件屬性設置

組件	    屬性	        設置

Form1	    Caption	

	        Name	        MainForm

	         Position	    poScreenCenter

GroupBox1  Caption	用戶信息

Label1	 Caption	用戶名稱：

Label2	 Caption	用戶全名：

Label3	 Caption	用戶組號：

Label4	 Caption	登錄日期：

Label5	Caption	    登錄時間：

Edit1	   Name	      NameEdit

Edit2	   Name	      FullnameEdit

Edit3	   Name       GroupEdit

Edit4	   Name	      DisplayDateEdit

Edit5	   Name	      DisplayTimeEdi

8．數據模板。選擇File/NewData Module建立數據模板LogDataModule，放入一個Ttable組件，如圖1。屬性 按表4設置，命名其單元為MD.pas，存入Login目錄。

組件	      屬性	         設置

Table1	DatabaseName	UserInfo

	        Name	        UsersTable

	        TableName	    Users.DB