【正文】 在撰寫論文階段， XXX 老師幾次審閱我們的論文，提出了許多寶貴意見，沒有她的指導，我們就不能較好 的完成課題設計的任務。整個過程使四 年來所學到的知識得到了充分的運用。 在本系統(tǒng)的 開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識、經(jīng)驗方面都存在著不足。 就系統(tǒng)效益評價而言，本系統(tǒng)的運行提高了工作人員的工作效率，體現(xiàn)了數(shù)據(jù)的系統(tǒng)化管理優(yōu)勢、提高了數(shù)據(jù)處理的能力，使得健身中心會員管理更具系統(tǒng)性。對系統(tǒng)還應定期進行檢測。刪除該班級的記錄 End If zxh = MsgBox(記錄成功刪除！ , vbOKOnly, 查詢 ) txtsql = select* from class classshowtitle classshowdata Call Form_Activate End Sub Private Sub cmdfind_Click() End Sub Private Sub cmdmodi_Click() If Trim((, 1)) = Then sssss = MsgBox(你還沒有選擇記錄！ , vbOKOnly + vbExclamation, 警告 ) Exit Sub Else qxstr = Executeqx(2) If qxstr = readonly Then ss = MsgBox(對不起，你是只讀用戶不能修改記錄，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If classmodi = True 0 Call Form_Activate End If End Sub Private Sub cmdprint_Click() If Trim(printstr) = Then sssss = MsgBox(沒有當前記錄！ , vbOKOnly + vbExclamation, 警告 ) Exit Sub End If If = adStateOpen Then End If printstr If = True Then sssss = MsgBox(沒有當前記錄！ , vbOKOnly + vbExclamation, 警告 ) Exit Sub End If 1 End Sub Private Sub cmdprintall_Click() If = adStateOpen Then End If (select * from class) If = True Then sssss = MsgBox(沒有當前記錄！ , vbOKOnly + vbExclamation, 警告 ) Exit Sub End If 1 End Sub 會員繳費管理 第五章 系統(tǒng)運行及評價 系統(tǒng)的運行 一個新的信息系統(tǒng)建立起來以后，只有與企業(yè)的要求完全相符，與實際情況完全協(xié)調(diào)，才能充分發(fā)揮其作用，達到設計的最終目標。 Trim((, 2)) amp。 39。 Public printstr As String Private Sub Command1_Click() Dim dbSource As Database Set dbSource = OpenDatabase() z = MsgBox(成功！ , vbOKOnly, 查詢 ) End Sub Public Sub classshowtitle() Dim i As Integer With MSF1 .Cols = 8 .TextMatrix(0, 1) = 年度 .TextMatrix(0, 2) = 卡種 .TextMatrix(0, 3) = 所屬 .TextMatrix(0, 4) = 時限 .TextMatrix(0, 5) = 項目 .TextMatrix(0, 6) = 主管教練 .TextMatrix(0, 7) = 備注 .ColWidth(0) = 100 .ColWidth(1) = 1300 .ColWidth(2) = 1200 .ColWidth(3) = 800 .ColWidth(4) = 800 .ColWidth(5) = 800 .ColWidth(6) = 800 .ColWidth(7) = 5000 .FixedRows = 1 For i = 1 To 7 .ColAlignment(i) = 0 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .Row = 1 End With End Sub Public Sub classshowdata() Dim j As Integer Dim i As Integer Dim mrc1 As Set mrc1 = ExecuteSQL(Trim(txtsql)) If = False Then With MSF1 .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 1 To .TextMatrix(.Rows 1, i) = (i 1) Next i Loop End With Else If classfind = True Then zzz = MsgBox(對不起，沒有此會員的檔案記錄！ , vbOKOnly, 查詢 ) (0) (0).SetFocus End If End If End Sub Private Sub cmddel_Click() qxstr = Executeqx(2) If qxstr = readonly Then ss = MsgBox(對不起，你是只讀用戶不能刪除記錄，請與管理 員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If Dim mrc As Dim msgtext As String Dim intcount As Integer If Trim((, 1)) = Then sssss = MsgBox(你還沒有選擇記錄！ , vbOKOnly + vbExclamation, 警告 ) Exit Sub End If If MsgBox( 確 定 要 刪 除 會 員 為 amp。 aa End Sub Private Sub useradd_Click() qxstr = Executeqx(1) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub usermodi_Click() qxstr = Executeqx(1) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(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(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(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(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub xuefeifind_Click() qxstr = Executeqx(3) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(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)的要求和需要，從而實行了分級管理，對用戶的權(quán)限和類別進行了分類管理。and password=39。 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。使用Access 的好處還在于，如果你的系統(tǒng)擴展到 Client/Server 模式的時候，可以使用Microsoft 的數(shù)據(jù)庫服務器軟件 SQL Server，此時，程序只需要簡單的修改一下鏈接（ ADO 的數(shù)據(jù)源）就可以，這樣，為程序的平滑擴展提供了非常有力的條件。首先來做出會員檔案管理系統(tǒng)的 ER 圖，分析這個問題的實體，從系統(tǒng)分析可以知道，會員檔案是由姓名、卡號等組成了這個系統(tǒng)的幾個實體。 項目規(guī)劃 健身中心會員信息管理系統(tǒng)是一個典型的數(shù)據(jù)庫應用程序 ,由 系統(tǒng)管理、會員