【導(dǎo)讀】樓人員從一大堆合同中解放出來(lái)，將樓盤(pán)的銷(xiāo)售推向?成了解決當(dāng)前房地產(chǎn)售樓管理的當(dāng)務(wù)之急。售樓管理系統(tǒng)就是為了實(shí)。售樓盤(pán)的其他各種詳細(xì)資料，以便及時(shí)做出正確決策。對(duì)房產(chǎn)數(shù)據(jù)進(jìn)行添加、修改、刪除等操作。此外，方便的查詢(xún)功能可。戶(hù)管理功能，才能更加迅速地了解客戶(hù)的需求動(dòng)態(tài)。售樓管理，系統(tǒng)的核心，實(shí)現(xiàn)對(duì)樓盤(pán)銷(xiāo)售的數(shù)據(jù)、合同簽訂情。況、客戶(hù)付費(fèi)等情況的管理。公司推出的小型數(shù)據(jù)庫(kù)開(kāi)發(fā)語(yǔ)言，由于其使用方便，硬件要求不高，使用計(jì)算機(jī)對(duì)樓盤(pán)進(jìn)行管理，具有檢索迅速、查找方便、提高企業(yè)管理的效率，節(jié)約相關(guān)的管理成本，將樓盤(pán)的銷(xiāo)售。MIS是一項(xiàng)系統(tǒng)工程，不是只靠一些計(jì)算機(jī)開(kāi)。計(jì)算機(jī)技術(shù)是MIS得以實(shí)施的主要技術(shù)。各項(xiàng)管理制度是MIS建設(shè)成功的基礎(chǔ)。息必須準(zhǔn)確，不致引起誤解或混亂。報(bào)表打印是MIS必備的功能之一，而且打印之前常常需要計(jì)算。分開(kāi)設(shè)計(jì)，雖然消耗時(shí)間，但易于整個(gè)MIS系統(tǒng)的維護(hù)。目前，Windows下的應(yīng)用軟件無(wú)論大小，其安裝

　　

