【導讀】數(shù)據(jù)庫進行支持。在整個系統(tǒng)開發(fā)過程中，充分利用了Visual的特色進行開發(fā)，使。其開發(fā)工作快速完成。度的可擴充性，對系統(tǒng)進行添加修改。本系統(tǒng)功能完善，系統(tǒng)由四大功能管理模塊組成，它。各模塊均可以實現(xiàn)增加、為了保證系統(tǒng)的安全性，在系統(tǒng)設計階段，可對用戶口令進行修。示出了本系統(tǒng)的實用性，經(jīng)濟性。第二章售樓管理系統(tǒng)．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．6頁。２．２．２售樓管理系統(tǒng)的界面特點．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．7頁。２．３．１售樓管理系統(tǒng)的開發(fā)方式．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．8頁。２．３．３售樓管理系統(tǒng)的開發(fā)過程．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．11頁

　　

【正文】 號“ 設置標簽標題 Label3 Caption “建筑面積“ 設置標簽標題 Label4 Caption “平方米“ 設置標簽標題 Label5 Caption “套內(nèi)面積“ 設置標簽標題 Label6 Caption “平方米“ 設置標簽標題 Label7 Caption “ ?“ 設置標簽標題 Label8 Caption “簡介“ 設置標簽標題 Label9 Caption “圖片“ 設置標簽標題 Image1 borderstyle 0none 設置圖片邊框樣式 Text1 名稱 “ txthuxingnum “ 設置文本框名稱 Text “ “ 設置文本框內(nèi)容 Text2 名稱 “ txtjianzhumianji “ 設置文本框名稱 Text “ “ 設置文本框內(nèi)容 Text3 名稱 “ txttaomianji“ 設置文本框名稱 Text “ “ 設置文本框內(nèi)容 Text4 名稱 “ txtfangxing “ 設置文本框名稱 Text “ “ 設置文本框內(nèi)容 Text5 名稱 “ txtjianjie“ 設置文本框名稱 Text “ “ 設置文本框內(nèi)容 Combo1 Text 選擇戶型 設置組合框文本 Mshglexgrid 名稱 “ grdhuxing“ 設置表格控件的名稱 B． 窗體設計狀態(tài)效果如下： ： 窗 體加載是使用 ADO 進行數(shù)據(jù)庫的連接，同時在表格中顯示出數(shù)據(jù)。單擊“增加”按鈕時，所有的文本框為可用狀態(tài)，并且設置為空，“增加”按鈕變?yōu)椤氨４妗卑粹o。在輸入完信息后，單擊“保存”按鈕，判斷戶型編號是否重復，對于不重復的戶型保存如庫。 ： Option Explicit Dim rs_huxing As New Dim gridclick As Boolean Dim select_row As String Dim getrow As Long Private Sub cmdadd_Click() On Error GoTo adderror If = 保 存 Then 39。下面對輸入的有效性進行驗證 If Trim() = Then MsgBox 戶型編號不能為空！ , vbOKOnly + vbExclamation, Exit Sub 4．建立樓盤登記窗體 這個窗體主要用來對戶型資料進行登記，包括添加、修改、刪除等各種操作。 A. 界面設計 控件名稱 屬性 屬性值 說明 frmbuildinglogin caption “樓盤登記” 設置窗體標題 Startupposition 屏幕中心 設置窗體默認位置 Borderstyle Fixedsingle 設置窗體邊界樣式 Icon 設置窗體圖標 Command1 caption “增加” 設置命令按鈕標題 名稱 cmdadd 設置命 令按鈕名稱 Command2 caption “修改” 設置命令按鈕標題 名稱 Cmdmodify 設置命令按鈕名稱 Command3 caption “刪除” 設置命令按鈕標題 名稱 Cmddel 設置命令按鈕名稱 Command4 caption “退出” 設置命令按鈕標題 名稱 cmdexit 設置命令按鈕名稱 Frame1 caption “樓盤登記” 設置框架標題 Label1 caption “樓盤編號” 設置標簽標題 Label2 caption “樓 號” 設置標簽 標題 Label3 caption “單元” 設置標簽標題 Label4 caption “樓層” 設置標簽標題 Label5 caption “房號” 設置標簽標題 Label6 caption “戶型編號” 設置標簽標題 Label7 caption “ ?” 設置標簽標題 Label8 caption “報價” 設置標簽標題 Label9 caption “元 /平方米” 設置標簽標題 Label10 caption “房型資料” 設置標簽標題 Label11 caption “” 設置標簽標題 Combol1 Text “選擇戶型” 設置組合框文本 Text1 名稱 Txtnum 設置文本框名稱 Text “” 設置文本框為空 Text2 名稱 Txtlouhao 設置文本框名稱 Text “” 設置文本框為空 Text3 名稱 Txtdanyuan 設置文本框名稱 Text “” 設置文本框為空 Text4 名稱 Txtlouceng 設置文本框名稱 Text “” 設置文本框為空 Text5 名稱 Txtfanghao 設置文本框名稱 Text “” 設置文本框為空 Text6 名稱 Txthuxingnum 設置文本框名稱 Text “” 設置文本框為空 Text7 名稱 Txtprice 設置文本框名稱 Text “” 設置文本框為空 grdloupan 名稱 Grdloupan 設置表格控件名稱 B． 窗體設計狀態(tài)效果如下： ： 窗體加載時使用 ado 進行數(shù)據(jù)庫的連接，同時在表格中顯示出數(shù)據(jù)。 單擊“增加” 按鈕變成“保存”按鈕。在輸入完新信息后，單擊“保存”按鈕，判斷樓盤編號是否重復，對于不重復的樓盤 進行入庫保存。 ： Option Explicit Dim rs_loupan As New 39。樓盤 Dim rs_huxing As New 39。戶型 Dim select_row As String 39。記錄選擇的樓盤 Dim getrow As Long Dim gridclick As Boolean Private Sub cmdmodify_Click() On Error GoTo modifyerror = False If Trim() = Then MsgBox 價格不能為空！ , vbOKOnly + vbExclamation, Exit Sub ５．建立戶型查詢窗體。 主要用來對戶型資料進行查詢。在查詢條件中選擇某一種查詢方式，然后輸入查詢的關鍵字，既可按照要求找出符合條件的數(shù)據(jù)，并在下面的列表中顯示結果。 A. 界面設計 控件名稱 屬性 屬性 值 說明 frmbuildingstylefind Caption “戶型查詢” 設置窗體標題 Startupposition “屏幕中心” 設置窗體默認位置 frmbuildingstylefind Borderstyle Fixed single 設置窗體邊框樣式 icon 設置窗體圖標 Command1 caption “查詢” 設置命令按鈕標題 名稱 Cmdfind 設置命令按鈕名稱 Command2 Caption “所有” 設置命令按鈕標題 名稱 cmdall 設置命令按鈕名稱 Command3 Caption “退出” 設置命令按鈕標題 名稱 cmdexit 設置命令按鈕名稱 Frame Caption “戶型編號” 設置命令按鈕標題 Label1 caption 設置標簽標題 Label2 Caption “平方米” 設置標簽標題 Option1 Caption “戶型編號：” 設置單選按鈕標題 Option2 Caption “建筑面積：” 設置單選按鈕標題 Option3 Caption “戶型結構：” 設置單 選按鈕標題 Combo1 Style Dropdown list 設置組合框名稱 Text1 名稱 Txthuxingnum 設置文本框名稱 Text “” 設置文本框文本 Text2 名稱 Txtmianji1 設置文本框名稱 Text “” 設置文本框文本 Text3 名稱 Txtmianji2 設置文本框名稱 Text “” 設置文本框文本 grdhuxing 名稱 Grdhuxing 設置表格控件名稱 B. 窗體狀態(tài)如下： C. 工作流程 窗體加載時在表格中顯示所有的數(shù)據(jù)。在查詢條 件部分選擇某一種查詢方式，然后輸入查詢的關鍵字，再單擊“查詢”按鈕，開始執(zhí)行查詢，將查詢的結果在表格中顯示出來。 D. 原代碼 Option Explicit Dim rs_loupan As New 39。樓盤 Dim rs_huxing As New 39。戶型 Private Sub cmdexit_Click() Unload Me End Sub Private Sub cmdfind_Click() On Error GoTo finderror Dim sql As String 39。顯示查詢結果前將表格中原有記錄清除 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 第六章 性能測試與分析 每個系統(tǒng)程 序開發(fā)過程中不可缺少的部分是測試。沒有測試，就不能保證應用程序的質(zhì)量，實際應用后，不能為用戶提供必要的功能以完成他們的工作，甚至會造成更為嚴重的事故，尤其是系統(tǒng)中的費用跟時間相關的時候，時間段差一兩天都會使費用計算錯誤。測試意味著運行應用程序以發(fā)現(xiàn)錯誤。我們尋找應用程序錯誤的過程稱為質(zhì)量保證過程。這意味著應用程序及其文檔是正確、完整、可靠的和便于維護的，并且達到了用戶所有的特殊要求和規(guī)范。測試的成功與否是由發(fā)現(xiàn)的錯誤數(shù)目以及他們相對的危害來衡量的。發(fā)現(xiàn)錯誤越多，系統(tǒng)的危害越大。把他們找出來，記錄下來，并改正 這些錯誤。 一 系統(tǒng)登錄測試 運行售樓信息管理系統(tǒng)的執(zhí)行文件售樓系統(tǒng) .exe，進入登錄系統(tǒng)界面如圖 ，在沒有選擇用戶名或輸入密碼的情況下，單擊登錄出現(xiàn)如圖 所示對話框。 圖 圖 只有輸入正確的用戶名和密碼才能進入系統(tǒng)。 二 ． 打印功能測試 在菜單項中選擇‘打印’，選擇要打印的報表出現(xiàn)相應的打印報表窗口，如圖 所示為收費人員的報表窗口，在窗口中可以對報表窗口放大或縮小，對打印機進行設置。 三 系統(tǒng)的改進與擴展 本系統(tǒng)是應售樓商需求而設計的，它基本滿足了售樓商的需求，也在很大程度上促進了房產(chǎn)業(yè)運營效應和經(jīng)濟效益的提升。為了提高系統(tǒng)的運行效率，完善系統(tǒng)的功能，增強企業(yè)的信息安全性，還可以從以下幾個方面對本系統(tǒng)進行改進和擴展。 １． 豐富和完善查詢功 能 ２． 完善數(shù)據(jù)庫備份功能 ３． 升級數(shù)據(jù)庫系統(tǒng) ４． 增加日志功能 四 性能分析 錯誤處理的目的是對錯誤作出預測并盡可能在代碼中防止其出現(xiàn)。測試與調(diào)試是開發(fā)各個階段中相對完整的一個部分，“售樓管理系統(tǒng)”中的任何組件在編寫告一段落時，就需要經(jīng)過測試， 本軟件在編制完成后，經(jīng)過一段時間的測試運行，效果良好，達到了預期的 目的。在使用過程中，程序界面簡潔友好，使用方便。 第七章 結束語 通過對“售樓管理系統(tǒng)”的編制，我們熟悉了對 Visual 系統(tǒng)的運用和驗證了學習過的理論知識，并且，在輔導老師的指導下，初步掌握了編制一個完整程序的基本方法，也學習了一種新的對象化語言 Visual ，為完善和升級“售樓管理系統(tǒng)”打下了堅實是基礎。 致謝 在整個系統(tǒng)的開發(fā)過