【正文】 門的業(yè)務進行細化，有了這一步的準備工作，你便可以創(chuàng)建用戶并對他使用本系統(tǒng)的權(quán)力加以相應的設置和限制。l 查詢功能強 每個模塊都提供了相關的查詢功能，方便用戶和管理人員及時的了解房屋的銷售以及維護情況。加密后的數(shù)據(jù)庫只有本系統(tǒng)才能對其進行維護，任何直接對數(shù)據(jù)庫的操作都將無效，從而保證了數(shù)據(jù)庫入口的唯一性，避免了來自外界的破壞；本系統(tǒng)操作人員只能對自己權(quán)限范圍內(nèi)的數(shù)據(jù)進行維護，從而避免了來自內(nèi)部的破壞。同時較好地解決了數(shù)據(jù)冗余度的問題,提高了錄入速度，節(jié)省了工作時間。 輸入項目：無；輸出項目：無； 本模塊的界面如圖2： 控件名稱及其功能如表（表6） 控件控件名稱功 能圖像控件Image1放置界面圖片時鐘控件Timer1控制界面顯示的時間 設計步驟：l 窗體的設計： 添加窗體；設置窗體屬性：主要設置其邊框?qū)傩詾镹one，具體如圖3所示屬性窗口的應用； 圖（3）l 時鐘的設計主要設置其Interval屬性如圖4，即相鄰兩次響應的時間間隔。 輸入項目：輸入用戶名、密碼 輸出項目：無 本模塊的界面如圖5：控件名稱及其功能如表（表7） 控件控件名稱功 能標簽控件Labal3標識文本框Text1輸入用戶名文本框Text2輸入密碼標簽近件Labal4顯示登錄日期登錄_按鈕Comok登錄到房開系統(tǒng)取消_按鈕Comquit取消登錄功能：系統(tǒng)主要操作界面。 菜單分為主菜單和子菜單，子菜單最多只能有四級子菜單；每個菜單有唯一的一個名稱，若名稱相同，則必須用索引區(qū)分，且菜單有對應的標題、可視性等屬性。菜單代碼的編寫：沒個菜單都對應一個Click事件，但只能在最低一級的菜單中寫代碼，因若其有子菜單，若寫有代碼，則單擊它時，會出現(xiàn)只響應單擊事件而不會彈出子菜單的情況。以及可以及時添加和修改用戶信息 ，使得用戶與樓房成為有機的統(tǒng)一體，便于管理。具體綁定如下：connectionstring連接具體的數(shù)據(jù)庫。l 與數(shù)據(jù)控件的綁定如控件text1與數(shù)據(jù)控件data1的綁定，用DataSource和DataField兩個屬性即可。輸入項目：無；輸出項目：無； 本模塊的界面如圖11： 控件名稱及其功能如表（表9）控件控件名稱功能標簽控件LblLabels(012)用于顯示所要填寫的基本信息文本框控件TxtFields(08)輸入用戶信息數(shù)據(jù)控件datPrimaryRS與數(shù)據(jù)庫綁定命令按鈕控件cmdAdd用于添加新用戶命令按鈕控件cmdUpdate更新命令按鈕控件cmdClose關閉命令按鈕控件cmdDelete刪除命令按鈕控件cmdZl整理網(wǎng)格控件grdDataGrid用于顯示所選的對象注意： DataGrid與Adodc數(shù)據(jù)控件的應用data數(shù)據(jù)控件不能與datagrid網(wǎng)格控件連用在上面已經(jīng)提過了數(shù)據(jù)控件和數(shù)據(jù)庫連接問題，在這里不再多說，值得注意的是adodc控件與datagrid網(wǎng)格控件連用，其中的記錄源設置和以前的data數(shù)據(jù)控件有點不同，其具體設置如右圖所示。同時可以根據(jù)客戶的需要適時的調(diào)節(jié)，以便滿足客戶的需求。輸入項目：無；輸出項目：無； 本模塊的界面如圖11：控件名稱及其功能表: 控件控件名稱功 能標簽控件lblLabels（12）標識相應內(nèi)容文本框txtFields(12)輸入相對應標簽的文本命令按鈕cmdAdd登記新的用戶命令按鈕cmdUpdate更新當前記錄命令按鈕cmdDelete刪除命令按鈕cmdZl整理命令按鈕 cmdClose關閉數(shù)據(jù)控件datPrimaryRS連接數(shù)據(jù)庫網(wǎng)格控件grdDataGrid和數(shù)據(jù)控件綁定，顯示數(shù)據(jù)庫基本信息4調(diào)試與分析經(jīng)程序設計小組在多臺機器上長時間運行、調(diào)試，發(fā)現(xiàn)系統(tǒng)運行過程中出現(xiàn)了許多問題，但在老師的指導下一步步得到解決，目前該系統(tǒng)可以正常運行。新增如下功能；財務管理；銀行卡管理；直接SQL語句查詢數(shù)據(jù)；新的操作界面: ，傻瓜式操作方式； ； 、操作。5 操作說明：硬件平臺：①.服務器平臺：支持PC服務器、專用服務器、小型機等，用高檔PC需586/166/32M內(nèi)存以上機型。 ③.網(wǎng)絡操作系統(tǒng)：支持Windows NT、UNIX、Netware等。軟件平臺：①.數(shù)據(jù)庫：MS SQLSERVER數(shù)據(jù)庫。③.網(wǎng)絡平臺：支持MS Windows NT Server 中文版。 windows98。 登錄界面1. 在“用戶名”下的列表框中輸入用戶名?！按_定”按鈕，則系統(tǒng)會檢查所輸入的用戶名/密碼是否正確，如果不正確，會出現(xiàn)一個對話框，提示用戶名/密碼輸入錯誤，請重新輸入，否則將進入本系統(tǒng)的主界面； （主界面如圖）。 添加：單擊‘添加’按鈕，添加新的用戶，輸入相應的用戶信息或從列表框中選擇，點瀏覽按鈕可以查看所添加的對象。返回：點擊返回按鈕即可返回到第一條記錄。刪除：刪除所選信息。5．4 客戶信息添加：單擊‘添加’按鈕，添加新的用戶，輸入相應的用戶信息或從列表框中選擇。刪除：刪除所選信息。整理：整理表中的信息。更新：更新所有數(shù)據(jù)。關閉：點擊即可退出本界面。戶型信息：添加：單擊‘添加’按鈕，添加新的用戶，輸入相應的用戶信息或從列表框中選擇。刪除：刪除所選信息。整理：整理表中的信息。認識到系統(tǒng)的思想理論只有在實踐中才可以得到驗證，而在實踐中得來的經(jīng)驗及發(fā)現(xiàn)，同樣也有在正確的理論指導思想的指引下才能得到升華，同時通過這兩個月的程序開發(fā)讓我形成了一定的思維模式。通過此系統(tǒng)的開發(fā)，使我知道如何使用軟件工程分析系統(tǒng)、測試系統(tǒng)、維護系統(tǒng)，了解了一個程序員應具備的知識。在本次畢業(yè)設計中，我從指導老師身上學到了很多東西。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都有一種巨大的幫助，感謝他耐心的輔導。參 考 文 獻參考文獻：1. 計算機書目文獻管理數(shù)據(jù)庫 清華大學出版社2. Visual Basic 機械工業(yè)出版社3. Visul Basic 清華大學出版社4. Visul Basic 清華大學出版社5. Visual Basic客戶/服務器 清華大學出版社6. MS SQL Server 清華大學出版社附錄A 系統(tǒng)的主要代碼主界面Private Sub Eexit_Click()39。 MdiExit = True Unload Me 39。 Dim sdir As String 39。 sdir = Dir( amp。 If sdir Then Kill sdir39。 \, amp。 Kill amp。 Name amp。 \ End End If (2).Text = 房產(chǎn)信息系統(tǒng)......待命End SubPrivate Sub Mback_Click() Load frmBackEnd SubPrivate Sub MDIForm_Load() 39。 saleAtio = area Dim i, all As Integer = 房產(chǎn)出售面積比例關系圖 = 房產(chǎn)出售面積比例關系圖 = 3 = 1 = 未售 = 2 = 預售 = 3 = 已售 For i = 0 To 2 = i = i + 1 = (1).Value all = all + (1).Value Next = 共 amp。 平方米 For i = 0 To 2 = i = i + 1 = amp。 (0).Value amp。 ((1).Value / all) * 100 Mod 100 amp。 saleAtio = num Dim i, all As Integer = 房產(chǎn)出售套數(shù)比例關系圖 = 房產(chǎn)出售套數(shù)比例關系圖 = 3 = 1 = 未售 = 2 = 預售 = 3 = 已售 For i = 0 To 2 = i = i + 1 = (0).Value all = all + (0).Value Next = 共 amp。 套 For i = 0 To 2 = i = i + 1 = amp。 (0).Value amp。 ((0).Value / all) * 100 Mod 100 amp。 saleAtio = price Dim i, all As Integer = 已售房產(chǎn)收款比例關系圖 = 已售房產(chǎn)收款比例關系圖 = 2 = 0 = 1 = 已收款: amp。 ￥( amp。 %) = (0).Value = 2 = 未收款: amp。 ￥( amp。 %) = (1).Value = 共應收款 amp。 ￥ = FalseEnd SubPrivate Sub mnustructre_Click() Load frmStructreEnd SubPrivate Sub mnuTotal_Click() End SubPrivate Sub Muse_Click() Load frmUseEnd SubPrivate Sub Timer1_Timer() 1 = FalseEnd SubPrivate Sub Wcascade_Click()39。圖標窗體：重排所有最小化的 MDI 子窗體的圖標 (2).Text = 窗體圖標排列...... vbArrangeIcons (2).Text = 房產(chǎn)信息系統(tǒng)......待命End SubPrivate Sub WHtitle_Click()39。垂直平鋪所有非最小化的 MDI 子窗體 (2).Text = 窗體平鋪...... vbTileVertical (2).Text = 房產(chǎn)信息系統(tǒng)......待命End Sub房屋信息Option ExplicitDim change As Boolean 39。啟動此窗體時的記錄源Public Sub SearchGarage() = False If Trim(dbHouseNo) Then 39。 amp。 39。 搜索時激活第一個選項卡 = True 39。 Set = (ChildCMD).UnderlyingValue ( ) / 2, ( ) / 2 1000 YrecordSource = 39。提示保存 = vbDefaultEnd SubPrivate Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 39。想要忽略錯誤，注釋掉下一行 39。 DescriptionEnd SubPrivate Sub datPrimaryRS_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) 39。驗證代碼置于