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

　　

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