【文章內(nèi)容簡(jiǎn)介】 5) = Then MsgBox 新的密碼不能為空!, vbOKOnly, 提示 Text1(5).SetFocus Exit Sub Else If Text1(5) Text1(6) Then MsgBox 兩次密碼輸入不同!, vbOKOnly, 提示 Text1(5) = Text1(6) = Text1(5).SetFocus Exit Sub End If End IftxtSQL = select * from user_Form where user_ID=39。 amp。 Trim(Text1(3)) amp。 39。and user_PWD=39。 amp。 Trim(Text1(4)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False ThentxtSQL = delete from user_Form where user_ID=39。 amp。 Trim(Text1(3)) amp。 39。 Else MsgBox 用戶密碼輸入錯(cuò)誤!, vbOKOnly, 警告 Text1(4).SetFocus Exit Sub End If Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = select * from user_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(3)) (1) = Trim(Text1(5)) (2) = Now For i = 3 To 6 Text1(i) = Next MsgBox 用戶信息修改成功!, vbOKOnly, 提示End SubPrivate Sub Command4_Click() Text1(3) = Text1(4) = Text1(5) = Text1(6) = End SubPrivate Sub Command5_Click() Dim txtSQL As String If Text1(7) = Then MsgBox 請(qǐng)你選擇用戶名稱!, vbOKOnly, 提示 Exit Sub Else If Text1(7) = UserName Then MsgBox 不可以刪除正在使用的用戶!, vbOKOnly, 警告 Text1(7) = Text1(8) = Exit Sub End If End If If Text1(8) = Then MsgBox 刪除用戶需要密碼!, vbOKOnly, 警告 Text1(8).SetFocus Exit Sub End If txtSQL = select * from user_Form where user_ID=39。 amp。 Trim(Text1(7)) amp。 39。and user_PWD=39。 amp。 Trim(Text1(8)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False ThentxtSQL = delete from user_Form where user_ID=39。 amp。 Trim(Text1(7)) amp。 39。 Else MsgBox 用戶密碼輸入錯(cuò)誤!, vbOKOnly, 警告 Text1(8).SetFocus Exit Sub End If Set mrc = ExecuteSQL(txtSQL, MsgText) Text1(7) = Text1(8) = MsgBox 用戶信息已經(jīng)刪除!, vbOKOnly, 提示 ListappEnd SubPrivate Sub Command6_Click() Text1(7) = Text1(8) = End SubPrivate Sub Form_Load()：Dim mrc As Dim MsgText As StringDim tSQL As StringPrivate Sub Command1_Click() If Text1(0) = Then MsgBox 班級(jí)編號(hào)不能為空!, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If If Text1(1) = Then MsgBox 班級(jí)名稱不能為空!, vbOKOnly, 提示 Text1(1).SetFocus Exit Sub End If If Text1(2) = Then MsgBox 導(dǎo)員姓名不能為空!, vbOKOnly, 提示 Text1(2).SetFocus Exit Sub End If txtSQL = select * from class_Form where class_NO=39。 amp。 Trim(Text1(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 此班級(jí)編號(hào)已存在!, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) (2) = Trim(Text1(2)) (3) = Trim(Text1(3)) For i = 0 To 3 Text1(i) = Next MsgBox 班級(jí)信息添加成功!, vbOKOnly, 提示 ShowDataEnd SubPrivate Sub Command2_Click() For i = 0 To 3 Text1(i) = NextEnd SubPrivate Sub Command3_Click() If Text1(5) = Then MsgBox 班級(jí)名稱不能為空!, vbOKOnly, 提示 Text1(5).SetFocus Exit Sub End If If Text1(6) = Then MsgBox 導(dǎo)員姓名不能為空!, vbOKOnly, 提示 Text1(6).SetFocus Exit Sub End If txtSQL = delete from class_Form where class_NO=39。 amp。 Trim(Text1(4)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(4)) (1) = Trim(Text1(5)) (2) = Trim(Text1(6)) (3) = Trim(Text1(7)) For i = 4 To 7 Text1(i) = Next MsgBox 班級(jí)信息修改成功!, vbOKOnly, 提示 ShowDataEnd SubPrivate Sub Command4_Click() For i = 4 To 7 Text1(i) = NextEnd SubPrivate Sub Command5_Click() txtSQL = delete from class_Form where class_NO=39。 amp。 Trim(Text1(8)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) For i = 8 To 11 Text1(i) = Next MsgBox 班級(jí)信息以經(jīng)刪除!, vbOKOnly, 警告 ShowDataEnd SubPrivate Sub Command6_Click() For i = 8 To 11 Text1(i) = NextEnd SubPrivate Sub Form_Load() = 班級(jí)信息添 加 Picture1(1).Top = Picture1(0).Top Picture1(1).Left = Picture1(0).Left Picture1(2).Top = Picture1(0).Top Picture1(2).Left = Picture1(0).Left ShowData For i = 0 To 2 Label2(i).BackColor = amp。HE0E0E0 Picture1(i).Visible = False Next Label2(0).BackColor = amp。HFFFFFF Picture1(0).Visible = TrueEnd SubPrivate Sub Form_Resize() 1End SubPrivate Sub Label2_Click(Index As Integer) = 班級(jí)信息 = amp。 amp。 Trim(Label2(Index).Caption) For i = 0 To 2 Label2(i).BackColor = amp。HE0E0E0 Picture1(i).Visible = False Next Label2(Index).BackColor = amp。HFFFFFF Picture1(Index).Visible = True For i = 0 To 11 Text1(i) = Next = False = FalseEnd SubPrivate Sub ShowData() Dim txSQL As String Dim mrcc As txSQL = select * from class_Form Set mrcc = ExecuteSQL(txSQL, MsgText) With MSFlexGrid1 .ColWidth(0) = 1200 .ColWidth(1) = 1200 .ColWidth(2) = 1200 .ColWidth(3) = 6000 .TextMatrix(0, 0) = 班級(jí)編號(hào) .TextMatrix(0, 1) = 班級(jí)名稱 .TextMatrix(0, 2) = 導(dǎo)員姓名 .TextMatrix(0, 3) = 備注信息 .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 0 To 1 .TextMatrix(.Rows 1, i) = (i) amp。 Next i Loop End Wit