基于delphi的房屋中介管理系統的設計與實現-資料下載頁

　　

【正文】 9。39。39。)。 Open。 //用戶有效性 IF not IsEmpty then begin //登錄失敗 If Fieldbyname(39。密碼39。).AsString then begin messagedlg(39。口令錯誤，請修改 ！39。,mterror,[mbok],0)。 LoginNum:=LoginNum+1。 if LoginNum=3 then begin messagedlg(39。非法用戶！你無權使用本系統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。用戶等級39。).asstring。 gs_login_Password :=fieldbyname(39。密碼39。).asstring。 gt_login_time:=now()。 Login:=true。 。 end。 end else begin messagedlg(39。指定的用戶已被注銷！你無權使用本系統！39。,mterror,[mbok],0)。 Login:=False。 。 end。 end。end。procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。begin if key=VK_RETURN then 。end。procedure (Sender: TObject)。begin // Login:=false。 // 初始化用戶選擇列表 with ADOQ_Temp do begin close。 。 (39。SELECT 用戶名 From 用戶信息表39。)。 Open。 while not eof do begin (FieldByName(39。用戶名39。).AsString)。 Next。 end。 close。 end。 := 0。end。 主窗體設計根據以上原則，和數據流程圖子做了下面的主窗體，主菜單分為業務操作，購房常識，統計報表和系統維護。下邊為快捷操作欄，提供了方便用戶操作的接口（房屋出租登記，房租出租查詢，房屋出售登記，房屋出售查詢，購房常識管理，退出系統）。為了實現工具條的拖動，利用了DELPHI的CoolBar控件，控制TBMenu和TBTool兩個ToolBar控件，并且在主窗體最下邊利用了StatusBar，顯示用戶信息和時間信息。圖43 主窗口設計圖在MDI程序中，MDI主窗體的功能是提供子窗口顯示的位置和提供菜單、工具條、狀態條等。房屋登記表的輸入主要通過DELPHI中DataSource的DataSet方法實現，流程圖如下：用戶輸入房屋信息數據合法判斷存入數據庫存入成功？增加完畢顯示錯誤信息圖44 房屋登記流程圖房屋登記輸入界面如圖：圖45 房屋出租登記界面房屋登記表輸入舉例：具體輸入：收件號：001 房屋地址：杭州市下沙高教圓杭州電子科技大學 建筑面積：500 樓層：5，租金：5000元/月。其中，租金，產權證號，聯系人，聯系人電話，身份證號為必須填寫內容，其實竣工日期為標準格式，身份證號碼位數必須在1位一內，其余內容可不填寫。代碼如下：function :Boolean。begin // if =39。39。 then begin MessageBox(handle,39。請輸入租金！39。,39。提示39。,MB_OK+MB_ICONINFORMATION)。 。 Result :=False。 Exit。 end。 // if =39。39。 then begin MessageBox(handle,請輸入聯系人！39。,39。提示39。,MB_OK+MB_ICONINFORMATION)。 。 Result :=False。 Exit。 end。當客戶在確定租用此房后，點“房屋出租”按鈕的激發承租方信息填寫部分。簡要代碼如下：begin inherited。 // strCommandName := TButton(Sender).Caption。 // with ADOQ_Data do begin edit。 // if strCommandName =39。房屋出租39。 then begin FieldByName(39。狀態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。狀態39。).AsString:=39。已作廢39。 FieldByName(39。受理用戶39。).AsString :=gs_login_username。 FieldByName(39。受理日期39。).AsString :=FormatDateTime(39。yyyymmdd39。,f_GetNow())。 end else begin FieldByName(39。狀態39。).AsString:=39。未處理39。 FieldByName(39。成交人姓名39。).AsString:=39。39。 FieldByName(39。成交人電話39。).AsString:=39。39。 FieldByName(39。成交人身份證39。).AsString:=39。39。 FieldByName(39。成交價格39。).AsString:=39。39。 FieldByName(39。成交日期39。).AsString:=39。39。 FieldByName(39。成交截止日期39。).AsString:=39。39。 FieldByName(39。成交備注39。).AsString:=39。39。 FieldByName(39。合同號39。).AsString:=39。39。 FieldByName(39。傭金金額39。).AsString:=39。039。 FieldByName(39。受理用戶39。).AsString:=39。39。 FieldByName(39。受理日期39。).AsString:=39。39。 end。 // post。 end。 // f_StatusChangeProc()。 // if =true then begin 。 end。end。在出租方放棄出租此房屋，點“房屋作廢”將此房屋消去，客戶將無法查詢此房屋情況。當房屋租期滿以后，可根據出租方要求，將此房屋繼續出租。“房屋中介管理系統”中，查詢功能也是一個十分重要的功能，當有很多房屋信息時，如何給用戶呈現出需要的信息和過濾掉不用的信息是一個需要解決的問題。因此，考慮到用戶的需求，系統應該具有一個比較人性化的查詢系統，可以根據不同的要求來進行查詢。查詢的速度要快捷，查詢的結果要準確。“房屋中介信息系統”的查詢系統可以分成下面幾個方面來進行查詢：根據房屋地址，根據房屋狀態，根據戶主，根據房屋朝向等來進行模糊查詢。主要流程見下圖：用戶選擇查詢內容用戶設置查詢條件查詢條件判斷更改查詢條件顯示查詢信息顯示錯誤信息 條件非法 條件合法圖46 房屋信息查詢流程圖如圖所視：圖47 房屋查詢界面簡要代碼如下：begin inherited。 // 構造過濾條件 strFilter := 39。39。 if trim()39。39。 then strFilter := strFilter + 39。 (收件號 like 39。+39。39。39。%39。++39。%39。39。)39。+39。 AND 39。 // if =1 then begin strFilter := strFilter + 39。 狀態=39。+39。39。39。未處理39。39。39。+39。 AND 39。 end else if =2 then begin strFilter := strFilter + 39。 狀態=39。+39。39。39。已處理39。39。39。+39。 AND 39。 end else if =3 then begin strFilter := strFilter + 39。 狀態=39。+39。39。39。已作廢39。39。39。+39。 AND 39。 end。 // if trim()39。39。 then strFilter := strFilter + 39。 (房屋地址 like 39。+39。39。39。%39。++39。%39。39。)39。+39。 AND 39。 if trim()39。39。 then strFilter := strFilter + 39。 房型=39。+39。39。39。39。++39。39。39。39。+39。 AND 39。 if trim()39。39。 then strFilter := strFilter + 39。 朝向=39。+39。39。39。39。++39。39。39。39。+39。 AND 39。 if trim()39。39。 then strFilter := strFilter + 39。 區域=39。+39。39。39。39。++39。39。39。39。+39。 AND 39。 if trim()39。39。 then strFilter := strFilter + 39。 (聯系人 like 39。+39。39。39。%39。++39。%39。39。)39。+39。 AND 39。 if then strFilter := strFilter + 39。 創建日期 = 39。+FormatDateTime(39。yyyymmdd39。,)+39。 AND 39。if then strFilter := strFilter + 39。 創建日期 = 39。+FormatDateTime(39。yyyymmdd39。, )+39。 AND 39。 // if strFilter39。39。 then strFilter :=copy( strFilter,0,Length(strFilter)5 )。 //查詢 if strFilter=39。39。 then begin :=false。 end else begin :=true。 :=strFilter。 end。 // close。end。end.這樣方便于客戶在最短時間內找到，符合自己條件，滿意的房屋。，使用該控件可以快速準確的生成房屋出租或者出售情況，如圖所示。需要說明的是，由于沒有安裝打印機，未能進行測試。由于QuickReport支持預覽，預覽得到的結果如上兩圖所示，可視為打印結果。圖48 房屋報表打印界面介于可能有用戶對房屋的買賣的不了解以及在購房或者租房問題中出現的種種問題，在此版塊向客戶介紹各種購房或者租房知識，也可利用此版塊及時向客戶反饋客戶在購房過程中遇到的特殊情況。如圖：圖49 構房常識管理界面第五章 系統測試 測試的原則軟件測試（Software tes