健身中心會員管理系統(tǒng)論文畢業(yè)設(shè)計(jì)畢業(yè)論文

1、摘 要 隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，任何一個(gè)單位要生存要發(fā)展，要高效率地把內(nèi)部活動(dòng)有機(jī)地組織起來，就必須建立與自身特點(diǎn)相適應(yīng)的管理信息系統(tǒng)。 本文介紹了在Visual Basic6.0環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應(yīng)用開發(fā)”的策略開發(fā)一個(gè)管理信息系統(tǒng)的過程。通過分析某一健身中心的管理的不足，創(chuàng)建了一套行之有效的計(jì)算機(jī)管理健身中心會員的方案。文章介紹了會員管理信息系統(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è)

2、主要模塊的算法，本系統(tǒng)界面友好，操作簡單，比較實(shí)用?！娟P(guān)鍵字】：管理信息系統(tǒng)、會員管理、Visual Basic應(yīng)用。SummaryWith more and more widespread and profound application of information technology in management, the implement of management information system has become mature in technology step by step. Managing information system is a new subject.

3、 Enterprise needs existence and development, so enterprise activities should be organized efficiently and organically, which means tightening up the enterprise management and strengthening effective management of any resource (staff, finance, property, etc.) internal the enterprise, and also establi

4、shing a management information system fitting in with its own characteristics.This article introduces the detailed process of exploring a management information system under the environment of visual FoxPro, utilizing “Top-Bottom” overall plan and a strategy according to “Bottom-Top” application and

5、 exploitation. That is to establish a set of effective scheme for student management by computer, through analyzing disadvantages of student management by human resources. This article emphasizes on three sections. The system analysis section of student management information includes feasible analy

6、sis, management function analysis. The system design section mainly focuses on system function design and data base design and data number design. And the system realization section has provided several major function , together with the main windows and programs.This economical and pragmatic system

7、 has explicit interface, with simple operation.Keywords ：MIS、member management、visual basic application摘 要ISummaryII第一章 系統(tǒng)概述71.1 系統(tǒng)及需求分析81.1.1 系統(tǒng)需求81.1.2可行性分析81.3系統(tǒng)的功能簡介111.3.1 項(xiàng)目規(guī)劃111.3.2系統(tǒng)管理模塊(CTRL+O)111.3.3會員卡管理模塊（CTRL+P）：121.3.4會員檔案管理模塊（CTRL+T）：121.3.5會員繳費(fèi)管理121.4系統(tǒng)開發(fā)的目標(biāo)12第二章 系統(tǒng)分析132.1業(yè)務(wù)流程分析13會員卡

8、管理業(yè)務(wù)流程圖：13會員檔案管理業(yè)務(wù)流程圖：132.2數(shù)據(jù)流程分析：142.2.1數(shù)據(jù)流程圖：142.3數(shù)據(jù)存儲分析：實(shí)體聯(lián)系圖152.4功能分析：功能層次圖153.系統(tǒng)設(shè)計(jì)163.1軟件模塊結(jié)構(gòu)設(shè)計(jì)16311系統(tǒng)方案確定16312軟件結(jié)構(gòu)設(shè)計(jì)1632數(shù)據(jù)庫設(shè)計(jì)17321 本系統(tǒng)中所涉及到的主要實(shí)體共有以下幾個(gè)數(shù)據(jù)表：17322 各表的物理結(jié)構(gòu)如下：19第四章 系統(tǒng)的功能2241系統(tǒng)登陸界面：2242系統(tǒng)主界面：2443用戶管理模塊：3544會員檔案管理模塊：394.5會員繳費(fèi)管理47第五章 系統(tǒng)運(yùn)行及評價(jià)475.1 系統(tǒng)的運(yùn)行475.2 系統(tǒng)的評價(jià)48第六章 結(jié)束語50致 謝51參考文獻(xiàn)52

