【文章內(nèi)容簡介】 showmessage(39。您輸入的中介編號已經(jīng)存在，請核實39。)； exit；end；若沒有則單擊“添加保存”將該記錄添加到數(shù)據(jù)表中，通過函數(shù)showmessage(39。保存成功39。)；提示所輸入的記錄已經(jīng)成功的添加到了數(shù)據(jù)表中。通過DBGrid將房源信息數(shù)據(jù)表中的所有記錄都顯示給用戶，方便了用戶對數(shù)據(jù)的查看。（2）房源信息查詢① 功能說明該窗體模塊是為用戶提供通過輸入中介編號或者通過輸入起始時間和結(jié)束時間對房源信息進行查詢的窗體。當使用單點查詢時，向“請輸入中介編號”文本框中輸入中介編號，單擊“開始查詢”按鈕后即可在窗體中顯示出按中介編號查詢的房屋的基本信息。當使用按時間段查詢時，向起始時間和結(jié)束時間文本框中輸入要查詢的時間，單擊“開始查詢”按鈕后即可在窗體中顯示出按時間段查詢的房屋的基本信息。窗體界面如圖54所示。圖54房源信息查詢窗口② 設計思路設計該窗體所用到的組件有：PageControl組件，TabSheet組件，Panel組件，DBGrid組件，Button組件，Label組件，CheckRadioBox組件，Edit組件，ComboBox組件。PageControl組件中的每一個選項卡都是一個TTabSheet組件，在該窗體中它管理單點查詢和時間段查詢兩個TTabSheet組件，每個TTabSheet組件管理著放在它上面的組件，時間段查詢的TTabSheet組件管理一個DBGrid組件，DBGrid組件的作用是負責顯示數(shù)據(jù)庫中的數(shù)據(jù)和接受用戶對數(shù)據(jù)庫的操作。當按時間段查詢時，將房源信息表中符合條件的數(shù)據(jù)集記錄顯示在網(wǎng)格中，若所輸入的時間段在房源信息表中不存在，通過以下的語句實現(xiàn)了給出檢索不到信息的提示。；；(39。select * from houseinfo where dengjiriqi = 39。39。39。 + formatdatetime(39。yyyymmdd39。,strtodate())+39。39。39。39。+39。anddengjiriqi=39。39。39。+formatdatetime(39。yyyymmdd39。,strtodate())+39。39。39。39。)； ； if =0 then beginshowmessage(39。沒有檢索到信息39。)；exit；end；單點查詢的TTabSheet組件管理著Button組件，Label組件，CheckRadioBox組件，Edit組件,ComboBox組件。Button組件的Caption屬性設置成“開始查詢”。當輸入了中介編號后，和房源信息表中的編號進行比較，如果沒有輸入編號，則出現(xiàn)提示，通過以下的語句可以實現(xiàn)。if =39。39。 thenbeginshowmessage(39。您還沒有輸入中介編號，請您輸入39。)；exit；end；如果該編號所對應的記錄在數(shù)據(jù)表中存在，觸發(fā)Button組件的Click事件，將查詢到的記錄顯示給用戶。ComboBox組件匯集了列表框和編輯框的功能，用戶可以從下拉列表中選擇數(shù)據(jù)或者直接向組合框中輸入數(shù)據(jù)。CheckRadioBox組件也稱為復選框，當在窗體中顯示出查詢的記錄時，在 CheckRadioBox組件的前面就會有“√”出現(xiàn)。（3） 廣告管理① 功能說明該窗體模塊是提供對將要進行出租和出售的房屋做廣告宣傳功能的窗體。在窗體中通過輸入廣告名稱、廣告編號、聯(lián)系人、聯(lián)系電話及登錄廣告的起始時間和結(jié)束時間，然后在廣告內(nèi)容中輸入該廣告的主要內(nèi)容，單擊“添加保存”按鈕對輸入的廣告進行保存。單擊“保存”按鈕可以重新輸入需要保存的廣告內(nèi)容。在廣告編號文本框中輸入編號后，單擊“定位”按鈕后即可在窗體中顯示出定位的廣告記錄。當對廣告信息數(shù)據(jù)表中的某條記錄修改完成后，單擊“修改保存”按鈕對修改后的廣告記錄進行保存。如果要刪除某條廣告記錄，先輸入廣告編號進行定位，然后單擊“刪除”按鈕將該記錄刪除。如果對該窗體沒有其它的操作通過單擊“退出”按鈕退出該窗體。窗體界面如圖55所示。圖55廣告管理窗口② 設計思路設計該窗體所用到的組件有：GroupBox組件，Panel組件，DBGrid組件，Button組件，Label組件, Edit組件，Memo組件，DataSource1組件。Panel組件除了具有分隔作用，在窗體設計窗口中將它的BevelInner屬性、Bevel Outer屬性、BevelWidth屬性、BorderStyle屬性和BorderWidth屬性分別設置成相應的形式。GroupBox組件是分組組件，它將該窗體分成了廣告管理基本信息錄入和廣告信息列表顯示兩個部分，廣告管理基本信息錄入部分的Memo組件為用戶提供了一種處理多行文本的方法，在窗體運行后用戶可以向其中輸入多行文字。Button按鈕組件在該窗體中使用了六個分別是添加、添加保存、定位、修改保存、刪除和退出。廣告信息列表顯示部分的DataSource1組件確定和該組件相關聯(lián)的數(shù)據(jù)源對象，通過下面的語句實現(xiàn)打開廣告信息表，將廣告信息表中的所有記錄都顯示出來。； ；(39。select * from guanggao)；； DBGrid組件的DataSource屬性設置成DataSource1，負責顯示數(shù)據(jù)庫中的數(shù)據(jù)和接受用戶對數(shù)據(jù)庫的操作。當向廣告信息表中添加新記錄時，將編號和數(shù)據(jù)表中已經(jīng)存在的廣告編號進行比較，下面的語句實現(xiàn)編號在數(shù)據(jù)表中已經(jīng)存在出現(xiàn)“該編號已經(jīng)存在”的提示信息。if 0 thenbegin showmessage(39。該廣告編號已經(jīng)存在，請輸入其他的編號39。)； exit；end；若數(shù)據(jù)表中沒有該記錄則將記錄添加到數(shù)據(jù)表中并將廣告信息表中的數(shù)據(jù)通過DBGrid組件顯示在網(wǎng)格中，方便用戶的查看。對廣告表中的某條記錄進行修改，若輸入的廣告編號不存在，通過函數(shù)showmessage(39。沒有檢索到記錄,請核實廣告編號39。)。給出提示。刪除數(shù)據(jù)表中的某記錄，通過下面的語句來實現(xiàn)根據(jù)輸入的編號查詢在數(shù)據(jù)表中是否存在編號所對應的記錄，若存在，將該編號對應的記錄刪除。； ；(39。select * from guanggao where num=39。39。39。 +bs +39。39。39。39。)；；if =1 thenbegin；showmessage(39。刪除廣告信息完成39。)；end； （4） 成交管理① 功能說明該窗體模塊實現(xiàn)對求租和求購房屋的用戶通過選擇查詢條件查看房屋的基本信息選擇租或購哪種類型的房屋，如果通過房屋編號進行查詢，輸入房屋編號，單擊“開始查詢”按鈕即可在窗體的查詢結(jié)果中顯示出房屋的基本信息，要進行成交該房屋操作，單擊“選擇成交”按鈕，出現(xiàn)成交完成提示框。若輸入的房屋編號在房屋基本信息數(shù)據(jù)表中不存在，出現(xiàn)“此信息可能已經(jīng)被成交或者是沒有此房源信息”的提示框。如果通過日期進行查詢，選擇日期，單擊“開始查詢”按鈕即可在窗體的查詢結(jié)果中顯示出房屋的基本信息，要進行成交該房屋操作，單擊“選擇成交”按鈕，出現(xiàn)成交完成提示框。若輸入的日期在房屋基本信息數(shù)據(jù)表中不存在，出現(xiàn)“此信息可能已經(jīng)被成交或者是沒有此房源信息”的提示框。如果對該窗體沒有其它的操作通過單擊“退出”按鈕退出該窗體。窗體界面如圖56所示。圖56成交管理窗口② 設計思路設計該窗體所用到的組件有：GroupBox組件, Panel組件, ComboBox組件，Button組件，Label組件, Edit組件，DBGrid組件，DataSource1組件，DataSource2組件。GroupBox組件將該窗體分成了房源基本信息和查詢結(jié)果兩部分，房源基本信息部分的DataSource1組件確定和該組件相關聯(lián)的數(shù)據(jù)源對象，以便和房源信息表進行連接。通過下面的語句來實現(xiàn)根據(jù)所輸入的編號將房源信息表中的符合條件的記錄顯示出來。 ；； (39。select * from houseinfo where num=39。39。39。+.fieldbyname (39。num39。).AsString+39。39。39。39。)；；DBGrid組件的DataSource屬性設置成DataSource1；Visible屬性是邏輯型，取值為True，決定該組件是可見的，用來將房源基本信息表中的所有數(shù)據(jù)顯示在網(wǎng)格中。，以便和房源信息表進行連接。DBGrid組件的DataSource屬性設置成DataSource2，當根據(jù)查詢條件查詢時通過DBGrid將從房源信息表中查詢到的數(shù)據(jù)顯示在網(wǎng)格中，以方便用戶進行房屋成交操作。Panel組件具有分隔的作用，ComboBox組件匯集了列表框和編輯框的功能，在窗體中用戶可以對其選擇按房源編號還是日期進行查詢，以下的語句可以實現(xiàn)它的功能。varstr:string；beginif =39。房源編號39。 thenbeginstr:=39。select * from houseinfo where num=39。39。39。+bsskinedit1.Text+39。39。39。39。+39。 and chengjiao=39。+39。39。39。039。39。39。；end；if =39。日期39。 thenbeginstr:=39。select * from houseinfo where dengjiriqi=39。39。39。+ bsskin+39。39。39。39。+39。and chengjiao=39。+39。39。39。039。39。39。；end；end；Button按鈕組件在該窗體中使用了兩個，分別是開始查詢和選擇成交。Edit組件響應程序運行時用戶輸入的文本內(nèi)容，向Edit中輸入的編號和房源信息表中的編號經(jīng)過比較后才能將新的記錄添加到信息表中。 客戶管理窗體的設計與實現(xiàn)（1）客源信息錄入① 功能說明該窗體模塊是提供對求租和求購房屋及房屋擁有者的所有用戶的基本信息進行錄入及信息維護的窗體。當向窗體的姓名、編號、聯(lián)系電話、類型和Email文本框中輸入數(shù)據(jù)后，單擊“添加保存”按鈕保存新添加的客戶信息，在窗體的客源信息列表中顯示出新添加的記錄。單擊“保存”按鈕可以重新向窗體的各文本框中輸入客戶的數(shù)據(jù)。當向編號文本框中輸入客源信息表中已經(jīng)存在的客戶信息，通過單擊“定位”按鈕可以在客源信息列表中顯示出定位的客戶信息。當對客源信息數(shù)據(jù)表中的某條記錄修改完成后，單擊“修改保存”按鈕對修改后的客戶基本信息進行保存。如果要刪除某條客戶信息，先輸入客戶編號進行定位，然后單擊“刪除”按鈕將該信息刪除。如果對該窗體沒有其它的操作通過單擊“退出”按鈕退出該窗體。窗體界面如圖57所示。圖57客源信息錄入窗口② 設計思路設計該窗體所用到的組件有：GroupBox組件，ComboBox組件，Button組件，Edit組件，Label組件，DBGrid組件，Panel組件，DataSource1組件。該窗體的設計使用GroupBox組件將窗體分成客源基本信息錄入和客源信息列表兩部分，客源基本信息錄入部分的Label組件用于用戶操作提示。Edit組件用來接收向窗體中輸入的數(shù)據(jù)。ComboBox組件匯集了列表框和編輯框的功能，用戶可以從下拉列表中選擇數(shù)據(jù)或者直接向組合框中輸入數(shù)據(jù)。，通過下面的語句可以實現(xiàn)打開客源信息表，將客源信息表中的所有記錄顯示出來。；；(39。select * from keyuan39。)；；將DBGrid組件的DataSource屬性設置成DataSource1；Visible屬性是邏輯型，取值為True，決定該組件是可見的。向客源信息表中添加記錄時先將編號和信息表中的編號進行比較，若所輸入的編號已經(jīng)存在，下面的語句給出信息提示。if 0 thenbegin showmessage(39。此編號已經(jīng)存在，請輸入其他的編號39。)； exit；end；若編號不存在則將記錄添加到信息表中，并將添加完新記錄的客源基本信息通過DBGrid顯示在網(wǎng)格中，方便用戶的查看。Panel組件也叫面板，可在其上放置其他組件，常用于組織程序界面。Button按鈕組件，在該窗體中使用了六個分別是添加、添加保存、定位、修改保存、刪除和退出。（2）客源信息查詢① 功能說明該窗體模塊提供對求租和求購房屋及房屋擁有者的所有用戶的基本信息通過根據(jù)名稱查詢或根據(jù)編號查詢兩個查詢條件進行查詢的管理，根據(jù)名稱查詢時，向文本框中輸入名稱，單擊“開始查詢”按鈕進行查詢。根據(jù)編號查詢時，向文本框中輸入編號，單擊“開始查詢”按鈕進行查詢。通過DBGrid組件可以將要查詢的客戶的基本信息顯示出來。如果對該窗體沒有其它的操作通過單擊“退出”按鈕退出該窗體。窗體界面如圖58所示。圖58客源信息查詢窗口② 設計思路設計該窗體所用到的組件有： GroupBox組件, CheckRadioBox組件，DBGrid組件，Button組件，Edit組件，Label組件, DataSource1組件。該窗體的設計使用GroupBox組件將窗體中所使用到的其他組件都放到其中，CheckRadioBox組件稱為復選框，用戶可以對它做出選擇。若選擇按出售方進行查詢，通過下面的語句可以實現(xiàn)按所選擇的查詢方式進行查詢的功能。if then begin ； ；(39。select * from keyuan where leixing=39。39。39。+ bskin +39。39。39。39。)； ；end；Edit組件接收用戶向窗體中輸入的數(shù)據(jù)。Button按鈕組件在該窗體中使用了兩個，分別是開始查詢和退出。，通過下面的四條語句可以實現(xiàn)根據(jù)所輸入的名稱從數(shù)據(jù)表中查詢出匹配的記錄，并通過DBGrid組件將客源信息表中匹配的數(shù)據(jù)顯示在網(wǎng)格中。；；(39。select * from keyuan where name =39。39。39。+ bsskin +39。39。39。39。)