【正文】 (8)報(bào)表打印功能 : 本功能是附屬在房屋出租查詢窗體和房屋出售查詢窗體里的，可以將查詢得出的任何表格數(shù)據(jù)生成報(bào)表進(jìn)行打印。同時(shí)可以對(duì)數(shù)據(jù)表中的房屋資料進(jìn)行統(tǒng)計(jì)，統(tǒng)計(jì)出未出租、已出租、未出售、已出售的房屋數(shù)量以及所有房屋的總數(shù)量。同時(shí)可以對(duì)數(shù)據(jù)表中的房屋資料進(jìn)行查詢，主要是提供按客戶的姓名進(jìn)行查 詢的功能。如超級(jí)用戶登錄后可以增加管理員帳戶、增加客人帳戶、修改自身密碼、更換操作員；管理員用戶登錄后可以修改自身密碼、更換操作員。 (12)購(gòu)房常識(shí)管理窗體 :主要功能是為購(gòu)房者提供一些購(gòu)房上的小常識(shí)，為購(gòu)房者提供一些方便吧。 (13)文檔管理：主要功能是通過程序調(diào)用 word，打開“房屋租憑合同”、“商品房買賣合同”、“二手房屋買賣合同”、“居間協(xié)議”、“二手房 買賣流程”等電子文檔，供購(gòu)房者和中介公司簽訂合同提供方便。 內(nèi)存： 128M。 顯卡： SVGA 顯示適配器。 (對(duì)應(yīng)窗體Form3)。 將登錄用戶分成三個(gè) 層次：超級(jí)用戶、管理員、普通客戶。 (3)主界面窗體 : 本窗體的功能很簡(jiǎn)單，主要是為進(jìn)入本系統(tǒng)其它所有的功能窗體提供一個(gè)操作方便、界面美觀的基礎(chǔ)平臺(tái)。 (4)房屋出租登記窗體 : 功能是對(duì)房屋出租信息進(jìn)行登記，主 要 是 進(jìn) 行 添 加 出 租 信 息 的 登 記 操 作 。 (5)房屋出租信息查詢窗體 : 功能主要是可以對(duì)所有的房屋出租的信息進(jìn)行查詢。 (6)房屋出售登記窗體 : 功能是對(duì)房屋出售信 息進(jìn)行登記，主 要 是 進(jìn) 行 添 加 出 售 信 息 的 登 記 操 作 。 (7)房屋出售信息查詢窗體 : 功能主要是可以對(duì)所有的房屋出售的信息進(jìn)行查詢。 (8)報(bào)表打印功能 : 本功能是附屬在房屋出租查詢窗體和房屋出售查詢窗體里的，可以將查詢得出的任何表格數(shù)據(jù)生成報(bào)表進(jìn)行打印。 畢業(yè)論文 14 (9)房屋資料登記窗體 : 功能主是要對(duì)房屋信息進(jìn)行登記，包括數(shù)據(jù)的添加、刪除、修改、查詢、統(tǒng)計(jì)等操作。 (10)客戶資料登記窗體 :主要功能是對(duì)客戶資料進(jìn)行登記，包括對(duì)客戶資料數(shù)據(jù)的添加、刪除、修改、查詢等操作。 (11)系統(tǒng)維護(hù)窗體 :主要功能是對(duì)操作數(shù)據(jù)庫(kù)的管理人員進(jìn)行各種資料的維護(hù)。）?？梢詫?duì)購(gòu)房常識(shí)按標(biāo)題進(jìn)行查詢。 (13)文檔管理：主要功能是通過程序調(diào)用 word，打開 “房屋租憑合同”、“商品房買賣合同”、“二手房屋買賣合同”、“居間協(xié)議”、“二手房買賣流程”等電子文檔，供購(gòu)房者和中介公司簽訂合同提供方便。數(shù)據(jù)流圖有三個(gè)基本要素：數(shù)據(jù)流、加工、文件。加工是對(duì)數(shù)據(jù)進(jìn)行的操作。由于本系統(tǒng)只有一步數(shù)據(jù)的錄入，并沒有數(shù)據(jù)的流動(dòng)、加工等，所以比較簡(jiǎn)單。在 Delphi 組件面板上有 ADO組件頁(yè)，其中前 6 個(gè)是 ADO組件。先設(shè)定一下部分組件屬性如下：設(shè)定 DBGrid1組件的 DataSource屬性為 DataSource1，設(shè)定 DataSource1 組件的 Dataset 屬性為ADOTable1。我們選擇 Microsoft Jet OLE DB Provider 驅(qū)動(dòng)。接下來可以點(diǎn)擊“測(cè)試連接”按鈕，如果提示“測(cè)試連接成功”那么說明數(shù)據(jù)庫(kù)可正常連接上。在“所有”頁(yè)面中顯示的是用戶目前設(shè)定的連接屬性，用戶可以再修改。再把 ADOConnection1 組件的 LoginPrompt 屬性設(shè)定為 false，這樣以后程序在運(yùn)行時(shí)就畢業(yè)論文 18 不會(huì)彈出“密碼輸入框”了。接著設(shè)定 ADOTable1 組件的 Connection 屬性為 ADOConnection1，單擊 ADOTable1 組件的 tablename 屬性后的省略號(hào)，將可 圖 33 數(shù)據(jù)連接屬性的連接 以看 到數(shù)據(jù)庫(kù) 中的所有數(shù)據(jù)表名稱列表，從中選擇一個(gè)如“表 1” ,設(shè)定 ADOTable1組件的 Active 屬性為 True,則馬上可以在 DbGrid 中看到表中的數(shù)據(jù)了。 在本程序中 ，因?yàn)楹芏鄦卧家L問數(shù)據(jù)庫(kù)，所以為了方便，畢業(yè)論文 19 使用一個(gè)單元 Datamodule1 ， 在 單 元 里 放 置 一 個(gè) 控 件Adoconnection1 用于統(tǒng)一連接數(shù)據(jù)庫(kù) ,其它單元要訪問時(shí)，只要把 adotalbe 或 adoquery 控件的數(shù)據(jù)源指向 Datamodule1 中的Adoconnection1控件就可以了。 新建數(shù)據(jù)庫(kù)及字段 運(yùn)行 Microsoft 公司的 Office2020 辦公軟件中的 Access數(shù)據(jù)庫(kù)軟件。 ②．然后點(diǎn)擊“空數(shù)據(jù)庫(kù)”，在彈出的“文件新建數(shù)據(jù)庫(kù)”對(duì)話框中鍵入數(shù)據(jù)庫(kù)的名稱，本軟件中應(yīng)寫入 。我們選擇“使用設(shè)計(jì)器”創(chuàng)建表。 ⑤．設(shè)計(jì)好字段名后，關(guān)閉并保存表為“用戶信息表” 。同時(shí)由于系統(tǒng)提供了房屋資料管理的功能，所以要在數(shù)據(jù)庫(kù)中增加“房屋資料”，它主要是用來保存房屋信息的，它的畢業(yè)論文 20 字段和類型如表 4_2： 表 4_1 用戶信息表的描述 字段名稱 數(shù)據(jù)類型 用戶名 文本 密碼 文本 用戶等級(jí) 文本 表 4_2 房屋資料的描述 字段名稱 數(shù)據(jù)類型 位置 文本 樓層 文本 面積 數(shù)字 產(chǎn)權(quán)情況 文本 結(jié)構(gòu) 文本 價(jià)格 數(shù)字 狀態(tài) 文本 因?yàn)檐浖?需要四個(gè)數(shù)據(jù)庫(kù)即“客戶資料”、“中介信息表”、“單位信息表”、“常識(shí)信息表”，所以還要在數(shù)據(jù)庫(kù) 新建這幾個(gè)表，增加記錄的步驟也與上面增加記錄的步驟完全一畢業(yè)論文 21 樣。打開數(shù)據(jù)庫(kù) 就可以直接看到了。 這樣一個(gè)數(shù)據(jù)庫(kù) 。系統(tǒng)的設(shè)計(jì)和實(shí)現(xiàn)如下： 系統(tǒng)項(xiàng)目文件 每一個(gè) Delphi 工程都有一個(gè)項(xiàng)目文件，在本系統(tǒng)中，項(xiàng)目文件如下所示 : program Mdiapp。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 {$R *.RES} var form3:tform3。 form3:=(form3)。 //啟動(dòng)閃現(xiàn)窗體的延時(shí)程序 gs_WorkPath := ExtractFilePath()。房產(chǎn)中介管理系統(tǒng) 39。 (TMainForm, MainForm)。 。連接數(shù)據(jù)庫(kù)出錯(cuò) ,可能原因有 :39。1. 配置文件 的數(shù)據(jù)庫(kù)配置小節(jié)有問題~n~r39。2. 本系統(tǒng)運(yùn)行路徑不對(duì) 39。3. 本機(jī)未安裝數(shù)據(jù)庫(kù)的 Client 端驅(qū)動(dòng)程序 39。4. 其他問題 39。請(qǐng)與管理員聯(lián)系 .39。系統(tǒng)出錯(cuò) 39。 。 // 系統(tǒng)參數(shù)初始化 f_SysParmInit()。 try 。 [1].text :=39。+gs_Login_UserName。工 作日期：39。yyyymmdd39。 // 。 end。 end。 //關(guān)閉閃現(xiàn)窗體 。 end. 閃現(xiàn)窗體的實(shí)現(xiàn) (1)閃現(xiàn)窗體的實(shí)際運(yùn)行圖 (2)實(shí)現(xiàn)的方法： 畢業(yè)論文 27 首先，制作一個(gè)名為 Form3 的窗體。 其次，在其中加入一個(gè) 過程，即一個(gè)延時(shí)程序的過程：makesplah。 begin borderstyle:=bsnone。 update。 end。 。 //關(guān)閉閃現(xiàn)窗體 。 用戶登錄模塊 畢業(yè)論文 28 (1)用戶登錄模塊的窗體效果圖 (2)核心代碼解釋： 在輸入登錄密碼后，按“確定”后觸發(fā)的事件。 begin //錄入檢驗(yàn) if =39。 then begin messagedlg(39。,mtInformation,[mbok],0)。 exit。 //登錄驗(yàn)證 with ADOQ_Temp do begin close。 畢業(yè)論文 29 (39。+39。39。++39。39。)。 //用戶有效性 IF not IsEmpty then begin //登錄 失敗 If Fieldbyname(39。).AsString then begin messagedlg(39。,mterror,[mbok],0)。 if LoginNum=3 then begin messagedlg(39。,mterror,[mbok],0)。 end。39。 exit。用戶名 39。 gs_login_username :=fieldbyname(39。).asstring。用戶等級(jí) 39。 gs_login_Password :=fieldbyname(39。).asstring。 Login:=true。 end。指定的用戶已被注銷！你無權(quán)使用本系統(tǒng)！ 39。 Login:=False。 end。 end。 (1)窗體效果圖如下： 畢業(yè)論文 31 (2)核心代碼解釋： 一是：登錄用戶類型不同，權(quán)限不同的代碼解釋： function ():Boolean。超級(jí)用戶 39。 :=true。 :=true。 end else if gs_login_userlevel=39。 then begin :=true。 :=true。 :=false。 :=false。 :=false。 // Result:=True。 二是：文檔管理菜單中打開 word 文檔的核心代碼解釋： 如打開“文檔租憑合同文檔” : procedure (Sender: TObject)。 varword:variant。\program\doc\d39。39。 (s)。 except showmessage(39。)。 end。 (1)窗體效果圖如下 ： (2)窗體的“保存”按鈕的代碼解釋 procedure (Sender: TObject)。 strCode :string。 // 檢查數(shù)據(jù)錄入的有效性 if f_CheckValue()=False then exit。 try 畢業(yè)論文 35 。 except 。數(shù)據(jù)保存失敗！ 39。警告 39。 exit。 MessageBox(handle,39。,39。,MB_OK+MB_ICONINFORMATION)。ADD39。39。 end。 (1)本模塊的窗體效果圖如下所示： 畢業(yè)論文 36 (2)“查詢”的核心代碼與解釋： procedure (Sender: TObject)。 begin inherited。39。39。 ( 收件號(hào) like 畢業(yè)論文 37 39。39。%39。%39。)39。 AND 39。 狀態(tài) =39。39。未處理 39。39。 AND 39。 狀態(tài) =39。39。已處理 39。39。 AND 39。 狀態(tài) =39。39。已作廢 39。39。 AND 39。 // if strFilter39。 then 畢業(yè)論文 38 strFilter :=copy( strFilter,0,Length(strFilter)5 )。39。 end else begin :=true。 end。 房屋資料登記模塊 (1)本模塊的窗體效果圖如下所示 畢業(yè)論文 39 (2)本模塊中“查詢”按鈕的核心代碼解釋如下：注意這里我用的查詢方法與上面用到的查詢方法不一樣，以體現(xiàn)查詢方法的多樣性。 var s:string。 if 39。 then begin s:=39。+ +39。 。 (s)。 end else begin :=false。 (3)本模塊中還有一個(gè)統(tǒng)計(jì)功能 ，用于 對(duì)數(shù)據(jù)表中的房屋資料進(jìn)行統(tǒng)計(jì)，統(tǒng)計(jì)出未出租、已出租、未出售、已出售的房屋數(shù)量以及所有房屋的總數(shù)量。 。select * from 房屋資料 where 狀態(tài)=已出租 39。 。 :=inttostr(n)。 var sqlstr:string。 if gs_login_password then begin messagedlg(39。,mterror,[mbok],0)。 end。 新 密 碼 兩 次 輸 入 不 一 致 ！畢業(yè)論文 42 39。 exit。UPDATE 用 戶 信 息 表 SET 密碼=39。39。39。 where 用 戶 名=39。39。39。39。 messagedlg(39。,mtinformation,[