【文章內(nèi)容簡介】 tive false Commandtext 用戶名，密碼 Edit1 (Edit) Text (空 )用于輸入用戶名 Edit2 (Edit) PasswordChar *(所有輸入都顯示為指定的字符 ) Button1(Button) Caption 用戶登錄 Button2(Button) Caption 游客瀏覽 Button3(Button) Caption 退出 用戶登錄在 Button1的 OnClick事件處理程序中完成，當(dāng)確認用戶名和密碼后，登錄到房屋管理窗體；如不是用戶，可以進入游客瀏覽窗體，代碼如下： procedure (Sender: TObject)。 begin 。 //關(guān)閉 ADOdataset :=39。select 密碼 from 用戶表 where 用戶名 =:name39。 (39。name39。).Value := 。 //獲取用戶信息 。 if ( =1) and (trim((39。密碼 39。).Value) = ) then //判斷密碼是否正確和用戶名是否存在 begin 。 //進入房屋管理主窗口 。 end else ShowMessage(39。用戶名或密碼錯誤！請重新輸入 39。)。 end。 procedure (Sender: TObject)。 begin 。 //進入游客瀏覽主窗口 end。 procedure (Sender: TObject)。 begin close。 //關(guān)閉窗口，退出應(yīng)用程序 end。 房屋管理系統(tǒng)窗體的設(shè)計 該窗體為房屋管理者的主窗體，包括了菜單的設(shè)計，窗體的布局如下： 圖 43 房屋管理系統(tǒng)主界面 菜單的設(shè)計如下圖： 圖 44 菜單設(shè)計 以下代碼主要用來顯示各窗體，具體代碼有： procedure (Sender: TObject)。 begin 。 //顯示房產(chǎn)信息管理窗體 end。 procedure (Sender: TObject)。 begin 。 //顯示房產(chǎn)總表瀏覽窗體 end。 procedure (Sender: TObject)。 begin 。 //顯示合同信息管理窗體 end。 procedure (Sender: TObject)。 begin 。//顯示到期合同處理窗體 end。 procedure (Sender: TObject)。 begin 。//顯示合同信息查詢窗體 end。 procedure (Sender: TObject)。 begin 。 //顯示合同總表瀏覽窗體 end。 procedure (Sender: TObject)。 begin 。 //顯示租金收取窗體 房產(chǎn)管理 合同管理 租金管理 信息統(tǒng)計 系統(tǒng)維護 背景 幫助 房產(chǎn)信息管理 房產(chǎn)總表瀏覽 合同信息管理 到期合同處理 合同信息查詢 合同總表瀏覽 租金收取 按合同號查詢 按發(fā)票號查詢 租金信息統(tǒng)計 到期合同統(tǒng)計 履約金統(tǒng)計 空閑房屋統(tǒng)計 數(shù) 據(jù)備份 數(shù)據(jù)恢復(fù) 密碼管理 天堂 城堡 雪松 樓房一 樓房二 幫助主題 系統(tǒng)幫助 end。 procedure (Sender: TObject)。 begin 。 //顯示按合同號租金查詢窗體 end。 procedure (Sender: TObject)。 begin 。 //顯示按發(fā)票號查詢窗體 end。 procedure (Sender: TObject)。 begin 。 //顯示租金信息統(tǒng)計窗 體 end。 procedure (Sender: TObject)。 begin 。 //顯示已到期合同統(tǒng)計窗體 end。 procedure (Sender: TObject)。 begin 。 //顯示履約金統(tǒng)計窗體 end。 procedure (Sender: TObject)。 begin 。 //顯示空閑房屋統(tǒng)計窗體 end。 procedure (Sender: TObject)。 begin 。 //顯示數(shù)據(jù)備份窗體 end。 procedure (Sender: TObject)。 begin 。 //顯示數(shù)據(jù)恢復(fù)窗體 end。 procedure (Sender: TObject)。 begin 。 //顯示密碼管理窗體 end。 procedure (Sender: TObject。 var Action: TCloseAction)。 begin 。 //關(guān)閉登錄窗體 end。 procedure (Sender: TObject)。 begin 。 //顯示幫助主題窗體 end。 procedure (Sender: TObject。 var CanClose: Boolean)。 begin if MessageDlg(39。是否退出？？？ 39。, mtConfirmation, [mbYes, mbNo],0) = mrNo then canclose :=false。 end。 //判斷是否真的退出 procedure (Sender: TObject)。 var xs,fz,m : string。 begin xs := inttostr(hourof(now))。 if MinuteOf(now) 10 then fz := 39。039。+inttostr(minuteof(now)) else fz := inttostr(minuteof(now))。 if secondof(now) 10 then m := 39。039。+inttostr(secondof(now)) else m := inttostr(secondof(now))。 [3].Text := xs+39。:39。+fz+39。:39。+m。 end。 procedure (Sender: TObject)。 var rq :string。 begin := true。 rq:= inttostr(yearof(now))+39。 年 39。+inttostr(monthof(now))+39。 月39。+inttostr(dayof(now))+39。日 39。 [2].Text := rq。 [1].Width := 370。 end。 //設(shè)置準確時間的變化 procedure (Sender: TObject)。 begin [1].Width := 370。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 //顯示關(guān)于系統(tǒng)窗體 end。 procedure (Sender: TObject)。 begin 。 //顯示幫助內(nèi)容窗體 end。 procedure (Sender: TObject)。 begin (39。.\pic\39。)。 := true。 := false。 := false。 end。 //顯示背景天堂 procedure (Sender: TObject)。 begin (39。.\pic\39。)。 := false。 := true。 := false。 end。 //顯示背景城堡 procedure (Sender: TObject)。 begin (39。.\pic\39。)。 := false。 := false。 := true。 end。 //顯示背景雪松 procedure (Sender: TObject)。 begin (39。.\pic\39。)。 := false。 := false。 := false。 :=true。 end。 //顯示樓房一背景 procedure (Sender: TObject)。 begin (39。.\pic\39。)。 := false。 := false。 := false。 :=false。 :=true。 end。 //顯示樓房二背景 房產(chǎn)信息管理窗體的設(shè)計 圖 45信息管理窗體 表 443 主要控件對象屬性如下 對象名 屬性 取值（說明） Form4 (form) caption 房產(chǎn)管理信息 position poscreencenter ADOConnection1 name ADOConnect1 (ADOConnection) Defaultdatabase house Connected true Loginprompt false ADOdataset1 (ADODataset) Name ADODataset1 Connection ADOconnection1 Active True Commandtext Select *from 房產(chǎn)表 Datasource1 (datasource) Dataset ADODataset1 Name Datasource1 DBEdit1 (DBEdit) Datasource Datasource1 Datafield 房屋號 Name DBEdit1 Readonly true DBEdit2 (DBEdit) Datasource Datasource1 Datafield 坐落位置 Name DBEdit2 Readonly true DBEdit3 (DBEdit) Datasource Datasource1 Datafield 狀態(tài) Name DBEdit3 Readonly true DBEdit4 (DBEdit) Datasource Datasource1 Datafield 面積 Name DBEdit4 Readonly true DBEdit5 (DBEdit) Datasource Datasource1 Datafield 合同號 Name DBEdit5 Readonly true DBEdit6 (DBEdit) Datasource Datasource1 Datafield 類型 Name DBEdit6 Readonly true DBEdit7 (DBEdit) Datasource Datasource1 Datafield 基本月租 金 Name DBEdit7 Readonly true Button5(Button) Caption 插入 Button6(Button) Caption 刪除 Button7(Button) Caption 保存 Button10(Button) Caption 保存 實現(xiàn)窗體功能的代碼如下： procedure (Sender: TObject)。 begin 。 := false。 end。 //顯示第一條記錄并且隱藏保存按鈕 procedure (Sender: TObject)。 begin 。 := false。 end。 //顯示下一條記錄并且隱藏保存按鈕 procedure (Sender: TObject)。 begin 。 := false。 end。 //顯示上一條記錄并且隱藏保存按鈕 procedure (Sender: TObject)。 begin 。 := false。 end。 顯示最后一條記錄并且隱藏保存按鈕 procedure (Sender: TObject)。 begin 。 //對房產(chǎn)表進行插入 end。 procedure (Sender: TObject)。 begin if MessageDlg(39。如果刪除，記錄將不能恢復(fù)，是否確定？ 39。,mtConfirmation, [mbYes, mbNo],0) = mrYes then 。 := false。 //對記錄進行刪除操作，并先判斷是否確定刪除 end。 procedure (Sender: T