【正文】 = 保存 Then = 增加 If Trim() = Then MsgBox 樓盤(pán)編號(hào)不能為空！ , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 請(qǐng)選擇戶(hù)型編號(hào)！ , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 價(jià)格不能為空！ , vbOKOnly + vbExclamation, Exit Sub End If If Not IsNumeric() Then MsgBox 價(jià)格請(qǐng)輸入數(shù)字！ , vbOKOnly + vbExclamation, Exit Sub End If Dim i As Integer For i = 0 To 1 If Trim((0)) = Trim() Then MsgBox 樓盤(pán)編號(hào)重復(fù)！ , vbOKOnly + vbExclamation, Exit Sub End If Next i (0) = Trim() (1) = Trim() (2) = CCur(Trim()) MsgBox 添加成功！ , vbOKOnly + vbExclamation, = 增加 With grdLoupan .Rows = + 1 .Row = 1 .Col = 0 .Text = Trim() .Col = 1 .Text = Trim() .Col = 2 .Text = Trim() .Col = 3 .Text = Trim() .Col = 4 .Text = Trim() .Col = 5 .Text = Trim() .Col = 6 .Text = Trim() End With Else = 保存 = = = False = False End If Exit Sub adderror: MsgBox （ 2）?修改?按鈕的? Click?事件代碼 Private Sub cmdmodify_Click() On Error GoTo modifyerror = False If Trim() = Then MsgBox 價(jià)格不能為空！ , vbOKOnly + vbExclamation, Exit Sub End If If Not IsNumeric() Then MsgBox 價(jià)格請(qǐng)輸入數(shù)字！ , vbOKOnly + vbExclamation, Exit Sub End If Dim i As Integer For i = 0 To 1 If Trim((0)) = Trim() Then (0) = Trim() (1) = Trim() (2) = CCur(Trim()) MsgBox 修改成功！ , vbOKOnly + vbExclamation, With grdLoupan .Row = getrow .Col = 1 .Text = Trim() .Col = 6 .Text = Trim() End With Exit Sub End If Next i modifyerror: MsgBox End Sub （ 3）?刪除?按鈕的? Click?事件代碼 Private Sub cmddel_Click() Dim answer As String Dim delete_row As String On Error GoTo delerror answer = MsgBox(確定要?jiǎng)h除嗎？ , vbYesNo, ) If answer = vbYes Then Dim i As Integer For i = 0 To 1 If Trim((0)) = Trim() Then MsgBox 刪除成功！ , vbOKOnly + vbExclamation, With grdLoupan .RemoveItem getrow End With Exit Sub End If Next i Else Exit Sub End If Exit Sub delerror: MsgBox End Sub （ 4）?退出?按鈕的? Click?事件代碼 Private Sub cmdexit_Click() Unload Me End Sub 建立戶(hù)型查詢(xún)窗體（ frmBuildingstyleFind） 主要用來(lái)對(duì)戶(hù)型資料進(jìn)行查詢(xún)。在查詢(xún)條件中選擇某一種查詢(xún)方式，然后輸入查詢(xún)的關(guān)鍵字，即可按照要求找出符合條件的數(shù)據(jù)，并在下面的列表中顯示結(jié)果。 界面設(shè)計(jì) 添加一個(gè)窗體，在窗體上放置 1 個(gè) Frame 控件、 2 個(gè) Label 控件、3 個(gè) CommandButton 控件、 1 個(gè) ComboBox 控件和 3 個(gè) OptionButton控件。設(shè)置完成以后的窗體如圖 7 所示。 圖 7 ?戶(hù)型查詢(xún)?窗體效果圖 工作流程 窗體加載時(shí)在表格中顯示所有的數(shù)據(jù)。在查詢(xún)條件部分選擇某一種查詢(xún)方式，然后輸入查詢(xún)的關(guān)鍵字，再單擊‘查詢(xún)’ 按鈕 ，開(kāi)始執(zhí)行查詢(xún)，將查詢(xún)的結(jié)果在表格中顯示出來(lái)。 添加代碼 綁定菜單、加載窗體、顯示表格、卸載窗體等部分的代碼和戶(hù)型登記部分的都相似，下面主要介紹查詢(xún)功能的實(shí)現(xiàn)。 （ 1）雙擊?查詢(xún)?按鈕，添加代碼以實(shí)現(xiàn)查詢(xún)的功能。 首先通過(guò)單選按鈕控件 Value 值判斷所選擇的查詢(xún)條件，然后對(duì)不同的查詢(xún)條件使用不同的 SQL 語(yǔ)句。根據(jù)戶(hù)型編號(hào)查詢(xún)的代碼如下： Private Sub cmdfind_Click() On Error GoTo finderror Dim sql As String 39。顯示查詢(xún)結(jié)果前將表格中原有記錄清除 If = True Then 39。選擇戶(hù)型編號(hào)作為查詢(xún)條件 sql = select * from 戶(hù)型資料表 where Hst_ID = 39。 amp。 Trim() amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub End If If = True Then 39。選擇建筑面積作為查詢(xún)條件 sql = select * from 戶(hù)型資料表 where Hst_buildarea between amp。 CInt(Trim()) amp。 and amp。 CInt(Trim()) = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub End If If = True Then 39。選擇戶(hù)型結(jié)構(gòu)作為查詢(xún)條件 sql = select * from 戶(hù)型資料表 where Hst_type = 39。 amp。 Trim() amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub End If Exit Sub finderror: MsgBox End Sub （ 2）當(dāng)用戶(hù)單擊?全部?按鈕時(shí)，表格顯示所有的戶(hù)型信息，這和窗體加載時(shí)的情況是一樣的，所以直接調(diào)用 Form_Load 事件就可以了。 Private Sub cmdall_Click() Dim sql As String sql = select * from 戶(hù)型資料表 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 二室二廳 一室二廳 一室二廳 復(fù) 式 三室二廳 setgrid setgridhead displaygrid End Sub 建立樓盤(pán)查詢(xún)窗體（ frmBuildingFind） 本窗體主要用來(lái)對(duì)樓盤(pán)資料進(jìn)行查詢(xún)。在查詢(xún)條件中選擇某一種查詢(xún)方式，然后輸入查詢(xún)的關(guān)鍵字，即可按照要求找出符合條件的數(shù)據(jù)，并在下面的列表中顯示結(jié)果。 界 面設(shè)計(jì) 在工程中添加一個(gè)窗體，將其命名為 frmBuildingFind。在這個(gè)窗體中添加 1 個(gè) Frame 控件、 1 個(gè) Label 控件、 5 個(gè) Text 控件、 3 個(gè)CommandButton 控件、 1 個(gè) ComboBox 控件個(gè) 5 個(gè) Option 控件。 設(shè)置完成的 frmBuildingFind 窗口如圖 8 所示。 圖 8 ?樓盤(pán)查詢(xún)?窗體效果圖 工作流程 窗體加載時(shí)在表格控件中顯示所有的數(shù)據(jù)。在查詢(xún)條件部分選擇某一種查詢(xún)方式，然后輸入查詢(xún)的關(guān)鍵字，再單擊?查詢(xún)?按鈕，開(kāi)始執(zhí)行查詢(xún)，查詢(xún)的結(jié)果將在表格中顯示出來(lái)。 添加代碼 Option Explicit Dim rs_huxing As New 39。戶(hù)型 Dim rs_loupan As New 39。樓盤(pán) (1)?查詢(xún)?按鈕的? Click?事件代碼： Private Sub cmdfind_Click() Dim sql As String On Error GoTo loaderror If = True Then sql = select 樓盤(pán)資料表 .hos_id, 樓盤(pán)資料表 .hos_hstid, 樓盤(pán)資料表 .hos_price, amp。 _ 戶(hù)型資料表 .Hst_ID,戶(hù)型資料表 .Hst_buildarea,戶(hù)型資料表 .Hst_usearea,戶(hù)型資料表 .Hst_type, amp。 _ 戶(hù)型資料表 .Hst_memo,戶(hù)型資料表 .Hst_picture from 樓盤(pán)資料表 ,戶(hù)型資料表 where 樓盤(pán)資料表 .hos_hstid = 戶(hù)型資料表 .Hst_ID amp。 _ and 樓盤(pán)資料表 .hos_id = 39。 amp。 amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。打開(kāi)數(shù)據(jù)庫(kù) setgrid setgridhead displaygrid Exit Sub End If 39。按照樓號(hào)查詢(xún) If = True Then sql = select 樓盤(pán)資料表 .hos_id,樓盤(pán)資料表 .hos_hstid, 樓盤(pán)資料表 .hos_price, amp。 _ 戶(hù)型資料表 .Hst_ID,戶(hù)型資料表 .Hst_buildarea,戶(hù)型資料表 .Hst_usearea,戶(hù)型資料表 .Hst_type, amp。 _ 戶(hù)型資料表 .Hst_memo,戶(hù)型資料表 .Hst_pict