【正文】 )； ； End；End；。39。+bsskincheck+39。39。)； ； End； If then Begin ； ；(39。39。+bsskincheck+39。39。)；； End； If then Begin ； ； (39。39。+bsskincheck+39。39。)； ； End； If then Begin ； ；(39。39。+bsskincheck+39。39。)； ； End； If then Begin ； ；(39。39。++39。39。)； ； End； If then Begin ； ； (39。39。++39。39。)； ；End；（4）客源信息查詢主要代碼Begin If then Begin ； ； (39。)； ； ； (39。).AsString:=； ； showmessage(39。).AsString:=； (39。).AsString:=； (39。).AsString:=； (39。).AsString:=； (39。)； ； ； (39。 Exit； End； ； ； (39。此編號已經(jīng)存在，請輸入其他的編號39。39。39。39。select*fromkeyuanwherenum=39。)。)； ； If =0then Begin showmessage(39。39。,strtodate())+39。+formatdatetime(39。39。+39。39。,strtodate())+39。+formatdatetime(39。39。)； ；End；（2）房源信息查詢主要代碼Begin If strtodate () strtodate () then Begin End； ； ；(39。； ； show message(39。).AsString:=39。 Else (39。).AsString:=39。； If then (39。).AsString:=39。 Else (39。).AsString:=39。； If then (39。).AsString:=39。 Else (39。).AsString:=39。 If then (39。).AsString:=39。 Else (39。).AsString:=39。； If then (39。).AsString:=39。 Else (39。).AsString:=39。； If then (39。).AsString:=39。 Else (39。).AsString:=39。； If then (39。).AsString:=39。 Else (39。).AsString:=39。； If then (39。).AsString:=39。 Else (39。).AsString:=39。； If then (39。).AsString:=39。 Else (39。).AsString:=39。； If (39。).AsString:=39。 Else (39。).AsString:=39。； If then (39。).AsString:=39。 Else (39。).AsString:=39。； If then (39。).AsString:=39。 Else (39。).As String:=39。； If then (39。).AsString: =39。 Else (39。).AsString:=39。,strtodate())； If then (39。).AsString:=formatdatetime(39。；(39。).AsString:=39。).AsString:=； (39。).AsString:=； (39。).AsString:=； (39。).AsString:=； (39。).AsString:=； (39。).AsString:=； (39。).AsString:=； (39。).AsString:=； (39。).AsString:=； (39。).AsString:=； (39。).AsString:=； (39。).AsString:=； (39。).AsString:=； (39。).AsString:=； (39。).AsString:=； (39。).AsString:=； (39。).AsString:=； (39。).AsString:=； (39。).AsString: =； (39。).AsString:=； (39。).AsString: =； (39。).AsString: =； (39。).AsString: =； (39。)； ； ； (39。)； Exit； End； Num: =； ； ； (39。)； ； If 0 then Begin show message(39。39。++39。39。)； ； ； ； (39。Begin ； ； (39。最后，我要感謝我的同學(xué)和朋友，在系統(tǒng)設(shè)計過程中，對于我所遇到的問題有過失落的時候，是我的同學(xué)和朋友在一直鼓勵我，為我提供了很多資料方面的幫助。其次，我要感謝我的指導(dǎo)老師王薇老師，系統(tǒng)從開始設(shè)計到成功的運行，王薇老師一直在指導(dǎo)和幫助我，她耐心的講解幫助我解決了許多技術(shù)上的難題。在本次畢業(yè)設(shè)計過程中，在老師的耐心指導(dǎo)及同學(xué)們幫助下，基本上完成了預(yù)定目標(biāo)。我將不斷提高自己，爭取今后在編制程序時，能編寫出有個性且應(yīng)用性較強的數(shù)據(jù)庫管理系統(tǒng)。本次設(shè)計的數(shù)據(jù)庫應(yīng)用系統(tǒng)，可能在實際應(yīng)用中有些功能不到位。在這個系統(tǒng)中，可實現(xiàn)由計算機代替人工執(zhí)行一系列諸如房源信息的查詢、客源信息的查詢、廣告管理及成交管理等操作，還可以對系統(tǒng)進行必要的維護操作，這樣就使管理人員從繁重的工作中解脫出來。測試該模塊要達到的預(yù)期結(jié)果是實現(xiàn)對用戶登錄系統(tǒng)的密碼進行修改、用戶的信息是能正確的添加到數(shù)據(jù)表中、可以正常的對系統(tǒng)的數(shù)據(jù)進行備份和還原，測試的結(jié)果是在向用戶管理窗口中添加這樣一組數(shù)據(jù)“趙剛，123，Zhao gang，操作員”時不能將所添加的新記錄顯示給用戶，通過添加一個DBGrid組件可以實現(xiàn)功能，添加完新記錄后將用戶管理信息表中的記錄通過DBGrid網(wǎng)格顯示給用戶，達到預(yù)期的效果。原因是沒有和合同信息表進行正確的連接，通過修改和數(shù)據(jù)表的連接使得記錄能正確的添加到數(shù)據(jù)表中，實現(xiàn)了預(yù)期的功能。在查詢信息界面的中介編號編輯框中輸入“001”后，單擊“開始查詢”按鈕，雖然可以將編號為“001”的記錄顯示給用戶，但是查詢的效率不高，通過將查詢條件修改為按照客戶是出租方或出售方來進行查詢則每次可以將多條記錄一起查詢出來，基本實現(xiàn)了預(yù)期的功能，提高了查詢的效率。通過在界面上新添加一個DBGrid組件，將它的Dataset設(shè)置成和房源信息表進行連接，實現(xiàn)了預(yù)期的功能。測試該模塊時主要是看能否正確的錄入和查詢房源信息，預(yù)期的結(jié)果是可以實現(xiàn)對房源信息的添加、修改和刪除操作，按照查詢的條件將查詢到的房源記錄顯示給用戶；但測試的結(jié)果不是理想，只是實現(xiàn)了部分功能。白盒測試法是把程序看成裝在一個透明的白盒里，也就是完全了解程序的結(jié)構(gòu)和處理過程，按照程序內(nèi)部的邏輯測試程序，稱為結(jié)構(gòu)測試。測試任何產(chǎn)品都有兩種方法，一個是黑盒測試，一個是白盒測試。數(shù)據(jù)恢復(fù)失敗39。數(shù)據(jù)還原成功39。39。39。39。use master restore database house from disk=39。c: \39。設(shè)計時首先定義一個字符串STR，通過ADOConnection組件和數(shù)據(jù)庫進行連接，然后添加還原數(shù)據(jù)的SQL語句，執(zhí)行SQL語句即可實現(xiàn)數(shù)據(jù)庫還原的功能，主要代碼如下。數(shù)據(jù)備份成功39。39。39。39。backup database house to disk=39。c: \39。設(shè)計時首先定義一個字符串STR，將存放備份后的數(shù)據(jù)的路徑賦值給定義好的字符串，然后添加備份數(shù)據(jù)的SQL語句，執(zhí)行SQL語句即可實現(xiàn)數(shù)據(jù)備份功能，主要代碼如下。刪除成功39。39。39。39。select * from login where num=39。警告39。您真的要刪除此記錄嗎？39。)；數(shù)據(jù)表中的記錄很多，有一些是不需要的，可以將其刪除，通過如下代碼可以實現(xiàn)刪除記錄。).AsString:=；；showmessage(39。).AsString:=；(39。).AsString:=；(39。).AsString:=；(39。)；；；(39。；；(39。該用戶編號已經(jīng)存在,請核實39。當(dāng)向窗體中添加新記錄時，將記錄的編號和用戶管理表中已經(jīng)存在的編號進行比較，下面的語句實現(xiàn)編號在用戶管理表中已經(jīng)存在時出現(xiàn)“該編號已經(jīng)存在”的提示信息。以便和用戶管理表進行連接。Edit組件在窗體中可以向其中輸入數(shù)據(jù)。使用的Combobox組件匯集了列表框和編輯框的功能，在該窗體中可以對用戶的權(quán)限進行選擇。窗體界面如圖513所示。如果要刪除某條記錄，輸入用戶編號，單擊“定位”按鈕將要刪除的記錄顯示出來，單擊“刪除”按鈕即可將該記錄刪除。當(dāng)向用戶編號文本框中輸入用戶編號后，單擊“定位”按鈕可以將屬于該編號的用戶數(shù)據(jù)全都顯示在窗體上。)；（2）用戶管理① 功能說明該窗體模塊主要是對該系統(tǒng)中管理的用戶的名稱、密碼、編號及權(quán)限進行管理的操作，向窗體中的用戶名稱、初始密碼、用戶編號和用戶權(quán)限文本框中輸入數(shù)據(jù)，單擊“添加保存”按鈕對輸入的數(shù)據(jù)進行保存。).AsString:=；；showmessage(39。；(39。您兩次密碼輸入不一致39。當(dāng)用戶更改自己的登錄密碼時，輸入新的密碼后，需要對所輸入的密碼重新輸入一遍進行確認(rèn)，若兩次所輸入的密碼不一致，下面的語句給出兩次密碼不一致的信息提示。Button按鈕組件在該窗體中使用了兩個，分別是確定和取消。Label組件用于用戶提示操作，將其Caption屬性設(shè)置成輸入當(dāng)前用戶編號、輸入當(dāng)前用戶密碼、請輸入新密碼和確認(rèn)新密碼。圖512更改口令窗口② 設(shè)計思路設(shè)計該窗體所用到的組件有：Panel組件，Label組件，Edit組件，Button組件。如果對該窗體沒有其它的操作通過單擊“退出”按鈕退出該窗體。 系統(tǒng)維護窗體的設(shè)計與實現(xiàn)（1）更改口令① 功能說明該窗體模塊主要是對用戶進入該系統(tǒng)時的用戶密碼的更改進行管理的操作。Button組件在該窗體中使用了很多，實現(xiàn)對窗體中的數(shù)字按鈕的添加。幫助菜單包含幫助主題（H）和關(guān)于計算器（A）兩個子菜單，該菜單主要是簡單介紹了一下關(guān)于計算器方面的知識。使用Menu組件在窗體上方添加編輯（E）、查看（V）和幫助（H）三個菜單，編輯菜單包含復(fù)制（C）和粘貼（P）兩個下拉菜單。窗體界面如圖511所示。計算器可以執(zhí)行基本的運算，如加法和減法，以及科學(xué)計算器中的函數(shù)，如對數(shù)和階乘。 實用工具窗體的設(shè)計與實現(xiàn)實用工具模塊主要是計算器功能，是為了方便對出租和出售房屋進行價格的計算。圖510租賃合同管理窗口② 設(shè)計思路設(shè)計該窗體所用到的組件有：Scrollbox組件，Edit組件，Label組件，Panel組件，Button組件。)； exit；end； （2）租賃合同管理① 功能說明該窗體模塊主要對求租房屋的用戶和房屋擁有者所簽訂的租賃房屋合同信息的管理，通過向窗體的文本框中輸入相應(yīng)的數(shù)據(jù)，對簽訂的租賃合同進行添加、添加保存、定位合同數(shù)據(jù)表中的記錄、修改記錄和刪除記錄的操作。if 0 thenbegin showmessage(39。)；；向合同信息表中添加記錄時，將所添加的記錄編號和合同信息表中已有的編號進行比較，通過以下的語句來實現(xiàn)編號在信息表中存在時出現(xiàn)信息提示。；；(39。Edit組件，Label組件，Panel組件，Button組件都包含在Scrollbox組件中。圖59買賣合同管理窗口② 設(shè)計思路設(shè)計該窗體所用到的組件有：Scrollbox組件，Edit組件，Label組件，Panel組件，Button組件。)；； 業(yè)務(wù)管理窗體的設(shè)計與實現(xiàn)（1