【正文】 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。 data source= amp。 End If End If Set mrcc = New = provider=。 Trim(Text1(4)) amp。 and 班級(jí)=39。 39。 amp。 End If End If If Text1(4) Label3(4).Caption Then If txSQL = select * from 學(xué)生信息表 Then txSQL = txSQL amp。 Trim(Text1(1)) amp。 and 姓名=39。 39。 amp。 End If If Text1(1) Label3(1).Caption Then If txSQL = select * from 學(xué)生信息表 Then txSQL = txSQL amp。 Trim(Text1(0)) amp。 where 學(xué)號(hào)=39。 amp。 amp。 39。 amp。 Label3(i).Caption amp。 Label3(i).Caption amp。HE0E0E0 Else = 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。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 amp。 amp。 amp。 amp。 39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 39。 amp。 amp。 amp。 39。 amp。 txSQL, conn, adOpenStatic, adLockPessimistic If = False Then Text1(9) = (1) Text1(10) = (2) Text1(11) = (3) amp。 Trim(Text1(Index)) amp。 = True Exit Sub Else Text1(5) = Text1(6) = Text1(7) = = False End If End If If Index = 8 Then txSQL = select * from 班級(jí)表 where 班級(jí)編號(hào)=39。 amp。 amp。 39。 amp。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic With MSFlexGrid1 .ColWidth(0) = 1200 .ColWidth(1) = 1200 .ColWidth(2) = 1200 .ColWidth(3) = 6000 .TextMatrix(0, 0) = 班級(jí)編號(hào) .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。 data source= 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 班級(jí)表 = provider=。 Trim(Label2(Index).Caption) For i = 0 To 2 Label2(i).BackColor = amp。HFFFFFF Picture1(0).Visible = TrueEnd SubPrivate Sub Label2_Click(Index As Integer) = 班級(jí)信息 = amp。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic For i = 8 To 11 Text1(i) = Next MsgBox 班級(jí)信息已經(jīng)刪除!, vbOKOnly, 警告 ShowDataEnd SubPrivate Sub Command6_Click()For i = 8 To 10 Text1(i).Text = 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。 data source= amp。 = provider=。 Trim(Text1(8)) amp。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic txSQL = select * from 班級(jí)表 txSQL, conn, adOpenStatic, adLockPessimistic (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).Text = NextEnd SubPrivate Sub Text2_Change()End SubPrivate Sub Command5_Click()txSQL = delete from 班級(jí)表 where 班級(jí)編號(hào)=39。 data source= amp。 = provider=。 Trim(Text1(4)) amp。 /Data/ If = 1 Then txSQL, conn, adOpenStatic, adLockPessimistic (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).Text = NextEnd SubPrivate Sub Command3_Click()If Text1(4).Text = Then MsgBox 班級(jí)編號(hào)不能為空!, vbOKOnly, 提示 Text1(4).SetFocus Exit Sub End If If Text1(5).Text = Then MsgBox 班主任不能為空!, vbOKOnly, 提示 Text1(5).SetFocus Exit Sub End If If Text1(6).Text = Then MsgBox 學(xué)生人數(shù)不能為空!, vbOKOnly, 提示 Text1(6).SetFocus Exit Sub End If txSQL = delete from 班級(jí)表 where 班級(jí)編號(hào)=39。 data source= amp。 /Data/ If = 1 Then txSQL, conn, adOpenStatic, adLockPessimistic If = False Then MsgBox 此班級(jí)編號(hào)已存在!, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If txSQL = select * from 班級(jí)表 = provider=。 data source= amp。 = provider=。 Trim(Text1(0)) amp。 /Data/ txSQL = select * from 系統(tǒng)用戶(hù)表 txSQL, conn, adOpenStatic, adLockPessimistic Do While Not Trim(mrcc!用戶(hù)名) Loop