健身中心會員管理系統(tǒng)

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

2、計和數(shù)據(jù)庫設(shè)計及代碼設(shè)計；系統(tǒng)實現(xiàn)部分說明了幾個主 要模塊的算法，本系統(tǒng)界面友好，操作簡單，比較實用。 關(guān)關(guān)鍵鍵字字：管理信息系統(tǒng) 會員 管理 visual basic。 fitness center member management system abstract with more and more widespread and profound application of information technology in management, the implement of management information system has become mature in t

3、echnology step by step. managing information system is a new subject. 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 (staf

4、f, finance, property, etc.) internal the enterprise, and also establishing 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”

5、 overall plan and a strategy according to “bottom-top” application and 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 anal

6、ysis section of student management information includes feasible analysis, 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 w

7、ith the main windows and programs. this economical and pragmatic system has explicit interface, with simple operation. keywords: mis member management visual basic 目 錄 第一章 系統(tǒng)概述.1 1.1 系統(tǒng)及需求分析.1 1.1.1 系統(tǒng)需求 .1 1.1.2 可行性分析.2 1.2 系統(tǒng)的功能簡介 .4 1.2.1 項目規(guī)劃 .4 1.2.2 系統(tǒng)管理模塊(ctrl+o).4 1.2.3 會員卡管理模塊（ctrl+p）.4 1.2

8、.4 會員檔案管理模塊（ctrl+t）.4 1.2.5 會員繳費管理.4 1.3 系統(tǒng)開發(fā)的目標 .4 第二章 系統(tǒng)分析.5 2.1 業(yè)務(wù)流程分析 .5 2.2 數(shù)據(jù)流程分析 .6 2.2.1 數(shù)據(jù)流程圖.6 2.3 數(shù)據(jù)存儲分析：實體聯(lián)系圖 .6 第三章.系統(tǒng)設(shè)計.8 3.1 軟件模塊結(jié)構(gòu)設(shè)計 .8 3.1.1 系統(tǒng)方案確定.8 3.1.2 軟件結(jié)構(gòu)設(shè)計.8 3.2 數(shù)據(jù)庫設(shè)計 .8 3.2.1 本系統(tǒng)中所涉及到的主要實體共有以下幾個數(shù)據(jù)表.9 3.2.2 各表的物理結(jié)構(gòu)如下.9 第四章 系統(tǒng)的功能.11 4.1 系統(tǒng)登陸界面 .11 4.2 系統(tǒng)主界面 .13 4.3 用戶管理模塊 .21

9、 4.4 會員檔案管理模塊 .24 第五章 系統(tǒng)運行及評價.30 5.1 系統(tǒng)的運行.30 5.2 系統(tǒng)的評價.30 參考文獻.0 結(jié)束語.1 致 謝.2 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 1 第一章 系統(tǒng)概述 當(dāng)今社會為信息社會，世界已進入在計算機信息管理領(lǐng)域中激烈競爭的時代。信息已成 為繼勞動力、土地、資本之后的又一大資源，誰控制的信息越多，誰利用信息資源的效率越 高，誰就會在各方面的競爭中，占有一席之地，誰就會更有優(yōu)勢，這一點已得到舉世公認。 隨著時代的進步，社會生產(chǎn)力高速發(fā)展，新技術(shù)層出不窮信息量急劇膨脹，整個人類社 會已成為信息化的社會人們對信息和數(shù)據(jù)的利用和

10、處理已經(jīng)進入自動化、網(wǎng)絡(luò)化和社會化的 階段。如在查找情報資料、處理銀行帳目、倉庫管理、科研生產(chǎn)等方面，無不需要利用大量 的信息資源。因此，如何有效地進行數(shù)據(jù)信息的管理和利用，已經(jīng)成為人們普遍關(guān)注的課題。 信息在不同的領(lǐng)域里有著不同的概念，在管理科學(xué)領(lǐng)域中，通常認為信息是經(jīng)過加工處 理后的一種數(shù)據(jù)形式，是一種有次序的符號排列，它是系統(tǒng)傳輸和處理的對象。處在信息時 代的今天，信息的作用越來越為人們所重視。制定工作計劃，研究投資策略，都離不開對信 息的充分利用。管理信息系統(tǒng)（management information system,縮寫 mis）是一種“人 機系統(tǒng)” ，它以特定的模式支持一個組織內(nèi)

