健身中心會員管理系統(tǒng)設(shè)計畢業(yè)論文-資料下載頁
2025-06-27 16:41本頁面
【正文】 ublic Sub classshowtitle() Dim i As Integer With MSF1 .Cols = 8 .TextMatrix(0, 1) = 年度 .TextMatrix(0, 2) = 卡種 .TextMatrix(0, 3) = 所屬 .TextMatrix(0, 4) = 時限 .TextMatrix(0, 5) = 項目 .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 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .Row = 1 End WithEnd SubPublic Sub classshowdata()Dim j As IntegerDim i As IntegerDim 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 Loop End With Else If classfind = True Then zzz = MsgBox(對不起，沒有此會員的檔案記錄！, vbOKOnly, 查詢) (0) (0).SetFocus End If End IfEnd SubPrivate Sub cmddel_Click()qxstr = Executeqx(2) If qxstr = readonly Then ss = MsgBox(對不起，你是只讀用戶不能刪除記錄，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit Sub End If Dim mrc As Dim msgtext As String Dim intcount As Integer If Trim((, 1)) = Then sssss = MsgBox(你還沒有選擇記錄！, vbOKOnly + vbExclamation, 警告) Exit Sub End If If MsgBox(確定要刪除會員為 amp。 Trim((, 2)) amp。 的記錄嗎？ amp。 Chr(13) amp。 Chr(10) amp。 繼續(xù)會導致該數(shù)據(jù)丟失，繼續(xù)嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then txtsql = delete * from xj where 班級=39。 amp。 Trim((, 2)) amp。 39。 Set mrc = ExecuteSQL(txtsql) txtsql = delete * from jf where 學號 in (select from xj where 班級=39。 amp。 Trim((, 2)) amp。 39。) Set mrc = ExecuteSQL(txtsql) 39。刪除在交費表中的所有該卡種的記錄 txtsql = delete * from cj where 卡號 in (select from xj where 卡種=39。 amp。 Trim((, 2)) amp。 39。) Set mrc = ExecuteSQL(txtsql) 39。刪除在成績表中的所有該班級的記錄 txtsql = delete * from class where 班級=39。 amp。 Trim((, 2)) amp。 39。 Set mrc = ExecuteSQL(txtsql) 39。刪除該班級的記錄 End If zxh = MsgBox(記錄成功刪除！, vbOKOnly, 查詢) txtsql = select* from class classshowtitle classshowdata Call Form_ActivateEnd SubPrivate Sub cmdfind_Click()End SubPrivate Sub cmdmodi_Click()If Trim((, 1)) = Then sssss = MsgBox(你還沒有選擇記錄！, vbOKOnly + vbExclamation, 警告) Exit Sub Else qxstr = Executeqx(2) If qxstr = readonly Then ss = MsgBox(對不起，你是只讀用戶不能修改記錄，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit Sub End If classmodi = True 0 Call Form_Activate End IfEnd SubPrivate Sub cmdprint_Click() If Trim(printstr) = Then sssss = MsgBox(沒有當前記錄！, vbOKOnly + vbExclamation, 警告) Exit Sub End If If = adStateOpen Then End If printstr If = True Then sssss = MsgBox(沒有當前記錄！, vbOKOnly + vbExclamation, 警告) Exit Sub End If 1End SubPrivate Sub cmdprintall_Click()If = adStateOpen Then End If (select * from class) If = True Then sssss = MsgBox(沒有當前記錄！, vbOKOnly + vbExclamation, 警告) Exit Sub End If 1End Sub“IT開拓者3網(wǎng)絡(luò)工作室”成立于2010年，是一個專業(yè)的計算機軟件開發(fā)團隊?！百Y源共享，信息互通” 需要更多相關(guān)設(shè)計資料和源代碼加:493703123
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1