【正文】 序設計語言，不具備低級語言的功能，對訪問機器硬件的操作不太容易實現(xiàn)。此 外，通過動態(tài)鏈接庫，還可以調(diào)用 Windows 應用程序接口(API)函數(shù)，實現(xiàn) SDK 所具有的功能。 項目規(guī)劃 健身中心會員信息管理系統(tǒng)是一個典型的數(shù)據(jù)庫應用程序 ,由 系統(tǒng)管理、會員卡管理、會員檔案管理、會員交費管理、打印報表 等模塊組成 ,特規(guī)劃如下 : 系統(tǒng)管理模塊 (CTRL+O) 該模塊的主要任務是維護系統(tǒng)的正常運行和安全性設置 ,包括添加用戶 (快捷鍵： CTRL+A)、修改密碼 (快捷鍵： CTRL+B)、重新登錄 (快捷鍵： CTRL+F1)等等。 會員檔案管理模塊（ CTRL+T）： 該模塊的主要功能是實現(xiàn)對健身中心會員的的個人信息的管理工作，包括檔案添加、檔案瀏覽、檔案查詢等功能，從而方便中心管理部門對會員的基本情況的快速查詢和了解。 從而方便健身中心的管理人員對會員的繳納會費的情況的掌握與了解。 第二章 系統(tǒng)分析 業(yè)務流程分析 會員卡管理業(yè)務流程圖： 會員檔案管理業(yè)務流程圖： 管理中心 輸入計算機 管理人員 所屬部門 會員 卡種 卡種 輸出 管理中心 輸入計算機 管理人員 所屬部門 會員 檔案 檔案 輸出 數(shù)據(jù)流程分析： 數(shù)據(jù)流程圖： 由于本系統(tǒng)的數(shù)據(jù)模塊較多，下面僅以會員檔案管理模塊為例來進行編制 。首先來做出會員檔案管理系統(tǒng)的 ER 圖，分析這個問題的實體，從系統(tǒng)分析可以知道，會員檔案是由姓名、卡號等組成了這個系統(tǒng)的幾個實體。這幾個實體不是一個統(tǒng)一體。 功能分析：功能層次圖 會員 會員卡 管理 中心 卡 費用uyon 會員管理 卡管理 綜合管理 統(tǒng)計分析 D1 D2 D3 查詢者 管理者 軟件模塊結 構設計 3． 1． 1 系統(tǒng)方案確定 通過對系統(tǒng)的調(diào)研與分析，系統(tǒng)主要應完成的功能有：會員檔案管理、會員卡管理、會員交費管理、系統(tǒng)管理、報表打印等功能。 3． 2 數(shù)據(jù)庫設計 數(shù)據(jù)庫采用了 Microsoft 推出的 Access 數(shù)據(jù)庫，這是微軟集成到 Office 中的一個桌面數(shù) 據(jù)庫，能 夠快速方便的和 Office 的其他套件綜合使用。使用Access 的好處還在于，如果你的系統(tǒng)擴展到 Client/Server 模式的時候，可以使用Microsoft 的數(shù)據(jù)庫服務器軟件 SQL Server，此時，程序只需要簡單的修改一下鏈接（ ADO 的數(shù)據(jù)源）就可以，這樣，為程序的平滑擴展提供了非常有力的條件。 4． 1 系統(tǒng)登陸界面： 本 界面的主要功能是為了對系統(tǒng)進行安全性管理，本系統(tǒng)的用戶名和密碼保存在 USE 表中，本系統(tǒng)根據(jù)不同的用戶而設置了不同的權限，可以用 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 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() 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 系統(tǒng)主界面： 本模塊是本系統(tǒng)的應用界面，在本界面上集成了本系統(tǒng)的所有功能，共有5個功能菜單和 12 個子菜單（功能模塊），從而實現(xiàn)了本系統(tǒng)從會員卡管理、會員檔案管理、會員繳費管理、系統(tǒng)管理等系統(tǒng)的具體功能，同時，在系統(tǒng)管理模塊中可以完成對本系統(tǒng)的安全性管理。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(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub usermodi_Click() qxstr = Executeqx(1) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub xuefeiadd_Click() qxstr = Executeqx(3) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If xuefeimodi = False Dim i As Integer For i = 0 To 3 (i).Enabled = True Next i = 添加班級設置 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(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub xuefeifind_Click() qxstr = Executeqx(3) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If (0) i = SetWindowPos(, 1, 0, 0, 0, 0, 3) End Sub 4． 3 用戶管理模塊： 本模塊是本系統(tǒng)的安全性設置模塊，根據(jù)健身中心不同部門以及不同使用人員對本系統(tǒng)的要求和需要，從而實行了分級管理，對用戶的權限和類別進行了分類管理。 Private Sub Command1_Click() If Trim(Text1(0).Text) = Then MsgBox 用戶名不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If If Trim(Text1(1).Text) = Then MsgBox 密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(1).SetFocus 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 = 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 普通用戶至少要有一項權限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If End If Dim mrc As txtsql = select * from use where username=39。 Trim(Text1(0).Text) 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 (