【導(dǎo)讀】身的競爭力，各單位都在定制和購買各項(xiàng)業(yè)務(wù)應(yīng)用軟件，運(yùn)用高科技手段進(jìn)行科學(xué)，作為房屋銷售公司的管理者，希望能夠?qū)Ψ课蒌N售事務(wù)管理的整個(gè)流程。狀態(tài)，信息資料的情況了如指掌，使其可以做出科學(xué)的決策。作為工作人員期望能夠。避免繁瑣的手工操作，甩掉傳統(tǒng)的手工記錄方式，達(dá)到事半功倍的效果。其實(shí)現(xiàn)管理系統(tǒng)化、規(guī)范化、自動(dòng)化的計(jì)算機(jī)系統(tǒng)就顯得很有必要。利用計(jì)算機(jī)技術(shù),實(shí)現(xiàn)管理系的自動(dòng)化,規(guī)范化就是這個(gè)問題最好的解決方法.主要闡述以軟件工程。業(yè)數(shù)據(jù)庫開發(fā)語言作為實(shí)現(xiàn)手段的數(shù)據(jù)庫管理軟件的開發(fā)過程分析和理論研究。的設(shè)計(jì)與實(shí)現(xiàn)，程序的編寫與調(diào)試等幾個(gè)階段來完成對(duì)房屋銷售管理系統(tǒng)的開發(fā)。盡說明，并在文中對(duì)一些源程序作了詳細(xì)的解釋。

　　