9、 第一章 系統(tǒng)概述當(dāng)今社會為信息社會，世界已進(jìn)入在計(jì)算機(jī)信息管理領(lǐng)域中激烈競爭的時(shí)代。信息已成為繼勞動(dòng)力、土地、資本之后的又一大資源，誰控制的信息越多，誰利用信息資源的效率越高，誰就會在各方面的競爭中，占有一席之地，誰就會更有優(yōu)勢，這一點(diǎn)已得到舉世公認(rèn)。隨著時(shí)代的進(jìn)步，社會生產(chǎn)力高速發(fā)展，新技術(shù)層出不窮信息量急劇膨脹，整個(gè)人類社會已成為信息化的社會人們對信息和數(shù)據(jù)的利用和處理已經(jīng)進(jìn)入自動(dòng)化、網(wǎng)絡(luò)化和社會化的階段。如在查找情報(bào)資料、處理銀行帳目、倉庫管理、科研生產(chǎn)等方面，無不需要利用大量的信息資源。因此，如何有效地進(jìn)行數(shù)據(jù)信息的管理和利用，已經(jīng)成為人們普遍關(guān)注的課題。信息在不同的領(lǐng)域里有著不同的

10、概念，在管理科學(xué)領(lǐng)域中，通常認(rèn)為信息是經(jīng)過加工處理后的一種數(shù)據(jù)形式，是一種有次序的符號排列，它是系統(tǒng)傳輸和處理的對象。處在信息時(shí)代的今天，信息的作用越來越為人們所重視。制定工作計(jì)劃，研究投資策略，都離不開對信息的充分利用。管理信息系統(tǒng)（Management Information System,縮寫MIS）是一種“人機(jī)系統(tǒng)”，它以特定的模式支持一個(gè)組織內(nèi)各級組織機(jī)構(gòu)之間的通訊，對信息資源進(jìn)行綜合開發(fā)，管理和利用，實(shí)現(xiàn)對該組織的有效管理。它通過對數(shù)據(jù)的加工處理，及時(shí)為管理與決策分析提供信息。其特點(diǎn)有：l 數(shù)據(jù)全部存儲于計(jì)算機(jī)系統(tǒng)中；l 用戶使用簡單、操作方便、查詢速度快；l 有極強(qiáng)的人-機(jī)對話功

11、能；l 能直接從計(jì)算機(jī)系統(tǒng)中提供決策所需的參考信息。根據(jù)對健身中心會員管理中存在的問題進(jìn)行分析，本會員信息管理系統(tǒng)可以說是一個(gè)綜合性的健身中心會員管理系統(tǒng)，這它集成了系統(tǒng)管理、會員卡管理科、會員檔案管理、會員繳費(fèi)管理等多種功能，因而具有較強(qiáng)的實(shí)用性和先進(jìn)性。1.1 系統(tǒng)及需求分析 1.1.1 系統(tǒng)需求 通過調(diào)查,要求系統(tǒng)需要有以下功能: 由于操作人員的計(jì)算機(jī)知識普遍較差,要求有良好的人機(jī)界面; 由于該系統(tǒng)的使用對象多,要求有較好的權(quán)限管理; 原始數(shù)據(jù)修改簡單方便,支持多條件修改 方便的數(shù)據(jù)查詢，支持多條件查詢; 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好； 數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工干

12、預(yù);1.1.2可行性分析由于本系統(tǒng)管理的對象單一,都是在健身中心注冊的新老會員，且每個(gè)數(shù)據(jù)內(nèi)容具有較強(qiáng)的關(guān)聯(lián)性，涉及的計(jì)算過程不是很復(fù)雜。因此，比較適合于采用數(shù)據(jù)庫管理。且健身中心用于其會員管理的微機(jī)都是PIII以上的機(jī)器，在存儲量、速度方面都能滿足數(shù)據(jù)庫運(yùn)行的要求。在技術(shù)難度方面，由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參考其它程序的功能，因此完全可以實(shí)現(xiàn)。本系統(tǒng)的設(shè)計(jì)是在Windows 98中文版操作系統(tǒng)環(huán)境下，使用Visual Basic 6.0中文版開發(fā)成功的。數(shù)據(jù)庫是MIS中的重要支持技術(shù)，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個(gè)重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多

