【正文】 1(10) = (2) Text1(11) = (3) amp。 39。 amp。 39。 amp。 amp。 amp。 39。 amp。 amp。 39。 39。 39。 39。 39。 39。 39。 amp。HE0E0E0 Else = amp。 Label3(i).Caption amp。 39。 amp。 Trim(Text1(0)) amp。 amp。 and 姓名=39。 End If End If If Text1(4) Label3(4).Caption Then If txSQL = select * from 學(xué)生信息表 Then txSQL = txSQL amp。 39。 Trim(Text1(4)) amp。 data source= amp。 End Select Next i Loop .Visible = True End With = False TextDcolor 。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic j = 1 Do While Not j = j + 1 Loop = True = CInt(0) = CInt(j) txSQL, conn, adOpenStatic, adLockPessimistic = True With MSFlexGrid1 .Visible = False .Rows = 1 = .Rows Do While Not .Rows = .Rows + 1 For i = 0 To 1 Select Case (i).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i) amp。 End If End If Set mrcc = New = provider=。 and 班級=39。 amp。 Trim(Text1(1)) amp。 39。 End If If Text1(1) Label3(1).Caption Then If txSQL = select * from 學(xué)生信息表 Then txSQL = txSQL amp。 where 學(xué)號=39。 amp。 amp。 Label3(i).Caption amp。 Text1(1).Locked = True Else Text1(1) = Text1(1).Locked = False End If End IfEnd Sub圖321相關(guān)代碼：Dim mrcc As Dim MsgText As StringDim txSQL As StringPrivate Sub Combo1_Click() Text1(4) = If Label1(3).BackColor amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 Trim(Text1(Index)) amp。 amp。 39。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic With MSFlexGrid1 .ColWidth(0) = 1200 .ColWidth(1) = 1200 .ColWidth(2) = 1200 .ColWidth(3) = 6000 .TextMatrix(0, 0) = 班級編號 .TextMatrix(0, 1) = 班主任 .TextMatrix(0, 2) = 學(xué)生人數(shù) .TextMatrix(0, 3) = 備注 .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 0 To 1 .TextMatrix(.Rows 1, i) = (i) amp。HFFFFFF Picture1(Index).Visible = True For i = 0 To 11 Text1(i) = Next = False = FalseEnd SubPrivate Sub ShowData() Set mrcc = New txSQL = select * from 班級表 = provider=。HFFFFFF Picture1(0).Visible = TrueEnd SubPrivate Sub Label2_Click(Index As Integer) = 班級信息 = amp。 data source= amp。 Trim(Text1(8)) amp。 data source= amp。 Trim(Text1(4)) amp。 data source= amp。 data source= amp。 Trim(Text1(0)) amp。 data source= amp。 Trim(Label2(Index).Caption) For i = 0 To 2 Label2(i).BackColor = amp。 Else MsgBox 用戶密碼輸入錯誤!, vbOKOnly, 警告 Text1(8).SetFocus Exit Sub End If co txtSQL, conn, adOpenStatic, adLockPessimistic Text1(7) = Text1(8) = MsgBox 用戶信息已經(jīng)刪除!, vbOKOnly, 提示 ListappEnd SubPrivate Sub Command6_Click() Text1(7) = Text1(8) = End SubPrivate Sub Form_Load() = 用戶信息添 加 Picture1(1).Top = Picture1(0).Top Picture1(1).Left = Picture1(0).Left Picture1(2).Top = Picture1(0).Top Picture1(2).Left = Picture1(0).Left Listapp For i = 0 To 2 Label2(i).BackColor = amp。 txtSQL, conn, adOpenStatic, adLockPessimistic If = False Then txtSQL = delete from 系統(tǒng)用戶表 where 用戶名=39。and 密碼=39。 /Data/ co txtSQL = select * from 系統(tǒng)用戶表 where 用戶名=39。 Else MsgBox 用戶密碼輸入錯誤!, vbOKOnly, 警告 Text1(4).SetFocus Exit Sub End If co txtSQL, conn, adOpenStatic, adLockPessimistic txtSQL = select * from 系統(tǒng)用戶表 txtSQL, conn, adOpenStatic, adLockPessimistic (0) = Trim(Text1(3)) (1) = Trim(Text1(5)) 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 Dim co As String If Text1(7).Text = Then MsgBox 請您選擇用戶名稱, vbOKOnly, 提示 Text1(7).SetFocus Exit Sub Else If Text1(7) = UserName Then MsgBox 不可一刪除正在使用的用戶！, vbOKOnly, 提示 Text1(7).Text = Text1(7).SetFocus Exit Sub End If End If If Text1(8) = Then MsgBox 刪除用戶需要密碼！, vbOKOnly, 提示 Text1(7).SetFocus Exit Sub End If Set mrc = New co = provider=。 txtSQL, conn, adOpenStatic, adLockPessimistic If = False Then txtSQL = delete from 系統(tǒng)用戶表 where 用戶名=39。and 密碼=39。 /Data/ co txtSQL = select * from 系統(tǒng)用戶表 where 用戶名=39。 /Data/ c txtSQL, conn, adOpenStatic, adLockPessimistic (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) For i = 0 To 2 Text1(i) = Next MsgBox 用戶信息添加成功!, vbOKOnly, 提示 ListappEnd SubPrivate Sub Command2_Click() Text1(0) = Text1(1) = Text1(2) = End SubPrivate Sub Command3_Click() Dim txtSQL As String Dim co As String Set mrc = New If Text1(3) = Then MsgBox 請你選擇用戶名稱!, vbOKOnly, 提示 Exit Sub End If If Text1(4) = Then MsgBox 修改密碼需要舊密碼!, vbOKOnly, 警告 Text1(4).SetFocus Exit Sub End If If Text1(5) = Then MsgBox 新的密碼不能為空!, vbOKOnly, 提示 Text1(5).SetFocus Exit Sub Else If Text1(5) Text1(6) Then MsgBox 兩次密碼輸入不同!, vbOKOnly, 提示 Text1(5) = Tex