评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

VB5.0中数据库查询模块的实现毕业论文(2)

2015-06-05 02:32

SELECT [DICTINCT/ALL]----查询目标列

FROM tableexpression ----------表名/视图名

[WHERE]---------------------------条件

[GROUP BY... ]--------------------将查询结果的记录分组

[HAVING... ]------------------------满足条件的分组

[ORDER BY... ]---------------------对查询结果进行排序

下面应用笔者完成的《供应处物资管理软件》为例，。说明使用SELECT-SQL查询语句实现查询模块具体方法。

2.2单项查询模块的实现：

2.2.1应用的数据库in_db.mdb中包含表：input 字段名：物资名称、供货单位、供货日期、到货数量、总金额…….等等 。

2.2.2定义窗体及控件：如下表

如图（1）：单项查询模块窗体图

2.2.3编写程序代码：

上述设计完成后，可以对窗体及控件的事件编写代码：

‘变量定义

Dim my_db As Database Dim my_dr As Recordset Dim Field_val1 As String Dim Field_val3 As Date

Dim Field_val32 As Date

Dim Field_val4 As Integer

Dim Field_val42 As Integer

Dim Search_txt As Integer

Private Sub Form_Load() Search_txt = 1 Text1.Text = "" Text2.Text = ""Label2.Caption = ""End Sub

Private Sub Command1_Click() ‘确定按钮 本文来自中国科教评价网

Select Case Search_txt

Case 1 ‘若选择“物资名称”

Field_val1 = Text1.Text

Set my_db = OpenDatabase("d:\zu_vb\in_db.mdb")