vb5.0中数据库查询模块的实现

《vb5.0中数据库查询模块的实现》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VB5.0中数据库查询模块的实现摘要：查询模块是数据库管理系统中不可缺少的部分。本文介绍在VB5.0环境下四种数据库查询的实现方法，并主要介绍了使用SELECT-SQL语句来实现数据库的查询功能关键字：VB5.0数据库表查询SQLVB全称VisualBasic,是微软公司推出的基于sgBox("您输入的起始日期比终止日期大，请重新输入！",vbCritical,"严重警告,输入无效！")EndIfCase4‘若选择“到货数量”Field_val4=Text1.TextField_val42=Text2.TextSetmy_db=OpenD

2、atabase("d:zu_vbin_db.mdb")Setmy_dr=my_db.OpenRecordset("input")ss1="select*frominputp;Field_val4_"and"Field_val42Data1.RecordSource=ss1Data1.RefreshCase5...EndSelectEndSubPrivateSubmand2_Click()‘取消查询Text1.Text=""Text2.Text=""EndSubPrivateSubmand3_Click()‘结束查询UnloadMeEn

3、dSubPrivateSubOption1_Click()‘选定“物资名称”字段Search_txt=1Text1.Text=""Label2.Caption=""Text2.Enabled=False‘text2设为无效Text2.Visible=False‘text2设为不显示Text1.SetFocusEndSubPrivateSubOption2_Click()‘选定“供货单位”字段（略）EndSubPrivateSubOption3_Click()‘选定“供货日期”字段Search_txt=3Text1.Text=""Text1

4、.Text=Date‘起始日期Text2.Text=Date‘终止日期Label2.Caption="至"Text2.Enabled=TrueText2.Visible=TrueText1.SetFocusEndSubPrivateSubOption4_Click()‘选定“到货数量”字段Search_txt=4Text1.Text=""Text2.Text=""Text1.Text=Format(Text1.Text,"###,###,##0.00")‘设置字段格式为数值型Text2.Text=Format(Text2.Text,"##

5、#,###,##0.00")‘设置字段格式为数值型Label2.Caption="至"Text2.Enabled=TrueText2.Visible=TrueText1.SetFocusEndSubPrivateSubOption5_Click()‘选定“总金额”字段（略）EndSubPrivateSubText1_LostFocus()‘判断如果选定的是“供货日期”字段，text1的输入值必须是日期型的IfSearch_txt=3ThenIfNotIsDate(Text1.Text)Thenz=MsgBox("非法日期!请重新输入！",

6、vbCritical,"严重警告，输入无效！")Text1.SetFocusEndIfEndIfEndSubPrivateSubText2_LostFocus()‘判断如果选定的是“供货日期”字段，text2的输入值必须是日期型的IfSearch_txt=3ThenText2.Text=Format(Text2.Text,"yyyy-mm-dd")IfNotIsDate(Text2.Text)Thenz=MsgBox("非法日期!请重新输入！",vbCritical,"严重警告，输入无效！")Text2.SetFocusEndIfEndI

7、fEndSub2．3多项复合查查询模块的实现：2.3.1应用的数据库in_db.mdb中包含表：input字段名：物资名称、供货单位、供货日期、到货数量、总金额…….等等。2.3.2定义窗体及控件：如下表主要控件及名称属性设置说明Frame(frame1)caption查询条件选择boBoxcaption为空物资名称选择TextBox(text1)Text为空起始日期TextBox(text2)Text为空终止日期mandButton(mand1)caption确定确定本次查询mandButton(mand2)caption结束结束查询　

8、Data(data1)Caption数据浏览　databasenamed:zu_vbin_db.mdbDbBrid(dbgrid1)datasourceData1查询结果显示如图（2）多项