【正文】 39。 _ 戶型資料表 .Hst_memo,戶型資料表 .Hst_picture from 樓盤資料表 ,戶型資料表 where 樓盤資料表 .hos_hstid = 戶型資料表 .Hst_ID amp。 添 加代碼 Option Explicit Dim rs_huxing As New 39。在這個窗體中添加 1 個 Frame 控件、 1 個 Label 控件、 5 個 Text 控件、 3 個CommandButton 控件、 1 個 ComboBox 控件個 5 個 Option 控件。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub End If Exit Sub finderror: MsgBox End Sub （ 2）當用戶單擊?全部?按鈕時，表格顯示所有的戶型信息，這和窗體加載時的情況是一樣的，所以直接調用 Form_Load 事件就可以了。選擇戶型結構作為查詢條件 sql = select * from 戶型資料表 where Hst_type = 39。選擇建筑面積作為查詢條件 sql = select * from 戶型資料表 where Hst_buildarea between amp。 amp。 首先通過單選按鈕控件 Value 值判斷所選擇的查詢條件，然后對不同的查詢條件使用不同的 SQL語句。 ３９ 圖 7 ?戶型查詢?窗體效果圖 工 作流程 窗體加載時在表格中顯示所有的數(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 樓盤編號重復！ , 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） 主要用來對戶型資料進行查詢。在輸入完新信息后，單擊?保存?按鈕，判斷樓盤編號是否重復，對于不重復的樓盤進行入庫保存。 ３４ 界面設計 與設計戶型登記窗體相似，在工程中添 加一個窗體，命名為frmBuildingLogin。按鈕標題為 增 加 時 = 39。將插入的記錄保存 MsgBox 添加成功！ , vbOKOnly + vbExclamation, 同時需要更新表格控件的內(nèi)容，將新的數(shù)據(jù)添加到表格中。 39。輸入合法，開始插入 Dim i As Integer For i = 0 To 1 39。 On Error GoTo adderror If = 保 存 Then 39。 Private Sub cmdadd_Click() On Error GoTo adderror If = 保 存 Then 39。 這個按鈕有兩個狀態(tài)，分別是?增加?和?保存?。 .bmp) 39。第五列不為空，說明有圖片文件 pic = (getrow, 4) 39。需要特別說明的是，每個記錄中的?圖片文件?字段存儲了對應戶型的示意圖文件名。 Private Sub grdHuxing_Click() On Error GoTo griderror gridclick = True = True = True getrow = 39。調用 setgridhead 過程設置表頭格式 = 0 If Not Then Do While Not = + 1 39。在第一行中逐列設置顯示文本，作為表頭 = 0 = 戶型編號 = 1 = 建筑面積 ２８ = 2 = 套內(nèi)面積 = 3 = 戶型 = 4 = 圖片文件 = 5 = 戶型簡介 Exit Sub setheaderror: MsgBox End Sub 在 dispalygrid 過程中調用這兩個過程即可設置好表格的格式，然后逐行逐列地顯示數(shù)據(jù)。 表格表頭的格式是單獨設置的，以便區(qū)別于其他行。 設置表格格式 Dim i As Integer On Error GoTo seterror With grdHuxing .ScrollBars = flexScrollBarBoth .FixedCols = 1 .Rows = + 1 .Cols = 6 .SelectionMode = flexSelectionByRow For i = 0 To .Rows 1 39。考慮到代碼的可重用性，定義 displaygrid 過程。調用 displaygrid 過程，顯示信息 二室二廳 39。 添加代碼 ２６ （ 1）在主窗體的菜單中添加代碼，以便用戶單擊菜單時，彈出這個窗體。在輸入完信息后，單擊?保存?按鈕，判斷戶型編號是否重復，對于不重復的戶型保存入庫。首先添加一個 Frame 控件，然后在該控件上添加 9個 Label 控件、 5 個 Text 控 件、 4 個 CommandButton 控件、 1 個ComboBox 控件和 1 個 Image 控件。上半部分用一表格控件顯示當前所有的戶型資料，這里用到 MSHFlexgrid 控件。數(shù)據(jù)庫恢復不可用 End If End Sub 實現(xiàn)房產(chǎn)管理功能 打開?房產(chǎn)管理?菜單，下有?戶型登記?、?樓盤登記 ?、?戶型查詢?和?樓盤查詢? 4 個子菜單。按關鍵字選擇 Case bt_loupan 39。因此需要對工具欄內(nèi)的按鈕響應進行設置。關閉數(shù)據(jù)庫連接 Set conn = Nothing Unload Me ２１ End Sub 建立主窗體（ frmMain） 創(chuàng)建主窗體 在 Visual 的工程資源管理器中單擊鼠標右鍵，彈出的快捷菜單中依次選擇?添加? ?添加窗體?菜單項，彈出?添加窗體?對話框，單擊?打開?按鈕，即可在售樓管理系統(tǒng)工程中添加一個窗體 Form1，此窗體的各個屬性設置如表 10 所示。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then