13、，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在選擇數(shù)據(jù)庫時(shí)，應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點(diǎn)及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言介紹如下：Visual Basic語言Visual Basic是一種可視化的、面對對象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級程序設(shè)計(jì)，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(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)鏈接庫(DLL)、動(dòng)態(tài)數(shù)據(jù)交換(DDE)、對象

14、的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。總的來說，Visual Basic具有以下特點(diǎn)：可視化編程：用傳統(tǒng)程序設(shè)計(jì)語言設(shè)計(jì)程序時(shí)，都是通過編寫程序代碼來設(shè)計(jì)用戶界面，在設(shè)計(jì)過程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。如果對界面的效果不滿意，還要回到程序中修改。有時(shí)候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。Visual Basic提供了可視化設(shè)計(jì)工具，把Windows界面設(shè)計(jì)的復(fù)雜性“封裝”起來，開發(fā)人員不必為界面設(shè)計(jì)而編寫大量程序代碼。只需要按設(shè)計(jì)要求的

15、屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對象，并設(shè)置這些圖形對象的屬性。Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。面向?qū)ο蟮某绦蛟O(shè)計(jì)4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語言(C+)不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語言中，對象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法(OOP)，把程序和數(shù)據(jù)封裝起來作為一個(gè)對象，并為每個(gè)對象賦予應(yīng)有的屬性，使對象成為實(shí)在的東西。在設(shè)計(jì)對象時(shí)，不必編寫建

16、立和描述每個(gè)對象的程序代碼，而是用工具畫在界面上，Visual Basic自動(dòng)生成對象的程序代碼并封裝起來。每個(gè)對象以圖形方式顯示在界面上，都是可視的。結(jié)構(gòu)化程序設(shè)計(jì)語言Visual Basic是在BASIC語言的基礎(chǔ)上發(fā)展起來的，具有高級程序設(shè)計(jì)語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。Visual Basic語句簡單易懂，其編輯器支持彩色代碼，可自動(dòng)進(jìn)行語法錯(cuò)誤檢查，同時(shí)具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。Visual Basic是解釋型語言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級語言分解翻譯成計(jì)算機(jī)可以識別的機(jī)器指令，并判斷每個(gè)語句的語法錯(cuò)誤。在設(shè)計(jì)Visual Basic程序的

17、過程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運(yùn)行。事件驅(qū)動(dòng)編程機(jī)制Visual Basic通過事件來執(zhí)行對象的操作。一個(gè)對象可能會產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過一段程序來響應(yīng)。例如，命令按鈕是一個(gè)對象，當(dāng)用戶單擊該按鈕時(shí)，將產(chǎn)生一個(gè)“單擊“(CLICK)事件，而在產(chǎn)生該事件時(shí)將執(zhí)行一段程序，用來實(shí)現(xiàn)指定的操作。在用Visual Basic設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個(gè)微小的子程序，即過程。這些過程分別面向不同的對象，由用戶操作引發(fā)某個(gè)事件來驅(qū)動(dòng)完成某種特

18、定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。訪問數(shù)據(jù)庫Visual Basic具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫，并提供了強(qiáng)大的數(shù)據(jù)存儲和檢索功能。同時(shí)，Visual Basic還能直接編輯和訪問其他外部數(shù)據(jù)庫，如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫格式都可以用Visual Basic編輯和處理。Visual Basic提供開放式數(shù)據(jù)連接，即ODBC功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQL Server，Oracl

19、e等。在應(yīng)用程序中，可以使用結(jié)構(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ù)交換(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)

20、用程序中與其他Windows應(yīng)用程序建立動(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ù)，可以方便地建立復(fù)合式文檔(compound document)，這種文檔由來自多個(gè)不同應(yīng)用程序的對象組成，文檔中

21、的每個(gè)對象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。動(dòng)態(tài)鏈接庫(DLL)Visual Basic是一種高級程序設(shè)計(jì)語言，不具備低級語言的功能，對訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過動(dòng)態(tài)鏈接庫技術(shù)將C/C+或匯編語言編寫的程序加入到Visual Basic應(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)管理、會員檔案管理、會員交費(fèi)管理等等。1.3.1 項(xiàng)目規(guī)劃健身中心會員信息管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫應(yīng)