11、各級組織機構(gòu)之間的通訊，對信息資源進行綜合 開發(fā)，管理和利用，實現(xiàn)對該組織的有效管理。它通過對數(shù)據(jù)的加工處理，及時為管理與決 策分析提供信息。其特點有： 數(shù)據(jù)全部存儲于計算機系統(tǒng)中； 用戶使用簡單、操作方便、查詢速度快； 有極強的人-機對話功能； 能直接從計算機系統(tǒng)中提供決策所需的參考信息。 根據(jù)對會員管理中存在的問題進行分析，本會員信息管理系統(tǒng)可以說是一個綜合性的會 員管理系統(tǒng)，這它集成了系統(tǒng)管理、會員卡管理科、會員檔案管理、會員繳費管理等多種功 能，因而具有較強的實用性和先進性。 1.1 系統(tǒng)及需求分析 1.1.1 系統(tǒng)需求 通過調(diào)查,要求系統(tǒng)需要有以下功能: 由于操作人員的計算機知識普遍

12、較差,要求有良好的人機界面; 由于該系統(tǒng)的使用對象多,要求有較好的權(quán)限管理; 原始數(shù)據(jù)修改簡單方便,支持多條件修改 方便的數(shù)據(jù)查詢，支持多條件查詢; 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 2 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好； 數(shù)據(jù)計算自動完成，盡量減少人工干預(yù); 1.1.2 可行性分析 由于本系統(tǒng)管理的對象單一,都是在注冊的新老會員，且每個數(shù)據(jù)內(nèi)容具有較強的關(guān)聯(lián) 性，涉及的計算過程不是很復(fù)雜。因此，比較適合于采用數(shù)據(jù)庫管理。且用于其會員管理的 微機都是 piii 以上的機器，在存儲量、速度方面都能滿足數(shù)據(jù)庫運行的要求。在技術(shù)難度 方面，由于有指導(dǎo)老師的指導(dǎo)和

13、相關(guān)參考文獻，特別是網(wǎng)上資料，特別是參考其它程序的功 能，因此完全可以實現(xiàn)。 本系統(tǒng)的設(shè)計是在 windows 98 中文版操作系統(tǒng)環(huán)境下，使用 visual basic 6.0 中文版 開發(fā)成功的。數(shù)據(jù)庫是 mis 中的重要支持技術(shù)，在 mis 開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是 一個重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點和適用范圍，因此， 在選擇數(shù)據(jù)庫時，應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言介紹如下： visual basic 語言 visual basic 是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計， 可用于開發(fā) windows

14、環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強大，可以與 windows 的專業(yè)開發(fā)工具 sdk 相媲美，而且程序開發(fā)人員不必具有 c/c+編程基礎(chǔ)。在 visual basic 環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設(shè)計工具，使用 windows 內(nèi)部的應(yīng)用程序接口(api)函數(shù)，以及動態(tài)鏈接庫(dll)、動態(tài)數(shù)據(jù)交換(dde)、對 象的鏈接與嵌入(ole)、開放式數(shù)據(jù)訪問(odbc)等技術(shù)，可以高效、快速地開發(fā)出 windows 環(huán)境下功能強大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。 總的來說，visual basic 具有以下特點： 可視化編程： 用傳統(tǒng)程序設(shè)計語言設(shè)計程序時，都是通

