【導(dǎo)讀】芀蚇蚇膀膆蚆蝿羃蒅螅袁膈莁螅羄羈芇螄蚃膇膃螃袆羀薁螂羈芅蕆螁肀肈莃螀螀芃艿莇袂肆膅莆羄節(jié)蒄蒅蚄肄莀蒄螆芀芆蒃罿肅節(jié)蒃肁羆薁蒂螁膁蕆蒁袃羄莃蒀羅腿艿蕿蚅膅薈螇膈蒃薇袀羀葿薇肂膆蒞薆螂聿芁薅襖芄膇薄羆肇蒆薃蚆芃莂螞螈肅羋蟻袀芁膄蟻羃肄薂蝕螂袆?shì)芟娧U膂莄蚈羇羅芀蚇蚇膀膆蚆蝿羃蒅螅袁膈莁螅羄羈芇螄蚃膇膃螃袆羀薁螂羈芅蕆螁肀肈莃螀螀芃艿莇袂肆膅莆羄節(jié)蒄蒅蚄肄莀蒄螆芀芆蒃罿肅節(jié)蒃肁羆薁蒂螁膁蕆蒁袃羄莃蒀羅腿艿蕿蚅膅薈螇膈蒃薇袀羀葿薇肂膆蒞薆螂聿芁薅襖芄膇薄羆肇蒆薃蚆芃莂螞螈肅羋蟻袀芁膄蟻羃肄

　　