22、用程序,由系統(tǒng)管理、會員卡管理、會員檔案管理、會員交費(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會員卡管理模塊（CTRL+P）：該模塊的功能是實(shí)現(xiàn)對健身中心會員卡的管理工作，包括：會員卡瀏覽、會員卡添加、會員卡查詢等，這三個(gè)功能模塊各自獨(dú)立，完成健身中心的全部會員卡的管理。1.3.4會員檔案管理模塊（CTRL+T）：該模塊的主要功能是實(shí)現(xiàn)對健身中心會員的的個(gè)人信息的管理工作，包括檔案添加、檔

23、案瀏覽、檔案查詢等功能，從而方便中心管理部門對會員的基本情況的快速查詢和了解。1.3.5會員繳費(fèi)管理 該模塊的主要功能是實(shí)現(xiàn)對健身中心會員的會費(fèi)繳納的管理工作，包括會員會費(fèi)瀏覽、會員會費(fèi)查詢等功能。從而方便健身中心的管理人員對會員的繳納會費(fèi)的情況的掌握與了解。1.4系統(tǒng)開發(fā)的目標(biāo)出于本系統(tǒng)是健身中心會員管理的一個(gè)綜合性的系統(tǒng)，本系統(tǒng)的設(shè)計(jì)目標(biāo)將最終定位于完成以上所述的系統(tǒng)主要業(yè)務(wù)的基本模型上。第二章 系統(tǒng)分析2.1業(yè)務(wù)流程分析會員卡管理業(yè)務(wù)流程圖：管理中心輸入計(jì)算機(jī)管理人員所屬部門會員卡種卡種輸出會員檔案管理業(yè)務(wù)流程圖：管理中心輸入計(jì)算機(jī)管理人員所屬部門會員檔案檔案輸出 2.2數(shù)據(jù)流程分析：2

24、.2.1數(shù)據(jù)流程圖：由于本系統(tǒng)的數(shù)據(jù)模塊較多，下面僅以會員檔案管理模塊為例來進(jìn)行編制。會員管理部門會員會員檔案管理系統(tǒng)管理中心會員教師教師會員信息會員卡查詢統(tǒng)計(jì)分析會員檔案管理系統(tǒng)0層數(shù)據(jù)流程圖管理中心卡費(fèi)用uyon1.0會員管理2.0卡管理3.0綜合管理4.0統(tǒng)計(jì)分析D1D2D3查詢者管理者會員會員卡會員管理系統(tǒng)1層數(shù)據(jù)流程圖2.3數(shù)據(jù)存儲分析：實(shí)體聯(lián)系圖1、數(shù)據(jù)模型設(shè)計(jì)。首先來做出會員檔案管理系統(tǒng)的E-R圖，分析這個(gè)問題的實(shí)體，從系統(tǒng)分析可以知道，會員檔案是由姓名、卡號等組成了這個(gè)系統(tǒng)的幾個(gè)實(shí)體。2、再分析幾個(gè)個(gè)實(shí)體之間的聯(lián)系。這幾個(gè)實(shí)體不是一個(gè)統(tǒng)一體。這個(gè)E-R圖可畫成下圖。2.4功能分

25、析：功能層次圖會員檔案添加會員檔案修改會員檔案刪除卡信息添加卡信息修改卡信息刪除卡信息瀏覽會員繳費(fèi)瀏覽會員繳費(fèi)查詢添加用戶重新登錄更改密碼系統(tǒng)管理會員繳費(fèi)管理會員卡管理會員檔案管理會員管理系統(tǒng)3.系統(tǒng)設(shè)計(jì)3.1軟件模塊結(jié)構(gòu)設(shè)計(jì)311系統(tǒng)方案確定通過對系統(tǒng)的調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能有：會員檔案管理、會員卡管理、會員交費(fèi)管理、系統(tǒng)管理、報(bào)表打印等功能。312軟件結(jié)構(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ù)處理中心卡管理檔案管理交費(fèi)管理系統(tǒng)管理其他管理打印報(bào)表 32數(shù)據(jù)庫設(shè)

26、計(jì)數(shù)據(jù)庫采用了Microsoft推出的Access數(shù)據(jù)庫，這是微軟集成到Office中的一個(gè)桌面數(shù)據(jù)庫，能夠快速方便的和Office的其他套件綜合使用。由于Access具有顯著的簡易性和有效性，大量的桌面數(shù)據(jù)庫系統(tǒng)都采用Access作為后臺數(shù)據(jù)庫。使用Access的好處還在于，如果你的系統(tǒng)擴(kuò)展到Client/Server模式的時(shí)候，可以使用Microsoft的數(shù)據(jù)庫服務(wù)器軟件SQL Server，此時(shí)，程序只需要簡單的修改一下鏈接（ADO的數(shù)據(jù)源）就可以，這樣，為程序的平滑擴(kuò)展提供了非常有力的條件。321 本系統(tǒng)中所涉及到的主要實(shí)體共有以下幾個(gè)數(shù)據(jù)表：class表：年度，卡種，所屬，時(shí)限，項(xiàng)目

27、，主管教練，備注jf表：卡號，年度，交費(fèi)，欠費(fèi)，日期，操作員use表：username,password,admin,readonly,qx1,qx2,qx3,qx4xj表：卡號，姓名，性別，卡種，出生年月，家庭住址，郵政編碼，聯(lián)系電話，注冊時(shí)間，備注jiaofei表：年度，所屬，時(shí)限，會費(fèi)322 各表的物理結(jié)構(gòu)如下：Class表：字段名稱類型寬度小數(shù)位年度文本16卡種文本20所屬文本5時(shí)限文本8項(xiàng)目文本16主管教練文本8備注備注Jf表：字段名稱類型寬度小數(shù)位卡號文本5年度文本50交費(fèi)貨幣自動(dòng)欠費(fèi)貨幣自動(dòng)日期日期/時(shí)間操作員文本10Use表：字段名稱類型寬度小數(shù)位username文本20pas

28、sword文本20Admin文本2Readonly文本2Qx1文本2Qx2文本2Qx3文本2Qx4文本2xj表：字段名稱類型寬度小數(shù)位卡號文本9姓名文本8性別文本2卡種文本10出生年月日期/時(shí)間家庭住址文本30郵政編碼數(shù)字（長整型）聯(lián)系電話數(shù)字（長整型）注冊時(shí)間日期/時(shí)間備注備注jiaofei表：字段名稱類型寬度小數(shù)位年度文本16項(xiàng)目文本50時(shí)限文本20學(xué)費(fèi)貨幣自動(dòng)第四章 系統(tǒng)的功能本部分主要內(nèi)容為本系統(tǒng)的運(yùn)行界面以及主要界面的源代碼。41系統(tǒng)登陸界面：本界面的主要功能是為了對系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)的用戶名和密碼保存在USE表中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限，可以用111;111

