【正文】 ,m,d:word。 //代表年、月、日 s:string。 newid:int64。 i:integer。begin for i:=0 to 1 do if [i] is tdbedit then tdbedit( [i]).ReadOnly :=false。 :=false。 decodedate(now,y,m,d)。 //該函數(shù)分解所指定的日期為年、月、日 s:=inttostr(y)。 if =0 then begin 。 //mode是表控件，Append是設置數(shù)據(jù)文件的搜索路徑 (39。房型編號39。).AsString :=s+39。000139。 end。 if 0 then begin 。 newid:=strtoint([39。房型編號39。])+1。 。 (39。房型編號39。).AsString :=inttostr(newid)。 end。 。 //光標停在房型名稱輸入控件處 :=true。 //頁面下方的保存按鈕是可見的 :=true。 //取消按鈕是可見的添加和編輯按鈕變?yōu)榛疑? :=false。 :=false。 :=false。 :=false。 :=false。 :=false。end。 該段代碼編寫完后，編譯程序，得到下圖所示結果。添加和編輯按鈕變?yōu)榛疑珗D55 開始錄入房型資料錄入完后點擊保存按鈕，保存剛才錄入的資料。2. 編輯按鈕的代碼如下：（對原先錄入的數(shù)據(jù)進行修改）procedure (Sender: TObject)。//房屋窗體中點擊編輯按鈕的代碼begin if =0 then begin exit。 end。 。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=true。 :=true。 :=false。 :=false。 :=false。 :=false。 :=false。end。修改完后，點擊保存按鈕。3. 刪除代碼如下：procedure (Sender: TObject)。 //點擊房屋信息錄入框的刪除按鈕begin .Open 。 if .Locate(39。房屋編號39。,[39。房屋編號39。],[])=true then begin messagebox(,39。不能刪除該房屋資料，因為在房屋付款資料里有對它的記錄39。,39。提示信息39。,mb_iconinformation)。 exit。 end。 。 if (39。房屋編號39。,[39。房屋編號39。],[])=true then begin messagebox(,39。不能刪除該房屋資料，因為在房屋銷售付款安排資料里有對它的記錄39。,39。提示信息39。,mb_iconinformation)。 exit。 end。 try if messagebox( ,39。確定要刪除這條數(shù)據(jù)嗎？39。,39。房屋資料刪除39。,mb_yesno+mb_iconquestion)=idyes then if =false then 。 except MessageBox( ,39。刪除數(shù)據(jù)失敗39。,39。房屋資料刪除39。,mb_iconstop)。 end。 if =0 then :=false。end。4.. 點擊代碼如下：procedure (Sender: TObject)。begin if =true then begin messagebox(,39。請確定是保存或是取消，才能退出窗口39。,39。提示信息39。,mb_iconinformation)。 exit。 end。 closeend。 樓盤樓房資料錄入模塊的設計該模塊能夠?qū)潜P（即我們平時所說的小區(qū)）的詳細資料進行管理，并提供對樓盤中所有樓房（即幾號樓或大廈）的資料進行管理。在該窗體中選擇選擇一個樓盤，單擊窗體下方的樓房按鈕，即可彈出“樓房資料”窗口，該樓房資料從屬于前面選擇的樓盤。該模塊運行結果如圖56所示。圖55 樓盤樓房資料錄入模塊運行結果在該窗口中單擊按鈕會彈出“樓房資料”模塊窗口，見圖56。圖55 樓房資料錄入模塊運行結果 做好連接數(shù)據(jù)表的準備（1）樓盤、樓房資料錄入模塊要訪問數(shù)據(jù)庫中的兩個表，第一個表是樓房基本信息表，即f_house表。為此，我們首先要在名稱為dm的數(shù)據(jù)模塊(DataModule)中添加幾個數(shù)據(jù)訪問控件?！竦谝粋€當然是ADOTable 表控件，取名為，housetable1；●它的Connection屬性設置為fdc_conn（連接數(shù)據(jù)庫的Connection控件）；●TableName屬性為f_house（要打開的數(shù)據(jù)表名）；●接下來加入一個DataSource（數(shù)據(jù)源控件）控件，命名為dshouse，它的Dataset（數(shù)據(jù)集）屬性指定為housetable1（所有數(shù)據(jù)來源于表控件）。●再接下來放入一個TADODataSet（數(shù)據(jù)集）控件，命名為house_dataset。 它的Connection屬性設定為fdc_conn，它還有一個很重要的“CommandText”屬性需要設置，具體操作是：單擊屬性的“…”，彈出CommandText Editor：圖56 CommandText Editor窗口在編輯窗體的左邊指定表名“f_house”，在右邊的編輯框內(nèi)寫入“select * from f_house”，表示要訪問表中的全部字段。（2）第二個要訪問的表是樓盤基本信息表，即f_build表。為此，在dm窗體中放置表控件和數(shù)據(jù)源控件，并將它們關聯(lián)起來?！馎DOTable 表控件，取名為，housetable；●它的Connection屬性仍然設置為fdc_conn；●TableName屬性為f_build；●加入一個DataSource（數(shù)據(jù)源控件）控件，命名為dshouse，它的Dataset 屬性指定為housetable（注意不要指定錯了）。訪問2個數(shù)據(jù)表（f_house，f_build）的訪問控件放置好后的dm窗體如圖57所示。訪問f_build表訪問f_house表的數(shù)據(jù)控件圖57 新添訪問f_house和f_build表的數(shù)據(jù)控件 樓盤樓房資料錄入模塊的界面設計1. 設計步驟（1）在系統(tǒng)中新建一個窗體，窗體名為houseform，單元文件名為houseunit，Caption屬性為“樓盤樓房資料錄入”，BorderStyle屬性設為bsSingle；（2）設計好的界面如圖58所示。圖58 樓盤樓房資料錄入界面 樓房資料錄入模塊的設計一個樓盤也就是一個小區(qū)里會有若干棟大樓，每棟大樓都有它的名稱、樓房類型（有高層、小高層、單體別墅等）房屋的數(shù)量（戶數(shù)）等多項數(shù)據(jù)需要輸入。在上述樓盤資料錄入的窗體中若單擊下方的“樓房”快捷鍵，就會彈出樓房資料錄入窗口。1. 設計步驟（1）在系統(tǒng)中新建一個窗體，命名為house_houseform，Caption屬性為“樓房資料”。（2）該窗體要用到的數(shù)據(jù)表是“f_house”，為此我們要在數(shù)據(jù)模塊中添加必要的數(shù)據(jù)控件。●ADOTable 表控件，取名為，housetable1；●它的Connection屬性仍然設置為fdc_conn；●TableName屬性為f_house；●加入一個DataSource（數(shù)據(jù)源控件）控件，命名為dshousetable，它的Dataset 屬性指定為house_dataset。（3）樓房資料錄入模塊還要訪問數(shù)據(jù)表f_build注意：因為樓房資料錄入模塊是由樓盤資料錄入模塊中進入的，所以樓盤資料錄入模塊必須關聯(lián)樓房資料錄入模塊，也就是說，在樓盤資料錄入模塊中要Use。第6章 數(shù)據(jù)統(tǒng)計報表的設計 數(shù)據(jù)統(tǒng)計報表設計概述參考文獻[1]亞林. Delphi管理信息系統(tǒng)項目方案精解[M]. 北京：航空出版社，2006附錄