【正文】 稱(chēng)為dm的數(shù)據(jù)模塊(DataModule)中添加幾個(gè)數(shù)據(jù)訪(fǎng)問(wèn)控件。訪(fǎng)問(wèn)f_build表訪(fǎng)問(wèn)f_house表的數(shù)據(jù)控件圖57 新添訪(fǎng)問(wèn)f_house和f_build表的數(shù)據(jù)控件 樓盤(pán)樓房資料錄入模塊的界面設(shè)計(jì)1. 設(shè)計(jì)步驟（1）在系統(tǒng)中新建一個(gè)窗體，窗體名為houseform，單元文件名為houseunit，Caption屬性為“樓盤(pán)樓房資料錄入”，BorderStyle屬性設(shè)為bsSingle；（2）設(shè)計(jì)好的界面如圖58所示。（3）樓房資料錄入模塊還要訪(fǎng)問(wèn)數(shù)據(jù)表f_build注意：因?yàn)闃欠抠Y料錄入模塊是由樓盤(pán)資料錄入模塊中進(jìn)入的，所以樓盤(pán)資料錄入模塊必須關(guān)聯(lián)樓房資料錄入模塊，也就是說(shuō)，在樓盤(pán)資料錄入模塊中要Use。●ADOTable 表控件，取名為，housetable；●它的Connection屬性仍然設(shè)置為fdc_conn；●TableName屬性為f_build；●加入一個(gè)DataSource（數(shù)據(jù)源控件）控件，命名為dshouse，它的Dataset 屬性指定為housetable（注意不要指定錯(cuò)了）。圖55 樓盤(pán)樓房資料錄入模塊運(yùn)行結(jié)果在該窗口中單擊按鈕會(huì)彈出“樓房資料”模塊窗口，見(jiàn)圖56。提示信息39。,mb_iconstop)。確定要?jiǎng)h除這條數(shù)據(jù)嗎？39。],[])=true then begin messagebox(,39。,mb_iconinformation)。 if .Locate(39。 :=false。 :=false。 :=false。添加和編輯按鈕變?yōu)榛疑珗D55 開(kāi)始錄入房型資料錄入完后點(diǎn)擊保存按鈕，保存剛才錄入的資料。 //取消按鈕是可見(jiàn)的添加和編輯按鈕變?yōu)榛疑? :=false。 。房型編號(hào)39。 newid:int64。 if key=38 then 。 if key=114 then //F3 if =true then 。procedure (Sender: TObject)。 Shift: TShiftState)。（5）在窗體的中央添加一個(gè)TDBGrid組件，占滿(mǎn)差ungtide整個(gè)中央部分。設(shè)置CommandText屬性的步驟是：點(diǎn)擊該屬性后面的…，彈出CommandText 編輯框，按照?qǐng)D41左邊選擇f_mode表，右邊框中列出要從該表中選擇的字段名。第5章 功能模塊設(shè)計(jì) 房型資料錄入模塊設(shè)計(jì)房型資料錄入模塊提供對(duì)房屋類(lèi)型的管理，該模塊主要對(duì)f_mode表進(jìn)行基本的增加、編輯、刪除和修改等操作。procedure (Sender: TObject)。end。 :=false。用戶(hù)管理39。]。 :=[39。收款管理39。]。 :=[39。提示信息39。用戶(hù)名稱(chēng)或用戶(hù)密碼不正確，請(qǐng)重新輸入39。 :=true。 :=true。 [1].Text:=39。procedure (Sender: TObject。begin :=clskyblue。 var Key: Word。如果一致，程序就打開(kāi)主窗體，供登錄者進(jìn)行所需的操作；否則會(huì)彈出提示框，要你輸入正確的用戶(hù)名和密碼，而且最多只能連續(xù)輸入三次，若三次都不成功，那么程序就退出。為了防止無(wú)關(guān)人員在數(shù)據(jù)庫(kù)中獲取用戶(hù)信息，而對(duì)應(yīng)用程序進(jìn)行操作，可以先對(duì)用戶(hù)名和密碼進(jìn)行再加密后存入數(shù)據(jù)庫(kù)中，這樣用戶(hù)名和密碼就不太容易被盜取，使應(yīng)用程序變得更加安全。 點(diǎn)擊 后面的…，彈出下面的編輯窗體：選擇左邊的f_user表后，在這里書(shū)寫(xiě)select *from f_user 代碼2) usertable 控件，這是ADO頁(yè)的表控件，取名為：usertableUsertable的屬性設(shè)置： 要連接到fdc_conn控件 要指定它要訪(fǎng)問(wèn)的數(shù)據(jù)表：f_user表。Caption：dm。由于內(nèi)容較多，代碼就不一一列出，具體的代碼請(qǐng)參見(jiàn)程序設(shè)計(jì)部分。1）procedure FormShow(Sender: TObject)。begin :=1。選擇SpeedButton1，通過(guò)它的Glyph 屬性添加上為它準(zhǔn)備好的圖標(biāo)，并從它的Caption 屬性中輸入中文名。+datetimetostr(now)。這些功能的實(shí)現(xiàn)是靠代碼完成的，稍后介紹這些代碼。設(shè)計(jì)好的二級(jí)菜單如圖34所示。狀態(tài)條工具條主菜單 主窗體頁(yè)面 主窗體界面詳細(xì)設(shè)計(jì)1. 啟動(dòng)Delphi 開(kāi)發(fā)平臺(tái)，將自動(dòng)彈出的窗體設(shè)為主窗體，并命名。 房屋信息表的字段樓房信息表f_house的字段如表4所示。樓房224。所以在設(shè)計(jì)之前，要把模塊之間的關(guān)系梳理清除。Delphi + SQL Server2000房地產(chǎn)信息管理系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā)（講義） 計(jì)算分院短學(xué)期教材（2）房地產(chǎn)信息管理系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā)【摘要】該系統(tǒng)為滿(mǎn)足中小房屋銷(xiāo)售公司業(yè)務(wù)管理的需要，按照一般的房產(chǎn)銷(xiāo)售管理業(yè)務(wù)流程，通過(guò)模塊化設(shè)計(jì),能夠?qū)潜P(pán)、樓房、房屋、客戶(hù)信息，房屋銷(xiāo)售情況及員工業(yè)績(jī)等多種信息進(jìn)行全方位管理。 目錄Delphi + SQL Server2000 1第1章 概要 1： 1 基礎(chǔ)信息管理 1第2章 數(shù)據(jù)庫(kù)設(shè)計(jì) 3 3 4 樓房信息表的字段 5 房屋信息表的字段 5 5 系統(tǒng)流程圖 6第3章 主窗體設(shè)計(jì) 7 7 主窗體界面設(shè)計(jì)概要 7 主窗體界面詳細(xì)設(shè)計(jì) 8 主窗體的第一次代碼設(shè)計(jì) 15 數(shù)據(jù)模塊設(shè)計(jì) 16第4章 登錄模塊設(shè)計(jì) 21 登錄模塊的窗體設(shè)計(jì) 21 登錄窗口樣式 21 登錄模塊的數(shù)據(jù)控件 23 登錄模塊代碼設(shè)計(jì) 24第5章 功能模塊設(shè)計(jì) 30 房型資料錄入模塊設(shè)計(jì) 30 在dm窗體中添加數(shù)據(jù)控件 30 窗體詳細(xì)設(shè)計(jì) 31 房型資料錄入窗體的代碼設(shè)計(jì) 32 樓盤(pán)樓房資料錄入模塊的設(shè)計(jì) 39 做好連接數(shù)據(jù)表的準(zhǔn)備 40 樓盤(pán)樓房資料錄入模塊的界面設(shè)計(jì) 42 樓房資料錄入模塊的設(shè)計(jì) 44第6章 數(shù)據(jù)統(tǒng)計(jì)報(bào)表的設(shè)計(jì) 45 數(shù)據(jù)統(tǒng)計(jì)報(bào)表設(shè)計(jì)概述 45參考文獻(xiàn) 46附錄 47圖目錄 系統(tǒng)流程圖 6 主窗體頁(yè)面 7 一級(jí)菜單設(shè)計(jì)圖 8 【房屋銷(xiāo)售管理】的二級(jí)菜單設(shè)計(jì)圖 9 其余三項(xiàng)菜單的二級(jí)菜單設(shè)計(jì)圖 9 菜單的詳細(xì)內(nèi)容 10 設(shè)置image控件的”picture”屬性以載入背景圖 10 載入背景圖后的樣式 11 將StausBar1控件分成三段 12 狀態(tài)條第三段顯示系統(tǒng)時(shí)間 13 設(shè)計(jì)好的工具欄 14 設(shè)置快捷鍵的Layout屬性 14 選擇DataModule窗體 16 DataModule窗體中的連接控件 17 fdc_conn控件的Connection屬性 17 數(shù)據(jù)庫(kù)連接成功 18 設(shè)置DBLookupCombobox1控件的屬性 22圖43 為登錄窗體訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)要求的數(shù)據(jù)控件 23圖44 登錄用的用戶(hù)表 24圖45 登錄窗口 29圖46 預(yù)先竄放在f_user表的信息 29 編輯CommandText屬性 30 編輯CommandText屬性 31圖53 設(shè)計(jì)好的房型資料錄入窗體 32圖54 房型資料錄入窗體初始化時(shí)的三個(gè)事件 33三個(gè)事件的詳細(xì)代碼： 33圖54 編譯好的房型資料錄入窗體 35圖55 開(kāi)始錄入房型資料 36圖55 樓盤(pán)樓房資料錄入模塊運(yùn)行結(jié)果 39圖55 樓房資料錄入模塊運(yùn)行結(jié)果 40圖56 CommandText Editor窗口 41圖57 新添訪(fǎng)問(wèn)f_house和f_build表的數(shù)據(jù)控件 42圖58 樓盤(pán)樓房資料錄入界面 43表目錄表1 3表2 樓盤(pán)基本信息表f_build 的字段 4表5 客戶(hù)信息表f_customer 的字段 5第1章 概要： 房地產(chǎn)信息管理系統(tǒng)的功能很多，系統(tǒng)大而復(fù)雜，設(shè)計(jì)起來(lái)非常繁瑣，尤其是銷(xiāo)售部分，相互關(guān)聯(lián)的部分很多，窗口套窗口。第2章 數(shù)據(jù)庫(kù)設(shè)計(jì)用SQL Server2000創(chuàng)建數(shù)據(jù)庫(kù)，.數(shù)據(jù)庫(kù)一共有30張表，表名見(jiàn)表1：表1 表名稱(chēng) 功能描述f_appertain_house附屬房產(chǎn)f_build樓盤(pán)基本信息f_buy_factor客戶(hù)購(gòu)買(mǎi)因素信息表f_buy_will客戶(hù)購(gòu)買(mǎi)意向f_customer客戶(hù)信息f_customer_change客戶(hù)更換信息f_customwer_return退房信息表f_customer_work客戶(hù)工作信息f_employees員工信息表f_family_s