VB5.0中数据库查询模块的实现毕业论文(6)
2015-06-05 02:32
导读：zz = MsgBox(您输入的起始日期比终止日期大，请重新输入！, vbCritical, 严重警告,输入无效！) End If End If End If End Sub Private Sub Form_Load() 将项目石脑油、轻烃、
zz = MsgBox("您输入的起始日期比终止日期大，请重新输入！", vbCritical, "严重警告,输入无效！")
End If
End If
End If
End Sub
Private Sub Form_Load()
‘将项目“石脑油”、轻烃、纯苯………添加到combo1控件中
Combo1.AddItem "石脑油"
Combo1.AddItem "轻烃"
Combo1.AddItem "纯苯"
Combo1.AddItem "丙烯腈"
Combo1.AddItem "甲基丙烯酸甲脂"
Combo1.AddItem "聚丁二烯乳胶"
Combo1.AddItem "C2"
Combo1.AddItem "C3/C4"
Combo1.AddItem "C5"
Combo1.AddItem "盐酸"
Combo1.AddItem "液碱"
Combo1.Text = "石脑油" ‘设置 combo1的初始值
Text1.Text = Date ‘设置text1 text2 为日期形式，执行时并显示当前日期。
Text2.Text = Date
End Sub
3、结束语：
本文对VB数据库查询功能做了简单的说明，特别对Select-SQL语句进行了详细的介绍，为了节省篇幅，以上只给出了窗体控件的属性和代码的核心部分，并去掉了许多修饰性的内容，感兴趣的读者在此基础上稍加扩充或修改，便可得到更完善的通用查询模块。（以上程序均在WINDOWS98环境下VB5.0中运行通过。）
