【正文】 ..........................................................29 黃河科技學(xué)院畢業(yè)設(shè)計說明書 第 1 頁1 緒 論本論文主要敘述課題提出背景、目前應(yīng)用現(xiàn)狀、分析開發(fā)工具，數(shù)據(jù)庫技術(shù)的比較。在開發(fā)本系統(tǒng)的過程中，由于本人是在經(jīng)驗、知識、系統(tǒng)分析方面、數(shù)據(jù)庫設(shè)計方面都有很多的不足，雖然本軟件沒有很多的實用價值，但是我從中學(xué)到了很多的知識、開發(fā)項目的流程等。 開發(fā)背景隨著市場經(jīng)濟的發(fā)展和人們生活水平的提高，住宅小區(qū)已經(jīng)成為人們安家置業(yè)的首選。這樣要求小區(qū)管理者對物業(yè)管理進行宏觀的和微觀的細致管理，其中最好的辦法是用計算機操作的小區(qū)物業(yè)管理系統(tǒng)來實現(xiàn)對小區(qū)物業(yè)的管理，這就為我們設(shè)計小區(qū)物業(yè)管理系統(tǒng)提供了市場需要。例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。 因此，開發(fā)這樣一套小區(qū)物業(yè)管理系統(tǒng)軟件成為很有必要的事情。軟硬件環(huán)境需求軟件環(huán)境：兼容當(dāng)前主流操作系統(tǒng) Windows 95/98/NT/Me/2022/XP 等。 黃河科技學(xué)院畢業(yè)設(shè)計說明書 第 2 頁軟件質(zhì)量需求易用、健壯、兼容性好、運行穩(wěn)定、有一定安全保障。首先考慮標(biāo)準(zhǔn)化，在標(biāo)準(zhǔn)化的基礎(chǔ)上進行界面的美工設(shè)計。界面約定，除主界面外，所有子界面均采用模式窗體，即該窗體不消失，不可以在本程序內(nèi)將焦點移出子窗體。數(shù)據(jù)庫技術(shù)的產(chǎn)生與發(fā)展源于對于數(shù)據(jù)的組織和管理。這是一門綜合性技術(shù)，涉及操作系統(tǒng)，數(shù)據(jù)結(jié)構(gòu)，算法設(shè)計和程序設(shè)計等知識。 黃河科技學(xué)院畢業(yè)設(shè)計說明書 第 3 頁2 系統(tǒng)分析 概要Visual Basic是美國微軟公司的第一個編程工具和系統(tǒng)開發(fā)的第一個產(chǎn)品，Visual Basic以優(yōu)良的性能、較強的系統(tǒng)開發(fā)功能、完美的視覺界面和簡單易學(xué)的特點，已經(jīng)贏得了全世界廣大用戶的偏愛。作為數(shù)據(jù)庫系統(tǒng)的開發(fā)，Visual Basic 是一個非常理想選擇。它簡單易學(xué)、效率高，且功能強大，可以與 Windows 的專業(yè)開發(fā)工具 SDK 相媲美，而且程序開發(fā)人員不必具有 C/C++編程基礎(chǔ)。 Visual Basic 的特點可視化編程用傳統(tǒng)程序設(shè)計語言設(shè)計程序時，都是通過編寫程序代碼來設(shè)計用戶界面，在設(shè)計過程中看不到界面的實際顯示效果，必須編譯后運行程序才能觀察。有時候，這種編程編譯修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。只需要按設(shè)計要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件” ，即圖形對象，并設(shè)置這些圖形對象的屬性。 黃河科技學(xué)院畢業(yè)設(shè)計說明書 第 4 頁面向?qū)ο蟮某绦蛟O(shè)計 版以后的 Visual Basic 支持面向?qū)ο蟮某绦蛟O(shè)計，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計語言(C++)不完全相同。在設(shè)計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，Visual Basic 自動生成對象的程序代碼并封裝起來。結(jié)構(gòu)化程序設(shè)計語言Visual Basic 是在 BASIC 語言的基礎(chǔ)上發(fā)展起來的，具有高級程序設(shè)計語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。Visual Basic 是解釋型語言，在輸入代碼的同時，解釋系統(tǒng)將高級語言分解翻譯成計算機可以識別的機器指令，并判斷每個語句的語法錯誤。事件驅(qū)動編程機制Visual Basic 通過事件來執(zhí)行對象的操作。例如，命令按鈕是一個對象，當(dāng)用戶單擊該按鈕時，將產(chǎn)生一個“ 單擊”(CLICK)事件，而在產(chǎn)生該事件時將執(zhí)行一段程序，用來實現(xiàn)指定的操作。這些過程分別面向不同的對象，由用戶操作引發(fā)某個事件來驅(qū)動完成某種特定的功能，或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。同時，Visual Basic 還能直接編輯和訪問其他外部數(shù)據(jù)庫，如 黃河科技學(xué)院畢業(yè)設(shè)計說明書 第 5 頁dBASE，F(xiàn)oxPro ，Paradox 等，這些數(shù)據(jù)庫格式都可以用 Visual Basic 編輯和處理。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言 SQL 數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機制和網(wǎng)絡(luò)數(shù)據(jù)庫的 SQL 的編程技術(shù)，為單機上運行的數(shù)據(jù)庫提供了 SQL 網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實現(xiàn)客戶/服務(wù)器(client/server)方案。當(dāng)原始數(shù)據(jù)變化時，可以自動更新鏈接的數(shù)據(jù)。對象的鏈接與嵌入(OLE)對象的鏈接與嵌入(OLE)將每個應(yīng)用程序都看作是一個對象(object)，將不同的對象鏈接(link)起來，再嵌入(embed)某個應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動畫、文字等各種信息的集合式的文件。利用 OLE 技術(shù)，可以方便地建立復(fù)合式文檔，這種文檔由來自多個不同應(yīng)用程序的對象組成，文檔中的每個對象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。但它可以通過動態(tài)鏈接庫技術(shù)將 C/C++或匯編語言編寫的程序加入到 Visual Basic 應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。 黃河科技學(xué)院畢業(yè)設(shè)計說明書 第 6 頁3 系統(tǒng)設(shè)計 系統(tǒng)的主要功能我們要根據(jù)物業(yè)的具體情況進行開發(fā)，該系統(tǒng)主要包括以下 4 個模塊：系統(tǒng)登錄，基本資料，物業(yè)管理，數(shù)據(jù)報表統(tǒng)計等?；举Y料：包括住戶資料和財產(chǎn)資料。數(shù)據(jù)報表統(tǒng)計：包括物業(yè)設(shè)備、儀表數(shù)據(jù)統(tǒng)計、收費統(tǒng)計、住戶投訴統(tǒng)計、住戶報修統(tǒng)計、設(shè)備維修統(tǒng)計等。下面列出數(shù)據(jù)庫中的每一個表，包括表中的字段的含意?，F(xiàn)特選部分表的結(jié)構(gòu)說明如下所示。 黃河科技學(xué)院畢業(yè)設(shè)計說明書 第 7 頁表 報修表表 是用戶信息表，里面清晰的列出了住戶的各項信息表 用戶表 表 是員工信息表，內(nèi)容包括員工編號、姓名、部門、職務(wù)、身份證號、籍貫、戶口、出生日期等等一系列詳細的信息，方便了對員工的管理，使各項信息一覽無余。表 設(shè)備信息表表 可以管理用戶使用天然氣的情況，抄表日期、繳費日期、每月收取的費用以及辦理人等。表 住房信息表 黃河科技學(xué)院畢業(yè)設(shè)計說明書 第 9 頁表 車位信息表更是方便了住戶以及管理人員。表 用電信息表表 修理記錄表包括維修編號、設(shè)備編號、設(shè)備名稱、維修日期、完成日期、維修費用、維修人員、維修內(nèi)容等等，很好的對設(shè)備進行管理。先看看 VB是如何與 ACCESS2022 數(shù)據(jù)庫相連接的。連接數(shù)據(jù)庫Set conn = CreateObject() 39。 \ amp。設(shè)置數(shù)據(jù)的路徑 Provider=。 DBpath 39。設(shè)置數(shù)據(jù)庫對像End Sub上面的一段代碼就是連接數(shù)據(jù)庫的。其中有兩個變量要定義為公用的變量，因為這段代碼是放在一個模塊中的，為了在每一個窗體中能夠使用這個變量，所以必須要聲明為公用變量。如果聲明在下面，那就成了局部變量，那么作用范圍就會不同了，作用就更不同，而且在其它窗體中使用到了這個變量，程序會出錯。 黃河科技學(xué)院畢業(yè)設(shè)計說明書 第 11 頁主程序界面設(shè)計界面如下圖 所示。 系統(tǒng)登陸界面設(shè)計 圖 用戶登錄表如圖 所示,新建一個窗體,在窗體中添加二個 Lable 控件，二個 TextBox 控件,二個 mandButton 控件,設(shè)置其屬性。其中登錄按鈕的源碼如下。首先檢查用戶是否輸入了用戶名和密碼 黃河科技學(xué)院畢業(yè)設(shè)計說明書 第 12 頁 If = Then MsgBox 請輸入用戶名！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請輸入密碼！, vbOKOnly + vbInformation, 注意 Exit Sub End If Dim sqluser As String 39。 amp。 39。 amp。 39。打開數(shù)據(jù)游標(biāo) sqluser, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 用戶名或密碼不正確！, vbOKOnly + vbInformation, 注意 39。還需使其他菜單可用 = True = True = True = True 39。Private Sub cmdAdd_Click() 設(shè)置除保存和取消按鈕外的其他按鈕不可用 = False = False = False = True = True = False = False = False = False = False圖 住戶資料界面添加按鈕的代碼： 39。add 變量用于保存時判斷是從添加還是修改后保存 add = 1 Text1(0).SetFocus Text1(13).Text = DateEnd Sub修改按鈕的源碼:Private Sub cmdEdit_Click() 39。需要設(shè)置除主鍵之外的 text 框可寫 For i = 1 To 14 Text1(i).Enabled = True Next i = True add = 0End Sub刪除按鈕的源碼如下:Private Sub cmdDel_Click() 黃河科技學(xué)院畢業(yè)設(shè)計說明書 第 15 頁 39。確實刪除 If answer = vbYes Then 39。更新刪除 MsgBox 成功刪除！, vbOKOnly + vbExclamation, Else Exit Sub End If 39。刪除當(dāng)前記錄后，需要顯示下一條記錄，如果刪除的是最后一條記錄，則顯示上一條記錄 39。如果沒有到記錄首則顯示改記錄 If Not Then For i = 0 To 14 Text1(i).Text = (i) Next i If (15) = 男 Then = 0 Else = 1 End If 39。如果刪除的不是首尾記錄，則顯示當(dāng)前記錄即可 Else For i = 0 To 14 Text1(i).Text = (i) Next i If (15) = 男 Then = 0 Else = 1 End If End If End Sub保存按鈕的源碼如下:Private Sub cmdSave_Click()39。添加數(shù)據(jù)后保存 If add = 1 Then 39。 amp。 39。主鍵不重復(fù)，可以加入表中 For i = 0 To 14 (i) = Text1(i).Text Next i (15) = 39。修改數(shù)據(jù)后的保存 Else End If MsgBox 保存數(shù)據(jù)成功！, vbOKOnly + vbInformation, 祝賀 39。Private Sub cmdSave_Click() 39。添加數(shù)據(jù)后保存 黃河科技學(xué)院畢業(yè)設(shè)計說明書 第 20 頁 If add = 1 Then 39。 amp。 39。主鍵不重復(fù)，可以加入表中 For i = 0 To 6 (i) = Text1(i).Text Next i 39。修改數(shù)據(jù)后的保存 Else End If MsgBox 保存數(shù)據(jù)成功！, vbOKOnly + vbInformation, 祝賀 39。Private Sub cmdOrder_Click() Dim sql As String If = adStateOpen Then End If sql = select * from Equipment order by amp。設(shè)置 DataGrid1 的數(shù)據(jù)源 Set = rs_order 39。首