【正文】 .................................................... 17 測試項目 ............................................................................................................................................17 測試結(jié)果 ............................................................................................................................................18 結(jié) 論 .............................................................................................. 錯誤 !未定義書簽。 1 引言 隨著我國市場經(jīng)濟(jì)的快速發(fā)展和人們生活水平的不斷提高 ，簡單的社區(qū)服務(wù)已經(jīng)不能滿足人們的需求。面對信息時代的挑戰(zhàn)，利用高科技手段來提高物業(yè)管理無疑是一條行之有效的途徑。就目前國內(nèi)的軟件開發(fā)技術(shù)，短期內(nèi)所誕生的新型物業(yè)管理系統(tǒng)將不會有太大的改變，其實質(zhì)內(nèi)容都是使物業(yè)管理更快捷、更智能化。而設(shè)計的小區(qū)物業(yè)管理系統(tǒng)在現(xiàn)代社會是最熱門的行業(yè)，是最關(guān)切老百姓實際生活的設(shè)計，各種人性化的配置，使管理者和業(yè)主對住宅小區(qū)中的事物能更方便、更快捷、更滿意的得到答復(fù)。 作為計算機應(yīng)用的一部分 ,使用計算機對企業(yè)單位的各項信息進(jìn)行管理，具有著手工管理所無法比擬的優(yōu)點。 研究方法 本課題 主要的目標(biāo)是設(shè)計一套具有一定實用價值的 物業(yè)管理系統(tǒng)。 Visual 是指開發(fā)圖形用戶界面（ GUI）的方法。這樣，采用 Visual 方法無需編寫大量代碼去描述界面元素的外觀和位置，而只要把預(yù)先建立的控件加到屏幕上。 VB 與 BASIC 之間有著千絲萬縷的聯(lián)系，如果學(xué)過 BASIC 語言的話，看到 VB 的程序結(jié)構(gòu)會感到很親切。另外， VB 提供的多種“控件”可以快速創(chuàng)建強大的應(yīng)用程序而不需涉及不必要的細(xì)節(jié)。如果對程序的幾面不滿意，還要回到程序中去修改，這一過程常常需要反復(fù)多次，大大影響了編程的效率。在設(shè)計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具“畫”在界面上，由 VB 自動生成對象的程序代碼并封裝起來。 （ 4） 結(jié)構(gòu)化的設(shè)計語言 VB 是在結(jié)構(gòu)化的 BASIC 語言基礎(chǔ)上發(fā)展起來的，加上了面向?qū)ο蟮脑O(shè)計方法，因此是更具有結(jié)構(gòu)化的程序設(shè)計語言。 （ 6） 開放的數(shù)據(jù)庫功能與網(wǎng)絡(luò)支持 VB 具有很強的數(shù)據(jù)庫管理功能。 SQL server 2021 簡介 SQL Server 是一個關(guān)系數(shù)據(jù)庫管理系統(tǒng) ， 它最初是由 Microsoft， Sybase 和 AshtonTate 三家公司共同開發(fā)的 ， 于 1988 年推出了第一個 OS/2 版本 。另外， SQL Server 2021 除了具有擴展性，可靠性以外，還具有可以迅速開發(fā)新的因特網(wǎng)系統(tǒng)的功能。不通版本的功能和用戶群不通。在客戶端計算機上運行需要本地 SQL Server 數(shù)據(jù)存儲的獨立應(yīng)用程序，也使用個人版。 （ 6）企業(yè)評估版 可從 Web 上免費 下載的功能完整的版本，僅用于評估 SQL Server 功能，下載 120 天后該版本停止運行。 （ 3） 投訴管理：管理住戶的投訴信息，并記錄處理和未處理事項。并編寫代碼，完成與數(shù)據(jù)庫的連接。Persist Security Info=True。服務(wù)器的名字 (initial catalog).Value = HYHHomeDataBase 39。各個功能模塊的具體數(shù)據(jù)庫連接，將在界面代碼中實現(xiàn)。不提示失敗的登錄 LoginSucceeded = False End End Sub Private Sub cmdOK_Click() 39。設(shè)置全局變量時最容易的 LoginSucceeded = True Else MsgBox 無效的密碼，請重試 !, , 登錄 SendKeys {Home}+{End} End If End Sub 設(shè)計 系統(tǒng)主界面： 系統(tǒng)的主要界面。 其主要代碼為各頁面連接，故在此不列出。Persist Security Info=False。連接數(shù)據(jù)庫字符串 .RecordSource = select * from HY_CLIENT_TABLE 39。 其表示如下圖： 圖 5 業(yè)主信息管理詳細(xì)功能圖 界面圖如下： 圖 6 住戶信息管理界面 其 主要代碼如下： 信息添加代碼： . . . . 信息刪除代碼： k = MsgBox(確定刪除本條記錄嗎？ , vbInformation + vbYesNo, 提示 ) If k = vbYes Then End If 信息修改代碼： 設(shè)計 收 費項目管理：管理基本的物業(yè)收費。User ID=sa。連接到表 End With 實現(xiàn)與數(shù)據(jù)庫的連接， DataGrid 直觀的顯示數(shù)據(jù)庫內(nèi)容。 — 投訴單界面 設(shè)計 投訴項目管理：添加、修改、刪除和查詢投訴記錄。Persist Security Info=False。 相關(guān)信息包括： 投訴單號、 投訴時間、投訴情況、發(fā)單時間、發(fā)單人、接單時間、接單人、 投訴內(nèi)容、處理情況、領(lǐng)導(dǎo)意見、處理時間、完成時間、住戶反饋、住戶簽字和備注。由物業(yè)公司查看并處理維修。如順利進(jìn)入系統(tǒng)主界面，則登錄過程成功，該部分代碼可行。 （ 3） 修改和刪除 業(yè)主信息 測試 : 在住戶信息管理界面中，點擊“刪除”按鈕，刪除指定的內(nèi)容，保存。點擊“增加”按鈕，進(jìn)入添加模式，在文本框內(nèi)填寫相應(yīng)內(nèi)容，點擊“保存”按鈕保存信息。測試方法同上，如在數(shù)據(jù)庫的相應(yīng)表中出現(xiàn)操作的相應(yīng)情況，則測試成功。 通過上述測試，系統(tǒng)基本完成設(shè)計要求，能夠順利運行，測試 成功。如程序停止運行，則測試成功?；氐浇缑妫瑢偛诺臄?shù)據(jù)進(jìn)行修改和刪除操作，操作步驟同上，如在數(shù)據(jù)庫的相應(yīng)表中出現(xiàn)操作的相應(yīng)情況，則測試成功。點擊“修改”按鈕，修改指定內(nèi)容，保存，進(jìn)入后臺數(shù)據(jù)庫，在相應(yīng)的表中查找數(shù)據(jù)，若相應(yīng)的數(shù)據(jù)改變，則修改數(shù)據(jù)成功。添加住戶資料，在文本框中填寫相應(yīng)的內(nèi)容，保存。 其功能結(jié)構(gòu) 表示如圖： 圖 11 小區(qū)設(shè)備運維管理詳細(xì)功能圖 完成該功能的維修單界面如下： 圖 12 維修單界面 其主要代碼與投訴單代碼相似，故不在列出。 維修單界面 設(shè)計 維修項目管理： 添加、修改、刪除和查詢維修記錄。Initial Catalog=HYHHomeDataBase。由物業(yè)公司查看并處理投訴。 其功能結(jié)構(gòu)圖可以表示如圖 ，通過界面的命令按鈕，對相應(yīng)信息進(jìn)行操作。Data Source=MICROSOFFB5E72 39。 同樣也使用 Ado 控件通過 代碼 With Adodc2 .ConnectionString = Provider=。 連接成功后 ，運行程序，進(jìn)入業(yè)主信息管理界面， 可對業(yè)主的相關(guān)信息進(jìn)行添加、修改、刪除等 操作。Initial Catalog=HYHHomeDataBase。在該界面中，使用 DataGrid 控件，可直觀的看到數(shù)據(jù)庫表中的內(nèi)容。 圖 4 系統(tǒng)主界面 界面主要功能介紹： 在該界面中可以通過命令按鈕進(jìn)入相應(yīng)的操作，也可以使用菜單功能進(jìn)入。將代碼放在這里傳遞 39。 圖 3 登錄界面 其代碼如下： Private Sub cmdCancel_Click() 39。登陸類型 OpenCn = True addFlag = True Exit Function strerrmag: mag = Data can39。Initial Catalog=user。 其代碼如下： Public conn As New Public rs As New Public addFlag As Boolean Public Function OpenCn() As Boolean Dim mag As String On Error GoTo strerrmag Set conn = New = Provider=。 流程 圖 根據(jù)上面設(shè)計思路，作出以下系統(tǒng) 流程