15、過編寫程序代碼來設(shè)計用戶界面，在設(shè)計過程 中看不到界面的實際顯示效果，必須編譯后運行程序才能觀察。如果對界面的效果不滿意， 還要回到程序中修改。有時候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟 件開發(fā)效率。visual basic 提供了可視化設(shè)計工具，把 windows 界面設(shè)計的復(fù)雜性“封裝” 起來，開發(fā)人員不必為界面設(shè)計而編寫大量程序代碼。只需要按設(shè)計要求的屏幕布局，用系 統(tǒng)提供的工具，在屏幕上畫出各種“部件” ，即圖形對象，并設(shè)置這些圖形對象的屬性。 visual basic 自動產(chǎn)生界面設(shè)計代碼，程序設(shè)計人員只需要編寫實現(xiàn)程序功能的那部分代 碼，從而可以大大提高程序設(shè)計

16、的效率。 面向?qū)ο蟮某绦蛟O(shè)計 4.0 版以后的 visual basic 支持面向?qū)ο蟮某绦蛟O(shè)計，但它與一般的面向?qū)ο蟮某绦蛟O(shè) 計語言(c+)不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計語言中，對象由程序代碼和數(shù)據(jù)組成， 是抽象的概念；而 visual basic 則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法(oop)，把程序和數(shù)據(jù)封 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 3 裝起來作為一個對象，并為每個對象賦予應(yīng)有的屬性，使對象成為實在的東西。在設(shè)計對象 時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，visual basic 自 動生成對象的程序代碼并封裝起來。每個對象以圖形

17、方式顯示在界面上，都是可視的。 結(jié)構(gòu)化程序設(shè)計語言 visual basic 是在 basic 語言的基礎(chǔ)上發(fā)展起來的，具有高級程序設(shè)計語言的語句結(jié)構(gòu)， 接近于自然語言和人類的邏輯思維方式。visual basic 語句簡單易懂，其編輯器支持彩色 代碼，可自動進行語法錯誤檢查，同時具有功能強大且使用靈活的調(diào)試器和編譯器。 visual basic 是解釋型語言，在輸入代碼的同時，解釋系統(tǒng)將高級語言分解翻譯成計算 機可以識別的機器指令，并判斷每個語句的語法錯誤。在設(shè)計 visual basic 程序的過程中， 隨時可以運行程序，而在整個程序設(shè)計好之后，可以編譯生成可執(zhí)行文件(.exe)，脫離 v

18、isual basic 環(huán)境，直接在 windows 環(huán)境下運行。 事件驅(qū)動編程機制 visual basic 通過事件來執(zhí)行對象的操作。一個對象可能會產(chǎn)生多個事件，每個事件都 可以通過一段程序來響應(yīng)。例如，命令按鈕是一個對象，當(dāng)用戶單擊該按鈕時，將產(chǎn)生一個 “單擊“(click)事件，而在產(chǎn)生該事件時將執(zhí)行一段程序，用來實現(xiàn)指定的操作。 在用 visual basic 設(shè)計大型應(yīng)用軟件時，不必建立具有明顯開始和結(jié)束的程序，而是 編寫若干個微小的子程序，即過程。這些過程分別面向不同的對象，由用戶操作引發(fā)某個事 件來驅(qū)動完成某種特定的功能，或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行指定的操作，這樣 可

19、以方便編程人員，提高效率。 訪問數(shù)據(jù)庫 visual basic 具有強大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接 建立或處理 microsoft access 格式的數(shù)據(jù)庫，并提供了強大的數(shù)據(jù)存儲和檢索功能。同時， visual basic 還能直接編輯和訪問其他外部數(shù)據(jù)庫，如 dbase，foxpro，paradox 等，這些 數(shù)據(jù)庫格式都可以用 visual basic 編輯和處理。 visual basic 提供開放式數(shù)據(jù)連接，即 odbc 功能，可通過直接訪問或建立連接的方式 使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如 sql server，oracle 等。在應(yīng)用程序中，可以

