VB.中数据库查询模块的实现.docVIP

　　VB5.0中数据库查询模块的实现 摘要：查询模块是数据库管理系统中不可缺少的部分。本文介绍在VB5.0环境下四种数据库查询的实现方法，并主要介绍了使用SELECT-SQL语句来实现数据库的查询功能关键字：VB5.0 数据库 表 查询 SQLVB全称Visual Basic,是微软公司推出的基于sgBox(“您输入的起始日期比终止日期大，请重新输入！”, vbCritical, “严重警告,输入无效！”)End IfCase 4 若选择“到货数量”Field_val4 = Text1.TextField_val42 = Text2.TextSet my_db = OpenDatabase(“d:zu_vbin_db.mdb”)Set my_dr = my_db.OpenRecordset(“input”)ss1 = “select * from input p; Field_val4 _amp; “ and “ amp; Field_val42Data1.RecordSource = ss1Data1.RefreshCase 5. . .End SelectEnd SubPrivate Sub Command2_Click() ‘取消查询Text1.Text = ““Text2.Text = ““End SubPrivate Sub Command3_Click() 结束查询Unload MeEnd SubPrivate Sub Option1_Click() 选定“物资名称”字段Search_txt = 1Text1.Text = ““Label2.Caption = ““Text2.Enabled = False text2 设为无效Text2.Visible = False text2 设为不显示Text1.SetFocusEnd SubPrivate Sub Option2_Click() 选定“供货单位”字段（略）End SubPrivate Sub Option3_Click() 选定“供货日期”字段Search_txt = 3Text1.Text = ““Text1.Text = Date 起始日期Text2.Text = Date 终止日期Label2.Caption = “至”Text2.Enabled = TrueText2.Visible = TrueText1.SetFocusEnd SubPrivate Sub Option4_Click() 选定“到货数量”字段Search_txt = 4Text1.Text = ““Text2.Text = ““Text1.Text = Format(Text1.Text, “###,###,##0.00”)设置字段格式为数值型Text2.Text = Format(Text2.Text, “###,###,##0.00”)设置字段格式为数值型Label2.Caption = “至”Text2.Enabled = TrueText2.Visible = TrueText1.SetFocusEnd SubPrivate Sub Option5_Click() 选定“总金额”字段（略）End SubPrivate Sub Text1_LostFocus()判断如果选定的是“供货日期”字段，text1的输入值必须是日期型的 If Search_txt = 3 ThenIf Not IsDate(Text1.Text) Thenz = MsgBox(“ 非法日期!请重新输入 ！”, vbCritical, “严重警告，输入无效 ！”)Text1.SetFocusEnd IfEnd IfEnd SubPrivate Sub Text2_LostFocus()判断如果选定的是“供货日期”字段，text2的输入值必须是日期型的If Search_txt = 3 ThenText2.Text = Format(Text2.Text, “yyyy-mm-dd”)If Not IsDate(Text2.Text) Thenz = MsgBox(“ 非法日期!请重新输入 ！”, vbCritical, “严重警告，输入无效 ！”)Text2.SetFocusEnd IfEnd IfEnd Sub2．3多项复合查查询模块的实现：2.3.1应用的数据库in_db.mdb中包含表：input 字段名：物资名称、供货单位、供货日期、到货数量、总金额…….等等 。2.3.2定义窗体及控件：如下表 主要控件及名称 属性 设置 说明 Frame(frame1) caption 查询条件选择 ComboBox caption 为空 物资名称选择 TextBox(text1) Text 为空 起