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

　　

【正文】 顯示出數(shù)據(jù)。 單擊?增加?按鈕時，所有的文本框為可用狀態(tài)，并且設(shè)置為空，?增加?按鈕變?yōu)?保存?按鈕。在輸入完新信息后，單擊?保存?按鈕，判斷樓盤編號是否重復(fù)，對于不重復(fù)的樓盤進行入庫保存。 單擊?刪除?按鈕時，首先詢問是否確定要刪除該信息，在得到確認后取得用戶選定的樓盤信息，根據(jù)戶型編號進行刪 除。 ３５ 單擊?修改?按鈕時，所有的文本框進入可編輯狀態(tài)，修改按鈕變?yōu)楸４姘粹o。修改后，單擊?保存?按鈕，進行數(shù)據(jù)的更新。 添加代碼 （ 1）?增加?按鈕的? Click?事件代碼 Private Sub cmdadd_Click() On Error GoTo adderror If = 保存 Then = 增加 If Trim() = Then MsgBox 樓盤編號不能為空！ , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 請選擇戶型編號！ , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 價格不能為空！ , vbOKOnly + vbExclamation, Exit Sub End If If Not IsNumeric() Then MsgBox 價格請輸入數(shù)字！ , vbOKOnly + vbExclamation, Exit Sub End If Dim i As Integer For i = 0 To 1 If Trim((0)) = Trim() Then MsgBox 樓盤編號重復(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 價格不能為空！ , vbOKOnly + vbExclamation, Exit Sub End If If Not IsNumeric() Then ３７ MsgBox 價格請輸入數(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(確定要刪除嗎？ , 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 建立戶型查詢窗體（ frmBuildingstyleFind） 主要用來對戶型資料進行查詢。在查詢條件中選擇某一種查詢方式，然后輸入查詢的關(guān)鍵字，即可按照要求找出符合條件的數(shù)據(jù)，并在下面的列表中顯示結(jié)果。 界面設(shè)計 添加一個窗體，在窗體上放置 1 個 Frame 控件、 2 個 Label 控件、3 個 CommandButton 控件、 1 個 ComboBox 控件和 3 個 OptionButton控件。設(shè)置完成以后的窗體如圖 7 所示。 ３９ 圖 7 ?戶型查詢?窗體效果圖 工 作流程 窗體加載時在表格中顯示所有的數(shù)據(jù)。在查詢條件部分選擇某一種查詢方式，然后輸入查詢的關(guān)鍵字，再單擊‘查詢’ 按鈕 ，開始執(zhí)行查詢，將查詢的結(jié)果在表格中顯示出來。 添加代碼 綁定菜單、加載窗體、顯示表格、卸載窗體等部分的代碼和戶型登記部分的都相似，下面主要介紹查詢功能的實現(xiàn)。 （ 1）雙擊?查詢?按鈕，添加代碼以實現(xiàn)查詢的功能。 首先通過單選按鈕控件 Value 值判斷所選擇的查詢條件，然后對不同的查詢條件使用不同的 SQL語句。根據(jù)戶型編號查詢的代碼如下： Private Sub cmdfind_Click() On Error GoTo finderror Dim sql As String ４０ 39。顯示查詢結(jié)果前將表格中原有記錄清除 If = True Then 39。選擇戶型編號作為查詢條件 sql = select * from 戶型資料表 where Hst_ID = 39。 amp。 Trim() amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub End If If = True Then 39。選擇建筑面積作為查詢條件 sql = select * from 戶型資料表 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。選擇戶型結(jié)構(gòu)作為查詢條件 sql = select * from 戶型資料表 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）當用戶單擊?全部?按鈕時，表格顯示所有的戶型信息，這和窗體加載時的情況是一樣的，所以直接調(diào)用 Form_Load 事件就可以了。 Private Sub cmdall_Click() ４１ Dim sql As String sql = select * from 戶型資料表 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 二室二廳 一室二廳 一室二廳 復(fù) 式 三室二廳 setgrid setgridhead displaygrid End Sub 建立樓盤查詢窗體（ frmBuildingFind） 本窗體主要用來對樓盤資料進行查詢。在查詢條件中選擇某一種查詢方式，然后輸入查詢的關(guān)鍵字，即可按照要求找出符合條件的數(shù)據(jù)，并在下面的列表中顯示結(jié)果。 界面 設(shè)計 在工程中添加一個窗體，將其命名為 frmBuildingFind。在這個窗體中添加 1 個 Frame 控件、 1 個 Label 控件、 5 個 Text 控件、 3 個CommandButton 控件、 1 個 ComboBox 控件個 5 個 Option 控件。 設(shè)置完成的 frmBuildingFind 窗口如圖 8 所示。 ４２ 圖 8 ?樓盤查詢?窗體效果圖 工作流程 窗體加載時在表格控件中顯示所有的數(shù)據(jù)。在查詢條件部分選擇某一種查詢方式，然后輸入查詢的關(guān)鍵字，再單擊?查詢?按鈕，開始執(zhí)行查詢，查詢的結(jié)果將在表格中顯示出來。 添 加代碼 Option Explicit Dim rs_huxing As New 39。戶型 Dim rs_loupan As New 39。樓盤 (1)?查詢?按鈕的? Click?事件代碼： Private Sub cmdfind_Click() Dim sql As String On Error GoTo loaderror If = True Then sql = select 樓盤資料表 .hos_id, 樓盤資料表 .hos_hstid, 樓盤資料表 .hos_price, amp。 _ 戶型資料表 .Hst_ID,戶型資料表 .Hst_buildarea,戶型資料表 .Hst_usearea,戶 ４３ 型資料表 .Hst_type, amp。 _ 戶型資料表 .Hst_memo,戶型資料表 .Hst_picture from 樓盤資料表 ,戶型資料表 where 樓盤資料表 .hos_hstid = 戶型資料表 .Hst_ID amp。 _ and 樓盤資料表 .hos_id = 39。 amp。 amp。 39。