关于用VB实现班级信息统计分析最后打印

来源：百度知道编辑：UC知道时间：2024/05/29 00:34:21

各位大侠，请帮帮忙，帮我分析一下这段代码的各个作用吧！谢谢了~~~

Private Sub Command1_Click()
Dim SQLoriginal As String
Dim SQLadd As String
Dim SQLorder As String
Dim strSql As String
SQLoriginal = "SELECT 年级,专业,人数,辅导员,备注 FROM 班级表 "
SQLadd = "WHERE 年级=年级 AND 专业=专业 "
SQLorder = ""
If Check1.Value = 1 And IsNumeric(Text1) Then
SQLadd = SQLadd + "and 年级='" + Text1 + "'"
End If
If Check2.Value = 1 And Not IsNull(Text2) Then
SQLadd = SQLadd + "and 专业='" + Text2 + "'"
End If
If Check3.Value = 1 And IsNumeric(Text3) Then
SQLadd = SQLadd + "and 人数='" + Text3 + "'"
End If
If Check4.Value = 1 And Not IsNull(Text4) Then
SQLadd = SQLadd + "and 辅导员='" + Text4 + "'"
End If
strSql = SQLoriginal + SQLadd + SQLorde
If Dat_Main.rsDat_Class.State = 1 Then

'这个因该是界面上有多个搜索条件
'用户输入年级，专业等选择条件
'本程序找到符合条件的并显示在另外一个窗口里
'可能是一个xxGrid , 然后调用Grid 的print 方法去实现打印
'
Private Sub Command1_Click()
Dim SQLoriginal As String
Dim SQLadd As String
Dim SQLorder As String
Dim strSql As String
'动态拼sql------------------------
SQLoriginal = "SELECT 年级,专业,人数,辅导员,备注 FROM 班级表 "
SQLadd = "WHERE 年级=年级 AND 专业=专业 "
SQLorder = ""
'2.如果用户选择查询年级,就添加一个年级的过滤条件
If Check1.Value = 1 And IsNumeric(Text1) Then
SQLadd = SQLadd + "and 年级='" + Text1 + "'"
End If
'2.专业
If Check2.Value = 1 And Not IsNull(Text2) Then
SQLadd = SQLadd + "and 专业='" + Text2 + "'"
End If
If Check3.Value = 1 And IsNumeric(Text3) Then
SQLadd = SQLadd + "and 人数='" + Text3 + "'"
End If
If Check4.Value = 1 And Not IsNull(Text4)

[统计分析]关于Var函数用VB怎样实现状态栏的滚动文字信息关于“医药学的统计分析方法” 关于VB实现水仙花数问一个关于用vb实现八皇后的问题求救！！关于统计分析的一些知识关于篮球进攻基础配合统计分析在EXCEL中，用VB宏如何实现：在所有查找结果中有“班级一”的单元格中里再查找“刘” 关于VB实现表连接查询？？？用VB实现回溯问题~~