【正文】 個系統，我掌握了的項本過程，了解了的基本知識鞏固了我對Visual Basic 的學習，但在這次畢業(yè)設計中的最大收獲并不是掌握這幾門開發(fā)工具的應用，而是學會了設計系統的思維方法，以及與同學們之間相互幫助的精神。 一個新系統的開發(fā)并不是只建立在系統程序設計上，而更重要的是要體現在一個系統開發(fā)過程中管理上的系統性。 就系統性能評價而言，本系統的功能體現了健身中心管理的基本工作，從根本上改善了管理人員的日常工作環(huán)境，提高了數據的安全性與可用性。 數據維護主要是對數據的備份，存儲及統計，這 樣既保證了數據的安全又是數據更有條理性，方便相關人員使用。 39。刪除在交費表中的所有該卡種的記錄 txtsql = delete * from cj where 卡號 in (select from xj where 卡種 =39。 amp。 Set mrc = ExecuteSQL(txtsql) If = 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) (0) = Trim(Text1(0).Text) (1) = Trim(Text1(1).Text) For i = 0 To 2 If Option1(i).Value = True Then Select Case i Case 0 (admin) = y Case 1 (readonly) = y Case 2 For j = 0 To 3 If Check1(j).Value = 1 Then Select Case j Case 0 (qx1) = y Case 1 (qx2) = y Case 2 (qx3) = y Case 3 (qx4) = y End Select End If Next j End Select End If Next i MsgBox 用戶添加成功！ , vbExclamation + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Option1(2).Value = True End Sub Private Sub Form_Resize() Text1(0).SetFocus End Sub Private Sub Option1_Click(Index As Integer) If Index 2 Then For i = 0 To 3 Check1(i).Enabled = False Next i Else For i = 0 To 3 Check1(i).Enabled = True Next i End If End Sub 4． 4 會員檔案管理模塊： 因為本系統中有些功能模塊具有相似之處，因此在本文只用此模塊進行一個簡單的說明。username = 0001 = connstring (2).Text = Now (3).Text = 當前操作員： amp。 Trim() amp。 Trim() amp。 3． 2 數據庫設計 數據庫采用了 Microsoft 推出的 Access 數據庫，這是微軟集成到 Office 中的一個桌面數 據庫，能 夠快速方便的和 Office 的其他套件綜合使用。 第二章 系統分析 業(yè)務流程分析 會員卡管理業(yè)務流程圖： 會員檔案管理業(yè)務流程圖： 管理中心 輸入計算機 管理人員 所屬部門 會員 卡種 卡種 輸出 管理中心 輸入計算機 管理人員 所屬部門 會員 檔案 檔案 輸出 數據流程分析： 數據流程圖： 由于本系統的數據模塊較多，下面僅以會員檔案管理模塊為例來進行編制 。此 外，通過動態(tài)鏈接庫，還可以調用 Windows 應用程序接口(API)函數，實現 SDK 所具有的功能。 動態(tài)數據交換 (DDE) 利用動態(tài)數據交換 (Dynamic Data Exchange)技術，可以把一種應用程序中的數據動態(tài)地鏈接到另一種應用程序中，使兩種完全不同的應用程序建立起一條動態(tài)數據鏈路。一個對象可能會產生多個事件，每個事件都可以通過一段程序來響應。在一般的面向對象程序設計語言中，對象由程 序代碼和數據組成，是抽象的概念；而 Visual Basic 則是應用面向對象的程序設計方法 (OOP)，把程序和數據封裝起來作為一個對象，并為每個對象賦予應有的屬性，使對象成為實在的東西。在 Visual Basic 環(huán)境下，利用事件驅動的編程機制、新穎易用的可視化設計工具，使用 Windows 內部的應用程序接口 (API)函數，以 及動態(tài)鏈接庫 (DLL)、動態(tài)數據 交換 (DDE)、對象的鏈接與嵌入 (OLE)、開放式數據訪問 (ODBC)等技術，可以高效、快速地開發(fā)出 Windows 環(huán)境下功能強大、圖形界面豐富的應用軟件系統。 ⑸ 在相應的權限下，刪除數據方便簡單，數據穩(wěn)定性好； ⑹ 數據計算自動完成，盡量減少人工干預 。制定工作計劃，研究投資策略，都離不開對信息的充分利用。 【 關鍵字】： 管理信息系統、會員管理、 Visual Basic 應用。 本文介紹了在 Visual 環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應用開發(fā)”的策略開發(fā)一個管理信息系統的過程。因此，如何有效地進行數據信息的管理和利用，已經成為人們普遍關注的課題。 系統及需求分析 系統需求 通過調查 ,要求系統需要有以下功能 : ⑴ 由于操作人員的計算機知識普遍較差 ,要求有良好的人機界面 。 本系統的設計是在 Windows 98 中文版操作系統環(huán)境下，使用 Visual Basic 中文版開發(fā)成功的。只需要按設計要求的屏幕布局，用系統提供的工具，在屏幕上畫出各種“部件”，即圖形對象，并設置這些圖形對象的屬性。 Visual Basic 是解釋型語言，在輸入代碼的同時，解釋系統將高級語言分解翻譯成計算機可以識別的機器指令，并判斷每個語句的語法錯誤。同時， Visual Basic 還能直接編輯和訪問其他外部數據庫，如 dBASE，FoxPro， Paradox 等，這些數據庫格式都可以用 Visual Basic 編輯和處理。利用 OLE 技術，可以方便地建立復合式文檔 (pound document)，這種文檔由來自多個不同應用程序的對象組成，文檔中的每個對象都與原來的應用程序相聯系，并可執(zhí)行與原來應用程序完全相同的操作。 會員繳費管理 該模塊的主要功能是實現對健身中心會 員的會費繳納的管理工作，包括會員會費瀏覽、會員會費查詢等功能。這個 ER圖可畫成下圖。111為用戶名和密碼來登陸本系統。 39。 39。 amp。 Chr(13) amp。 Trim((, 2)) amp。刪除在成績表中的所有該班級的記錄 txtsql = delete * from class where 班級 =39。 當然新建立的系統在設計階段必然會有一些沒有體現出來的缺陷與不足，而且隨著企業(yè)對系統要求的不斷改變，系統同樣會顯露出與現實的不適應性，這些都是系統在運行中所要解決的問題。系統評價是指系統在正式運行一段時間之后，對它在功能上、技術上和經濟上所進行的審核評價。這使健身中心日常管理工作更科學、更有效。因為對學生管理的整個流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。有了這次經驗，使我更有信心將所學到的知識運用到實踐中去、更有信心迎接今后的挑戰(zhàn)。 參考文獻 [1] 周佩德 .《數據庫原理及應用》 .電子工業(yè)出版社 [2] 劉炳文等， VISUAL。 在本次畢業(yè)設計中，我從指導老 師 XXX 老師， 身上學到了很多東西。 盡管本管理系統存在著很多不足，但其功能全面、易于日后程序更新、數據庫管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點是本 管理系統所必需的。本系統還建有完善的數據統計功能，以模塊的形式提供給系統從作者，形成統計表，供相關人員使用。 系統評價包括系統性能評價、系統效益評價和系統管理評價。 在系統運行中還應注意對系統的維護，系統維護主要是對系統數據及運行情況進行維護。 Trim((, 2)) amp。) Set mrc = ExecuteSQL(txtsql) 39。 繼續(xù)會導致該數據丟失，繼 續(xù)嗎？ , vbOKCancel + vbExclamation, 警告) = vbOK Then txtsql = delete * from xj where 班級 =39。 39。 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 Long) As Long Dim find1 As Integer Dim liulan1 As Integer Private Sub add_Click() qxstr = Executeqx(2) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯 系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If modi = False (0) End Sub Private Sub cjadd_Click() fenshumodi = False qxstr = Executeqx(4) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權 限，請與管理員聯系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub cjbrowse_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub claasfind_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If (0) i = SetWindowPos(, 1, 0, 0, 0, 0, 3) End Sub Private S