【正文】 功能。 會(huì)員檔案 管理系統(tǒng) 0 層數(shù)據(jù)流程圖 會(huì)員管理部門 會(huì)員 會(huì)員檔案管理系統(tǒng) 管理中心 會(huì)員 教師 教師 會(huì)員信息 會(huì)員卡 查詢 統(tǒng)計(jì)分析 會(huì)員 管理系統(tǒng) 1 層數(shù)據(jù)流程圖 數(shù)據(jù)存儲分析：實(shí)體聯(lián)系圖 數(shù)據(jù)模型設(shè)計(jì)。這個(gè) ER圖可畫成下圖。由于 Access 具有顯著的簡易性和有效性，大量的桌面數(shù)據(jù)庫系統(tǒng)都采用 Access 作為后臺數(shù)據(jù)庫。111為用戶名和密碼來登陸本系統(tǒng)。 39。 39。 39。 39。 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。 amp。其它的相似模塊的代碼可能參閱本模塊的設(shè)計(jì)思路。 Chr(13) amp。 Trim((, 2)) amp。 Trim((, 2)) amp。 amp。刪除在成績表中的所有該班級的記錄 txtsql = delete * from class where 班級 =39。 Set mrc = ExecuteSQL(txtsql) 39。 當(dāng)然新建立的系統(tǒng)在設(shè)計(jì)階段必然會(huì)有一些沒有體現(xiàn)出來的缺陷與不足，而且隨著企業(yè)對系統(tǒng)要求的不斷改變，系統(tǒng)同樣會(huì)顯露出與現(xiàn)實(shí)的不適應(yīng)性，這些都是系統(tǒng)在運(yùn)行中所要解決的問題。 運(yùn)行維護(hù)主要是保護(hù)系統(tǒng)的硬件運(yùn)行環(huán)境，避免一些不當(dāng)?shù)牟僮鳎乐雇饨缛绮《镜犬惓Ｇ闆r的干擾。系統(tǒng)評價(jià)是指系統(tǒng)在正式運(yùn)行一段時(shí)間之后，對它在功能上、技術(shù)上和經(jīng)濟(jì)上所進(jìn)行的審核評價(jià)。更有利于各項(xiàng)工作的開展。這使健身中心日常管理工作更科學(xué)、更有效。利用新系統(tǒng)代替舊系統(tǒng)是需要過程的，在這個(gè)過程中還需不斷完善系統(tǒng)，使系統(tǒng)更適應(yīng)現(xiàn)實(shí)情況。因?yàn)閷W(xué)生管理的整個(gè)流程不夠熟悉，在需求分析時(shí)未能做到完全滿足用戶的需求。 通過這次畢業(yè)設(shè)計(jì)體現(xiàn)了一次程序開發(fā)的完整過 程。有了這次經(jīng)驗(yàn)，使我更有信心將所學(xué)到的知識運(yùn)用到實(shí)踐中去、更有信心迎接今后的挑戰(zhàn)。他無論在 理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到 很大 的提高 ， 這對于我以 后 的工作和學(xué)習(xí)都有一種巨大的幫助， 在此感謝他耐心的輔導(dǎo)。 參考文獻(xiàn) [1] 周佩德 .《 數(shù)據(jù)庫原理及應(yīng)用》 .電子工業(yè)出版。 另外， 我還要感謝在這幾年來對我有所教導(dǎo)的老師，他們孜孜不倦的教誨不但讓我學(xué)到了很多知識，而且讓我掌握了學(xué)習(xí) 的方法，更教會(huì)了我做人處事的道理，在此表示感謝。 在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老 師 XXX 老師， 身上學(xué)到了很多東西。雖然本系統(tǒng)設(shè)計(jì)的還很簡單，報(bào)告制作的也很不完善與成熟。 盡管本管理系統(tǒng)存在著很多不足，但其功能全面、易于日后程序更新、數(shù)據(jù)庫管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點(diǎn)是本管理系統(tǒng)所必需的。另外，在整個(gè)開發(fā)的過程中，時(shí)間也比較倉促。本系統(tǒng)還建有完善的數(shù)據(jù)統(tǒng)計(jì)功能，以模塊的形式提供給系統(tǒng)從作者，形成統(tǒng)計(jì) 表，供相關(guān)人員使用。這些都使得中心的效益有了很大的提升。 系統(tǒng)評價(jià)包括系統(tǒng)性能評價(jià)、系統(tǒng)效益評價(jià)和系統(tǒng)管理評價(jià)。 運(yùn)用以上方法可使系統(tǒng)更安全、使用時(shí)間更長，從而更有利于系統(tǒng)的實(shí)際使用效果。 在系統(tǒng)運(yùn)行中還應(yīng)注意對系統(tǒng)的維護(hù)，系統(tǒng)維護(hù)主要是對系統(tǒng)數(shù)據(jù)及運(yùn)行情況進(jìn)行維護(hù)。而這一切只有在實(shí)際運(yùn)行過系統(tǒng)一段時(shí)間后才能得出結(jié)論。 Trim((, 2)) amp。 39。) Set mrc = ExecuteSQL(txtsql) 39。 Set mrc = ExecuteSQL(txtsql) txtsql = delete * from jf where 學(xué)號 in (select from xj where 班級 =39。 繼續(xù)會(huì)導(dǎo)致該數(shù)據(jù)丟失，繼續(xù)嗎？ , vbOKCancel + vbExclamation, 警告) = vbOK Then txtsql = delete * from xj where 班級 =39。 Trim((, 2)) amp。 39。 從而新用戶和會(huì)員用戶可以擁有不同的權(quán)限，執(zhí)行不同的操作，以達(dá)到更為科學(xué)和有效的管理。 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。 amp。 amp。 amp。 amp。 3． 2． 1 本系統(tǒng)中所涉及到的主要實(shí)體共有以下幾 個(gè)數(shù)據(jù)表： class 表： {年 度 ， 卡種 ， 所屬 ， 時(shí)限 ， 項(xiàng)目 ，主管教練， 備注 } jf 表： {卡 號， 年度 ，交費(fèi)，欠費(fèi)，日期，操作員 } use 表： {username,password,admin,readonly,qx1,qx2,qx