有一销售管理系统,需要按关键字查询客户,查询窗体如下:
查询要求是:在文本框中输入要查询客户的关键字,点击查询按钮后,在下面的列表框中显示出含有此关键字的客户。比如输入“张”,列表框输出所有含“张”字的客户。
这一功能是如何实现的呢?对于有一定经验的开发者来说,是很简单的事,这里只是对初学者作一介绍。列表框有一属性:RowSource ,含义是数据原,可以是表名、查询名、任何合法的Select语句。这里使用的是Select语句:"Select 客户编号, 客户名称 FROM Customers Where 客户名称 LIKE '" & StrKH & "'",其中Customers为客户信息表。
按钮的单击事件如下:
Private Sub Command1_Click()
If IsNull(Me.KeyKH) Then
MsgBox "请输入客户名称的关键词!"
Else
Dim StrKH As String
StrKH = "*" & Me.KeyKH & "*"
Me.List1.RowSource = "Select 客户编号, 客户名称 FROM Customers Where 客户名称 LIKE '" & StrKH & "'"
End If
End Sub
本例的关键是使用好列表框的RowSource 属性,注意可以是表名、查询名、任何合法的Select语句。