【正文】 _ and 樓盤資料表 .hos_id = 39。 amp。在查詢條件部分選擇某一種查詢方式，然后輸入查詢的關(guān)鍵字，再單擊‘查詢’ 按鈕 ，開始執(zhí)行查詢，將查詢的結(jié)果在表格中顯示出來。各個字段為空 = = = = False 39。下面對輸入的有效性進(jìn)行驗(yàn)證 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 Trim() = Then MsgBox 套內(nèi)面積不能為空！ , vbOKOnly + vbExclamation, Exit Sub End If If Not IsNumeric() Then 39。取得圖片名稱 = LoadPicture( amp。 Public Sub displaygrid() 39。將戶型資料加入 Combo1控件子項(xiàng)中 一室二廳 一室二廳 復(fù) 式 三室二廳 gridclick = False 39。此控件不是標(biāo)準(zhǔn)控件，需要用戶自行添加。 表 10 系統(tǒng)主窗體屬性 屬性 屬性值 說明 名稱 frmMain 設(shè)置窗體名稱 Caption “售樓管理系統(tǒng) ” 設(shè)置窗體標(biāo)題 Icon 設(shè)置窗體圖標(biāo) Pictrue 設(shè)置窗體背景圖案 StartUpPosition 2CenterScreen 設(shè)置窗體默認(rèn)位置 Windowstate 2Maximized 設(shè)置窗體默認(rèn)狀態(tài) 主窗體的設(shè)置效果如圖 4 所示。打開數(shù)據(jù)庫 sql = select * from 系統(tǒng)管理表 39。H00C0FFFFamp。 設(shè)計(jì)數(shù)據(jù)庫 根據(jù)功能分析，系統(tǒng)數(shù)據(jù)庫應(yīng)滿足戶型資料、樓盤 資料、客戶資料、合同資料、收費(fèi)資料、收款登記、售樓人員、收款登記和系統(tǒng)管理 9 個功能的需求。其中，售樓人員資料包括姓名、身份證號、出生日期、性別、電子郵件、通信住址、電話號碼、手機(jī)、郵編、人員編號等。其中，戶型信息包括戶型編號、建筑面積、套內(nèi)面積、房型、戶型簡介以及圖片文件。 ? 系統(tǒng)開發(fā)的原則 ： 在系統(tǒng)開發(fā)過程中，要遵循領(lǐng)導(dǎo)參與、優(yōu)化創(chuàng)新、實(shí)用高效、處理規(guī)范化的原則。 另外， 開發(fā)者應(yīng)編寫一個錯誤實(shí)時記錄程序，自動記錄何日、何時、何程序出了何種錯誤 。這樣設(shè)計(jì)出來的程序不易出錯，而且易于維護(hù) 。 MIS 是一門新的學(xué)科， 它跨越了若干個領(lǐng)域，比如管理科學(xué)、系統(tǒng)科學(xué)，運(yùn)籌學(xué)、統(tǒng)計(jì)學(xué)以及計(jì)算機(jī)科學(xué) 。售樓管理系統(tǒng)就是為了實(shí)現(xiàn)這一目標(biāo)而設(shè)計(jì)的，管理人員通過該系統(tǒng)可以及時了解樓盤的動態(tài)銷售情況，還能充分利用電腦的可檢索性、方便、快速地了解有關(guān)銷售樓盤的其他各種詳細(xì)資料，以便及時做出正確決策。 ? 滿足企業(yè)戰(zhàn)略層、管理層、業(yè)務(wù)操作層和企業(yè)全體員工的不同層次和不同方面的需要。一方面，人向 計(jì)算機(jī) 輸入 信息 時應(yīng)當(dāng)盡量采取自然的方式；另一方面， 計(jì)算機(jī) 向人傳遞的信息必須準(zhǔn)確，不致引起誤解或混亂。對于一些相對 固定的數(shù)據(jù)，不應(yīng)讓用戶頻頻輸入（特別是漢字），而應(yīng)讓用戶用鼠標(biāo)輕松選擇。 ? 系統(tǒng)可行性研究 ： 確定系統(tǒng)所要實(shí)現(xiàn)的目標(biāo)。 系統(tǒng)功能分析 通過對用戶需求的具體調(diào)研和分析，確定本系統(tǒng)應(yīng)具備的功能包括房產(chǎn)管理、客戶管理、收費(fèi)管理、售樓管理、系統(tǒng)維護(hù)和退出系統(tǒng)。 （ 2）收費(fèi)查詢管理：收費(fèi)資料查詢部分包括按照收費(fèi)單號查詢、按照樓盤號查詢號、按照交款人查詢和按照交費(fèi)時間范圍等。合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和一致。 在窗體上放置兩個 Label控件、 1個 ComboBox控件、 1個 TextBox控件和 2 個 CommandButton 控件。 _ data source= amp。記錄登錄用戶的類型，以便權(quán)限設(shè)置 Unload Me Exit Sub Else MsgBox 密碼不正確 , vbOKOnly + vbExclamation, End If End If End If t = t + 1 39。 界面設(shè)計(jì) 在工程中添加一個窗體，設(shè)置窗體的屬性，如表 11 所示。在窗體加載事件中輸入如下代碼： 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。 Public Sub setgridhead() 39。 Public Sub displaymingxi() = (getrow, 0) 39。面積必須是數(shù)值 MsgBox 建筑面積請輸入數(shù)字！ , vbOKOnly + vbExclamation, Exit Sub End If If Not IsNumeric() Then MsgBox 套內(nèi)面積請輸入數(shù)字！ , vbOKOnly + vbExclamation, Exit Sub End If 如果當(dāng)前按鈕的狀態(tài)為?保存?狀態(tài)，則需要將新添加的數(shù)據(jù)寫進(jìn)數(shù)據(jù)庫。將表格最后一行數(shù)據(jù)更新 .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() End With = 增 加 39。 界面設(shè)計(jì) 添加一個窗體，在窗體上放置 1 個 Frame 控件、 2 個 Label 控件、3 個 CommandButton 控件、 1 個 ComboBox 控件和 3 個 OptionButton控件。 and amp。樓盤 (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。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub End If Exit Sub finderror: MsgBox End Sub （ 2）當(dāng)用戶單擊?全部?按鈕時，表格顯示所有的戶型信息，這和窗體加載時的情況是一樣的，所以直接調(diào)用 Form_Load 事件就可以了。 首先通過單選按鈕控件 Value 值判斷所選擇的查詢條件，然后對不同的查詢條件使用不同的 SQL 語句。 界面設(shè)計(jì) 與設(shè)計(jì)戶型登記窗體相似，在工程中添 加一個窗體，命名為frmBuildingLogin。輸入合法，開始插入 Dim i As Integer For i = 0 To 1 39。 .bmp) 39。調(diào)用 setgridhead 過程設(shè)置表頭格式 = 0 If Not Then Do While Not = + 1 39?？紤]到代碼的可重用性，定義 displaygrid 過程。首先添加一個 Frame 控件，然后在該控件上添加 9個 Label 控件、 5 個 Text 控件、 4 個 CommandButton 控件、 1 個ComboBox 控件和 1 個 Image 控件。因此需要對工具欄內(nèi)的按鈕響應(yīng)進(jìn)行設(shè)置。有記錄時逐一添加到 cmbName 組合框 Do While = False ((0)) Loop = 0 39。 設(shè)置背景顏色 ForeColor amp。 ?戶型資料?表 表 1 戶型資料表 字段名 數(shù)據(jù)類型 說明 Hst_ID 文本 戶型編號字段 Hst_buildarea 數(shù)字 建筑面積 Hst_usearea 數(shù)字 套內(nèi)面積 Hst_type 文本 房型 Hst_memo 文本 簡介 Hst_picture 文本 保存圖片 ?樓盤資料?表 表 2 樓盤資料表 字段名 數(shù)據(jù)類型 說明 Hos_id 文本 樓盤編號 Hos_hstid 文本 戶型 Hos_price 貨幣 報價 ?合同資料?表 表 3 合同資料表 字段名 數(shù)據(jù)類型 說明 Pct_ID 數(shù)字 合同編號 Pct_houseID 文本 樓盤編號 Pct_buyerid 文本 購買人身份證號 Pct_salesID 文本 銷售人員編號 Pct_housequote 貨幣 樓盤單價 Pct_discountrate 數(shù)字 折扣率 Pct_discountcash 貨幣 折扣金額 Pct_carplaceid 文本 車位號 Pct_carplace 貨幣 車位價格 Pct_basementid 文本 地下室編號 Pct_basement 貨幣 付款方式 Pct_paykind 文本 貨款銀行 Pct_bookdate 時間 /日期 認(rèn)購日期 Pct_pactdate 時間 /日期 簽訂日期 Pct_State 數(shù)字 標(biāo)記是否交款 ?客戶資料?表 表 4 客戶資料表 字段名 數(shù)據(jù)類型 說明 Hon_ID 文本 身份證號 Hon_name 文本 姓名 Hon_sex 文本 性別 Hon_tel 文本 電話 Hon_tel 文本 手機(jī) Hon_job 文本 職業(yè) Hon_birthday 日期 /時間 出生日期 Hon_ 文本 電子郵件 Hon_carcode 文本 車牌號 Hon_zipcode 文本 郵編 Hon_addr 文本 地址 Hon_memo 文本 備注 ?收費(fèi)信息?表 表 5