【導(dǎo)讀】本文以VisualBasic和SQLServer2021作為開發(fā)工具，設(shè)計了一套。業(yè)主投訴管理和小區(qū)設(shè)備的運維管理等模塊。對所選課題的背景進(jìn)行了簡單的介紹，提出對本課題的研究方法。Basic和SQLServer2021進(jìn)行簡單的介紹。提出設(shè)計的架構(gòu)，定出4個功能。根據(jù)上述2圖，進(jìn)行數(shù)據(jù)庫的設(shè)計，添加一個系統(tǒng)用戶信息表，共設(shè)計5張表。代碼和界面的截圖。完成設(shè)計并進(jìn)行系統(tǒng)測試。

　　

【正文】 ta can39。t connect Call MsgBox(mag, vbOKCancel, Error:Data connect) addFlag = False End End Function Public Sub clo() On Error Resume Next If adStateClosed Then Set conn = Nothing End Sub 通過模塊，使系統(tǒng)在啟動時進(jìn)行數(shù)據(jù)庫連接，并打開整個數(shù)據(jù)庫。各個功能模塊的具體數(shù)據(jù)庫連接，將在界面代碼中實現(xiàn)。 設(shè)計 登錄：用戶輸入用戶 名和密碼，后臺數(shù)據(jù)庫查找并進(jìn)行匹配，匹配成功，則進(jìn)入系統(tǒng)主界面。 圖 3 登錄界面 其代碼如下： Private Sub cmdCancel_Click() 39。設(shè)置全局變量為 false 39。不提示失敗的登錄 LoginSucceeded = False End End Sub Private Sub cmdOK_Click() 39。檢查正確的密碼 If = Then 39。將代碼放在這里傳遞 39。成功到 calling 函數(shù) 39。設(shè)置全局變量時最容易的 LoginSucceeded = True Else MsgBox 無效的密碼，請重試 !, , 登錄 SendKeys {Home}+{End} End If End Sub 設(shè)計 系統(tǒng)主界面： 系統(tǒng)的主要界面。顯示 連接各功能模塊的按鈕及菜單，是各模塊連接的橋梁。 圖 4 系統(tǒng)主界面 界面主要功能介紹： 在該界面中可以通過命令按鈕進(jìn)入相應(yīng)的操作，也可以使用菜單功能進(jìn)入。界面簡單明了，方便快捷。 其主要代碼為各頁面連接，故在此不列出。 信息管理界面 設(shè)計 住戶信息管理：提供住戶的信息管理，包括添加、刪除、修改和查詢等基本操作。在該界面中，使用 DataGrid 控件，可直觀的看到數(shù)據(jù)庫表中的內(nèi)容。 通過 Ado 控件來實現(xiàn)與數(shù)據(jù)庫的連接， 其使用方 式和代碼如下： With Adodc1 .ConnectionString = Provider=。Persist Security Info=False。User ID=sa。Initial Catalog=HYHHomeDataBase。Data Source=MICROSOFFB5E72 39。連接數(shù)據(jù)庫字符串 .RecordSource = select * from HY_CLIENT_TABLE 39。連接到表 End With 進(jìn)行 數(shù)據(jù)庫 連接 ，連接到 HY_CLIENT_TABLE。 連接成功后 ，運行程序，進(jìn)入業(yè)主信息管理界面， 可對業(yè)主的相關(guān)信息進(jìn)行添加、修改、刪除等 操作。 住戶相關(guān)信息有：物業(yè)地址、房號、姓名、性別、職業(yè)、工作單位、身份證號、車位、車牌號、民族、聯(lián)系電話、銀行帳號、房產(chǎn)類別、產(chǎn)權(quán)狀況、入住日期、建筑面積、套內(nèi)面積、房型、備注。 其表示如下圖： 圖 5 業(yè)主信息管理詳細(xì)功能圖 界面圖如下： 圖 6 住戶信息管理界面 其 主要代碼如下： 信息添加代碼： . . . . 信息刪除代碼： k = MsgBox(確定刪除本條記錄嗎？ , vbInformation + vbYesNo, 提示 ) If k = vbYes Then End If 信息修改代碼： 設(shè)計 收 費項目管理：管理基本的物業(yè)收費?；静僮靼ㄌ砑邮召M項目、修改收費項目、查詢繳費記錄、刪除繳費記錄等。 同樣也使用 Ado 控件通過 代碼 With Adodc2 .ConnectionString = Provider=。Persist Security Info=False。User ID=sa。Initial Catalog=HYHHomeDataBase。Data Source=MICROSOFFB5E72 39。連接數(shù)據(jù)庫字符串 .RecordSource = select * from HY_CLIENT_CHARGE_ITEM_TABLE 39。連接到表 End With 實現(xiàn)與數(shù)據(jù)庫的連接， DataGrid 直觀的顯示數(shù)據(jù)庫內(nèi)容。 收費項目記錄信息有：收費項目、起始日期、起始表數(shù)、終止日期、終止表數(shù)、用量、總表數(shù)、繳費日期、金額單價、應(yīng)繳費用、分?jǐn)傁禂?shù)、收費說明、備注。 其功能結(jié)構(gòu)圖可以表示如圖 ，通過界面的命令按鈕，對相應(yīng)信息進(jìn)行操作。 圖 7 物管費用管理詳細(xì)功能圖 物管費用管理界面如下圖： 圖 8 收費項目管理界面 主要代碼與住戶信息管理代碼相似，故不在列出。 — 投訴單界面 設(shè)計 投訴項目管理：添加、修改、刪除和查詢投訴記錄。添加投訴項目按鈕彈出投訴單窗口，在該界面中填寫投訴相關(guān)信息，并保存。由物業(yè)公司查看并處理投訴。 使用 Ado 控件通過字符串 “ Provider=。Persist Security Info=False。User ID=sa。Initial Catalog=HYHHomeDataBase。Data Source=MICROSOFFB5E72” 實現(xiàn)與數(shù)據(jù)庫的連接。 相關(guān)信息包括： 投訴單號、 投訴時間、投訴情況、發(fā)單時間、發(fā)單人、接單時間、接單人、 投訴內(nèi)容、處理情況、領(lǐng)導(dǎo)意見、處理時間、完成時間、住戶反饋、住戶簽字和備注。 表示如下圖： 圖 9 業(yè)主投訴管理詳細(xì)功能圖 完成該 功能的投訴單界面如下： 圖 10 投訴單界面 其主要代碼有： 添加、保存信息代碼： Private Sub Command1_Click() (PETITION_ID) = 點擊“取消”按鈕，則退出投訴單界面。 維修單界面 設(shè)計 維修項目管理： 添加、修改、刪除和查詢維修記錄。添加維修項目按鈕彈出維修單窗口，在該界面中填寫 維修相關(guān)內(nèi)容，并保存。由物業(yè)公司查看并處理維修。 相關(guān)內(nèi)容包括：維修單號、發(fā)單時間、維修地點、維修時間、報修情況、發(fā)單人、接單時間、接單人、維修內(nèi)容、處理情況、領(lǐng)導(dǎo)意見、材料費、人工費、總費用、住戶反饋、住戶簽字、備注。 其功能結(jié)構(gòu) 表示如圖： 圖 11 小區(qū)設(shè)備運維管理詳細(xì)功能圖 完成該功能的維修單界面如下： 圖 12 維修單界面 其主要代碼與投訴單代碼相似，故不在列出。 6 系統(tǒng)測試 （ 1）登錄測試： 運行程序，在登錄界面的“用戶名稱”文本框中輸入用戶名，在“密碼”文本框中輸入對應(yīng)的密碼，點擊“確定”按鈕。如順利進(jìn)入系統(tǒng)主界面，則登錄過程成功，該部分代碼可行。 （ 2） 添加 業(yè)主信息 測試： 順利進(jìn)入主界面后，點擊“住戶資料錄入編輯”按鈕，進(jìn)入住戶信息管理界面。添加住戶資料，在文本框中填寫相應(yīng)的內(nèi)容，保存。進(jìn)入后臺數(shù)據(jù)庫，在相應(yīng)的表中查找是否有新添加的數(shù)據(jù)，若有， 則數(shù)據(jù)添加成功。 （ 3） 修改和刪除 業(yè)主信息 測試 : 在住戶信息管理界面中，點擊“刪除”按鈕，刪除指定的內(nèi)容，保存。進(jìn)入后臺數(shù)據(jù)庫，在相應(yīng)的表中查找數(shù)據(jù)，若沒有剛才刪除的數(shù)據(jù)，則刪除成功。點擊“修改”按鈕，修改指定內(nèi)容，保存，進(jìn)入后臺數(shù)據(jù)庫，在相應(yīng)的表中查找數(shù)據(jù)，若相應(yīng)的數(shù)據(jù)改變，則修改數(shù)據(jù)成功。 （ 4） 添加、修改和刪除 物管費用信息 測試： 啟動系統(tǒng)，進(jìn)入物管費用管理界面。點擊“增加”按鈕，進(jìn)入添加模式，在文本框內(nèi)填寫相應(yīng)內(nèi)容，點擊“保存”按鈕保存信息。進(jìn)入后臺數(shù)據(jù)庫，找到物管費用管理表，查詢返回所有行，如出現(xiàn)剛 才添加的信息，則添加成功?；氐浇缑妫瑢偛诺臄?shù)據(jù)進(jìn)行修改和刪除操作，操作步驟同上，如在數(shù)據(jù)庫的相應(yīng)表中出現(xiàn)操作的相應(yīng)情況，則測試成功。 （ 5）其余模塊測試： 啟動系統(tǒng)，進(jìn)行投訴單和維修單操作測試。測試方法同上，如在數(shù)據(jù)庫的相應(yīng)表中出現(xiàn)操作的相應(yīng)情況，則測試成功。 （ 6）退出系統(tǒng)測試： 關(guān)閉所有界面，回到系統(tǒng)主界面，點擊“退出系統(tǒng)”按鈕。如程序停止運行，則測試成功。 或者，點擊窗口關(guān)閉按鈕，如程序停止運行，并回到 Windows,則測試成功。 通過上述測試，系統(tǒng)基本完成設(shè)計要求，能夠順利運行，測試 成功。