20、使用結(jié) 構(gòu)化查詢語言 sql 數(shù)據(jù)標準，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳?作指令和多用戶數(shù)據(jù)庫訪問的加鎖機制和網(wǎng)絡(luò)數(shù)據(jù)庫的 sql 的編程技術(shù)，為單機上運行的數(shù) 據(jù)庫提供了 sql 網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實現(xiàn)客戶/服務(wù)器 (client/server)方案。 動態(tài)數(shù)據(jù)交換(dde) 利用動態(tài)數(shù)據(jù)交換(dynamic data exchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動態(tài) 地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動態(tài)數(shù)據(jù)鏈路。當(dāng)原始 數(shù)據(jù)變化時，可以自動更新鏈接的數(shù)據(jù)。visual basic 提供了動態(tài)數(shù)據(jù)交換的編程技術(shù)，

21、可以在應(yīng)用程序中與其他 windows 應(yīng)用程序建立動態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進行 通信。 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 4 對象的鏈接與嵌入(ole) 對象的鏈接與嵌入(ole)將每個應(yīng)用程序都看做是一個對象(object)，將不同的對象鏈 接(link)起來，再嵌入(embed)某個應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動 畫、文字等各種信息的集合式的文件。ole 技術(shù)是 microsoft 公司對象技術(shù)的戰(zhàn)略，它把多 個應(yīng)用程序合為一體，將每個應(yīng)用程序看做是一個對象進行鏈接和嵌入，是一種應(yīng)用程序一 體化的技術(shù)。利用 ole 技術(shù)，可以方便地建立

22、復(fù)合式文檔(compound document)，這種文檔 由來自多個不同應(yīng)用程序的對象組成，文檔中的每個對象都與原來的應(yīng)用程序相聯(lián)系，并可 執(zhí)行與原來應(yīng)用程序完全相同的操作。 動態(tài)鏈接庫(dll) visual basic 是一種高級程序設(shè)計語言，不具備低級語言的功能，對訪問機器硬件的操 作不太容易實現(xiàn)。但它可以通過動態(tài)鏈接庫技術(shù)將 c/c+或匯編語言編寫的程序加入到 visual basic 應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外，通 過動態(tài)鏈接庫，還可以調(diào)用 windows 應(yīng)用程序接口(api)函數(shù)，實現(xiàn) sdk 所具有的功能。 1.2 系統(tǒng)的功能簡介 本系統(tǒng)主

23、要可以實現(xiàn)以下的管理功能：系統(tǒng)管理、會員檔案管理、會員交費管理等等。 1.2.1 項目規(guī)劃 會員信息管理系統(tǒng)是一個典型的數(shù)據(jù)庫應(yīng)用程序,由系統(tǒng)管理、會員卡管理、會員檔案 管理、會員交費管理、打印報表等模塊組成,特規(guī)劃如下: 1.2.2 系統(tǒng)管理模塊(ctrl+o) 該模塊的主要任務(wù)是維護系統(tǒng)的正常運行和安全性設(shè)置,包括添加用戶(快捷鍵：ctrl+a)、 修改密碼(快捷鍵：ctrl+b)、重新登錄(快捷鍵：ctrl+f1)等等。 1.2.3 會員卡管理模塊（ctrl+p） 該模塊的功能是實現(xiàn)對會員卡的管理工作，包括：會員卡瀏覽、會員卡添加、會員卡查 詢等，這三個功能模塊各自獨立，完成的全部會員卡

24、的管理。 1.2.4 會員檔案管理模塊（ctrl+t） 該模塊的主要功能是實現(xiàn)對會員的的個人信息的管理工作，包括檔案添加、檔案瀏覽、 檔案查詢等功能，從而方便中心管理部門對會員的基本情況的快速查詢和了解。 1.2.5 會員繳費管理 該模塊的主要功能是實現(xiàn)對會員的會費繳納的管理工作，包括會員會費瀏覽、會員會 費查詢等功能。從而方便的管理人員對會員的繳納會費的情況的掌握與了解。 1.3 系統(tǒng)開發(fā)的目標 出于本系統(tǒng)是會員管理的一個綜合性的系統(tǒng)，本系統(tǒng)的設(shè)計目標將最終定位于完成以上 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 5 所述的系統(tǒng)主要業(yè)務(wù)的基本模型上。 天津理工大學(xué)中環(huán)信息學(xué)院

25、 2010 屆本科畢業(yè)設(shè)計說明書 6 第二章 系統(tǒng)分析 2.1 業(yè)務(wù)流程分析 會員卡管理業(yè)務(wù)流程圖： 用戶管理會員卡在管理中心查看卡類型進入所屬部門，直接輸入計算機內(nèi)，然后輸出 圖 2.1 會員管理業(yè)務(wù)流程圖 fig 2.1 members management business processes 會員檔案管理業(yè)務(wù)流程圖： 用戶管理會員檔案在管理中心調(diào)取會員檔案進入所屬部門，直接輸入計算機內(nèi)，然后輸 出 圖 2.2 會員檔案管理業(yè)務(wù)流程圖 fig 2.2 members records management business processes 管理中心輸入計算機 管理人員所屬部門 會 員

26、卡 種 卡種 輸出 管理中心輸入計算機 管理人員所屬部門 會 員 檔 案 檔案 輸出 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 7 2.2 數(shù)據(jù)流程分析 2.2.1 數(shù)據(jù)流程圖 由于本系統(tǒng)的數(shù)據(jù)模塊較多，下面僅以會員檔案管理模塊為例來進行編制。 圖 2.3 會員檔案管理系統(tǒng) 0 層數(shù)據(jù)流程圖 fig 2.3 members of the filing system 0 layer data flow diagram 管管理理中中心心 卡卡 1.0會會員員管管理理 2.0卡卡管管理理 3.0綜綜合合管管理理 4.0統(tǒng)統(tǒng)計計分分析析 d1 d2 d3 查查詢詢 管管理理 費費用用

27、圖 2.4 會員管理系統(tǒng) 1 層數(shù)據(jù)流程圖 fig 2.4 a member of data management system flowchart 2.3 數(shù)據(jù)存儲分析：實體聯(lián)系圖 1、數(shù)據(jù)模型設(shè)計。首先來做出會員檔案管理系統(tǒng)的 e-r 圖，分析這個問題的實體，從 會員 管理 部門 會員 會 員 檔 案 管 理 系 統(tǒng) 管理中 心 會員 教師 教師 會員信息 會員卡 查詢 統(tǒng)計分析 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 8 系統(tǒng)分析可以知道，會員檔案是由姓名、卡號等組成了這個系統(tǒng)的幾個實體。 2.4 功能分析：功能層次圖 會會員員管管理理系系統(tǒng)統(tǒng) 會會員員檔檔案案管管理理

28、 會會員員卡卡管管理理 會會員員繳繳費費管管理理 系系統(tǒng)統(tǒng)管管理理 會會員員檔檔案案添添加加 會會員員檔檔案案修修改改 會會員員檔檔案案刪刪除除 卡卡信信息息添添加加 卡卡信信息息修修改改 卡卡信信息息刪刪除除 卡卡信信息息瀏瀏覽覽 會會員員繳繳費費瀏瀏覽覽 會會員員繳繳費費查查詢詢 添添加加用用戶戶 重重新新登登錄錄 更更改改密密碼碼 圖 2.5 功能層次圖 fig 2.5 bfh 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 9 第三章 系統(tǒng)設(shè)計 3.1 軟件模塊結(jié)構(gòu)設(shè)計 3.1.1 系統(tǒng)方案確定 通過對系統(tǒng)的調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能有：會員檔案管理、會員卡管理、會 員

29、交費管理、系統(tǒng)管理、報表打印等功能。 3.1.2 軟件結(jié)構(gòu)設(shè)計 本系統(tǒng)在執(zhí)行時，先根據(jù)不同的操作人員的需要來進行相應(yīng)的模塊，然后可以輸入數(shù)據(jù) 或者進行其它的查詢或瀏覽等操作；總體來說，本系統(tǒng)屬于一個事務(wù)型管理系統(tǒng)。 接接收收數(shù)數(shù)據(jù)據(jù) 處處理理中中心心 卡卡管管理理檔檔案案管管理理繳繳費費管管理理系系統(tǒng)統(tǒng)管管理理其其他他管管理理 打打印印報報表表 圖 3.1 軟件結(jié)構(gòu)圖 fig 3.1 hd tach version 3.2 數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫采用了 microsoft 推出的 access 數(shù)據(jù)庫，這是微軟集成到 office 中的一個桌面 數(shù)據(jù)庫，能夠快速方便的和 office 的其他套件綜

30、合使用。由于 access 具有顯著的簡易性和 有效性，大量的桌面數(shù)據(jù)庫系統(tǒng)都采用 access 作為后臺數(shù)據(jù)庫。使用 access 的好處還在于， 如果你的系統(tǒng)擴展到 client/server 模式的時候，可以使用 microsoft 的數(shù)據(jù)庫服務(wù)器軟件 sql server，此時，程序只需要簡單的修改一下鏈接（ado 的數(shù)據(jù)源）就可以，這樣，為程 序的平滑擴展提供了非常有力的條件。 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 10 3.2.1 本系統(tǒng)中所涉及到的主要實體共有以下幾個數(shù)據(jù)表 class 表：年度，卡種，所屬，時限，項目，主管教練，備注 jf 表：卡號，年度，交

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

32、小數(shù)位 username文本20 password文本20 admin文本2 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 11 readonly文本2 qx1文本2 qx2文本2 qx3文本2 qx4文本2 xj 表 4： 字段名稱類型寬度小數(shù)位 卡號文本9 姓名文本8 性別文本2 卡種文本10 出生年月日期/時間 家庭住址文本30 郵政編碼數(shù)字（長整型） 聯(lián)系電話數(shù)字（長整型） 注冊時間日期/時間 備注備注 jiaofei 表 5： 字段名稱類型寬度小數(shù)位 年度文本16 項目文本50 時限文本20 學(xué)費貨幣自動 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 12 第

33、四章 系統(tǒng)的功能 本部分主要內(nèi)容為本系統(tǒng)的運行界面以及主要界面的源代碼。 4.1 系統(tǒng)登陸界面 本界面的主要功能是為了對系統(tǒng)進行安全性管理，本系統(tǒng)的用戶名和密碼保存在 use 表 中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限，可以用 111;111 為用戶名和密碼來登陸本 系統(tǒng)。 圖 4.1 用戶登陸圖 fig 4.1 user registration and login module chart private sub command1_click() dim mrc as adodb.recordset txtsql = select username from use where use

34、rname= & trim(text1.text) & set mrc = executesql(txtsql) if mrc.eof = true then msgbox 用戶名錯誤！, vbexclamation + vbokonly, 警告 text1.setfocus text1.selstart = 0 text1.sellength = len(text1.text) exit sub end if username = mrc.fields(0) txtsql2 = select username from use where password= & trim(text2.tex

35、t) & set mrc = executesql(txtsql2) if mrc.eof = true then msgbox 密碼錯誤！, vbexclamation + vbokonly, 警告 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 13 text2.setfocus text2.selstart = 0 text2.sellength = len(text2.text) exit sub end if txtsql = select username from use where username= & trim(text1.text) & and password

36、= & trim(text2.text) & set mrc = executesql(txtsql) if mrc.eof = true then msgbox 用戶名稱和密碼不匹配！, vbexclamation + vbokonly, 警告 exit sub end if mdiform1.show frmcpass.text1.text = text1.text unload me end sub private sub command2_click() unload me end sub private sub form_load() end sub private sub text

37、1_keypress(keyascii as integer) if keyascii = 13 then text2.setfocus end if end sub private sub text2_keypress(keyascii as integer) if keyascii = 13 then command1.setfocus end if end sub 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 14 4.2 系統(tǒng)主界面 本模塊是本系統(tǒng)的應(yīng)用界面，在本界面上集成了本系統(tǒng)的所有功能，共有 5 個功能菜單 和 12 個子菜單（功能模塊） ，從而實現(xiàn)了本系統(tǒng)從會員卡管

38、理、會員檔案管理、會員繳費管 理、系統(tǒng)管理等系統(tǒng)的具體功能，同時，在系統(tǒng)管理模塊中可以完成對本系統(tǒng)的安全性管理。 圖 4.2 系統(tǒng)主界面圖 fig 4.2 system the main interface figure private 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 lo

39、ng) as long dim find1 as integer dim liulan1 as integer private sub add_click() 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 15 qxstr = executeqx(2) if qxstr = false or qxstr = readonly then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit sub end if form1.show modi = false form1.zorder (0)

