请各位帮小女子翻译下这些vb代码，很急的说，积分全给了

来源：百度知道 编辑：UC知道 时间：2024/09/21 22:59:27
Dim classstr As String
Public Sub classload()
Dim mrc As ADODB.Recordset

If classmodi Then
Me.Caption = "修改班级设置"
classstr = "select * from class where 班级='" & Trim(Formclass2.MSF1.TextMatrix(Formclass2.MSF1.Row, 2)) & "'"
Set mrc = ExecuteSQL(classstr)
mrc.MoveFirst
For i = 0 To 6
Text1(i).Text = mrc.Fields(i)
Next i
mrc.Close
Else
Me.Caption = "添加班级设置"
For i = 0 To 6
Text1(i).Text = ""
Next i

End If
End Sub

Private Sub Command1_Click()
For j = 0 To 5
If Text1(j) = "" Then
ss = MsgBox(Label2(j).Caption & "不能为空！", vbExclamation + vbOKOnly, "警告")
Text1(j).SetFocus
Exit Sub
End If
Next
Dim mrc As ADODB.Recordset
If classmodi = False Then
classstr = "select * from class where 班级='&

Dim classstr As String
/这是一个过程
Public Sub classload()
Dim mrc As ADODB.Recordset /mrc记录集，存放sql语句执行的结果

If classmodi Then
Me.Caption = "修改班级设置"
/查询表class中 班级=表格第二行内容的信息
classstr = "select * from class where 班级='" & Trim(Formclass2.MSF1.TextMatrix(Formclass2.MSF1.Row, 2)) & "'"
/执行上述语句
Set mrc = ExecuteSQL(classstr)
mrc.MoveFirst
For i = 0 To 6 /texti的text=mrc.Fields(i) ，即text i中显示数据
Text1(i).Text = mrc.Fields(i)
Next i
mrc.Close
Else
Me.Caption = "添加班级设置"
For i = 0 To 6
Text1(i).Text = ""
Next i

End If
End Sub
/button过程
Private Sub Command1_Click()
For j = 0 To 5
If Text1(j) = "" Then
ss = MsgBox(Label2(j).Caption & "不能为空！", vbExclamation + vbOKOnly, "警告")
Text1(j).SetFocus /光标停在在text1（j）
Exit Sub
End If
Next