【正文】 除。接下來是建立每一座樓的基本信息，即數(shù)據(jù)庫中f_house表（樓房基本信息），表中的明細(xì)也有15項(xiàng)之多。樓房224。一個(gè)樓盤下面有多棟樓房，該表記錄樓房信息。 房屋信息表的字段樓房信息表f_house的字段如表4所示。另外，與主菜單相配合的是工具條的設(shè)計(jì)。狀態(tài)條工具條主菜單 主窗體頁面 主窗體界面詳細(xì)設(shè)計(jì)1. 啟動Delphi 開發(fā)平臺，將自動彈出的窗體設(shè)為主窗體，并命名。主菜單的第一級有【房屋銷售管理】、【數(shù)據(jù)統(tǒng)計(jì)報(bào)表】、【基本資料錄入】、【系統(tǒng)設(shè)置】和【幫助】等5項(xiàng)。設(shè)計(jì)好的二級菜單如圖34所示。 設(shè)置image控件的”picture”屬性以載入背景圖定時(shí)器 載入背景圖后的樣式4) 主窗體的狀態(tài)欄控件設(shè)計(jì)在主窗體的最下方添加TStatusBar(在控件欄的Win32頁)組件，該組件用來顯示主窗體運(yùn)行時(shí)的狀態(tài)，用默認(rèn)名“StausBar1”。這些功能的實(shí)現(xiàn)是靠代碼完成的，稍后介紹這些代碼。username:string。+datetimetostr(now)。設(shè)置Align屬性（對齊）為alNone；設(shè)置DragKind屬性為dkDock。選擇SpeedButton1，通過它的Glyph 屬性添加上為它準(zhǔn)備好的圖標(biāo)，并從它的Caption 屬性中輸入中文名。begin 。begin :=1。 X, Y: Integer)。1）procedure FormShow(Sender: TObject)。 Shift: TShiftState)。由于內(nèi)容較多，代碼就不一一列出，具體的代碼請參見程序設(shè)計(jì)部分。 數(shù)據(jù)模塊設(shè)計(jì)在Delphi的數(shù)據(jù)庫應(yīng)用程序設(shè)計(jì)中，數(shù)據(jù)庫與SQL Server 服務(wù)器的連接是通過數(shù)據(jù)模塊（Data Module）來實(shí)現(xiàn)的。Caption：dm。設(shè)置fdc_conn控件的Connection屬性。 點(diǎn)擊 后面的…，彈出下面的編輯窗體：選擇左邊的f_user表后，在這里書寫select *from f_user 代碼2) usertable 控件，這是ADO頁的表控件，取名為：usertableUsertable的屬性設(shè)置： 要連接到fdc_conn控件 要指定它要訪問的數(shù)據(jù)表：f_user表。注意：該Datamodule 即dm 窗體沒有事件， 中不用編寫代碼。為了防止無關(guān)人員在數(shù)據(jù)庫中獲取用戶信息，而對應(yīng)用程序進(jìn)行操作，可以先對用戶名和密碼進(jìn)行再加密后存入數(shù)據(jù)庫中，這樣用戶名和密碼就不太容易被盜取，使應(yīng)用程序變得更加安全。 登錄窗體布局圖窗體中的控件及其名稱：窗體中用到的圖片要事先準(zhǔn)備好，保存在工程文件的根目錄下。如果一致，程序就打開主窗體，供登錄者進(jìn)行所需的操作；否則會彈出提示框，要你輸入正確的用戶名和密碼，而且最多只能連續(xù)輸入三次，若三次都不成功，那么程序就退出。 //設(shè)置一個(gè)計(jì)算登錄次數(shù)的參數(shù) { Public declarations } end。 var Key: Word。procedure (Sender: TObject)。begin :=clskyblue。 //Edit1是密碼輸入框end。procedure (Sender: TObject。end。 [1].Text:=39。主窗體的狀態(tài)條 :=true。 :=true。 :=true。 :=true。 end else begin if trim([39。用戶名稱或用戶密碼不正確，請重新輸入39。 。提示信息39。 end else begin :=。 :=[39。樓盤樓房錄入39。]。 :=[39。收款管理39。]。 :=[39。銷售代表統(tǒng)計(jì)39。]。 :=[39。用戶管理39。]。 :=false。end。end。end。procedure (Sender: TObject)。運(yùn)行后的登錄窗口如圖45所示。第5章 功能模塊設(shè)計(jì) 房型資料錄入模塊設(shè)計(jì)房型資料錄入模塊提供對房屋類型的管理，該模塊主要對f_mode表進(jìn)行基本的增加、編輯、刪除和修改等操作。這三個(gè)控件是用來訪問f_mode表的第一個(gè)是表控件TADOTable；第二個(gè)是數(shù)據(jù)源控件TDataSource；第三個(gè)是數(shù)據(jù)集控件TADODataSet。設(shè)置CommandText屬性的步驟是：點(diǎn)擊該屬性后面的…，彈出CommandText 編輯框，按照圖41左邊選擇f_mode表，右邊框中列出要從該表中選擇的字段名。比如說DBEdit1它要連接的字段是房型名稱，那么它的DataField屬性就選擇“房型名稱”，依此類推。（5）在窗體的中央添加一個(gè)TDBGrid組件，占滿差ungtide整個(gè)中央部分。在代碼編輯窗口前面部分要有如下內(nèi)容：uses dmunit；現(xiàn)在來編寫該窗體初始化時(shí)的三段代碼：1. procedure FormCreate(Sender: TObject)。 Shift: TShiftState)。 圖54 房型資料錄入窗體初始化時(shí)的三個(gè)事件三個(gè)事件的詳細(xì)代碼：procedure (Sender: TObject)。procedure (Sender: TObject)。procedure (Sender: TObject。 if key=114 then //F3 if =true then 。 if key=118 then //F7 if =true then 。 if key=38 then 。 圖54 編譯好的房型資料錄入窗體1. 接下來編寫增加房型資料即點(diǎn)擊下方的按鈕時(shí)的代碼，以便能增加房型（戶型）資料。 newid:int64。 decodedate(now,y,m,d)。房型編號39。 if 0 then begin 。 。 end。 //取消按鈕是可見的添加和編輯按鈕變?yōu)榛疑? :=false。 :=false。添加和編輯按鈕變?yōu)榛疑珗D55 開始錄入房型資料錄入完后點(diǎn)擊保存按鈕，保存剛才錄入的資料。 。 :=false。 :=false。 :=false。 :=false。 :=false。end。 if .Locate(39。],[])=true then begin messagebox(,39。,mb_iconinformation)。 if (39。],[])=true then begin messagebox(,39。,mb_iconinformation)。確定要刪除這條數(shù)據(jù)嗎？39。 except MessageBox( ,39。,mb_iconstop)。4.. 點(diǎn)擊代碼如下：procedure (Sender: TObject)。提示信息39。 closeend。圖55 樓盤樓房資料錄入模塊運(yùn)行結(jié)果在該窗口中單擊按鈕會彈出“樓房資料”模塊窗口，見圖56?！裨俳酉聛矸湃胍粋€(gè)TADODataSet（數(shù)據(jù)集）控件，命名為house_dataset?！馎DOTable 表控件，取名為，housetable；●它的Connection屬性仍然設(shè)置為fdc_conn；●TableName屬性為f_build；●加入一個(gè)DataSource（數(shù)據(jù)源控件）控件，命名為dshouse，它的Dataset 屬性指定為housetable（注意不要指定錯(cuò)了）。在上述樓盤資料錄入的窗體中若單擊下方的“樓房”快捷鍵，就會彈出樓房資料錄入窗口。（3）樓房資料錄入模塊還要訪問數(shù)據(jù)表f_build注意：因?yàn)闃欠抠Y料錄入模塊是由樓盤資料錄入模塊中進(jìn)入的，所以樓盤資料錄入模塊必須關(guān)聯(lián)樓房資料錄入模塊，也就是說，在樓盤資料錄入模塊中要Use。（2）該窗體要用到的數(shù)據(jù)表是“f_house”，為此我們要在數(shù)據(jù)模塊中添加必要的數(shù)據(jù)控件。訪問f_build表訪問f_house表的數(shù)據(jù)控件圖57 新添訪問f_house和f_build表的數(shù)據(jù)控件 樓盤樓房資料錄入模塊的界面設(shè)計(jì)1. 設(shè)計(jì)步驟（1）在系統(tǒng)中新建一個(gè)窗體，窗體名為houseform，單元文件名為houseunit，Caption屬性為“樓盤樓房資料錄入”，BorderStyle屬性設(shè)為bsSingle；（2）設(shè)計(jì)好的界面如圖58所示。（2）第二個(gè)要訪問的表是樓盤基本信息表，即f_build表。為此，