40、end sub private sub cjadd_click() fenshumodi = false qxstr = executeqx(4) if qxstr = false or qxstr = readonly then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit sub end if frmcj2.show frmcj2.zorder 0 end sub private sub cjbrowse_click() qxstr = executeqx(4) if qxstr = fal

41、se then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit sub end if frmcj1.show frmcj1.zorder 0 end sub 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 16 private sub claasfind_click() qxstr = executeqx(2) if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告)

42、 exit sub end if form4.show form4.zorder (0) i = setwindowpos(form4.hwnd, -1, 0, 0, 0, 0, 3) end sub private sub classapp_click() qxstr = executeqx(2) if qxstr = false or qxstr = readonly then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit sub end if formclass1.show classmo

43、di = false formclass1.classload formclass1.zorder (0) end sub public sub clabrowse() txtsql = select * from class formclass2.zorder (0) formclass2.caption = 瀏覽班級設(shè)置 formclass2.classshowtitle formclass2.classshowdata end sub 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 17 private sub classbrowse_click() qxstr = execu

44、teqx(2) if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit sub end if formclass2.show end sub private sub classfind_click() qxstr = executeqx(2) if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit sub end if formc

45、lass3.show formclass3.zorder (0) end sub private sub find_click() end sub private sub classkecheng_click() qxstr = executeqx(4) if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit sub end if frmclasskecheng1.show frmclasskecheng1.zorder 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本

