【正文】 amp。 39。 Chr(10) amp。 Trim(Text1(0).Text) amp。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用戶名稱(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ì) ,歡迎咨詢選購(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)的安全性管理。 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。 Private Sub Command1_Click() Dim mrc As txtsql = select username from use where username=39。 功能分析：功能層次圖 會(huì)員 會(huì)員卡 管理 中心 卡 費(fèi)用uyon 會(huì)員 管理 卡 管理 綜合 管理 統(tǒng)計(jì)分析 D1 D2 D3 查詢者 管理者 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(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)表打印 等功能。 從而方便健身中心的管理人員對(duì)會(huì)員的繳納會(huì)費(fèi)的情況的掌握與了解。 動(dòng)態(tài)鏈接庫(kù) (DLL) Visual Basic 是一種高級(jí)程序設(shè)計(jì)語(yǔ)言，不具備低級(jí)語(yǔ)言的功能，對(duì)訪問(wèn)機(jī)器硬件的操作不太容易實(shí)現(xiàn)。 Visual Basic 提供開(kāi)放式數(shù)據(jù)連接，即 ODBC 功能，可通過(guò)直接訪問(wèn)或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，如 SQL Server， Oracle 等。在設(shè)計(jì) Visual Basic 程序的過(guò)程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件 (.EXE)，脫離 Visual Basic 環(huán)境，直接在 Windows 環(huán)境下運(yùn)行。 Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫(xiě)實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。 數(shù)據(jù)庫(kù)是 MIS 中的重要支持技術(shù)，在 MIS 開(kāi)發(fā)過(guò)程中，如何選擇數(shù)據(jù)庫(kù)管理是一個(gè)重要的問(wèn)題，目前，數(shù)據(jù)庫(kù)產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在選擇數(shù)據(jù)庫(kù)時(shí)，應(yīng)考慮數(shù)據(jù)庫(kù)應(yīng) 用的特點(diǎn)及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫(kù)語(yǔ)言介紹如下： Visual Basic 語(yǔ)言 Visual Basic 是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開(kāi)發(fā) Windows 環(huán)境下的種類(lèi)應(yīng)用程序。 ⑵ 由于 該系統(tǒng)的使用對(duì)象多 ,要求有較好的權(quán)限管理 。 信息在不同的領(lǐng)域里有著不同的概念，在管理科學(xué)領(lǐng)域中，通常認(rèn)為信息是經(jīng)過(guò)加工處理后的一種數(shù)據(jù)形式，是一種有次序的符號(hào)排列， 它是系統(tǒng)傳輸和處理的對(duì)象。通過(guò)分析某一 健身中心的管理的不足，創(chuàng)建了一套行之有效的計(jì)算機(jī)管理健身中心會(huì) 員 的方案。文章介紹了 會(huì)員管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、業(yè)務(wù)流程分析等；系統(tǒng)設(shè)計(jì)部分主要介紹了系統(tǒng)功能設(shè)計(jì)和數(shù)據(jù)庫(kù)設(shè)計(jì)及代碼設(shè)計(jì)；系統(tǒng)實(shí)現(xiàn)部分說(shuō)明了幾個(gè)主要模塊的算法，本系統(tǒng)界面友好，操作簡(jiǎn)單，比較實(shí)用。處在信息時(shí)代的今天，信息的作用越來(lái)越為人們所重視。 ⑶ 原始數(shù)據(jù)修改簡(jiǎn)單方便 ,支持多條件修改 ⑷ 方便的數(shù)據(jù)查詢，支持多條件查詢 。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與 Windows 的專(zhuān)業(yè)開(kāi)發(fā)工具 SDK 相媲美，而且程序開(kāi)發(fā)人員不必具有 C/C++編程基礎(chǔ)。 面向?qū)ο蟮某绦蛟O(shè)計(jì) 版以后的 Visual Basic 支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言 (C++)不完全相同。 事件驅(qū)動(dòng)編程機(jī)制 Visual Basic 通過(guò)事件來(lái)執(zhí)行 對(duì)象的操作。在應(yīng)用程序中，可 以使用結(jié)構(gòu)化查詢語(yǔ)言 SQL 數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問(wèn)服務(wù)器上的數(shù)據(jù)庫(kù)，并提供了簡(jiǎn)單的面向?qū)ο蟮膸?kù)操作指令和多用戶數(shù)據(jù)庫(kù)訪問(wèn)的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的 SQL 的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫(kù)提供了 SQL 網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶 /服務(wù)器 (client/server)方案。但它可以通過(guò)動(dòng)態(tài)鏈接庫(kù)技術(shù)將 C/C++或匯編語(yǔ)言編寫(xiě)的程序加入到 Visual Basic 應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語(yǔ)言編寫(xiě)的函數(shù)。 系統(tǒng)開(kāi)發(fā)的目標(biāo) 出于本系統(tǒng)是 健身中心會(huì)員 管理的一個(gè)綜合性的系統(tǒng)，本系統(tǒng)的設(shè)計(jì)目標(biāo)將最終定位于完成以上所述的系統(tǒng)主要業(yè)務(wù)的基本模型上。 會(huì)員檔案添加 會(huì)員檔案修改 會(huì)員檔案刪除 卡信息添加 卡信息修改 卡信息刪除 卡信息 瀏覽 會(huì)員繳費(fèi)瀏覽 會(huì)員繳費(fèi)查詢 添加用戶 重新登錄 更改密碼 系統(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ì) ,歡迎咨詢選購(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)行其它的查詢或?yàn)g覽等操作；總體來(lái)說(shuō)，本系統(tǒng)屬于一個(gè)事務(wù)型管理系統(tǒng)。 amp。 amp。 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(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ì) ,歡迎咨詢選購(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, 警告 ) Exit Sub End If 0 End Sub Private Sub cjbrowse_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 Private Sub claasfind_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(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(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If classmodi = False (0) End Sub Public Sub clabrowse() 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 txtsql = select * from class (0) = 瀏覽班級(jí)設(shè)置 End Sub Private Sub classbrowse_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub classfind_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If (0) End Sub 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 Private Sub find_Click() End Sub Private Sub classkecheng_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(對(duì)不