29、為用戶名和密碼來登陸本系統(tǒng)。Private Sub Command1_Click()Dim mrc As ADODB.Recordsettxtsql = "select username from use where username='" & Trim(Text1.Text) & "'"Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True Then MsgBox " 用戶名錯(cuò)誤！", vbExclamation + vbOKOnly, "警告"

30、 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit SubEnd Ifusername = mrc.Fields(0)txtsql2 = "select username from use where password='" & Trim(Text2.Text) & "'"Set mrc = ExecuteSQL(txtsql2)If mrc.EOF = True Then MsgBox " 密碼錯(cuò)誤！",

31、vbExclamation + vbOKOnly, "警告" Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) Exit SubEnd Iftxtsql = "select username from use where username='" & Trim(Text1.Text) & "'and password='" & Trim(Text2.Text) & "'"

32、;Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True Then MsgBox "用戶名稱和密碼不匹配！", vbExclamation + vbOKOnly, "警告" Exit SubEnd IfMDIForm1.Showfrmcpass.Text1.Text = Text1.TextUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub Text1_KeyPress

33、(KeyAscii As Integer)If KeyAscii = 13 Then Text2.SetFocusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Command1.SetFocusEnd IfEnd Sub42系統(tǒng)主界面：本模塊是本系統(tǒng)的應(yīng)用界面，在本界面上集成了本系統(tǒng)的所有功能，共有5個(gè)功能菜單和12個(gè)子菜單（功能模塊），從而實(shí)現(xiàn)了本系統(tǒng)從會員卡管理、會員檔案管理、會員繳費(fèi)管理、系統(tǒng)管理等系統(tǒng)的具體功能，同時(shí)，在系統(tǒng)管理模塊中可以完成對本系統(tǒng)的安全性管理。Pri