46、科畢業(yè)設(shè)計說明書 18 end sub private sub denglu2_click() frmdenlu.show unload me end sub private sub jiaofeiadd_click() qxstr = executeqx(3) if qxstr = false or qxstr = readonly then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit sub end if frmjf1.show frmjf1.zorder 0 end sub privat

47、e sub jiaofeibrowse_click() qxstr = executeqx(3) if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit sub end if frmjf2.show frmjf2.zorder 0 end sub private sub jiaofeifind_click() qxstr = executeqx(3) if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)

48、系！, 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 19 vbinformation + vbokonly, 警告) exit sub end if frmjf4.show end sub private sub jibenkecheng_click() qxstr = executeqx(4) if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit sub end if frmjiben.show frmjiben.zorder 0 end su

49、b private sub leixing_click() qxstr = executeqx(4) if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit sub end if frmleixing.show frmleixing.zorder 0 end sub private sub liulan_click() qxstr = executeqx(2) if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請

50、與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit sub end if find = false form3.show end sub 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 20 private sub mdiform_load() username = 0001 dataenv1.connection1.connectionstring = connstring statusbar1.panels(2).text = now statusbar1.panels(3).text = 當(dāng)前操作員： & username dim aa as

51、 string select case executeqx(1) case admin aa = 超級管理員 case readonly aa = 只讀管理員 case else aa = 普通管理員 end select statusbar1.panels(4).text = 狀態(tài)： & aa end sub private sub useradd_click() qxstr = executeqx(1) if qxstr = false or qxstr = readonly then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation

