VB做的系统 大家帮我看看这些代码是什么意思 过几天就要答辩了 大家来救命啊

Question

企业信息反馈
Private Sub Command1_Click()
Dim rst As New ADODB.Recordset
Dim strSQL As String
If Trim(Combo1.Text) = "" Or Trim(Text1.Text) = "" Then
strSQL = "select * from 企业反馈信息 where 企业信息 ='" & UserId & "-" & UserName & "'"
Else
strSQL = "select * from 企业反馈信息 where 企业信息 ='" & UserId & "-" & UserName & "' and " & Trim(Combo1.Text) & " like '%" & Trim(Text1.Text) & "%'"

End If
If rst.State Then rst.Close
rst.Open strSQL, CN, adOpenStatic, adLockOptimistic
With MSHFlexGrid1
.Rows = 2
.Cols = rst.Fields.Count
.Clear
For i = 0 To rst.Fields.Count - 1
.TextMatrix(0, i) = Trim(rst(i).Name)
Next i

While Not rst.EOF
For i = 0 To rst.Fields.Count - 1
If Not IsNull(rst(i)) Then .TextMatrix(.Rows - 1, i) = Trim(rst(i))
Next i
If Trim(rst("是否录用")) = "是" Then Call SetRowColor(MSHFlexGrid1, .Rows - 1, vbRed)

.Rows = .Rows + 1
rst.MoveNext
Wend
End With
Label2.Caption = ""
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command4_Click()
If Trim(Label2.Caption) = "" Then
MsgBox "请选择信息"
Exit Sub

End If
With MSHFlexGrid1
If Trim(Label2.Caption) <> Trim(.TextMatrix(.Row, 0)) Then
MsgBox "请选择企业反馈信息！"
Exit Sub
End If
If MsgBox("真的录用本学生吗？编号：" & Label2.Caption, vbYesNo, "提示") = vbNo Then Exit Sub
Dim rst As New ADODB.Recordset
If rst.State Then rst.Close
rst.Open "select * from 企业反馈信息 where 反馈编号='" & Trim(Label2.Caption) & "'", CN, adOpenStatic, adLockOptimistic
If Not rst.EOF Then
If Trim(rst("是否录用")) = "是" Then
MsgBox "已录用,不能复录用", vbYesNo, "提示": Exit Sub
End If
rst("是否录用").Value = "是"
rst.Update
MsgBox "录用成功"
End If

Label2.Caption = ""

End With

End Sub

Private Sub Form_Load()

Command1_Click
End Sub

Private Sub MSHFlexGrid1_Click()
Label2.Caption = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0))
End Sub

Private Sub MSHFlexGrid1_DblClick()
If Trim(Label2.Caption) = "" Then Exit Sub
frmLook.tempSql = "select * from 企业反馈信息 where 反馈编号='" & Label2.Caption & "'"
frmLook.Show 1
End Sub

Answer 1

就是一个录用信息管理嘛，哪里不懂你提出来。光看这段程序还是比较简单的功能的。对数据库操作也不繁琐。

追问

老大 这一段什么意思？能帮我注解下么With MSHFlexGrid1
.Rows = 2
.Cols = rst.Fields.Count
.Clear
For i = 0 To rst.Fields.Count - 1
.TextMatrix(0, i) = Trim(rst(i).Name)
Next i
While Not rst.EOF
For i = 0 To rst.Fields.Count - 1
If Not IsNull(rst(i)) Then .TextMatrix(.Rows - 1, i) = Trim(rst(i))
Next i
.Rows = .Rows + 1
rst.MoveNext
Wend
End With
Label2.Caption = ""

追答

With MSHFlexGrid1

.Rows = 2 '表格初始化2行
.Cols = rst.Fields.Count '表格列数初始化，等于数据库中字段数
.Clear '清空

For i = 0 To rst.Fields.Count - 1
.TextMatrix(0, i) = Trim(rst(i).Name) '此循环把字段名依次赋给表格第一行
Next i

'下面循环体功能为把查询到的记录一条一条显示到表格中
While Not rst.EOF '如果记录没结束，则执行
For i = 0 To rst.Fields.Count - 1
If Not IsNull(rst(i)) Then .TextMatrix(.Rows - 1, i) = Trim(rst(i)) '字段值如果不为空则写进表格'的最后一行
Next i
.Rows = .Rows + 1 '表格行数+1，宏观上看，记录条数为n的话，表格总共有n+1行。
rst.MoveNext '指向下一条记录
Wend '循环体结束

End With 'with块结束
Label2.Caption = ""

'总体功能就是把数据库某个表中的数据全部显示到表格中，表格的列名就是数据库的字段名。
'还有不懂的地方继续探讨

Answer 2

我也想知道 关注。