【文章內(nèi)容簡(jiǎn)介】 程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件 (.EXE)，脫離 Visual Basic 環(huán)境，直接在 Windows 環(huán)境下運(yùn)行。 事件驅(qū)動(dòng)編程機(jī)制 Visual Basic 通過(guò)事件來(lái)執(zhí)行對(duì)象的操作。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過(guò)一段程序來(lái)響應(yīng)。例如，命令按鈕是一個(gè)對(duì)象，當(dāng)用戶(hù)單擊該按鈕時(shí)，將產(chǎn)生一個(gè)“單擊 ”(CLICK)事件，而在產(chǎn)生該事件時(shí)將執(zhí)行一段程序，用來(lái)實(shí)現(xiàn)指定的操作。 在用 Visual Basic 設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開(kāi)始和結(jié)束的程序，而是編寫(xiě)若干個(gè)微小的子程序，即過(guò)程。這些過(guò)程分別面向不同的對(duì)象，由用戶(hù)操作引發(fā)某個(gè)事件來(lái)驅(qū)動(dòng)完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過(guò)程來(lái)執(zhí)行 指定的操作，這樣可以方便編程人員，提高效率。 訪問(wèn)數(shù)據(jù)庫(kù) Visual Basic 具有強(qiáng)大的數(shù)據(jù)庫(kù)管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫(kù)管理窗口，可以直接建立或處理 Microsoft Access 格式的數(shù)據(jù)庫(kù)，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí)， Visual Basic 還能直接編輯和訪問(wèn)其他外部數(shù)據(jù)庫(kù)，如 dBASE， FoxPro， Paradox等，這些數(shù)據(jù)庫(kù)格式都可以用 Visual Basic 編輯和處理。 12 Visual Basic 提供開(kāi)放式數(shù)據(jù)連接，即 ODBC 功能，可通過(guò)直接訪問(wèn)或建立連接的方式使用并操作后臺(tái)大 型網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，如 SQL Server， Oracle 等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢(xún)語(yǔ)言 SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問(wèn)服務(wù)器上的數(shù)據(jù)庫(kù)，并提供了簡(jiǎn)單的面向?qū)ο蟮膸?kù)操作指令和多用戶(hù)數(shù)據(jù)庫(kù)訪問(wèn)的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的SQL 的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫(kù)提供了 SQL 網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶(hù) /服務(wù)器 (client/server)方案。 動(dòng)態(tài)數(shù)據(jù)交換 (DDE) 利用動(dòng)態(tài)數(shù)據(jù)交換 (Dynamic Data Exchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動(dòng)態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不 同的應(yīng)用程序建立起一條動(dòng)態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時(shí)，可以自動(dòng)更新鏈接的數(shù)據(jù)。 Visual Basic 提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他 Windows 應(yīng)用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。 對(duì)象的鏈接與嵌入 (OLE) 對(duì)象的鏈接與嵌入 (OLE)將每個(gè)應(yīng)用程序都看作是一個(gè)對(duì)象(object)，將不同的對(duì)象鏈接 (link)起來(lái)，再嵌入 (embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫(huà)、文字等各種信息的集合式的文件。 OLE 技術(shù)是 Microsoft公司對(duì)象技術(shù)的 戰(zhàn)略，它把多個(gè)應(yīng)用程序合為一體，將每個(gè)應(yīng)用程序看作是一個(gè)對(duì)象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。利用 OLE 技術(shù)，可以方便地建立復(fù)合式文檔 (pound document)，這種文檔由來(lái)自多個(gè)不同應(yīng)用程序的對(duì)象組成，文檔中的每個(gè)對(duì)象都與原來(lái)的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來(lái)應(yīng)用程序完全相同的操作。 13 動(dòng)態(tài)鏈接庫(kù) (DLL) Visual Basic 是一種高級(jí)程序設(shè)計(jì)語(yǔ)言，不具備低級(jí)語(yǔ)言的功能，對(duì)訪問(wèn)機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過(guò)動(dòng)態(tài)鏈接庫(kù)技術(shù)將 C/C++或匯編語(yǔ)言編寫(xiě)的程序加入到 Visual Basic 應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語(yǔ)言編寫(xiě)的函數(shù)。此外，通過(guò)動(dòng)態(tài)鏈接庫(kù)，還可以調(diào)用 Windows 應(yīng)用程序接口 (API)函數(shù)，實(shí)現(xiàn) SDK 所具有的功能 14 業(yè)主 通知 裝修 第三 章 系統(tǒng)設(shè)計(jì) 業(yè)務(wù)流程圖 根據(jù)該小區(qū)物業(yè)管理的特點(diǎn)和該小區(qū)的實(shí)際情況，物業(yè)管理系統(tǒng)流程如下圖所示。 交水電氣費(fèi)、 房屋簽約 業(yè)主入戶(hù) 水電氣讀表 物業(yè)管理 申請(qǐng)裝修 填寫(xiě)收費(fèi)通知單 系統(tǒng)主要功能包括 4． 系統(tǒng)登錄 ：包括 用戶(hù)登錄，修改密碼 ， 添加用戶(hù) ,退出系統(tǒng) 。 5． 基本資料 ：包括 住戶(hù)資料和財(cái)產(chǎn)資料 6． 物業(yè)管理 ：包括 物業(yè)設(shè)備 ,儀表數(shù)據(jù) ,停車(chē)場(chǎng)管理 ,收費(fèi)管理 ,住戶(hù)投訴 ,住戶(hù)報(bào)修管理 ,設(shè)備維修管理等 . 7． 數(shù)據(jù)報(bào)表統(tǒng)計(jì) ：包括 物業(yè)設(shè)備 ,儀表數(shù)據(jù)統(tǒng)計(jì) ,收費(fèi)統(tǒng)計(jì) ,信戶(hù)投訴統(tǒng)計(jì) ,信戶(hù)報(bào)修統(tǒng)計(jì) ,設(shè)備維修統(tǒng)計(jì)等 . 根據(jù)該公司業(yè)務(wù)情況和行業(yè)特點(diǎn)，本系統(tǒng)采用了 ACCESS 數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)名稱(chēng)為 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è)置其屬性 。然后添 20 加程序代碼。 其中登錄按鈕的源碼如下 : Private Sub cmdLogin_Click() 39。首先檢查用戶(hù)是否輸入了用戶(hù)名和密碼 If = Then MsgBox 請(qǐng)輸入用戶(hù)名！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)輸入密碼！ , vbOKOnly + vbInformation, 注意 Exit Sub End If Dim sqluser As String 39。構(gòu)造查詢(xún)?cè)撚脩?hù)名和密碼的 sql 語(yǔ)句 sqluser = select * from UserTable where Username = 39。 amp。 _ amp。 39。 and Password = 39。 amp。 amp。 39。 = adUseClient 39。打開(kāi)數(shù)據(jù)游標(biāo) sqluser, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 用戶(hù)名或密碼不正確！ , vbOKOnly + vbInformation, 注意 39。清空 txtUser 和 txtPwd 文本框 = = Exit Sub Else 39。還需使其他菜單可用 = True = True = True 21 = True 39。提示用戶(hù)登錄成功并關(guān)閉游標(biāo)和登錄窗口 MsgBox 登錄成功！ , vbOKOnly + vbInformation, 注意 Unload Me End If End Sub 基本資料模塊的設(shè)計(jì) 同理窗體中的控件的添加比較直接 ,參照登錄窗體的設(shè)計(jì) ,并添加相關(guān)代碼 .其中重點(diǎn)分析按鈕源碼如下 :。 添加按鈕的 代碼 ： Private S