【正文】 用戶 CHAR 20 YES 密碼 CHAR 12 YES 權(quán)限 SMALLINT 10 YES 中介信息表 ： 表 53 中介信息表 項(xiàng)次 字段名稱 字段大小 數(shù)據(jù)類型 必填字段 01 編號(hào) 長整型 自動(dòng)編號(hào) 02 收件號(hào) 10 文本 NO 03 類型 10 文本 NO 04 房屋地址 100 文本 NO 05 房型 20 文本 NO 06 朝向 20 文本 NO 07 樓層 長整型 數(shù)字 NO 08 產(chǎn)別 20 文本 NO 09 價(jià)格 貨幣 NO 10 區(qū)域 20 文本 NO 11 竣工日期 日期 /時(shí)間 NO 12 產(chǎn)權(quán)證號(hào) 50 文本 NO 13 房屋設(shè)施 200 文本 NO 14 裝修情況 100 文本 NO 15 交通情況 100 文本 NO 16 使用年限 貨幣 NO 17 房屋面積 貨幣 NO 18 周圍環(huán)境 200 文本 NO 19 備注 200 文本 NO 20 聯(lián)系人 50 文本 YES 21 聯(lián)系人電話 40 文本 YES 22 聯(lián)系人電話 2 40 文本 NO 23 聯(lián)系人身份證號(hào)碼 17 文本 YES 24 創(chuàng)建用戶 20 文本 NO 18 25 創(chuàng)建日期 日期 /時(shí)間 NO 26 成交人姓名 20 文本 YES 27 成交人電話 20 文本 YES 28 成交人身份證號(hào) 20 文本 YES 29 成交價(jià)格 貨幣 YES 30 成交日期 日期 /時(shí)間 YES 31 成交截止日期 日期 /時(shí)間 NO 32 成交備注 200 文本 NO 33 合同號(hào) 20 文本 NO 34 傭金金額 貨幣 YES 35 受理用戶 20 文本 NO 36 受 理日期 日期 /時(shí)間 NO 37 狀態(tài) 10 文本 YES 19 第 6 章 系統(tǒng)實(shí)現(xiàn) 人機(jī)交互子系統(tǒng)是用戶所能直接看到的，是給用戶的第一感覺，他現(xiàn)在已經(jīng)成為判斷一個(gè)軟件好壞的重要標(biāo)準(zhǔn)。在設(shè)計(jì)人機(jī)交互子系統(tǒng)的時(shí)候，必須遵循以下原則： 設(shè)計(jì)出一個(gè)易用、低錯(cuò)、適應(yīng)、美觀的界面，能夠使用戶自如的完成操作，而用戶不需要有較高的計(jì)算機(jī)專業(yè)知識(shí)和技能。 主要特點(diǎn)： （ 1）易用性。 前期對(duì)項(xiàng)目的大量細(xì)致的分析，以及對(duì)用戶群的調(diào)查，充分考慮實(shí)際操作的各項(xiàng)細(xì)節(jié)，使得普通用戶 在不需要查看用戶手冊(cè)的情況下亦能很自如的操作系統(tǒng)，并對(duì)操作流程有清晰的了解。 （ 2）低出錯(cuò)率 為了防止用戶在操作中出現(xiàn)各種失誤，界面的設(shè)計(jì)在各個(gè)環(huán)節(jié)都給與用戶必要的提示，同時(shí)也在空間排布上引導(dǎo)用戶按照正確的順序進(jìn)行操作，大大減少操作出錯(cuò)的幾率，也減低了操作者的勞動(dòng)強(qiáng)度。 （ 3）合理性 父窗體應(yīng)該在屏幕的中心位置，子窗體應(yīng)該在父窗體的左上角或中心，界面退出或關(guān)閉的按鈕不應(yīng)該放在易點(diǎn)的位置，對(duì)數(shù)據(jù)進(jìn)行無法恢復(fù)的操作，應(yīng)有提示信息，給用戶有選擇放棄的機(jī)會(huì)。對(duì)錯(cuò)誤的提示要準(zhǔn)確、清楚、有足夠多的信息。 （ 4）高適應(yīng)性 系統(tǒng)面向的用戶群有三類，對(duì)于不同的用戶，他們擁有不同的操作目的、操作流程以及不同的權(quán)限，如何考慮系統(tǒng)的適應(yīng)性也是界面設(shè)計(jì)時(shí)的重要部分，本系統(tǒng)可以面向不同的用戶提供不同的界面，實(shí)現(xiàn)高適應(yīng)性。 （ 5）美觀性 系統(tǒng)界面以白色和灰色為主色調(diào)，輔助以少量鮮艷的小圖，給人的感覺是清晰明了，賞心悅目，長時(shí)間工作于此系統(tǒng)不會(huì)有視覺疲勞感，充分考慮色彩與結(jié)構(gòu)的關(guān)系，并通過精心的點(diǎn)綴引導(dǎo)用戶的視線順序完成操作。 設(shè)計(jì)出一個(gè)易用、低錯(cuò)、適應(yīng)、美觀的界面，能夠使用戶自如的完成操作，而用戶不需要有較高的計(jì)算機(jī)專業(yè)知識(shí)和技能。 用戶登陸窗體設(shè)計(jì) 用戶登陸窗體使為了保證系統(tǒng)的安全性，只有許可用戶才可進(jìn)入，如果輸入密碼和用戶名不匹配則不允許進(jìn)入系統(tǒng)。如圖 20 圖 61 用戶登陸窗口 本窗體是為三種不同的用戶（一般用戶，超級(jí)用戶，管理員）提供選擇以進(jìn)入不同的模塊，滿足不同用戶的需求，采用了常用的登錄框來界面顯示，其中，接收用戶名采用下拉選擇框，選項(xiàng)來自數(shù)據(jù)庫中用戶表格，主要流程如下圖： 圖 62 用戶登陸流程圖 用戶輸入登錄信息 判斷合法性 查詢數(shù)據(jù)庫驗(yàn)證密碼 密碼正確 登錄成功 登錄失敗 21 該窗體是在 Application 運(yùn) 行前，以模態(tài)對(duì)話框的形式顯示出來。 Dialog 分為模態(tài)和非模態(tài)兩種，模態(tài)對(duì)話框是指用戶必須對(duì)對(duì)話框進(jìn)行操作才可以繼續(xù)。非模態(tài)對(duì)話框可以不必對(duì)它進(jìn)行任何操作。這里我們必須要使用模態(tài)對(duì)話框，因?yàn)槲覀冎挥挟?dāng)用戶輸入用戶名和密碼相匹配的時(shí)候，點(diǎn)擊 “ 確定 ” 按鈕進(jìn)入系統(tǒng)。口令 Edit 是要求用戶輸入密碼，輸入的字符都已 ‘*’ 的形式顯示出來，這就需要調(diào)整 Edit 的PasswordChar 屬性設(shè)置為 ‘*’ 。在 “ 確定 ” 按鈕的激發(fā)事件里寫入驗(yàn)證代碼： procedure (Sender: TObject)。 begin //錄入檢驗(yàn) if =39。39。 then begin messagedlg(39。請(qǐng) 選 擇 用 戶 名 ！ 39。,mtInformation,[mbok],0)。 ()。 exit。 end。 //登錄驗(yàn)證 with JDBCQ_Temp do begin close。 。 (39。SELECT * From 用戶信 息表 Where 用 戶 名=39。+39。39。39。39。++39。39。39。39。)。 Open。 //用戶有效性 IF not IsEmpty then begin //登錄失敗 If Fieldbyname(39。密碼 39。).AsString then begin messagedlg(39?？诹铄e(cuò)誤，請(qǐng)修改 ！ 39。,mterror,[mbok],0)。 LoginNum:=LoginNum+1。 if LoginNum=3 then 22 begin messagedlg(39。非法用戶！你無權(quán)使用本系統(tǒng) 39。,mterror,[mbok],0)。 。 end。 :=39。39。 。 exit。 end //登錄成功 else begin //保存登錄的用戶信息 gs_login_userid :=fieldbyname(39。用戶名 39。).asstring。 gs_login_username :=fieldbyname(39。用戶名 39。).asstring。 gs_login_userlevel :=fieldbyname(39。用戶等級(jí) 39。).asstring。 gs_login_Password :=fieldbyname(39。密碼 39。).asstring。 gt_login_time:=now()。 Login:=true。 。 end。 end else begin messagedlg(39。指定的用戶已被注銷！你無權(quán)使用本系統(tǒng)！ 39。,mterror,[mbok],0)。 Login:=False。 。 end。 end。 end。 procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。 begin if key=VK_RETURN then 23 。 end。 procedure (Sender: TObject)。 begin // Login:=false。 // 初始化用戶選擇列表 with JDBCQ_Temp do begin close。 。 (39。SELECT 用戶名 From 用戶信息表 39。)。 Open。 while not eof do begin (FieldByName(39。用戶名 39。).AsString)。 Next。 end。 close。 end。 := 0。 end。 根據(jù)以上原則，和 數(shù)據(jù)流程圖子做了下面的主窗體，主菜單分為業(yè)務(wù)操作，購房常識(shí)，統(tǒng)計(jì)報(bào)表和系統(tǒng)維護(hù)。下邊為快捷操作欄，提供了方便用戶操作的接口（房屋出租登記，房租出租查詢，房屋出售登記，房屋出售查詢，購房常識(shí)管理，退出系統(tǒng)）。為了實(shí)現(xiàn)工具條的拖動(dòng)，利用了 JSP 的 CoolBar 控件，控制 TBMenu 和 TBTool 兩個(gè)ToolBar 控件，并且在主窗體最下邊利用了 StatusBar，顯示用戶信息和時(shí)間信息。 24 圖 63 主窗口設(shè)計(jì) 在 MDI 程序中， MDI 主窗體的功能是提供子窗口顯示的位置和提供菜單、工具條 、狀態(tài)條等。 房屋租售登記表輸入 房屋登記表的流程圖如下： 圖 64 房屋登記流程圖 房屋 管理 輸入界面如圖： 用戶輸入房屋信 息 數(shù)據(jù)合法判斷 存入數(shù)據(jù)庫 存入成功？ 增加完畢 顯示錯(cuò)誤信息 25 圖 65 房屋出租 管理 界面 房屋登記表輸入舉例：具體輸入：收件號(hào)： 001 房屋地址：杭州市下沙高教圓杭州電子科技大學(xué) 建筑面積： 500 樓層： 5，租金： 5000 元 /月。 其中，租金，產(chǎn)權(quán)證號(hào)，聯(lián)系人，聯(lián)系人電話，身份證號(hào)為必須填寫內(nèi)容，其實(shí)竣工日期為標(biāo)準(zhǔn)格式，身份證號(hào)碼位數(shù)必須在 1 位一內(nèi)，其余內(nèi)容可 不填寫。代碼如下： function :Boolean。 begin // if =39。39。 then begin MessageBox(handle,39。請(qǐng)輸入租金！ 39。,39。提示 39。,MB_OK+MB_ICONINFORMATION)。 。 Result :=False。 Exit。 end。 // if =39。39。 then begin MessageBox(handle, 請(qǐng) 輸 入 聯(lián) 系 人 ！ 39。,39。 提示39。,MB_OK+MB_ICONINFORMATION)。 。 26 Result :=False。 Exit。 end。 當(dāng)客戶在確定租用此房后，點(diǎn) “ 房屋出租 ” 按鈕的激發(fā)承租方信息填寫部分。簡要代碼如下： begin inherited。 // strCommandName := TButton(Sender).Caption。 // with JDBCQ_Data do begin edit。 // if strCommandName =39。房屋出租 39。 then begin FieldByName(39。狀態(tài) 39。).AsString:=39。已處理 39。 FieldByName(39。 受理用戶39。).AsString :=gs_login_username。 FieldByName(39。 受理日期39。).AsString :=FormatDateTime(39。yyyymmdd39。,f_GetNow())。 end else if strCommandName =39。房屋作廢 39。 then begin FieldByName(39。狀態(tài) 39。).AsString:=39。已作廢 39。 FieldByName(39。 受理用戶39。).AsString :=gs_login_username