健身中心會(huì)員管理系統(tǒng)設(shè)計(jì)

...wd......wd......wd...摘要隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷開展的新型學(xué)科，任何一個(gè)單位要生存要開展，要高效率地把內(nèi)部活動(dòng)有機(jī)地組織起來，就必須建設(shè)與自身特點(diǎn)相適應(yīng)的管理信息系統(tǒng)。本文介紹了在VisualBasic6.0環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應(yīng)用開發(fā)〞的策略開發(fā)一個(gè)管理信息系統(tǒng)的過程。通過分析某一健身中心的管理的缺乏，創(chuàng)立了一套行之有效的計(jì)算機(jī)管理健身中心會(huì)員的方案。文章介紹了會(huì)員管理信息系統(tǒng)的系統(tǒng)分析局部，包括可行性分析、業(yè)務(wù)流程分析等；系統(tǒng)設(shè)計(jì)局部主要介紹了系統(tǒng)功能設(shè)計(jì)和數(shù)據(jù)庫設(shè)計(jì)及代碼設(shè)計(jì)；系統(tǒng)實(shí)現(xiàn)局部說明了幾個(gè)主要模塊的算法，本系統(tǒng)界面友好，操作簡單，比擬實(shí)用?！娟P(guān)鍵字】：管理信息系統(tǒng)、會(huì)員管理、VisualBasic應(yīng)用。摘要ISummaryII第一章系統(tǒng)概述71.1系統(tǒng)及需求分析81.1.1系統(tǒng)需求81.1.2可行性分析81.3系統(tǒng)的功能簡介111.3.1工程規(guī)劃111.3.2系統(tǒng)管理模塊(CTRL+O)111.3.3會(huì)員卡管理模塊〔CTRL+P〕：121.3.4會(huì)員檔案管理模塊〔CTRL+T〕：121.3.5會(huì)員繳費(fèi)管理121.4系統(tǒng)開發(fā)的目標(biāo)12第二章系統(tǒng)分析132.1業(yè)務(wù)流程分析13會(huì)員卡管理業(yè)務(wù)流程圖：13會(huì)員檔案管理業(yè)務(wù)流程圖：132.2數(shù)據(jù)流程分析：142.2.1數(shù)據(jù)流程圖：142.3數(shù)據(jù)存儲(chǔ)分析：實(shí)體聯(lián)系圖152.4功能分析：功能層次圖153.系統(tǒng)設(shè)計(jì)163.1軟件模塊構(gòu)造設(shè)計(jì)163．1．1系統(tǒng)方案確定163．1．2軟件構(gòu)造設(shè)計(jì)163．2數(shù)據(jù)庫設(shè)計(jì)173．2．1本系統(tǒng)中所涉及到的主要實(shí)體共有以下幾個(gè)數(shù)據(jù)表：173．2．2各表的物理構(gòu)造如下：19第四章系統(tǒng)的功能224．1系統(tǒng)登陸界面：224．2系統(tǒng)主界面：244．3用戶管理模塊：354．4會(huì)員檔案管理模塊：394.5會(huì)員繳費(fèi)管理47第五章系統(tǒng)運(yùn)行及評價(jià)475.1系統(tǒng)的運(yùn)行475.2系統(tǒng)的評價(jià)48第六章完畢語50致謝51參考文獻(xiàn)52第一章系統(tǒng)概述當(dāng)今社會(huì)為信息社會(huì)，世界已進(jìn)入在計(jì)算機(jī)信息管理領(lǐng)域中劇烈競爭的時(shí)代。信息已成為繼勞動(dòng)力、土地、資本之后的又一大資源，誰控制的信息越多，誰利用信息資源的效率越高，誰就會(huì)在各方面的競爭中，占有一席之地，誰就會(huì)更有優(yōu)勢，這一點(diǎn)已得到舉世公認(rèn)。隨著時(shí)代的進(jìn)步，社會(huì)生產(chǎn)力高速開展，新技術(shù)層出不窮信息量急劇膨脹，整個(gè)人類社會(huì)已成為信息化的社會(huì)人們對信息和數(shù)據(jù)的利用和處理已經(jīng)進(jìn)入自動(dòng)化、網(wǎng)絡(luò)化和社會(huì)化的階段。如在查找情報(bào)資料、處理銀行帳目、倉庫管理、科研生產(chǎn)等方面，無不需要利用大量的信息資源。因此，如何有效地進(jìn)展數(shù)據(jù)信息的管理和利用，已經(jīng)成為人們普遍關(guān)注的課題。信息在不同的領(lǐng)域里有著不同的概念，在管理科學(xué)領(lǐng)域中，通常認(rèn)為信息是經(jīng)過加工處理后的一種數(shù)據(jù)形式，是一種有次序的符號排列，它是系統(tǒng)傳輸和處理的對象。處在信息時(shí)代的今天，信息的作用越來越為人們所重視。制定工作方案，研究投資策略，都離不開對信息的充分利用。管理信息系統(tǒng)〔ManagementInformationSystem,縮寫MIS〕是一種“人機(jī)系統(tǒng)〞，它以特定的模式支持一個(gè)組織內(nèi)各級組織機(jī)構(gòu)之間的通訊，對信息資源進(jìn)展綜合開發(fā)，管理和利用，實(shí)現(xiàn)對該組織的有效管理。它通過對數(shù)據(jù)的加工處理，及時(shí)為管理與決策分析提供信息。其特點(diǎn)有：數(shù)據(jù)全部存儲(chǔ)于計(jì)算機(jī)系統(tǒng)中；用戶使用簡單、操作方便、查詢速度快；有極強(qiáng)的人-機(jī)對話功能；能直接從計(jì)算機(jī)系統(tǒng)中提供決策所需的參考信息。根據(jù)對健身中心會(huì)員管理中存在的問題進(jìn)展分析，本會(huì)員信息管理系統(tǒng)可以說是一個(gè)綜合性的健身中心會(huì)員管理系統(tǒng)，這它集成了系統(tǒng)管理、會(huì)員卡管理科、會(huì)員檔案管理、會(huì)員繳費(fèi)管理等多種功能，因而具有較強(qiáng)的實(shí)用性和先進(jìn)性。1.1系統(tǒng)及需求分析1.1.1系統(tǒng)需求通過調(diào)查,要求系統(tǒng)需要有以下功能:=1\*GB2⑴由于操作人員的計(jì)算機(jī)知識(shí)普遍較差,要求有良好的人機(jī)界面;=2\*GB2⑵由于該系統(tǒng)的使用對象多,要求有較好的權(quán)限管理;=3\*GB2⑶原始數(shù)據(jù)修改簡單方便,支持多條件修改=4\*GB2⑷方便的數(shù)據(jù)查詢，支持多條件查詢;=5\*GB2⑸在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好；=6\*GB2⑹數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工干預(yù);1.1.2可行性分析由于本系統(tǒng)管理的對象單一,都是在健身中心注冊的新老會(huì)員，且每個(gè)數(shù)據(jù)內(nèi)容具有較強(qiáng)的關(guān)聯(lián)性，涉及的計(jì)算過程不是很復(fù)雜。因此，比擬適合于采用數(shù)據(jù)庫管理。且健身中心用于其會(huì)員管理的微機(jī)都是PIII以上的機(jī)器，在存儲(chǔ)量、速度方面都能滿足數(shù)據(jù)庫運(yùn)行的要求。在技術(shù)難度方面，由于有指導(dǎo)教師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參考其它程序的功能，因此完全可以實(shí)現(xiàn)。本系統(tǒng)的設(shè)計(jì)是在Windows98中文版操作系統(tǒng)環(huán)境下，使用VisualBasic6.0中文版開發(fā)成功的。數(shù)據(jù)庫是MIS中的重要支持技術(shù)，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個(gè)重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在選擇數(shù)據(jù)庫時(shí)，應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點(diǎn)及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言介紹如下：VisualBasic語言VisualBasic是一種可視化的、面對對象和條用事件驅(qū)動(dòng)方式的構(gòu)造化高級程序設(shè)計(jì)，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程根基。在VisualBasic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動(dòng)態(tài)鏈接庫(DLL)、動(dòng)態(tài)數(shù)據(jù)交換(DDE)、對象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)?？偟膩碚f，VisualBasic具有以下特點(diǎn)：可視化編程：用傳統(tǒng)程序設(shè)計(jì)語言設(shè)計(jì)程序時(shí)，都是通過編寫程序代碼來設(shè)計(jì)用戶界面，在設(shè)計(jì)過程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。如果對界面的效果不滿意，還要回到程序中修改。有時(shí)候，這種編程-編譯-修改的操作可能要反復(fù)屢次，大大影響了軟件開發(fā)效率。VisualBasic提供了可視化設(shè)計(jì)工具，把Windows界面設(shè)計(jì)的復(fù)雜性“封裝〞起來，開發(fā)人員不必為界面設(shè)計(jì)而編寫大量程序代碼。只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件〞，即圖形對象，并設(shè)置這些圖形對象的屬性。VisualBasic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能的那局部代碼，從而可以大大提高程序設(shè)計(jì)的效率。面向?qū)ο蟮某绦蛟O(shè)計(jì)4.0版以后的VisualBasic支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語言(C++)不完全一樣。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語言中，對象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而VisualBasic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法(OOP)，把程序和數(shù)據(jù)封裝起來作為一個(gè)對象，并為每個(gè)對象賦予應(yīng)有的屬性，使對象成為實(shí)在的東西。在設(shè)計(jì)對象時(shí)，不必編寫建設(shè)和描述每個(gè)對象的程序代碼，而是用工具畫在界面上，VisualBasic自動(dòng)生成對象的程序代碼并封裝起來。每個(gè)對象以圖形方式顯示在界面上，都是可視的。構(gòu)造化程序設(shè)計(jì)語言VisualBasic是在BASIC語言的根基上開展起來的，具有高級程序設(shè)計(jì)語言的語句構(gòu)造，接近于自然語言和人類的邏輯思維方式。VisualBasic語句簡單易懂，其編輯器支持彩色代碼，可自動(dòng)進(jìn)展語法錯(cuò)誤檢查，同時(shí)具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。VisualBasic是解釋型語言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級語言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語句的語法錯(cuò)誤。在設(shè)計(jì)VisualBasic程序的過程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離VisualBasic環(huán)境，直接在Windows環(huán)境下運(yùn)行。事件驅(qū)動(dòng)編程機(jī)制VisualBasic通過事件來執(zhí)行對象的操作。一個(gè)對象可能會(huì)產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過一段程序來響應(yīng)。例如，命令按鈕是一個(gè)對象，當(dāng)用戶單擊該按鈕時(shí)，將產(chǎn)生一個(gè)“單擊“(CLICK)事件，而在產(chǎn)生該事件時(shí)將執(zhí)行一段程序，用來實(shí)現(xiàn)指定的操作。在用VisualBasic設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建設(shè)具有明顯開場和完畢的程序，而是編寫假設(shè)干個(gè)微小的子程序，即過程。這些過程分別面向不同的對象，由用戶操作引發(fā)某個(gè)事件來驅(qū)動(dòng)完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。訪問數(shù)據(jù)庫VisualBasic具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建設(shè)或處理MicrosoftAccess格式的數(shù)據(jù)庫，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí)，VisualBasic還能直接編輯和訪問其他外部數(shù)據(jù)庫，如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫格式都可以用VisualBasic編輯和處理。VisualBasic提供開放式數(shù)據(jù)連接，即ODBC功能，可通過直接訪問或建設(shè)連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQLServer，Oracle等。在應(yīng)用程序中，可以使用構(gòu)造化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶/服務(wù)器(client/server)方案。動(dòng)態(tài)數(shù)據(jù)交換(DDE)利用動(dòng)態(tài)數(shù)據(jù)交換(DynamicDataExchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動(dòng)態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建設(shè)起一條動(dòng)態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時(shí)，可以自動(dòng)更新鏈接的數(shù)據(jù)。VisualBasic提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他Windows應(yīng)用程序建設(shè)動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)展通信。對象的鏈接與嵌入(OLE)對象的鏈接與嵌入(OLE)將每個(gè)應(yīng)用程序都看做是一個(gè)對象(object)，將不同的對象鏈接(link)起來，再嵌入(embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫、文字等各種信息的集合式的文件。OLE技術(shù)是Microsoft公司對象技術(shù)的戰(zhàn)略，它把多個(gè)應(yīng)用程序合為一體，將每個(gè)應(yīng)用程序看做是一個(gè)對象進(jìn)展鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。利用OLE技術(shù)，可以方便地建設(shè)復(fù)合式文檔(compounddocument)，這種文檔由來自多個(gè)不同應(yīng)用程序的對象組成，文檔中的每個(gè)對象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全一樣的操作。動(dòng)態(tài)鏈接庫(DLL)VisualBasic是一種高級程序設(shè)計(jì)語言，不具備低級語言的功能，對訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過動(dòng)態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序參加到VisualBasic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外，通過動(dòng)態(tài)鏈接庫，還可以調(diào)用Windows應(yīng)用程序接口(API)函數(shù)，實(shí)現(xiàn)SDK所具有的功能。1.3系統(tǒng)的功能簡介本系統(tǒng)主要可以實(shí)現(xiàn)以下的管理功能：系統(tǒng)管理、會(huì)員檔案管理、會(huì)員交費(fèi)管理等等。1.3.1工程規(guī)劃健身中心會(huì)員信息管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫應(yīng)用程序,由系統(tǒng)管理、會(huì)員卡管理、會(huì)員檔案管理、會(huì)員交費(fèi)管理、打印報(bào)表等模塊組成,特規(guī)劃如下:1.3.2系統(tǒng)管理模塊(CTRL+O)該模塊的主要任務(wù)是維護(hù)系統(tǒng)的正常運(yùn)行和安全性設(shè)置,包括添加用戶(快捷鍵：CTRL+A)、修改密碼(快捷鍵：CTRL+B)、重新登錄(快捷鍵：CTRL+F1)等等。1.3.3會(huì)員卡管理模塊〔CTRL+P〕：該模塊的功能是實(shí)現(xiàn)對健身中心會(huì)員卡的管理工作，包括：會(huì)員卡瀏覽、會(huì)員卡添加、會(huì)員卡查詢等，這三個(gè)功能模塊各自獨(dú)立，完成健身中心的全部會(huì)員卡的管理。1.3.4會(huì)員檔案管理模塊〔CTRL+T〕：該模塊的主要功能是實(shí)現(xiàn)對健身中心會(huì)員的的個(gè)人信息的管理工作，包括檔案添加、檔案瀏覽、檔案查詢等功能，從而方便中心管理部門對會(huì)員的根本情況的快速查詢和了解。1.3.5會(huì)員繳費(fèi)管理該模塊的主要功能是實(shí)現(xiàn)對健身中心會(huì)員的會(huì)費(fèi)繳納的管理工作，包括會(huì)員會(huì)費(fèi)瀏覽、會(huì)員會(huì)費(fèi)查詢等功能。從而方便健身中心的管理人員對會(huì)員的繳納會(huì)費(fèi)的情況的掌握與了解。1.4系統(tǒng)開發(fā)的目標(biāo)出于本系統(tǒng)是健身中心會(huì)員管理的一個(gè)綜合性的系統(tǒng)，本系統(tǒng)的設(shè)計(jì)目標(biāo)將最終定位于完成以上所述的系統(tǒng)主要業(yè)務(wù)的根本模型上。第二章系統(tǒng)分析2.1業(yè)務(wù)流程分析會(huì)員卡管理業(yè)務(wù)流程圖：管理中心管理中心輸入計(jì)算機(jī)管理人員所屬部門會(huì)員卡種卡種輸出會(huì)員檔案管理業(yè)務(wù)流程圖：管理中心管理中心輸入計(jì)算機(jī)管理人員所屬部門會(huì)員檔案檔案輸出2.2數(shù)據(jù)流程分析：2.2.1數(shù)據(jù)流程圖：由于本系統(tǒng)的數(shù)據(jù)模塊較多，下面僅以會(huì)員檔案管理模塊為例來進(jìn)展編制。會(huì)員管理部門會(huì)員管理部門會(huì)員會(huì)員檔案管理系統(tǒng)管理中心會(huì)員教師教師會(huì)員信息會(huì)員卡查詢統(tǒng)計(jì)分析會(huì)員檔案管理系統(tǒng)0層數(shù)據(jù)流程圖管理中心卡管理中心卡費(fèi)用uyon1.0會(huì)員管理2.0卡管理3.0綜合管理4.0統(tǒng)計(jì)分析D1D2D3查詢者管理者會(huì)員會(huì)員會(huì)員卡會(huì)員卡會(huì)員管理系統(tǒng)1層數(shù)據(jù)流程圖2.3數(shù)據(jù)存儲(chǔ)分析：實(shí)體聯(lián)系圖1、數(shù)據(jù)模型設(shè)計(jì)。首先來做出會(huì)員檔案管理系統(tǒng)的E-R圖，分析這個(gè)問題的實(shí)體，從系統(tǒng)分析可以知道，會(huì)員檔案是由姓名、卡號等組成了這個(gè)系統(tǒng)的幾個(gè)實(shí)體。2、再分析幾個(gè)個(gè)實(shí)體之間的聯(lián)系。這幾個(gè)實(shí)體不是一個(gè)統(tǒng)一體。這個(gè)E-R圖可畫成以下列圖。2.4功能分析：功能層次圖會(huì)員檔案添加會(huì)員檔案添加會(huì)員檔案修改會(huì)員檔案刪除卡信息添加卡信息修改卡信息刪除卡信息瀏覽會(huì)員繳費(fèi)瀏覽會(huì)員繳費(fèi)查詢添加用戶重新登錄更改密碼系統(tǒng)管理會(huì)員繳費(fèi)管理會(huì)員卡管理會(huì)員檔案管理會(huì)員管理系統(tǒng)3.系統(tǒng)設(shè)計(jì)3.1軟件模塊構(gòu)造設(shè)計(jì)3．1．1系統(tǒng)方案確定通過對系統(tǒng)的調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能有：會(huì)員檔案管理、會(huì)員卡管理、會(huì)員交費(fèi)管理、系統(tǒng)管理、報(bào)表打印等功能。3．1．2軟件構(gòu)造設(shè)計(jì)本系統(tǒng)在執(zhí)行時(shí)，先根據(jù)不同的操作人員的需要來進(jìn)展相應(yīng)的模塊，然后可以輸入數(shù)據(jù)或者進(jìn)展其它的查詢或?yàn)g覽等操作；總體來說，本系統(tǒng)屬于一個(gè)事務(wù)型管理系統(tǒng)。承受數(shù)據(jù)承受數(shù)據(jù)處理中心卡管理檔案管理交費(fèi)管理系統(tǒng)管理其他管理打印報(bào)表3．2數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫采用了Microsoft推出的Access數(shù)據(jù)庫，這是微軟集成到Office中的一個(gè)桌面數(shù)據(jù)庫，能夠快速方便的和Office的其他套件綜合使用。由于Access具有顯著的簡易性和有效性，大量的桌面數(shù)據(jù)庫系統(tǒng)都采用Access作為后臺(tái)數(shù)據(jù)庫。使用Access的好處還在于，如果你的系統(tǒng)擴(kuò)展到Client/Server模式的時(shí)候，可以使用Microsoft的數(shù)據(jù)庫服務(wù)器軟件SQLServer，此時(shí)，程序只需要簡單的修改一下鏈接〔ADO的數(shù)據(jù)源〕就可以，這樣，為程序的平滑擴(kuò)展提供了非常有力的條件。3．2．1本系統(tǒng)中所涉及到的主要實(shí)體共有以下幾個(gè)數(shù)據(jù)表：class表：{年度，卡種，所屬，時(shí)限，工程，主管教練，備注}jf表：{卡號，年度，交費(fèi)，欠費(fèi)，日期，操作員}use表：{username,password,admin,readonly,qx1,qx2,qx3,qx4}xj表：{卡號，姓名，性別，卡種，出生年月，家庭住址，郵政編碼，聯(lián)系，注冊時(shí)間，備注}jiaofei表：{年度，所屬，時(shí)限，會(huì)費(fèi)}3．2．2各表的物理構(gòu)造如下：Class表：字段名稱類型寬度小數(shù)位年度文本16卡種文本20所屬文本5時(shí)限文本8工程文本16主管教練文本8備注備注Jf表：字段名稱類型寬度小數(shù)位卡號文本5年度文本50交費(fèi)貨幣自動(dòng)欠費(fèi)貨幣自動(dòng)日期日期/時(shí)間操作員文本10Use表：字段名稱類型寬度小數(shù)位username文本20password文本20Admin文本2Readonly文本2Qx1文本2Qx2文本2Qx3文本2Qx4文本2xj表：字段名稱類型寬度小數(shù)位卡號文本9姓名文本8性別文本2卡種文本10出生年月日期/時(shí)間家庭住址文本30郵政編碼數(shù)字〔長整型〕聯(lián)系數(shù)字〔長整型〕注冊時(shí)間日期/時(shí)間備注備注jiaofei表：字段名稱類型寬度小數(shù)位年度文本16工程文本50時(shí)限文本20學(xué)費(fèi)貨幣自動(dòng)第四章系統(tǒng)的功能本局部主要內(nèi)容為本系統(tǒng)的運(yùn)行界面以及主要界面的源代碼。4．1系統(tǒng)登陸界面：本界面的主要功能是為了對系統(tǒng)進(jìn)展安全性管理，本系統(tǒng)的用戶名和密碼保存在USE表中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限，可以用111;111為用戶名和密碼來登陸本系統(tǒng)。PrivateSubCommand1_Click()DimmrcAsADODB.Recordsettxtsql="selectusernamefromusewhereusername='"&Trim(Text1.Text)&"'"Setmrc=ExecuteSQL(txtsql)Ifmrc.EOF=TrueThenMsgBox"用戶名錯(cuò)誤！",vbExclamation+vbOKOnly,"警告"Text1.SetFocusText1.SelStart=0Text1.SelLength=Len(Text1.Text)ExitSubEndIfusername=mrc.Fields(0)txtsql2="selectusernamefromusewherepassword='"&Trim(Text2.Text)&"'"Setmrc=ExecuteSQL(txtsql2)Ifmrc.EOF=TrueThenMsgBox"密碼錯(cuò)誤！",vbExclamation+vbOKOnly,"警告"Text2.SetFocusText2.SelStart=0Text2.SelLength=Len(Text2.Text)ExitSubEndIftxtsql="selectusernamefromusewhereusername='"&Trim(Text1.Text)&"'andpassword='"&Trim(Text2.Text)&"'"Setmrc=ExecuteSQL(txtsql)Ifmrc.EOF=TrueThenMsgBox"用戶名稱和密碼不匹配！",vbExclamation+vbOKOnly,"警告"ExitSubEndIfMDIForm1.Showfrmcpass.Text1.Text=Text1.TextUnloadMeEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText2.SetFocusEndIfEndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCommand1.SetFocusEndIfEndSub4．2系統(tǒng)主界面：本模塊是本系統(tǒng)的應(yīng)用界面，在本界面上集成了本系統(tǒng)的所有功能，共有5個(gè)功能菜單和12個(gè)子菜單〔功能模塊〕，從而實(shí)現(xiàn)了本系統(tǒng)從會(huì)員卡管理、會(huì)員檔案管理、會(huì)員繳費(fèi)管理、系統(tǒng)管理等系統(tǒng)的具體功能，同時(shí)，在系統(tǒng)管理模塊中可以完成對本系統(tǒng)的安全性管理。PrivateDeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValXAsLong,ByValYAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLongDimfind1AsIntegerDimliulan1AsIntegerPrivateSubadd_Click()qxstr=Executeqx(2)Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfForm1.Showmodi=FalseForm1.ZOrder(0)EndSubPrivateSubcjadd_Click()fenshumodi=Falseqxstr=Executeqx(4)Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffrmcj2.Showfrmcj2.ZOrder0EndSubPrivateSubcjbrowse_Click()qxstr=Executeqx(4)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffrmcj1.Showfrmcj1.ZOrder0EndSubPrivateSubclaasfind_Click()qxstr=Executeqx(2)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfForm4.ShowForm4.ZOrder(0)i=SetWindowPos(Form4.hwnd,-1,0,0,0,0,3)EndSubPrivateSubclassapp_Click()qxstr=Executeqx(2)Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFormclass1.Showclassmodi=FalseFormclass1.classloadFormclass1.ZOrder(0)EndSubPublicSubclabrowse()txtsql="select*fromclass"Formclass2.ZOrder(0)Formclass2.Caption="瀏覽班級設(shè)置"Formclass2.classshowtitleFormclass2.classshowdataEndSubPrivateSubclassbrowse_Click()qxstr=Executeqx(2)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFormclass2.ShowEndSubPrivateSubclassfind_Click()qxstr=Executeqx(2)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFormclass3.ShowFormclass3.ZOrder(0)EndSubPrivateSubfind_Click()EndSubPrivateSubclasskecheng_Click()qxstr=Executeqx(4)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFrmclasskecheng1.ShowFrmclasskecheng1.ZOrderEndSubPrivateSubdenglu2_Click()Frmdenlu.ShowUnloadMeEndSubPrivateSubjiaofeiadd_Click()qxstr=Executeqx(3)Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFrmjf1.ShowFrmjf1.ZOrder0EndSubPrivateSubjiaofeibrowse_Click()qxstr=Executeqx(3)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffrmjf2.Showfrmjf2.ZOrder0EndSubPrivateSubjiaofeifind_Click()qxstr=Executeqx(3)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFrmjf4.ShowEndSubPrivateSubjibenkecheng_Click()qxstr=Executeqx(4)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffrmjiben.Showfrmjiben.ZOrder0EndSubPrivateSubleixing_Click()qxstr=Executeqx(4)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFrmleixing.ShowFrmleixing.ZOrder0EndSubPrivateSubliulan_Click()qxstr=Executeqx(2)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffind=FalseForm3.ShowEndSubPrivateSubMDIForm_Load()'username="0001"DataEnv1.Connection1.ConnectionString=connstringStatusBar1.Panels(2).Text=NowStatusBar1.Panels(3).Text="當(dāng)前操作員："&usernameDimaaAsStringSelectCaseExecuteqx(1)Case"admin"aa="超級管理員"Case"readonly"aa="只讀管理員"CaseElseaa="普通管理員"EndSelectStatusBar1.Panels(4).Text="狀態(tài)："&aaEndSubPrivateSubuseradd_Click()qxstr=Executeqx(1)Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffrmuser1.Showfrmuser1.ZOrder0EndSubPrivateSubusermodi_Click()qxstr=Executeqx(1)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffrmcpass.ShowEndSubPrivateSubxuefeiadd_Click()qxstr=Executeqx(3)Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfxuefeimodi=FalseDimiAsIntegerFori=0To3frmxuefei1.Combo1(i).Enabled=TrueNextiMe.Caption="添加班級設(shè)置"Fori=0To3frmxuefei1.Combo1(i).Text=""Nextifrmxuefei1.Text1.Text=""frmxuefei1.Showfrmxuefei1.ZOrder0EndSubPublicSubxfbrowse()txtsql="select*fromxuefeiorderby學(xué)期desc,年級desc,專業(yè)desc"Frmxuefei2.ZOrder(0)Frmxuefei2.Caption="瀏覽學(xué)費(fèi)設(shè)置"Frmxuefei2.xuefeishowtitleFrmxuefei2.xuefeishowdataEndSubPrivateSubxuefeibrowse_Click()qxstr=Executeqx(3)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFrmxuefei2.ShowEndSubPrivateSubxuefeifind_Click()qxstr=Executeqx(3)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFrmxuefei3.ShowFrmxuefei3.ZOrder(0)i=SetWindowPos(Frmxuefei3.hwnd,-1,0,0,0,0,3)EndSub4．3用戶管理模塊：本模塊是本系統(tǒng)的安全性設(shè)置模塊，根據(jù)健身中心不同部門以及不同使用人員對本系統(tǒng)的要求和需要，從而實(shí)行了分級管理，對用戶的權(quán)限和類別進(jìn)展了分類管理。從而新用戶和會(huì)員用戶可以擁有不同的權(quán)限，執(zhí)行不同的操作，以到達(dá)更為科學(xué)和有效的管理。PrivateSubCommand1_Click()IfTrim(Text1(0).Text)=""ThenMsgBox"用戶名不能為空！",vbExclamation+vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIfIfTrim(Text1(1).Text)=""ThenMsgBox"密碼不能為空！",vbExclamation+vbOKOnly,"警告"Text1(1).SetFocusExitSubEndIfIfTrim(Text1(2).Text)=""ThenMsgBox"確認(rèn)密碼不能為空！",vbExclamation+vbOKOnly,"警告"Text1(2).SetFocusExitSubEndIfIfTrim(Text1(1).Text)<>Trim(Text1(2).Text)ThenMsgBox"確認(rèn)密碼不正確！",vbExclamation+vbOKOnly,"警告"Text1(2).SetFocusExitSubEndIfDimaaAsIntegeraa=0IfOption1(2).Value=TrueThenFori=0To3IfCheck1(i).Value=1Thenaa=1ExitForEndIfNextiIfaa=0ThenMsgBox"普通用戶至少要有一項(xiàng)權(quán)限！",vbExclamation+vbOKOnly,"警告"ExitSubEndIfEndIfDimmrcAsADODB.Recordsettxtsql="select*fromusewhereusername='"&Trim(Text1(0).Text)&"'"Setmrc=ExecuteSQL(txtsql)Ifmrc.EOF=FalseThenMsgBox"已存在該用戶！",vbExclamation+vbOKOnly,"警告"Text1(0).SetFocusText1(0).SelStart=0Text1(0).SelLength=Len(Text1(0).Text)ExitSubEndIftxtsql="select*fromuse"Setmrc=ExecuteSQL(txtsql)mrc.AddNewmrc.Fields(0)=Trim(Text1(0).Text)mrc.Fields(1)=Trim(Text1(1).Text)Fori=0To2IfOption1(i).Value=TrueThenSelectCaseiCase0mrc.Fields("admin")="y"Case1mrc.Fields("readonly")="y"Case2Forj=0To3IfCheck1(j).Value=1ThenSelectCasejCase0mrc.Fields("qx1")="y"Case1mrc.Fields("qx2")="y"Case2mrc.Fields("qx3")="y"Case3mrc.Fields("qx4")="y"EndSelectEndIfNextjEndSelectEndIfNextimrc.UpdateMsgBox"用戶添加成功！",vbExclamation+vbOKOnly,"警告"Text1(0).Text=""Text1(1).Text=""Text1(2).Text=""EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Option1(2).Value=TrueEndSubPrivateSubForm_Resize()Text1(0).SetFocusEndSubPrivateSubOption1_Click(IndexAsInteger)IfIndex<>2ThenFori=0To3Check1(i).Enabled=FalseNextiElseFori=0To3Check1(i).Enabled=TrueNextiEndIfEndSub4．4會(huì)員檔案管理模塊：因?yàn)楸鞠到y(tǒng)中有些功能模塊具有相似之處，因此在本文只用此模塊進(jìn)展一個(gè)簡單的說明。其它的相似模塊的代碼可能參閱本模塊的設(shè)計(jì)思路。PublicprintstrAsStringPrivateSubCommand1_Click()DimdbSourceAsDatabaseSetdbSource=OpenDatabase("xs.mdb")z=MsgBox("成功！",vbOKOnly,"查詢")EndSubPublicSubclassshowtitle()DimiAsIntegerMSF1.ClearWithMSF1.Cols=8.TextMatrix(0,1)="年度".TextMatrix(0,2)="卡種".TextMatrix(0,3)="所屬".TextMatrix(0,4)="時(shí)限".TextMatrix(0,5)="工程".TextMatrix(0,6)="主管教練".TextMatrix(0,7)="備注".ColWidth(0)=100.ColWidth(1)=1300.ColWidth(2)=1200.ColWidth(3)=800.ColWidth(4)=800.ColWidth(5)=800.ColWidth(6)=800.ColWidth(7)=5000.FixedRows=1Fori=1To7.ColAlignment(i)=0Nexti.FillStyle=flexFillSingle.Col=0.Row=0.RowSel=1.ColSel=.Cols-1.CellAlignment=4.Row=1EndWithEndSubPublicSubclassshowdata()DimjAsIntegerDimiAsIntegerDimmrc1AsADODB.RecordsetSetmrc1=ExecuteSQL(Trim(txtsql))Ifmrc1.EOF=FalseThenmrc1.MoveFirstWithMSF1.Rows=1DoWhileNotmrc1.EOF.Rows=.Rows+1Fori=1Tomrc1.Fields.Count.TextMatrix(.Rows-1,i)=mrc1.Fields(i-1)Nextimrc1.MoveNextLoopmrc1.CloseEndWithElseIfclassfind=TrueThenFormclass2.HideFormclass3.Showzzz=MsgBox("對不起，沒有此會(huì)員的檔案記錄！",vbOKOnly,"查詢")Formclass3.ZOrder(0)Formclass3.Text1(0).SetFocusEndIfEndIfEndSubPrivateSubcmddel_Click()qxstr=Executeqx(2)Ifqxstr="readonly"Thenss=MsgBox("對不起，你是只讀用戶不能刪除記錄，請與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfDimmrcAsADODB.RecordsetDimmsgtextAsStringDimintcountAsIntegerIfTrim(Me.MSF1.TextMatrix(MSF1.Row,1))=""Thensssss=MsgBox("你還沒有選擇記錄！",vbOKOnly+vbExclamation,"警告")ExitSubEndIfIfMsgBox("確定要?jiǎng)h除會(huì)員為"&Trim(Me.MSF1.TextMatrix(MSF1.Row,2))&"的記錄嗎"&Chr(13)&Chr(10)&"繼續(xù)會(huì)導(dǎo)致該數(shù)據(jù)喪失，繼續(xù)嗎",vbOKCancel+vbExclamation,"警告")=vbOKThentxtsql="delete*fromxjwhere班級='"&Trim(Me.MSF1.TextMatrix(MSF1.Row,2))&"'"Setmrc=ExecuteSQL(txtsql)txtsql="delete*fromjfwhere學(xué)號in(selectfromxjwhere班級='"&Trim(Me.MSF1.TextMatrix(MSF1.Row,2))&"')"Setmrc=ExecuteSQL(txtsql)'刪除在