【正文】 碼，從而可以大大提高程序設計的效率。在一般的面向對象程序設計語言中，對象由程 序代碼和數據組成，是抽象的概念；而 Visual Basic 則是應用面向對象的程序設計方法 (OOP)，把程序和數據封裝起來作為一個對象，并為每個對象賦予應有的屬性，使對象成為實在的東西。每個對象以圖形方式顯示在界面上，都是可視的。 Visual Basic 語句簡單易懂，其編輯器支持彩色代碼，可自動進行語法錯誤檢查，同時具有功能強大且使用靈活的調試器和編譯器。在設計 Visual Basic 程序的過程中，隨時可以運行程序，而在整個程序設計好之后，可以編譯生成可執(zhí)行文件 (.EXE)，脫離 Visual Basic 環(huán)境，直接在 Windows 環(huán)境下運行。一個對象可能會產生多個事件，每個事件都可以通過一段程序來響應。 在用 Visual Basic 設計大型應用軟件時，不必建立具有明顯開始和結束的程序，而是編寫若干個微小的子程序，即過程。 訪問數據庫 Visual Basic 具有強大的數據庫管理功能，利用數據控件和數據庫管理窗口，可以直接建立或處理 Microsoft Access 格式的數據庫，并提供了強大的數據存儲和檢索功能。 Visual Basic 提供開放式數據連接，即 ODBC 功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網絡數據庫，如 SQL Server， Oracle 等。 動態(tài)數據交換 (DDE) 利用動態(tài)數據交換 (Dynamic Data Exchange)技術，可以把一種應用程序中的數據動態(tài)地鏈接到另一種應用程序中，使兩種完全不同的應用程序建立起一條動態(tài)數據鏈路。 Visual Basic 提供了動態(tài)數據交換的編程技術，可以在應用程序中與其他 Windows 應用程序建立動態(tài)數據交換，在不同的應用程序之間進行通信。 OLE 技術是 Microsoft 公司對象技術的戰(zhàn)略，它把多個應用程序合為一體，將每個應用程序看做是一個對象進行鏈接和 嵌入，是一種應用程序一體化的技術。 動態(tài)鏈接庫 (DLL) Visual Basic 是一種高級程序設計語言，不具備低級語言的功能，對訪問機器硬件的操作不太容易實現。此 外，通過動態(tài)鏈接庫，還可以調用 Windows 應用程序接口(API)函數，實現 SDK 所具有的功能。 項目規(guī)劃 健身中心會員信息 管理系統是一個典型的數據庫應用程序 ,由 系統管理、會員卡管理、會員檔案管理、會員 交費管理、 打印報表 等模塊組成 ,特規(guī)劃如下 : 系統管理模塊 (CTRL+O) 該模塊的主要任務是維護系統的正常運行和安全性設置 ,包括添加用戶 (快捷鍵： CTRL+A)、修改密碼 (快捷鍵： CTRL+B)、重新登錄 (快捷鍵： CTRL+F1)等等。 會員 檔案管理模塊（ CTRL+T）： 該模塊的主要功能是實現對健身中心會員的 的個人信息的管理工作，包括檔案添加、檔案瀏覽、檔案查詢等功能，從而方便 中心 管理部門對 會員 的基本情況的快速查詢和了解。 從而方便健身中心的管理人員對會員的繳納會費的情況的掌握與了解。 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質量最好 第二章 系統分析 業(yè)務流程分析 會員卡管理業(yè)務流程圖： 會員檔案管理業(yè)務流程圖： 管理中心 輸入計算機 管理人員 所屬部門 會員 卡種 卡種 輸出 管理中心 輸入 計算機 管理人員 所屬部門 會員 檔案 檔案 輸出 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質量最好 數據流程分析： 數據流程圖： 由于本系統的數據模塊較多，下面僅以會員檔案 管理模塊為例來進行編制 。首先來做出 會員檔案 管理系統的 ER 圖，分析這個問題的實體，從系統分析可以知道， 會員檔案 是由 姓名、卡號等組成了這個系統的幾個 實體。這幾個實體不是一個統一體 。 功能分析：功能層次圖 會員 會員卡 管理 中心 卡 費用uyon 會員 管理 卡 管理 綜合 管理 統計分析 D1 D2 D3 查詢者 管理者 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質量最好 軟件模塊結 構設計 3． 1． 1 系統方案確定 通過對系統的調研與分析，系統主要應完成的功能有： 會員檔案 管理、 會員卡 管理、 會員交費管理 、系統管理 、報表打印 等功能。 3． 2 數據庫設計 數據庫采用了 Microsoft 推出的 Access 數據庫，這是微軟集成到 Office 中的一個桌面數 據庫，能 夠快速方便的和 Office 的其他套件綜合使用。使用Access 的好處還在于，如果你的系統擴展到 Client/Server 模式的時候，可以使用Microsoft 的數據庫服務器軟件 SQL Server，此時，程序只需要簡單的修改一下鏈接（ ADO 的數據源）就可以，這樣，為程序的平滑擴展提供了非常有力的條件。 4． 1 系統登陸界面： 本 界面的主要功能是為了對系統進行安全性管理，本系統的用戶名和密碼保存在 USE 表中，本系統根據不同的用戶而設置了不同的權限，可以用 111。 Private Sub Command1_Click() Dim mrc As txtsql = select username from use where username=39。 Trim() amp。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用戶名錯誤！ , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質量最好 username = (0) txtsql2 = select username from use where password=39。 Trim() amp。 Set mrc = ExecuteSQL(txtsql2) If = True Then MsgBox 密碼錯誤！ , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If txtsql = select username from use where username=39。 Trim() amp。and password=39。 Trim() amp。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用戶名稱和密碼不匹配！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If = Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質量最好 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub 4． 2 系統主界面： 本模塊是本系統的應用界面，在本界面上集成了本系統的所有功能，共有5個功能菜單和 12 個子菜單（功能模塊），從而實現了本系統從 會員卡 管理、 會員 檔案管理、 會員 繳費管理、 系統管理 等系統的具體功能，同時，在系統管理模塊中可以完成對本系統的安全性管理。username = 0001 = connstring (2).Text = Now (3).Text = 當前操作員： amp。 aa End Sub Private Sub useradd_Click() qxstr = Executeqx(1) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質量最好 End If 0 End Sub Private Sub usermodi_Click() qxstr = Executeqx(1) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub xuefeiadd_Click() qxstr = Executeqx(3) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If xuefeimodi = False Dim i As Integer For i = 0 To 3 (i).Enabled = True Next i = 添加班級設置 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質量最好 For i = 0 To 3 (i).Text = Next i = 0 End Sub Public Sub xfbrowse() txtsql = select * from xuefei order by 學期 desc, 年級 desc,專業(yè) desc (0) = 瀏覽學費設置 End Sub Private Sub xuefeibrowse_Click() qxstr = Executeqx(3) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub xuefeifind_Click() qxstr = Executeqx(3) If qxstr = false Then 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質量最好 ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If (0) i = SetWindowPos(, 1, 0, 0, 0, 0, 3) End Sub 4． 3 用戶管理模塊： 本模塊是本系統的安全性設置模塊，根據 健身中心 不同部門以及不同使用人員對本系統的要求和需要，從而實