麻烦帮忙解释一下这段VB代码

来源：百度知道 编辑：UC知道 时间：2024/06/08 11:14:32
Private Sub Command1_Click()
Dim i As Integer, strsql As String
strsql = "select "
For i = Check1.LBound To Check1.UBound
If Check1(i).Value = 1 Then
strsql = strsql + " " + Check1(i).Tag & ","
End If
Next

If strsql = "select " Then
strsql = "select *"
Else
strsql = Left(strsql, Len(strsql) - 1)
End If

strsql = strsql + " from telbook where " + Check1.Item(Combo2.ListIndex).Tag
If Option1(0).Value = True Then
strsql = strsql + " = '"
strsql = strsql + Text1.Text + "'"
Else
strsql = strsql + " like '*"
strsql = strsql + Text1.Text + "*'"
End If

strsql = strsql + " order by " + Check1.Item(Combo1.ListIndex).Tag
Data1

Private Sub Command1_Click()
Dim i As Integer, strsql As String
strsql = "select "
For i = Check1.LBound To Check1.UBound '循环 遍历 Check1控件数组
If Check1(i).Value = 1 Then 第i个Check1控件被勾选
strsql = strsql + " " + Check1(i).Tag & "," '构造SQL语句，查询被选中的字段
End If
Next

If strsql = "select " Then
strsql = "select *" ' Check1控件数组都没有勾选，则查询全部字段
Else
strsql = Left(strsql, Len(strsql) - 1) '去掉最后多余的","
End If

strsql = strsql + " from telbook where " + Check1.Item(Combo2.ListIndex).Tag '构造 SQL查询的 where 子句（条件）
If Option1(0).Value = True Then
strsql = strsql + " = '" '根据 选中 单选控件数组的Option1(0)，是“=”Text1.Text
strsql = strsql + Text1.Text + "'"
Else
strsql = strsql + " like '*" '根据 选中 单选控件数组的Option1(0)其他，是“like”，类似 Text1.Text，开头是Text1.Text
strsql = strsql + T