34、vate Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongDim find1 As IntegerDim liulan1 As IntegerPrivate Sub add_Click()qxstr = Executeqx(2)If qxs

35、tr = "false" Or qxstr = "readonly" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd If Form1.Show modi = False Form1.ZOrder (0)End SubPrivate Sub cjadd_Click()fenshumodi = Falseqxstr = Executeqx(4)If qxstr = "false

36、" Or qxstr = "readonly" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd Iffrmcj2.Showfrmcj2.ZOrder 0End SubPrivate Sub cjbrowse_Click()qxstr = Executeqx(4)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，

37、請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd Iffrmcj1.Showfrmcj1.ZOrder 0End SubPrivate Sub claasfind_Click()qxstr = Executeqx(2)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd If For

38、m4.Show Form4.ZOrder (0) i = SetWindowPos(Form4.hwnd, -1, 0, 0, 0, 0, 3)End SubPrivate Sub classapp_Click()qxstr = Executeqx(2)If qxstr = "false" Or qxstr = "readonly" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd If

39、Formclass1.Show classmodi = False Formclass1.classload Formclass1.ZOrder (0)End SubPublic Sub clabrowse()txtsql = "select * from class"Formclass2.ZOrder (0)Formclass2.Caption = "瀏覽班級設(shè)置"Formclass2.classshowtitleFormclass2.classshowdataEnd SubPrivate Sub classbrowse_Click()qxstr =

40、Executeqx(2)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd IfFormclass2.ShowEnd SubPrivate Sub classfind_Click()qxstr = Executeqx(2)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！

41、", vbInformation + vbOKOnly, " 警告") Exit SubEnd If Formclass3.Show Formclass3.ZOrder (0)End SubPrivate Sub find_Click() End SubPrivate Sub classkecheng_Click()qxstr = Executeqx(4)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！", vbInformation + vbOKOn

42、ly, " 警告") Exit SubEnd IfFrmclasskecheng1.ShowFrmclasskecheng1.ZOrderEnd SubPrivate Sub denglu2_Click()Frmdenlu.ShowUnload MeEnd SubPrivate Sub jiaofeiadd_Click()qxstr = Executeqx(3)If qxstr = "false" Or qxstr = "readonly" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！

43、", vbInformation + vbOKOnly, " 警告") Exit SubEnd IfFrmjf1.ShowFrmjf1.ZOrder 0End SubPrivate Sub jiaofeibrowse_Click()qxstr = Executeqx(3)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd Iffrmjf2.S

44、howfrmjf2.ZOrder 0End SubPrivate Sub jiaofeifind_Click()qxstr = Executeqx(3)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd IfFrmjf4.ShowEnd SubPrivate Sub jibenkecheng_Click()qxstr = Executeqx(4)If qxstr = &q

45、uot;false" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd Iffrmjiben.Showfrmjiben.ZOrder 0End SubPrivate Sub leixing_Click()qxstr = Executeqx(4)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！", vbIn

46、formation + vbOKOnly, " 警告") Exit SubEnd IfFrmleixing.ShowFrmleixing.ZOrder 0End SubPrivate Sub liulan_Click()qxstr = Executeqx(2)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd If find = False Form3

