【正文】 7 況，該系統(tǒng)在實(shí)施后，能夠滿足對(duì)小區(qū) 住戶資料 、 財(cái)產(chǎn)資源統(tǒng)計(jì)、小區(qū)投訴、裝修、維修、等進(jìn)行管理，能夠滿足對(duì)水、電 表抄收、統(tǒng)計(jì)、核算、各項(xiàng)費(fèi)用統(tǒng)計(jì)匯總。 作為 管理信息 系統(tǒng)的開發(fā)， Visual Basic是一個(gè)非常理想選擇。 Microsoft Visual FoxPro 現(xiàn)在，市場(chǎng)上可以選購(gòu)的應(yīng)用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種。數(shù)據(jù)庫(kù)是 MIS 中的重要支持技術(shù)，在 MIS 開發(fā)過(guò)程中，如何選擇數(shù)據(jù)庫(kù)管理是一個(gè)重要的問(wèn)題，目前，數(shù)據(jù)庫(kù)產(chǎn)品較多，每種產(chǎn)品都具有各 自的特點(diǎn)和適用范圍，因此，在選擇數(shù)據(jù)庫(kù)時(shí)，應(yīng)考慮數(shù)據(jù)庫(kù)應(yīng)用的特點(diǎn)及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫(kù)語(yǔ)言 Visual Basic 語(yǔ)言，該開發(fā)工具具有很多長(zhǎng)處： Visual Basic 是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開發(fā) Windows 環(huán)境下的種類應(yīng)用程序。如果對(duì)界面的效果不滿意，還要回到程序中修改。 Visual Basic 自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。在設(shè)計(jì) Visual Basic 程序的過(guò)程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件 (.EXE)，脫離 Visual Basic 環(huán)境，直接在 Windows 環(huán)境下運(yùn)行。 在用 Visual Basic 設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個(gè)微小的子程序，即過(guò)程。 12 Visual Basic 提供開放式數(shù)據(jù)連接，即 ODBC 功能，可通過(guò)直接訪問(wèn)或建立連接的方式使用并操作后臺(tái)大 型網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，如 SQL Server， Oracle 等。 Visual Basic 提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他 Windows 應(yīng)用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。 13 動(dòng)態(tài)鏈接庫(kù) (DLL) Visual Basic 是一種高級(jí)程序設(shè)計(jì)語(yǔ)言，不具備低級(jí)語(yǔ)言的功能，對(duì)訪問(wèn)機(jī)器硬件的操作不太容易實(shí)現(xiàn)。 5． 基本資料 ：包括 住戶資料和財(cái)產(chǎn)資料 6． 物業(yè)管理 ：包括 物業(yè)設(shè)備 ,儀表數(shù)據(jù) ,停車場(chǎng)管理 ,收費(fèi)管理 ,住戶投訴 ,住戶報(bào)修管理 ,設(shè)備維修管理等 . 7． 數(shù)據(jù)報(bào)表統(tǒng)計(jì) ：包括 物業(yè)設(shè)備 ,儀表數(shù)據(jù)統(tǒng)計(jì) ,收費(fèi)統(tǒng)計(jì) ,信戶投訴統(tǒng)計(jì) ,信戶報(bào)修統(tǒng)計(jì) ,設(shè)備維修統(tǒng)計(jì)等 . 根據(jù)該公司業(yè)務(wù)情況和行業(yè)特點(diǎn)，本系統(tǒng)采用了 ACCESS 數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)名稱為 XiaoQuGuanLi,包含以下 幾 個(gè)表： 報(bào)修 表 15 (BaoXiu)， Client 表 ， Emp 表， Equipment 表， Gas 表 ,House 表 ,Park表 ,Power表 ,Repair表 ,Tousu表 ,UserTable表 ,Water表 ,WuyeFee表 ,YiBiaoFee 表 . 現(xiàn)將各表的結(jié)構(gòu)說(shuō)明如下 : 16 17 18 系統(tǒng)的詳細(xì)設(shè)計(jì) 主程序界面設(shè)計(jì) 19 其他窗體 設(shè)計(jì) (因本設(shè)計(jì)涉及的窗體比較多 ,故我們只選取有代表性的窗體加以重點(diǎn)描述 ) 系統(tǒng)登陸界面設(shè)計(jì) 如圖所示 ,新建一個(gè)窗體 ,在窗體中添加二 個(gè) Lable 控件， 二個(gè) TextBox 控件 ,二個(gè) mandButton 控件 ,設(shè)置其屬性 。構(gòu)造查詢?cè)撚脩裘兔艽a的 sql 語(yǔ)句 sqluser = select * from UserTable where Username = 39。 and Password = 39。 = adUseClient 39。提示用戶登錄成功并關(guān)閉游標(biāo)和登錄窗口 MsgBox 登錄成功！ , vbOKOnly + vbInformation, 注意 Unload Me End If End Sub 基本資料模塊的設(shè)計(jì) 同理窗體中的控件的添加比較直接 ,參照登錄窗體的設(shè)計(jì) ,并添加相關(guān)代碼 .其中重點(diǎn)分析按鈕源碼如下 :。add 變量用于保存時(shí)判斷是從添加還是修改后保存 add = 1 Text1(0).SetFocus Text1(13).Text = Date End Sub 修改按鈕的源碼 : Private Sub cmdEdit_Click() 39。確實(shí)刪除 If answer = vbYes Then 39。刪除當(dāng)前記錄后，需要顯示下一條記錄，如果刪除的是最后一條記錄，則顯示上一條記錄 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。 amp。主鍵不重復(fù)，可以加入表中 26 For i = 0 To 14 (i) = Text1(i).Text Next i (15) = 39。檢測(cè)數(shù)據(jù)是否完整 If Text1(0).Text = Then MsgBox 設(shè)備編號(hào)不可為空！ , vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = Then MsgBox 設(shè)備名稱不可為空！ , vbOKOnly + vbInformation, 注意 Text1(1).SetFocus Exit Sub ElseIf IsDate(Text1(5).Text) = False Then MsgBox 購(gòu)買日期書寫不對(duì)，應(yīng)為 202111 這樣的格式！ , vbOKOnly + vbInformation, 注意 Text1(5).SetFocus Exit Sub End If 39。 (Text1(0).Text) amp。添加之后顯示總共條數(shù)信息加 1 = Val() + 1 39。設(shè)置 DataGrid1 的數(shù)據(jù)源 Set = rs_order 30 39。下面的 sql語(yǔ)句已用戶選擇的 分組、排序，并且統(tǒng)計(jì)同一個(gè) 的數(shù)量 sql2 = select amp。 _ ) as 數(shù)量統(tǒng)計(jì) from Equipment group by amp。設(shè)置 DataGrid2 的數(shù)據(jù)源 Set = rs_tg End Sub 其它幾個(gè)窗同的設(shè)計(jì)與該窗體設(shè)計(jì)雷同 .排序按鈕的設(shè)計(jì)參照物業(yè)設(shè)備統(tǒng)計(jì)按鈕的設(shè)計(jì) . 第四章 主菜單的設(shè)計(jì)與系統(tǒng)實(shí)現(xiàn) 系統(tǒng)主菜單的設(shè)計(jì) 在實(shí)際的系統(tǒng)設(shè)計(jì)中 ,菜單可分為兩種類型 ,即下拉式菜單和彈出式菜單 ,下拉式菜單系統(tǒng)中 ,一 般有一個(gè)主菜單 ,其中包括若干個(gè)選擇項(xiàng) .主菜單單的每一項(xiàng)又可下拉出下一級(jí)子菜單 .這樣用一個(gè)個(gè) 31 的窗口的形式彈出在屏幕上 ,它是通過(guò)菜單編輯器建立 ,其步驟如下 : 1) 選取要建立菜單的窗體 2) 從 “ 工具 ” 菜單中 ,選取 “ 菜單編輯器 ” 建立如下圖所示的系統(tǒng)主菜單 : 可以看出菜單系統(tǒng)的建立比較直觀 ,因此不作重點(diǎn)描述 一個(gè)典型的數(shù)據(jù)庫(kù)應(yīng)用程序由數(shù)據(jù)結(jié)構(gòu)，操作界面，查詢選項(xiàng)和報(bào)表打印等組成。通過(guò)老師的幫助才慢慢的有了一點(diǎn)體會(huì)。表單制作完成后就是對(duì)控件編程，其中要 注意程序編寫時(shí)的細(xì)節(jié)，格式，命令的拼寫，運(yùn)用的合理性等等都要