【正文】 表框 LstB Adodb 數(shù)據(jù)庫(kù)訪問(wèn)對(duì)象 Adodb 7 DataGrid 數(shù)據(jù)表格顯示組件 DataGrid Frame 框架 Fam Option 單選框 Opt CheckBox 復(fù)選框 Chk PictureBox 圖象顯示組件 PtB CommonDialog 通用對(duì)話框組件 ComDlg Timer 時(shí)間組件 Tim ToolBar 工具欄 TlBar Menu 菜單 Mnu SSTab 頁(yè)框 SSTab ImageList 界面資源組件 ImgLst ２． 常量和變量的命名約定 下面為在編碼過(guò)程中會(huì)用到的常量和變量統(tǒng)一的命名，如表 所示 : 表 常量和變量命名約定 變量名 數(shù)據(jù)類(lèi)型 變量類(lèi)型 含義 UserShenFen String 全局變量 用戶身份標(biāo)志 LogOK Boolean 全局變量 登陸狀態(tài) UserName String 全局變量 用戶名 GongYingShangID String 全局變量 供應(yīng)商編號(hào) GongYingShang String 全局變量 供應(yīng)商名稱(chēng) TuShuBianHao String 全局變量 圖書(shū)編號(hào) DingJia Single 全局變量 圖書(shū)定價(jià) ShuMing String 全局變量 書(shū)名 HuiYuanKaHao String 全局變量 會(huì)員卡號(hào) HYXingMing String 全局變量 會(huì)員姓名 HYDengJi String 全局變量 會(huì)員等級(jí) 編碼應(yīng)清晰、可讀性好，運(yùn)用縮進(jìn)、空行，結(jié)合大小寫(xiě)區(qū)別等方法保持程序結(jié)構(gòu)良好。 3．結(jié)構(gòu)化編碼約定 凡與數(shù)據(jù)庫(kù)操作相關(guān)的模塊一律加上容錯(cuò)代碼，涉及多表操 8 作的模塊應(yīng) 該 運(yùn)用“事務(wù)”處理，以保持?jǐn)?shù)據(jù)完整性。 編碼風(fēng)格參照下例進(jìn)行： Public Sub CheckUser(userID As String, passwd As String) Dim userDB As Database Dim userRD As Recordset Dim dbName As String Dim STRSQL As String = 11 On Error GoTo errEnd dbName = If Right(dbName, 1) 、 Then dbName = dbName + 、 dbName = dbName + DataBase、 STRSQL = select [用戶身份 ] from [Admin] where [用戶ID]= amp。 userID amp。 and [用戶密碼 ]= amp。 passwd amp。 39。打開(kāi)數(shù)據(jù)庫(kù) Set userDB = (0).OpenDatabase(dbName, False, True) 39。檢索用戶 ,驗(yàn)證密碼 Set userRD = (STRSQL, dbOpenSnapshot) If 0 Then 39。設(shè)置用戶身份 UserShenFen = userRD![用戶身份 ] 39。關(guān)閉數(shù)據(jù)庫(kù) Set userRD = Nothing Set userDB = Nothing 39。進(jìn)入用戶環(huán)境 Load FrmMain Unload FrmLogIn logOK = True userName = userID = vbDefault Else 9 39。關(guān)閉數(shù)據(jù)庫(kù) Set userRD = Nothing Set userDB = Nothing logOK = False = vbDefault MsgBox 用戶名或密碼錯(cuò)誤！請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 登陸失敗 End If Exit Sub errEnd： = vbDefault MsgBox , vbOKOnly + vbExclamation, 登陸錯(cuò)誤 logOK = False 39。關(guān)閉數(shù)據(jù)庫(kù) Set userRD = Nothing Set userDB = Nothing Exit Sub End Sub 4． 數(shù)據(jù)源的約定 需用數(shù)據(jù)源的組件如： DataGrid 一律采用 Adodb 控件。有特殊需求的情況如：身份驗(yàn)證應(yīng)引用 DAO(數(shù)據(jù)訪問(wèn)對(duì)象 )。 5．?dāng)?shù)據(jù)庫(kù)訪問(wèn)約定 數(shù)據(jù)庫(kù)引擎采用 ，由 Adodb 組件進(jìn)行數(shù)據(jù)庫(kù)的訪問(wèn)，并為其他組件提供數(shù)據(jù)源。特殊情況、身份驗(yàn)證等由 DAO 訪問(wèn)數(shù)據(jù)庫(kù)。無(wú)需數(shù)據(jù)顯示的情況由 DAO 10 提供數(shù)據(jù)庫(kù)支持，有數(shù)據(jù)顯示的情況由 ADODB 組件提供數(shù)據(jù)庫(kù)支持。 11 第二章 系統(tǒng)分析 開(kāi)發(fā)背景 隨著我國(guó)市場(chǎng)經(jīng)濟(jì)的快速發(fā)展和人們生活水平的不斷提高，簡(jiǎn)單的社區(qū)服務(wù)已經(jīng)不能滿足人們的需求。如何利用先進(jìn)的管理手段，提高物業(yè)管理水平，是當(dāng)今社會(huì)所面臨的一個(gè)重要課題。要想提高物業(yè)管理水平，必須全方位地提高物業(yè)管理意識(shí)。只有高標(biāo)準(zhǔn)、高質(zhì)量的社區(qū)服務(wù)才能滿足人們的需求。面對(duì)信息時(shí)代的挑戰(zhàn)，利用高科技手段來(lái)提高物業(yè)管理無(wú)疑是一條行之有效的途徑。在某種意義上，信息與科技在物業(yè)管理與現(xiàn)代化建設(shè)中顯現(xiàn)出越來(lái)越重要的地位。物業(yè)管理方面的信息化與科學(xué)化，已成為現(xiàn)代化生活水平步入高臺(tái)階的重要 標(biāo)志。 需求分析 21 號(hào) 小區(qū)物業(yè)管理系統(tǒng) 位于我市北 郊，綠化面積 1200 多平方米，占地面積 10000，建筑面積 68000 多平方米， 24 小時(shí)保安巡邏，環(huán)境幽雅、周邊配套設(shè)施完善，實(shí)行封閉式管理，小區(qū)現(xiàn)居住約 2 千 人。由于管理面積大，戶數(shù)多，物業(yè)管理范圍廣，管理內(nèi)容繁雜，小區(qū)物業(yè)管理混亂的問(wèn)題一直無(wú)法解決。再者，小區(qū)物業(yè)管理中一項(xiàng)重要的工作是計(jì)算、匯總各項(xiàng)費(fèi)用，由于費(fèi)用項(xiàng)目較多，計(jì)算方法繁重，手工處理差錯(cuò)率較高。同時(shí)查詢某房產(chǎn)資料或業(yè)主資料往往也需要較長(zhǎng)時(shí)間，給物業(yè)管理者的工作帶來(lái)了諸多弊端。因此該物業(yè)公司決 定采用計(jì)算機(jī)進(jìn)行物業(yè)管理。根 12 據(jù)該小區(qū)具體情況，該系統(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)的實(shí)施為小區(qū)日后發(fā)展奠定了新的臺(tái)階。 根據(jù)該物業(yè)的具體情況，系統(tǒng)主要包括以下 4 個(gè)模塊：系統(tǒng)登錄 ,基本資料 ,物業(yè)管理 ,數(shù)據(jù)報(bào)表統(tǒng)計(jì)等 . 需求信息的收集 需求信息的收集又稱(chēng)為系統(tǒng)調(diào)查。為了充分地了解用戶可能提出的要求，在調(diào)查研究之前，要做好充分的準(zhǔn)備工作，要明確調(diào)查的目的、調(diào)查的內(nèi)容和調(diào)查的方式。 調(diào)查的目的 首先，要了解一個(gè)組織部門(mén)的機(jī)構(gòu)設(shè)置，主要業(yè)務(wù)活動(dòng)和職能。其次，要了解本組織部門(mén)的大致工作流程和任務(wù)范圍劃分。這一階段的工作是大量的和繁瑣的。尤其是管理人員缺乏對(duì)計(jì)算機(jī)的了解，他們不知道或不清楚哪些信息對(duì)于數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)者是必要的或重要的，不了解計(jì)算機(jī)在管理中能起什么作用，做哪些工作。另一方面，數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)者缺乏對(duì)管理對(duì)象的了解，不了解管理對(duì)象內(nèi)部的各種聯(lián)系，不了解數(shù)據(jù)處理中的各種要求。由于管理人員與數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)者之間存在著這樣的距離，所以需要管理部門(mén)和數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)者更加緊密地配合，充分提供有關(guān)信息和 資料，為數(shù)據(jù)庫(kù)系統(tǒng)的設(shè)計(jì)打下良好的基礎(chǔ)。 調(diào)查的內(nèi)容 外部要求：信息的性質(zhì)，響應(yīng)的時(shí)間、頻度和如何發(fā)生的規(guī) 13 則，以及對(duì)經(jīng)濟(jì)效益的考慮和要求，安全性及完整性要求。 業(yè)務(wù)現(xiàn)狀：這是調(diào)查的重點(diǎn)，包括信息的種類(lèi)，信息流程，信息的處理方式，各種業(yè)務(wù)工作過(guò)程和各種票據(jù)。 組織機(jī)構(gòu)：了解本組織部門(mén)內(nèi)部機(jī)構(gòu)的作用、現(xiàn)狀、存在的問(wèn)題，及是否適應(yīng)計(jì)算機(jī)管理。規(guī)劃中的應(yīng)用范圍和要求。 調(diào)查方式 開(kāi)座談會(huì)； 跟班作業(yè)； 請(qǐng)調(diào)查對(duì)象填寫(xiě)調(diào)查表； 查看業(yè)務(wù)記錄、票據(jù)； 個(gè)別交談。 對(duì)高層負(fù)責(zé)人的調(diào)查，最好采用個(gè)別交談方式。在交談 之前，應(yīng)給他們一份詳細(xì)的調(diào)查提綱，以便使他們有所準(zhǔn)備。從訪問(wèn)中，可獲得有關(guān)該組織高層管理活動(dòng)和決策過(guò)程的信息需求、該組織的運(yùn)行政策、未來(lái)發(fā)展變化趨勢(shì)等與戰(zhàn)略規(guī)劃有關(guān)的信息。 對(duì)中層管理人員的訪問(wèn)，可采用開(kāi)座談會(huì)、個(gè)別交談或發(fā)調(diào)查表、查看業(yè)務(wù)記錄的方式，目的是了解企業(yè)的具體業(yè)務(wù)控制方式和約束條件、不同業(yè)務(wù)之間的接口、日常控制管理的信息需求以及預(yù)測(cè)未來(lái)發(fā)展的潛在信息要求。 對(duì)基層操作人員的調(diào)查，主要采用發(fā)調(diào)查表和個(gè)別交談方式來(lái)了解每項(xiàng)具體業(yè)務(wù)的過(guò)程、數(shù)據(jù)要求和約束條件。 概要 Visual Basic是 美國(guó)微軟公司的第一個(gè)編程工具和系統(tǒng)開(kāi)發(fā) 14 的第一個(gè)產(chǎn)品， Visual Basic以優(yōu)良的性能、較強(qiáng)的系統(tǒng)開(kāi)發(fā)功能、完美的視覺(jué)界面和簡(jiǎn)單易學(xué)的特點(diǎn)，已經(jīng)贏得了全世界廣大用戶的偏愛(ài)。 Visual Basic的編程環(huán)境包含了快速有效的開(kāi)發(fā)功能，尤其是數(shù)據(jù)窗口這一方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象，使系統(tǒng)的開(kāi)發(fā)更人性化，操作更簡(jiǎn)便。 作為管理信息系統(tǒng)的開(kāi)發(fā)， Visual Basic是一個(gè)非常理想選擇。Visual Basic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開(kāi)發(fā) Windows環(huán)境下的種 類(lèi)應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與 Windows的專(zhuān)業(yè)開(kāi)發(fā)工具 SDK相媲美，而且程序開(kāi)發(fā)人員不必具有 C/C++編程基礎(chǔ)。在Visual Basic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用 Windows內(nèi)部的應(yīng)用程序接口 (API)函數(shù)，以及動(dòng)態(tài)鏈接庫(kù) (DLL)、動(dòng)態(tài)數(shù)據(jù)交換 (DDE)、對(duì)象的鏈接與嵌入 (OLE)、開(kāi)放式數(shù)據(jù)訪問(wèn) (ODBC)等技術(shù)，可以高效、快速地開(kāi)發(fā)出 Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。 Microsoft Visual Basic 現(xiàn)在，市場(chǎng)上可以選購(gòu)的應(yīng)用開(kāi)發(fā)產(chǎn)品很多，流行的也有數(shù)十種。目前在我國(guó)市場(chǎng)上最為流行、使用最多、最為先進(jìn)的可用作做作企業(yè)級(jí)開(kāi)發(fā)工具的產(chǎn)品有： Microsoft 公司的 Visual Basic Microsoft 公司的 Visual C Borland 公司的 Delphi Powersoft 公司的 PowerBulider 15 Java 等等 在目前市場(chǎng)上這些眾多的程序開(kāi)發(fā)工具中，有些強(qiáng)調(diào)程語(yǔ)言的彈性與執(zhí)行效率；有些則偏重于可視化程序開(kāi)發(fā)工具所帶來(lái)的便利性與效率的得高，各有各的優(yōu)點(diǎn)和特色， 也滿足了不同用戶的需求。然而，語(yǔ)言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒(méi)有彈性的語(yǔ)言作支持，許多特殊化的處理動(dòng)作必需要耗費(fèi)數(shù)倍的工夫來(lái)處理，使得原來(lái)所標(biāo)榜的效率提高的優(yōu)點(diǎn)失去了作用；相反，如果只強(qiáng)調(diào)程語(yǔ)言的彈性，卻沒(méi)有便利的工具作配合，會(huì)使一些即使非常簡(jiǎn)單的界面處理動(dòng)作，也會(huì)嚴(yán)重地浪費(fèi)程序設(shè)計(jì)師的寶貴時(shí)間。 作為數(shù)據(jù)庫(kù)系統(tǒng)的開(kāi)發(fā)， Visual Basic 是一個(gè)非常理想選擇。數(shù)據(jù)庫(kù)是 MIS 中的重要支持技術(shù)，在 MIS 開(kāi)發(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ǔ)言，該開(kāi)發(fā)工具具有很多長(zhǎng)處： Visual Basic 是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開(kāi)發(fā) Windows 環(huán)境下的種類(lèi)應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與 Windows 的專(zhuān)業(yè)開(kāi)發(fā)工具 SDK 相媲美，而且程序開(kāi)發(fā)人員不必具有 C/C++編程基礎(chǔ)。在 Visual Basic 環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用 Windows 內(nèi)部的應(yīng)用程序接口 (API)函數(shù)，以及動(dòng)態(tài)鏈接庫(kù) (DLL)、動(dòng)態(tài)數(shù)據(jù)交換 (DDE)、對(duì)象的鏈接與嵌入 (OLE)、開(kāi)放式數(shù)據(jù)訪問(wèn) (ODBC)等技術(shù)，可以高效、快速地 16 開(kāi)發(fā)出 Windows 環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。 總的來(lái)說(shuō)， Visual Basic 具有以下特點(diǎn)： 可視化編程： 用傳統(tǒng)程序設(shè)計(jì)語(yǔ)言設(shè)計(jì)程序時(shí)，都是通過(guò)編寫(xiě)程序代碼來(lái)設(shè)計(jì)用戶界面，在設(shè)計(jì)過(guò)程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。如果對(duì)界面的效果不滿意，還要回到程序中修改。有時(shí)候，這種編程 編譯 修改的操作可 能要反復(fù)多次，大大影響了軟件開(kāi)發(fā)效率。 Visual Basic 提供了可視化設(shè)計(jì)工具，把 Windows 界面設(shè)計(jì)的復(fù)雜性“封裝”起來(lái)，開(kāi)發(fā)人員不必為界面設(shè)計(jì)而編寫(xiě)大量程序代碼。只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫(huà)出各種“部件”，即圖形對(duì)象，并設(shè)置這些圖形對(duì)象的屬性。 Visual Basic 自動(dòng)產(chǎn)生界面