【正文】 參考文獻 [1] 周佩德 .《數(shù)據(jù)庫原理及應(yīng)用》 .電子工業(yè)出版社 [2] 劉炳文等， VISUAL。 另外， 我還要感謝在這幾年來對我有所教導(dǎo)的老師，他們孜孜不倦的教誨不但讓我學(xué)到了很多知識，而且讓我掌握了學(xué)習(xí) 的方法，更教會了我做人處事的道理，在此表示感謝。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到 很大 的提高 ， 這對于我以 后 的工作和學(xué)習(xí)都有一種巨大的幫助， 在此 感謝他耐心的輔導(dǎo)。 在本次畢業(yè)設(shè)計中，我從指導(dǎo)老 師 XXX 老師， 身上學(xué)到了很多東西。有了這次經(jīng)驗，使我更有信心將所學(xué)到的知識運用到實踐中去、更有信心迎接今后的挑戰(zhàn)。雖然本系統(tǒng)設(shè)計的還很簡單，報告制作的也很不完善與成熟。 通過這次畢業(yè)設(shè)計體現(xiàn)了一次程序開發(fā)的完整過程。 盡管本管理系統(tǒng)存在著很多不足，但其功能全面、易于日后程序更新、數(shù)據(jù)庫管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點是本 管理系統(tǒng)所必需的。因為對學(xué)生管理的整個流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。另外，在整個開發(fā)的過程中，時間也比較倉促。利用新系統(tǒng)代替舊系統(tǒng)是需要過程的，在這個過程中還需不斷完善系統(tǒng)，使系統(tǒng)更適應(yīng)現(xiàn)實情況。本系統(tǒng)還建有完善的數(shù)據(jù)統(tǒng)計功能，以模塊的形式提供給系統(tǒng)從作者，形成統(tǒng)計表，供相關(guān)人員使用。這使健身中心日常管理工作更科學(xué)、更有效。這些都使得中心的效益有了很大的提升。更有利于各項工作的開展。 系統(tǒng)評價包括系統(tǒng)性能評價、系統(tǒng)效益評價和系統(tǒng)管理評價。系統(tǒng)評價是指系統(tǒng)在正式運行一段時間之后，對它在功能上、技術(shù)上和經(jīng)濟上所進行的審核評價。 運用以上方法可使系統(tǒng)更安全、使用時間更長，從而更有利于系統(tǒng)的實際使用效果。 運行維護主要是保護系統(tǒng)的硬件運行環(huán)境，避免一些不當?shù)牟僮?，防止外界如病毒等異常情況的干擾。 在系統(tǒng)運行中還應(yīng)注意對系統(tǒng)的維護，系統(tǒng)維護主要是對系統(tǒng)數(shù)據(jù)及運行情況進行維護。 當然新建立的系統(tǒng)在設(shè)計階段必然會有一些沒有體現(xiàn)出來的缺陷與不足，而且隨著企業(yè)對系統(tǒng)要求的不斷改變，系統(tǒng)同樣會顯露出與現(xiàn)實的不適應(yīng)性，這些都是系統(tǒng)在運行中所要解決的問題。而這一切只有在實際運行過系統(tǒng)一段時間后才能得出結(jié)論。 Set mrc = ExecuteSQL(txtsql) 39。 Trim((, 2)) amp。刪除在成績表中的所有該班級的記錄 txtsql = delete * from class where 班級 =39。 39。 amp。) Set mrc = ExecuteSQL(txtsql) 39。 Trim((, 2)) amp。 Set mrc = ExecuteSQL(txtsql) txtsql = delete * from jf where 學(xué)號 in (select from xj where 班級 =39。 Trim((, 2)) amp。 繼續(xù)會導(dǎo)致該數(shù)據(jù)丟失，繼 續(xù)嗎？ , vbOKCancel + vbExclamation, 警告) = vbOK Then txtsql = delete * from xj where 班級 =39。 Chr(13) amp。 Trim((, 2)) amp。其它的相似模塊的代碼可能參閱本模塊的設(shè)計思路。 39。 amp。從而新用戶和會員用戶可以擁有不同的權(quán)限，執(zhí)行不同的操作，以達到更為科學(xué)和有效的管理。 username Dim aa As String Select Case Executeqx(1) Case admin aa = 超級管理員 Case readonly aa = 只讀管理員 Case Else aa = 普通管理員 End Select (4).Text = 狀態(tài)： amp。 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(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián) 系！ , 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(對不起，你沒有管理本功能的權(quán) 限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub cjbrowse_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub claasfind_Click() qxstr = Executeqx(2) 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 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 classmodi = False (0) End Sub Public Sub clabrowse() txtsql = select * from class (0) = 瀏覽班級設(shè)置 End Sub Private Sub classbrowse_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 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 (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 End Sub Private Sub denglu2_Click() 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 0 End Sub Private Sub jiaofeibrowse_Click() qxstr = Executeqx(3) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub jiaofeifind_Click() qxstr = Executeqx(3) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員 聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 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 0 End Sub Private Sub leixing_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub liulan_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If find = False End Sub Private Sub MDIForm_Load() 39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。111為用戶名和密碼來登陸本系統(tǒng)。 3． 2． 1 本系統(tǒng)中所涉及到的主要實體共有以下幾個數(shù)據(jù)表： class 表： {年度，卡種，所屬，時限，項目，主 管教練，備注 } jf 表： {卡號，年度，交費，欠費，日期，操作員 } use 表： {username,password,admin,readonly,qx1,qx2,qx3,qx4} 接受數(shù)據(jù) 處理中心 卡管理 檔案管理 交費管理 系統(tǒng)管理 其他管理 打印報表 xj 表： {卡號，姓名，性別，卡種，出生年月，家庭住址，郵政編碼，聯(lián)系電話，注冊時間，備注 } jiaofei 表： {年度，所屬，時限，會費 } 3． 2． 2 各表的物理結(jié)構(gòu)如下： Class 表： 字段名稱 類型 寬度 小數(shù)位 年度 文本 16 卡種 文本 20 所屬 文本 5 時限 文本 8 項目 文本 16 主管教練 文本 8 備注 備注