房地產(chǎn)信息管理系統(tǒng)的設(shè)計(jì)與開發(fā)(參考版)
2024-08-31 16:52本頁面
【正文】 （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所示?！馎DOTable 表控件，取名為，housetable；●它的Connection屬性仍然設(shè)置為fdc_conn；●TableName屬性為f_build；●加入一個(gè)DataSource（數(shù)據(jù)源控件）控件，命名為dshouse，它的Dataset 屬性指定為housetable（注意不要指定錯(cuò)了）。（2）第二個(gè)要訪問的表是樓盤基本信息表，即f_build表。●再接下來放入一個(gè)TADODataSet（數(shù)據(jù)集）控件，命名為house_dataset。為此，我們首先要在名稱為dm的數(shù)據(jù)模塊(DataModule)中添加幾個(gè)數(shù)據(jù)訪問控件。圖55 樓盤樓房資料錄入模塊運(yùn)行結(jié)果在該窗口中單擊按鈕會彈出“樓房資料”模塊窗口，見圖56。在該窗體中選擇選擇一個(gè)樓盤，單擊窗體下方的樓房按鈕，即可彈出“樓房資料”窗口，該樓房資料從屬于前面選擇的樓盤。 closeend。 exit。提示信息39。請確定是保存或是取消，才能退出窗口39。4.. 點(diǎn)擊代碼如下：procedure (Sender: TObject)。 if =0 then :=false。,mb_iconstop)。,39。 except MessageBox( ,39。房屋資料刪除39。確定要?jiǎng)h除這條數(shù)據(jù)嗎？39。 end。,mb_iconinformation)。,39。],[])=true then begin messagebox(,39。,[39。 if (39。 end。,mb_iconinformation)。,39。],[])=true then begin messagebox(,39。,[39。 if .Locate(39。3. 刪除代碼如下：procedure (Sender: TObject)。end。 :=false。 :=false。 :=true。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 。//房屋窗體中點(diǎn)擊編輯按鈕的代碼begin if =0 then begin exit。添加和編輯按鈕變?yōu)榛疑珗D55 開始錄入房型資料錄入完后點(diǎn)擊保存按鈕，保存剛才錄入的資料。end。 :=false。 :=false。 //取消按鈕是可見的添加和編輯按鈕變?yōu)榛疑? :=false。 //光標(biāo)停在房型名稱輸入控件處 :=true。 end。房型編號39。 。房型編號39。 if 0 then begin 。000139。房型編號39。 if =0 then begin 。 decodedate(now,y,m,d)。begin for i:=0 to 1 do if [i] is tdbedit then tdbedit( [i]).ReadOnly :=false。 newid:int64。 //點(diǎn)擊增加按鈕 var //先設(shè)立三個(gè)局部變量 y,m,d:word。 圖54 編譯好的房型資料錄入窗體1. 接下來編寫增加房型資料即點(diǎn)擊下方的按鈕時(shí)的代碼，以便能增加房型（戶型）資料。 end。 if key=38 then 。 if key=120 then //F9 if =true then 。 if key=118 then //F7 if =true then 。 if key=116 then //F5 if =true then 。 if key=114 then //F3 if =true then 。 Shift: TShiftState)。procedure (Sender: TObject。 。procedure (Sender: TObject)。 //保存按鈕 :=false。 圖54 房型資料錄入窗體初始化時(shí)的三個(gè)事件三個(gè)事件的詳細(xì)代碼：procedure (Sender: TObject)。具體說，按下功能鍵F4，也就是按下了窗體中的。 Shift: TShiftState)。3. procedure FormKeyDown(Sender: TObject。在代碼編輯窗口前面部分要有如下內(nèi)容：uses dmunit；現(xiàn)在來編寫該窗體初始化時(shí)的三段代碼：1. procedure FormCreate(Sender: TObject)。設(shè)計(jì)好的方形資料錄入模塊如圖53所示。（5）在窗體的中央添加一個(gè)TDBGrid組件，占滿差ungtide整個(gè)中央部分。通過該組件中的箭頭控制DBGrid表中數(shù)據(jù)記錄的位置。比如說DBEdit1它要連接的字段是房型名稱，那么它的DataField屬性就選擇“房型名稱”，依此類推。（見圖51），并設(shè)置每個(gè)組件的DataField屬性為相應(yīng)的連接字段。設(shè)置CommandText屬性的步驟是：點(diǎn)擊該屬性后面的…，彈出CommandText 編輯框，按照圖41左邊選擇f_mode表，右邊框中列出要從該表中選擇的字段名。dmode控件（DataSource）只需要設(shè)置它的DataSet屬性為mode，即DataSource的字符集是通過表控件“mode”獲得。這三個(gè)控件是用來訪問f_mode表的第一個(gè)是表控件TADOTable；第二個(gè)是數(shù)據(jù)源控件TDataSource；第三個(gè)是數(shù)據(jù)集控件TADODataSet。 在dm窗體中添加數(shù)據(jù)控件為了能夠訪問f_mode表，需要在md窗體（DataModule1）中加入相關(guān)的數(shù)據(jù)訪問控件，并進(jìn)行相應(yīng)的屬性設(shè)置。第5章 功能模塊設(shè)計(jì) 房型資料錄入模塊設(shè)計(jì)房型資料錄入模塊提供對房屋類型的管理，該模塊主要對f_mode表進(jìn)行基本的增加、編輯、刪除和修改等操作。圖46 預(yù)先竄放在f_user表的信息到此，我們就完成了第一階段的設(shè)計(jì)。運(yùn)行后的登錄窗口如圖45所示。end。procedure (Sender: TObject)。begin 。end。 var Action: TCloseAction)。end。begin 。end。 end。 :=false。用戶名稱39。]。 :=[39。用戶管理39。]。 :=[39。客戶購訂收款統(tǒng)計(jì)39。]。 :=[39。銷售代表統(tǒng)計(jì)39。]。 :=[39。收款安排查詢39。]。 :=[39。收款管理39。]。 :=[39。公司資料錄入39。]。 :=[39。樓盤樓房錄入39。]。 :=[39。操作員: 39。 end else begin :=。 。提示信息39。您已經(jīng)三次輸入不正確，請退出39。 。提示信息39。用戶名稱或用戶密碼不正確，請重新輸入39。]) then begin times:=times+1。 end else begin if trim([39。 :=false。 :=true。 :=true。 :=true。主窗體中的那些菜單因?yàn)榈卿浀氖恰俺売脩簟彼械牟藛味际强刹僮鞯? :=true。 :=true。 :=true。主窗體的狀態(tài)條 :=true。+。 [1].Text:=39。 //按下鍵begin
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1