47、.ShowEnd SubPrivate Sub MDIForm_Load()'username = "0001"DataEnv1.Connection1.ConnectionString = connstringStatusBar1.Panels(2).Text = NowStatusBar1.Panels(3).Text = "當(dāng)前操作員： " & usernameDim aa As StringSelect Case Executeqx(1)Case "admin" aa = "超級管理員"Ca

48、se "readonly" aa = "只讀管理員"Case Else aa = "普通管理員"End SelectStatusBar1.Panels(4).Text = "狀態(tài)： " & aaEnd SubPrivate Sub useradd_Click()qxstr = Executeqx(1)If qxstr = "false" Or qxstr = "readonly" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員

49、聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd Iffrmuser1.Showfrmuser1.ZOrder 0End SubPrivate Sub usermodi_Click()qxstr = Executeqx(1)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit Sub End Iffrmcp

50、ass.ShowEnd SubPrivate Sub xuefeiadd_Click()qxstr = Executeqx(3)If qxstr = "false" Or qxstr = "readonly" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd If xuefeimodi = False Dim i As Integer For i = 0 To 3 frmxuefei1.

51、Combo1(i).Enabled = True Next i Me.Caption = "添加班級設(shè)置" For i = 0 To 3 frmxuefei1.Combo1(i).Text = "" Next i frmxuefei1.Text1.Text = "" frmxuefei1.Show frmxuefei1.ZOrder 0End SubPublic Sub xfbrowse()txtsql = "select * from xuefei order by 學(xué)期 desc, 年級 desc,專業(yè) desc&quo

52、t;Frmxuefei2.ZOrder (0)Frmxuefei2.Caption = "瀏覽學(xué)費(fèi)設(shè)置"Frmxuefei2.xuefeishowtitleFrmxuefei2.xuefeishowdataEnd SubPrivate Sub xuefeibrowse_Click()qxstr = Executeqx(3)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") E

53、xit SubEnd If Frmxuefei2.ShowEnd SubPrivate Sub xuefeifind_Click()qxstr = Executeqx(3)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd If Frmxuefei3.Show Frmxuefei3.ZOrder (0) i = SetWindowPos(Frmxuefei3.hwnd,

54、-1, 0, 0, 0, 0, 3)End Sub43用戶管理模塊：本模塊是本系統(tǒng)的安全性設(shè)置模塊，根據(jù)健身中心不同部門以及不同使用人員對本系統(tǒng)的要求和需要，從而實(shí)行了分級管理，對用戶的權(quán)限和類別進(jìn)行了分類管理。從而新用戶和會員用戶可以擁有不同的權(quán)限，執(zhí)行不同的操作，以達(dá)到更為科學(xué)和有效的管理。Private Sub Command1_Click()If Trim(Text1(0).Text) = "" Then MsgBox "用戶名不能為空！", vbExclamation + vbOKOnly, "警告" Text1(0).Se

55、tFocus Exit SubEnd IfIf Trim(Text1(1).Text) = "" Then MsgBox "密碼不能為空！", vbExclamation + vbOKOnly, "警告" Text1(1).SetFocus Exit SubEnd IfIf Trim(Text1(2).Text) = "" Then MsgBox "確認(rèn)密碼不能為空！", vbExclamation + vbOKOnly, "警告" Text1(2).SetFocus Exi

56、t SubEnd IfIf Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then MsgBox "確認(rèn)密碼不正確！", vbExclamation + vbOKOnly, "警告" Text1(2).SetFocus Exit SubEnd IfDim aa As Integeraa = 0If Option1(2).Value = True Then For i = 0 To 3 If Check1(i).Value = 1 Then aa = 1 Exit For End IfNext iIf a

57、a = 0 Then MsgBox " 普通用戶至少要有一項(xiàng)權(quán)限！", vbExclamation + vbOKOnly, "警告"Exit SubEnd IfEnd IfDim mrc As ADODB.Recordsettxtsql = "select * from use where username='" & Trim(Text1(0).Text) & "'"Set mrc = ExecuteSQL(txtsql)If mrc.EOF = False Then MsgBox " 已存在該用戶！", vbExclamation + vbOKOnly, "警告"