52、+ vbokonly, 警告) exit sub end if frmuser1.show frmuser1.zorder 0 end sub private sub usermodi_click() qxstr = executeqx(1) if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit sub 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 21 end if frmcpass.show end sub private sub xuefei

53、add_click() qxstr = executeqx(3) if qxstr = false or qxstr = readonly then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit sub end if xuefeimodi = false dim i as integer for i = 0 to 3 frmxuefei1.combo1(i).enabled = true next i me.caption = 添加班級設(shè)置 for i = 0 to 3 frmxuefei1.c

54、ombo1(i).text = next i frmxuefei1.text1.text = frmxuefei1.show frmxuefei1.zorder 0 end sub public sub xfbrowse() txtsql = select * from xuefei order by 學(xué)期 desc, 年級 desc,專業(yè) desc frmxuefei2.zorder (0) frmxuefei2.caption = 瀏覽學(xué)費設(shè)置 frmxuefei2.xuefeishowtitle frmxuefei2.xuefeishowdata end sub private sub

55、xuefeibrowse_click() qxstr = executeqx(3) if qxstr = false then 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 22 ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit sub end if frmxuefei2.show end sub private sub xuefeifind_click() qxstr = executeqx(3) if qxstr = false then ss = msgbox(對不起，你沒有管理本

56、功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit sub end if frmxuefei3.show frmxuefei3.zorder (0) i = setwindowpos(frmxuefei3.hwnd, -1, 0, 0, 0, 0, 3) end sub 4.3 用戶管理模塊 本模塊是本系統(tǒng)的安全性設(shè)置模塊，根據(jù)不同部門以及不同使用人員對本系統(tǒng)的要求和 需要，從而實行了分級管理，對用戶的權(quán)限和類別進行了分類管理。從而新用戶和會員用戶 可以擁有不同的權(quán)限，執(zhí)行不同的操作，以達到更為科學(xué)和有效的管理。 圖 4.3 用戶管理模塊圖 f

57、ig 4.3 user management module figure private sub command1_click() if trim(text1(0).text) = then 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 23 msgbox 用戶名不能為空！, vbexclamation + vbokonly, 警告 text1(0).setfocus exit sub end if if trim(text1(1).text) = then msgbox 密碼不能為空！, vbexclamation + vbokonly, 警告 text1(1).setfocus

58、 exit sub end if if trim(text1(2).text) = then msgbox 確認密碼不能為空！, vbexclamation + vbokonly, 警告 text1(2).setfocus exit sub end if if trim(text1(1).text) trim(text1(2).text) then msgbox 確認密碼不正確！, vbexclamation + vbokonly, 警告 text1(2).setfocus exit sub end if dim aa as integer aa = 0 if option1(2).value

59、 = true then for i = 0 to 3 if check1(i).value = 1 then aa = 1 exit for end if next i if aa = 0 then msgbox 普通用戶至少要有一項權(quán)限！, vbexclamation + vbokonly, 警告 exit sub end if end if dim mrc as adodb.recordset txtsql = select * from use where username= & trim(text1(0).text) & 天津理工大學(xué)中環(huán)信息學(xué)院 2010 屆本科畢業(yè)設(shè)計說明書 24

60、 set mrc = executesql(txtsql) if mrc.eof = false then msgbox 已存在該用戶！, vbexclamation + vbokonly, 警告 text1(0).setfocus text1(0).selstart = 0 text1(0).sellength = len(text1(0).text) exit sub end if txtsql = select * from use set mrc = executesql(txtsql) mrc.addnew mrc.fields(0) = trim(text1(0).text) mr