【文章內(nèi)容簡(jiǎn)介】 管理中心 輸入計(jì)算機(jī) 管理人員 所屬部門(mén) 會(huì)員 卡種 卡種 輸出 管理中心 輸入 計(jì)算機(jī) 管理人員 所屬部門(mén) 會(huì)員 檔案 檔案 輸出 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(zhì)量最好 數(shù)據(jù)流程分析： 數(shù)據(jù)流程圖： 由于本系統(tǒng)的數(shù)據(jù)模塊較多，下面僅以會(huì)員檔案 管理模塊為例來(lái)進(jìn)行編制 。 會(huì)員檔案 管理系統(tǒng) 0 層數(shù)據(jù)流程圖 會(huì)員管理部門(mén) 會(huì)員 會(huì)員檔案管理系統(tǒng) 管理中心 會(huì)員 教師 教師 會(huì)員信息 會(huì)員卡 查詢(xún) 統(tǒng)計(jì)分析 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(zhì)量最好 會(huì)員 管理系統(tǒng) 1 層數(shù)據(jù)流程圖 數(shù)據(jù)存儲(chǔ)分析：實(shí)體聯(lián)系圖 數(shù)據(jù)模型設(shè)計(jì)。首先來(lái)做出 會(huì)員檔案 管理系統(tǒng)的 ER 圖，分析這個(gè)問(wèn)題的實(shí)體，從系統(tǒng)分析可以知道， 會(huì)員檔案 是由 姓名、卡號(hào)等組成了這個(gè)系統(tǒng)的幾個(gè) 實(shí)體。 再分析幾個(gè)個(gè)實(shí)體之間的聯(lián)系。這幾個(gè)實(shí)體不是一個(gè)統(tǒng)一體 。這個(gè) ER圖可畫(huà)成下圖。 功能分析：功能層次圖 會(huì)員 會(huì)員卡 管理 中心 卡 費(fèi)用uyon 會(huì)員 管理 卡 管理 綜合 管理 統(tǒng)計(jì)分析 D1 D2 D3 查詢(xún)者 管理者 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(zhì)量最好 軟件模塊結(jié) 構(gòu)設(shè)計(jì) 3． 1． 1 系統(tǒng)方案確定 通過(guò)對(duì)系統(tǒng)的調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能有： 會(huì)員檔案 管理、 會(huì)員卡 管理、 會(huì)員交費(fèi)管理 、系統(tǒng)管理 、報(bào)表打印 等功能。 會(huì)員檔案添加 會(huì)員檔案修改 會(huì)員檔案刪除 卡信息添加 卡信息修改 卡信息刪除 卡信息 瀏覽 會(huì)員繳費(fèi)瀏覽 會(huì)員繳費(fèi)查詢(xún) 添加用戶(hù) 重新登錄 更改密碼 系統(tǒng)管理 會(huì)員繳費(fèi)管理 會(huì)員卡管理 會(huì)員檔案管理 會(huì)員 管理系統(tǒng) 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(zhì)量最好 3． 1． 2 軟件結(jié)構(gòu)設(shè)計(jì) 本系統(tǒng)在執(zhí)行時(shí)，先根據(jù)不同的操作人員的需要來(lái)進(jìn)行相應(yīng)的模塊，然后可以輸入數(shù)據(jù)或者進(jìn)行其它的查詢(xún)或?yàn)g覽等操作；總體來(lái)說(shuō)，本系統(tǒng)屬于一個(gè)事務(wù)型管理系統(tǒng)。 3． 2 數(shù)據(jù)庫(kù)設(shè)計(jì) 數(shù)據(jù)庫(kù)采用了 Microsoft 推出的 Access 數(shù)據(jù)庫(kù)，這是微軟集成到 Office 中的一個(gè)桌面數(shù) 據(jù)庫(kù)，能 夠快速方便的和 Office 的其他套件綜合使用。由于 Access 具有顯著的簡(jiǎn)易性和有效性，大量的桌面數(shù)據(jù)庫(kù)系統(tǒng)都采用 Access 作為后臺(tái)數(shù)據(jù)庫(kù)。使用Access 的好處還在于，如果你的系統(tǒng)擴(kuò)展到 Client/Server 模式的時(shí)候，可以使用Microsoft 的數(shù)據(jù)庫(kù)服務(wù)器軟件 SQL Server，此時(shí)，程序只需要簡(jiǎn)單的修改一下鏈接（ ADO 的數(shù)據(jù)源）就可以，這樣，為程序的平滑擴(kuò)展提供了非常有力的條件。 接受數(shù)據(jù) 處理中心 卡 管理 檔案 管理 交費(fèi)管理 系統(tǒng) 管理 其他管理 打印報(bào)表 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(zhì)量最好 3． 2． 1 本系統(tǒng)中所涉及到的主要實(shí)體共有以下幾 個(gè)數(shù)據(jù)表： class 表： {年 度 ， 卡種 ， 所屬 ， 時(shí)限 ， 項(xiàng)目，主 管教練， 備注 } jf 表： {卡 號(hào)， 年度 ，交費(fèi)，欠費(fèi)，日期，操作員 } use 表： {username,password,admin,readonly,qx1,qx2,qx3,qx4} xj 表： {卡 號(hào)，姓名，性別， 卡種 ，出生年月，家庭住址，郵政編碼，聯(lián)系電話，注冊(cè) 時(shí)間，備注 } jiaofei 表： {年度 ， 所屬，時(shí)限，會(huì) 費(fèi) } 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(zhì)量最好 3． 2． 2 各表的物理結(jié)構(gòu)如下： Class 表： 字段名稱(chēng) 類(lèi)型 寬度 小數(shù)位 年 度 文本 16 卡種 文本 20 所屬 文本 5 時(shí)限 文本 8 項(xiàng)目 文本 16 主管教練 文本 8 備注 備注 Jf 表： 字段名稱(chēng) 類(lèi)型 寬度 小數(shù)位 卡 號(hào) 文本 5 年度 文本 50 交費(fèi) 貨幣 自動(dòng) 欠費(fèi) 貨幣 自動(dòng) 日期 日期 /時(shí)間 操作員 文本 10 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(zhì)量最好 Use 表： 字段名稱(chēng) 類(lèi)型 寬度 小數(shù)位 username 文本 20 password 文本 20 Admin 文本 2 Readonly 文本 2 Qx1 文本 2 Qx2 文本 2 Qx3 文本 2 Qx4 文本 2 xj 表： 字段名稱(chēng) 類(lèi)型 寬度 小數(shù)位 卡 號(hào) 文本 9 姓名 文本 8 性別 文本 2 卡種 文本 10 出生年月 日期 /時(shí)間 家庭住址 文本 30 郵政編碼 數(shù)字（長(zhǎng)整型） 聯(lián)系電話 數(shù)字（長(zhǎng)整型） 注冊(cè) 時(shí)間 日期 /時(shí)間 備注 備注 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(zhì)量最好 jiaofei 表： 字段名稱(chēng) 類(lèi)型 寬度 小數(shù)位 年 度 文本 16 項(xiàng)目 文本 50 時(shí)限 文本 20 學(xué)費(fèi) 貨幣 自動(dòng) 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(zhì)量最好 第四章 系統(tǒng)的功能 本部分主要內(nèi)容為本系統(tǒng)的運(yùn)行界面以及主要界面的源代碼。 4． 1 系統(tǒng)登陸界面： 本 界面的主要功能是為了對(duì)系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)的用戶(hù)名和密碼保存在 USE 表中，本系統(tǒng)根據(jù)不同的用戶(hù)而設(shè)置了不同的權(quán)限，可以用 111。111為用戶(hù)名和密碼來(lái)登陸本系統(tǒng)。 Private Sub Command1_Click() Dim mrc As txtsql = select username from use where username=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用戶(hù)名錯(cuò)誤！ , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(zhì)量最好 username = (0) txtsql2 = select username from use where password=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtsql2) If = True Then MsgBox 密碼錯(cuò)誤！ , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If txtsql = select username from use where username=39。 amp。 Trim() amp。 39。and password=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用戶(hù)名稱(chēng)和密碼不匹配！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If = Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(zhì)量最好 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)的應(yīng)用界面，在本界面上集成了本系統(tǒng)的所有功能，共有5個(gè)功能菜單和 12 個(gè)子菜單（功能模塊），從而實(shí)現(xiàn)了本系統(tǒng)從 會(huì)員卡 管理、 會(huì)員 檔案管理、 會(huì)員 繳費(fèi)管理、 系統(tǒng)管理 等系統(tǒng)的具體功能，同時(shí)，在系統(tǒng)管理模塊中可以完成對(duì)本系統(tǒng)的安全性管理。 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(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(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián) 系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(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(對(duì)不起，你沒(méi)有管理本功能的權(quán) 限，請(qǐng)與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警