【正文】 Fee_tel 貨幣 電話調(diào)試費 Fee_gas 貨幣 煤氣初裝費 Fee_member 貨幣 公用設(shè)施費 Fee_other 貨幣 其他費用 Fee_deposit 貨幣 押金 Fee_skr 文本 收款人 Fee_jkr 文本 交款人 ?收款信息?表 表 6 收款登記表 字段名 數(shù)據(jù)類型 說明 １５ Icm_ID 數(shù)字 收款單號 Icm_houseID 文本 樓盤編號 Icm_date 日期 /時間 收款 日期 Icm_money 貨幣 收款金額 Icm_paykind 文本 付款方式 Icm_skr 文本 收款人 Icm_jkr 文本 交款人 ?售樓人員?表 表 7 售樓人員表 字段名 數(shù)據(jù)類型 說明 Sal_ID 文本 人員編號 Sal_sfz 文本 身份證號 Sal_name 文本 姓名 Sal_sex 文本 性別 Sal_birthday 日期 /時間 出生日期 Sal_handset 文本 電話 Sal_handset 文本 手機(jī) Sal_ 文本 電子郵件 Sal_zipcode 文本 郵編 Sal_addr 文本 地址 ?預(yù)計付款?表 １６ 表 8 預(yù)計付款表 字段名 數(shù)據(jù)類型 說明 Add_pactid 數(shù)字 預(yù)計付款序號 Add_date 日期 /時間 預(yù)計付款日期 Add_money 貨幣 付款錢數(shù) Shifoufukuan 文本 是否已付款標(biāo)記 第四章 創(chuàng)建售樓管理系統(tǒng)工程 經(jīng)過上述的分析和設(shè)計，就可以開始系統(tǒng)的創(chuàng)建了。 在 Visual Basic 的菜單欄中依次單擊?文件? ?新建工程?菜單項，在彈出的?新建工程?對話框中選擇?標(biāo)準(zhǔn) EXE 圖標(biāo)?，然后單擊?確定?按鈕，即可創(chuàng)建一個新的工程，默認(rèn)名稱為?工程 1?。 １７ 圖 2 ?工程 1— 工程屬性?對話框 在?工程名稱?文本框中輸入?售樓管理系統(tǒng)?，然后單擊?確定?按鈕 。 創(chuàng)建登錄窗體（ frmLogin） 在正式進(jìn)入系統(tǒng)之前，需要對用戶的身份進(jìn)行確認(rèn)，這是通過用戶登錄來實現(xiàn)的。 界面設(shè)計 在 Visual Basic 中創(chuàng)建工程的時候，系統(tǒng)會自動建立一個新的窗體 Form1。 在窗體上放置兩個 Label控件、 1個 ComboBox控件、 1個 TextBox控件和 2 個 CommandButton 控件。 １８ 表 9 frmLogin 窗體及其中控件屬性列表 控件名稱 屬性 屬性值 說明 frmLogin BackColor amp。 設(shè)置窗體背景顏色 frmLogin BorderStyle Fixed Single 設(shè)置窗體邊框樣式 Caption ?登錄? 設(shè)置窗體標(biāo)題 Icon 設(shè)置窗體圖標(biāo) StartUpPosition 屏幕中心 設(shè)置窗體初始位置 Label1 Caption ?用戶名：? 設(shè)置標(biāo)題 BackColor amp。 設(shè)置背景顏色 ForeColor amp。 設(shè)置字體顏色 Label2 Caption ?密碼? 設(shè)置標(biāo)題 BackColor amp。 設(shè)置背景顏色 ForeColor amp。 設(shè)置字體顏色 cmbName Text ?? 設(shè)置組合框文本為空 TxtPwd Text ?? 設(shè)置文本框文本為空 CmdOk Caption ?確定? 設(shè)置命令按鈕標(biāo)題 cmdCancel Captionn ?取消? 設(shè)置命令按鈕標(biāo)題 調(diào)整控件的大小和位置，設(shè)計狀態(tài)效果如圖 3 所示。定義連接字符串 connectionstring = provider=。 _ data source= amp。 \ connectionstring 39。檢索系統(tǒng)管理表 sql, conn, adOpenKeyset, adLockPessimistic 39。有記錄時逐一添加到 cmbName 組合框 Do While = False ((0)) Loop = 0 39。初始化輸入次數(shù) End Sub （ 3） ?確定?按鈕代碼 Private Sub cmdok_Click() If Trim() = Then 39。判斷用戶名和密碼是否正確 sql = select * from 系統(tǒng)管理表 where czyh=39。 amp。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶 , vbOKOnly + vbExclamation, Else 39。記錄登錄用戶的類型，以便權(quán)限設(shè)置 Unload Me Exit Sub Else MsgBox 密碼不正確 , vbOKOnly + vbExclamation, End If End If End If t = t + 1 39。關(guān)閉數(shù)據(jù)庫連接 Set conn = Nothing Unload Me ２１ End Sub 建立主窗體（ frmMain） 創(chuàng)建主窗體 在 Visual 的工程資源管理器中單擊鼠標(biāo)右鍵，彈出的快捷菜單中依次選擇?添加? ?添加窗體?菜單項，彈出?添加窗體?對話框，單擊?打開?按鈕，即可在售樓管理系統(tǒng)工程中添加一個窗體 Form1，此窗體的各個屬性設(shè)置如表 10 所示。 ２２ 圖 4 主窗體設(shè)計效果圖 添加代碼 主窗體中的代碼不多，基本上都是實現(xiàn)單擊某個菜單選項即彈出相應(yīng)窗體的語句，這些語句將分別在各 個窗體中介紹。因此需要對工具欄內(nèi)的按鈕響應(yīng)進(jìn)行設(shè)置。這里使用? Select…… Case”語句來分辨當(dāng)前單擊的是哪個按鈕。按關(guān)鍵字選擇 Case bt_loupan 39。在窗體的加載事件中輸入如下代碼： Private Sub Form_Load() If username = guest Then = False 39。數(shù)據(jù)庫恢復(fù)不可用 End If End Sub 實現(xiàn)房產(chǎn)管理功能 打開?房產(chǎn)管理?菜單，下有?戶型登記?、?樓盤登記 ?、?戶型查詢?和?樓盤查詢? 4 個子菜單。 界面設(shè)計 在工程中添加一個窗體，設(shè)置窗體的屬性，如表 11 所示。上半部分用一表格控件顯示當(dāng)前所有的戶型資料，這里用到 MSHFlexgrid 控件。按照前述方法打開工程的?部件?對話框，勾選? Microsoft Hierachical Flexgrid ?項即可將其加入到工具箱中。首先添加一個 Frame 控件，然后在該控件上添加 9個 Label 控件、 5 個 Text 控 件、 4 個 CommandButton 控件、 1 個ComboBox 控件和 1 個 Image 控件。 ２５ 圖 5 ?戶型登記?窗體效果圖 工作流程 窗體加載時使用 ADO 進(jìn)行數(shù)據(jù)庫的連接，同時在表格中顯示出數(shù)據(jù)。在輸入完信息后，單擊?保存?按鈕，判斷戶型編號是否重復(fù)，對于不重復(fù)的戶型保存入庫。 單擊?修改?按鈕時，所有的文本 框進(jìn)入可編輯狀態(tài)，?修改?按鈕變?yōu)?保存?按鈕。 添加代碼 ２６ （ 1）在主窗體的菜單中添加代碼，以便用戶單擊菜單時，彈出這個窗體。在窗體加載事件中輸入如下代碼： Option Explicit Dim rs_huxing As New Dim gridclick As Boolean Dim getrow As Long Private Sub Form_Load() Dim sql As String On Error GoTo loaderror sql = select * from 戶型資料表 39。調(diào)用 displaygrid 過程，顯示信息 二室二廳 39。標(biāo)識未選擇記錄 = False 39?？紤]到代碼的可重用性，定義 displaygrid 過程。 ２７ 顯示表格信息前應(yīng)該對表格格式進(jìn)行設(shè)置，如設(shè)置表格的行數(shù)和列數(shù)等，添加一個 setgrid 過程。 設(shè)置表格格式 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。設(shè)置列寬 .ColWidth(i) = 1300 Next i End With Exit Sub seterror: MsgBox End Sub 其中，使用 Rows 和 Cols 屬性設(shè)置總行數(shù)和列數(shù)。 表格表頭的格式是單獨設(shè)置的，以便區(qū)別于其他行。 Public Sub setgridhead() 39。在第一行中逐列設(shè)置顯示文本，作為表頭 = 0 = 戶型編號 = 1 = 建筑面積 ２８ = 2 = 套內(nèi)面積 = 3 = 戶型 = 4 = 圖片文件 = 5 = 戶型簡介 Exit Sub setheaderror: MsgBox End Sub 在 dispalygrid 過程中調(diào)用這兩個過程即可設(shè)置好表格的格式，然后逐行逐列地顯示數(shù)據(jù)。顯示表格信息 Dim i As Integer On Error GoTo displayerror setgrid 39。調(diào)用 setgridhead 過程設(shè)置表頭格式 = 0 If Not Then Do While Not = + 1 39。此時還可以對此記錄進(jìn)行修改和刪除操作。 Private Sub grdHuxing_Click() On Error GoTo griderror gridclick = True = True = True getrow = 39。只有表頭一行 MsgBox 無相關(guān)紀(jì)錄 , vbOKOnly + vbExclamation, Else displaymingxi 39。需要特別說明的是，每個記錄中的?圖片文件?字段存儲了對應(yīng)戶型的示意圖文件名。 Public Sub displaymingxi() = (getrow, 0) 39。第五列不為空，說明有圖片文件 pic = (getrow, 4) 39。 \ICON\ amp。 .bmp) 39。加載文件為空，即將圖像清空 End If End Sub 下面編輯各個按 鈕的功能。 這個按鈕有兩個狀態(tài)，分別是?增加?和?保存?。 如果當(dāng)前的按鈕狀態(tài)為?增加?，則窗體各部分接受新的數(shù)據(jù)輸入。 Private Sub cmdadd_Click() On Error GoTo adderror If = 保 存 Then 39。面積必須是數(shù)值