【正文】 E 技術(shù)，可以方便地建立復(fù)合式文檔 (pound document)，這種文檔由來自多個不同應(yīng)用程序的對象組成，文檔中的每個對象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。 系統(tǒng)的功能簡介 本系統(tǒng)主要可以實(shí)現(xiàn)以下的管理功能：系統(tǒng)管理、會員檔案管理、會員交費(fèi)管理 等等。 會員繳費(fèi)管理 該模塊的主要功能是實(shí)現(xiàn)對健身中心會 員的會費(fèi)繳納的管理工作， 包括會員會費(fèi)瀏覽、會員會費(fèi)查詢等功能。 會員檔案 管理系統(tǒng) 0 層數(shù)據(jù)流程圖 會員管理部門 會員 會員檔案管理系統(tǒng) 管理中心 會員 教師 教師 會員信息 會員卡 查詢 統(tǒng)計(jì)分析 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價格最低質(zhì)量最好 會員 管理系統(tǒng) 1 層數(shù)據(jù)流程圖 數(shù)據(jù)存儲分析：實(shí)體聯(lián)系圖 數(shù)據(jù)模型設(shè)計(jì)。這個 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。 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ù)會導(dǎo)致該數(shù)據(jù)丟失，繼 續(xù)嗎？ , vbOKCancel + vbExclamation, 警告) = vbOK Then txtsql = delete * from xj where 班級 =39。 Trim((, 2)) amp。 39。 從而新用戶和會員用戶可以擁有不同的權(quán)限，執(zhí)行不同的操作，以達(dá)到更為科學(xué)和有效的管理。 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價格最低質(zhì)量最好 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 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價格最低質(zhì)量最好 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 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價格最低質(zhì)量最好 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() 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價格最低質(zhì)量最好 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 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價格最低質(zhì)量最好 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 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價格最低質(zhì)量最好 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 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價格最低質(zhì)量最好 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, 警告 ) 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價格最低質(zhì)量最好 Exit Sub End If find = False End Sub Private Sub MDIForm_Load() 39。 amp。 amp。 amp。 amp。 接受數(shù)據(jù) 處理中心 卡 管理 檔案 管理 交費(fèi)管理 系統(tǒng) 管理 其他管理 打印報(bào)表 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價格最低質(zhì)量最好 3． 2． 1 本系統(tǒng)中所涉及到的主要實(shí)體共有以下幾 個數(shù)據(jù)表： class 表： {年 度 ， 卡種 ， 所屬 ， 時限 ， 項(xiàng)