【導(dǎo)讀】購(gòu)買設(shè)計(jì)QQ：382540551全套包括:開(kāi)題報(bào)告,論文,源程序,源代碼,息系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷。通過(guò)分析某一健身中心的管理的不足，創(chuàng)建了一套。行之有效的計(jì)算機(jī)管理健身中心會(huì)員的方案。界面友好，操作簡(jiǎn)單，比較實(shí)用。管理信息系統(tǒng)、會(huì)員管理、VisualBasic應(yīng)用。

　　

【正文】 代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 確認(rèn)密碼不正確！ , vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit Sub End If Dim aa As Integer aa = 0 If Option1(2).Value = True Then For i = 0 To 3 If Check1(i).Value = 1 Then aa = 1 Exit For End If Next i If aa = 0 Then MsgBox 普通用戶至少要有一項(xiàng)權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If End If Dim mrc As txtsql = select * from use where username=39。 amp。 Trim(Text1(0).Text) amp。 39。 Set mrc = ExecuteSQL(txtsql) If = False Then MsgBox 已存在該用戶！ , vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 Exit Sub End If txtsql = select * from use Set mrc = ExecuteSQL(txtsql) (0) = Trim(Text1(0).Text) (1) = Trim(Text1(1).Text) For i = 0 To 2 If Option1(i).Value = True Then Select Case i Case 0 (admin) = y Case 1 (readonly) = y Case 2 For j = 0 To 3 If Check1(j).Value = 1 Then Select Case j Case 0 (qx1) = y Case 1 (qx2) = y Case 2 (qx3) = y Case 3 (qx4) = y End Select End If Next j 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 End Select End If Next i MsgBox 用戶添加成功！ , vbExclamation + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Option1(2).Value = True End Sub Private Sub Form_Resize() Text1(0).SetFocus End Sub Private Sub Option1_Click(Index As Integer) If Index 2 Then For i = 0 To 3 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 Check1(i).Enabled = False Next i Else For i = 0 To 3 Check1(i).Enabled = True Next i End If End Sub 4． 4 會(huì)員檔案 管理模塊： 因?yàn)楸鞠到y(tǒng)中有些功能模塊具有相似之處，因此在本文只用此模塊進(jìn)行一個(gè)簡(jiǎn)單的說(shuō)明。其它的相似模塊的代碼可能參閱本模塊的設(shè)計(jì)思路。 Public printstr As String Private Sub Command1_Click() Dim dbSource As Database 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 Set dbSource = OpenDatabase() z = MsgBox(成功！ , vbOKOnly, 查詢 ) End Sub Public Sub classshowtitle() Dim i As Integer With MSF1 .Cols = 8 .TextMatrix(0, 1) = 年度 .TextMatrix(0, 2) = 卡種 .TextMatrix(0, 3) = 所屬 .TextMatrix(0, 4) = 時(shí)限 .TextMatrix(0, 5) = 項(xiàng)目 .TextMatrix(0, 6) = 主管教練 .TextMatrix(0, 7) = 備注 .ColWidth(0) = 100 .ColWidth(1) = 1300 .ColWidth(2) = 1200 .ColWidth(3) = 800 .ColWidth(4) = 800 .ColWidth(5) = 800 .ColWidth(6) = 800 .ColWidth(7) = 5000 .FixedRows = 1 For i = 1 To 7 .ColAlignment(i) = 0 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .Row = 1 End With End Sub Public Sub classshowdata() Dim j As Integer Dim i As Integer Dim mrc1 As Set mrc1 = ExecuteSQL(Trim(txtsql)) If = False Then With MSF1 .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 1 To .TextMatrix(.Rows 1, i) = (i 1) Next i 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 Loop End With Else If classfind = True Then zzz = MsgBox(對(duì)不起，沒(méi)有此會(huì)員 的檔案記錄！ , vbOKOnly, 查詢 ) (0) (0).SetFocus End If End If End Sub Private Sub cmddel_Click() qxstr = Executeqx(2) If qxstr = readonly Then ss = MsgBox(對(duì)不起，你是只讀用戶不能刪除記錄，請(qǐng)與管理 員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If Dim mrc As Dim msgtext As String Dim intcount As Integer If Trim((, 1)) = Then 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 sssss = MsgBox(你還沒(méi)有選擇記錄！ , vbOKOnly + vbExclamation, 警告 ) Exit Sub End If If MsgBox( 確定要?jiǎng)h除會(huì)員 為 amp。 Trim((, 2)) amp。 的記錄嗎？ amp。 Chr(13) amp。 Chr(10) amp。 繼續(xù)會(huì)導(dǎo)致該數(shù)據(jù)丟失，繼 續(xù)嗎？ , vbOKCancel + vbExclamation, 警告) = vbOK Then txtsql = delete * from xj where 班級(jí) =39。 amp。 Trim((, 2)) amp。 39。 Set mrc = ExecuteSQL(txtsql) txtsql = delete * from jf where 學(xué)號(hào) in (select from xj where 班級(jí) =39。 amp。 Trim((, 2)) amp。 39。) Set mrc = ExecuteSQL(txtsql) 39。刪除在交費(fèi)表中的所 有該卡種 的記錄 txtsql = delete * from cj where 卡 號(hào) in (select from xj where 卡種 =39。 amp。 Trim((, 2)) amp。 39。) Set mrc = ExecuteSQL(txtsql) 39。刪除在成績(jī)表中的所有該班級(jí)的記錄 txtsql = delete * from class where 班級(jí) =39。 amp。 Trim((, 2)) amp。 39。 Set mrc = ExecuteSQL(txtsql) 39。刪除該班級(jí)的記錄 End If zxh = MsgBox(記錄成功刪除！ , vbOKOnly, 查詢 ) txtsql = select* from class classshowtitle classshowdata 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 Call Form_Activate End Sub Private Sub cmdfind_Click() End Sub Private Sub cmdmodi_Click() If Trim((, 1)) = Then sssss = MsgBox(你還沒(méi)有選擇記錄！ , vbOK