php插入access技巧_跟我学从零开始用Access设计一套完整的系统六

文章目录 [+]

在一个 Access 查询窗体的查询按钮被点击时，实现根据用户输入的查询条件关键字来查询相应的记录，利用子报表的形式来显示查询结果，这个界面比上一节利用列表框来显示查询结果要觉得要都雅很多，而且可以按自己的哀求来美化界面效果。

查询窗体设计

在 Microsoft Access 中，您可以在主窗体上添加三个控件：一个文本框（txt查询条件）用于输入查询条件，一个查询按钮（cmd查询）实行事宜命令，一个报表子窗体（rephpzl）用于显示查询结果。
根据文本框（txt查询条件）输入的查询条件，在点击查询按钮后，在列表框子窗体显示从数据表（ tblhpzl）查询到的结果，包括" 货品编码、货品名称、货品规格、货品单位、货品单价六个字段。
如下图：

php插入access技巧_跟我学从零开始用Access设计一套完整的系统六

代码编写窗体加载时的代码，可以显示所有的记录

Private Sub Form_Load() Dim strSql As String strSql = "SELECT FROM tblhpzl" Me.repHpzl.Report.RecordSource = strSql Me.repHpzl.Report.RequeryEnd Sub当用户在文本框中输入查询关键字并点击查询按钮时，该程序会首先检讨查询关键字是否为空。
如果为空，则查询所有货品名称。
否则，程序会根据关键字布局 SQL 查询语句，然后实行查询并显示查询结果。
查询结果显示在一个 Report 控件中，该控件显示在当前 Access 表单中。
末了，程序会显示一个提示框，见告用户查询已经完成。

Private Sub cmd查询_Click() On Error Resume Next ' 当涌现缺点时，连续实行下去而不中断程序 ' 获取查询关键字 Dim strKeyword As String ' 声明字符串变量 strKeyword strKeyword = Trim(Me.txt查询条件.value) ' 从文本框中获取查询条件并去除前后空格 ' 布局查询语句 Dim strSql As String ' 声明字符串变量 strSql If strKeyword = "" Then ' 如果查询条件为空 strSql = "SELECT FROM tblhpzl" ' 查询所有货品种类 Else ' 否则 strSql = "SELECT FROM tblhpzl WHERE 货品名称 Like '" & strKeyword & "'" ' 根据查询条件布局查询语句 End If ' 实行查询 Me.repHpzl.Report.RecordSource = strSql ' 设置查询记录源 Me.repHpzl.Report.Requery ' 重新查询并显示结果 ' 显示结果 MsgBox "查询完毕！ " ' 显示提示信息 Exit Sub ' 退出子程序 ' 打消缺点标志 Err.Clear ' 打消可能涌现的缺点End Sub总结

这段代码适用于须要在 Microsoft Access 数据库中查询数据的场景。
例如，在一个商店管理系统中，用户须要查询不同的货品名称。
用户可以在文本框中输入关键字，该程序会在数据库中查询包含该关键字的货品名称并将查询结果显示在表单中。
这样可以帮助用户更方便地管理商店的各种货品。