易语言accesscha询比现行时间大于30天的cha询语句

Air小熙

数据库类别：access数据库表格名：商品基本信息需取关键字
.局部变量 商品名称, 文本型
.局部变量 商品条码, 文本型
.局部变量 商品类别, 文本型
.局部变量 保质期, 日期时间型


我是新手，想实现数据库内通过按钮1显示现时间小于30天内的商品名称，商品类别，商品条码，保质期

下面是我的源码


.版本 2
.支持库 eDB
.支持库 eGrid
.程序集 窗口程序集_窗口1
.子程序 _窗口1_创建完毕
.局部变量 数据路径, 文本型
数据路径 ＝ 取运行目录 () ＋ “\data1.mdb”
数据库连接1.连接Access (数据路径, “”)
记录集1.置连接 (数据库连接1)
SendMessageStr (日期框1.取窗口句柄 (), 4101, 0, “yyyy/MM/dd”)
.子程序 _按钮1_被单击
.局部变量 a, 整数型
.局部变量 商品名称, 文本型
.局部变量 商品条码, 文本型
.局部变量 商品类别, 文本型
.局部变量 保质期, 日期时间型
.局部变量 上个月时间, 文本型
.局部变量 循环次, 整数型
高级表格1.清空数据 ()
.计次循环首 (高级表格1.行数 － 1, 循环次)
    高级表格1.删除行 (高级表格1.行数 － 1)
.计次循环尾 ()
.计次循环首 (高级表格1.列数 － 1, 循环次)
    高级表格1.删除列 (高级表格1.列数 － 1)
.计次循环尾 ()
高级表格1.插入列 (“商品类别”, 1)
高级表格1.插入列 (“商品条码”, 2)
高级表格1.插入列 (“商品名称”, 3)
高级表格1.插入列 (“保质期”, 4)
高级表格1.置列宽 (3, 100)
高级表格1.置列宽 (4, 100)
记录集1.打开并过滤 (“商品基本信息”, “保质期 >= #” ＋ 子程序_获取日期框内容 () ＋ “#”)
.计次循环首 (记录集1.记录数量, a)
    高级表格1.插入行 (, )
    记录集1.读文本 (“商品类别”, 商品类别)
    记录集1.读文本 (“商品条码”, 商品条码)
    记录集1.读文本 (“商品名称”, 商品名称)
    记录集1.读日期时间 (“保质期”, 保质期)
    高级表格1.置数据 (a, 1, 1, 商品类别)
    高级表格1.置数据 (a, 2, 1, 商品条码)
    高级表格1.置数据 (a, 3, 1, 商品名称)
    高级表格1.置数据 (a, 4, 1, 到文本 (保质期))
    记录集1.到下一条 ()
.计次循环尾 ()
.子程序 _按钮2_被单击
.局部变量 商品名称, 文本型
.局部变量 商品条码, 文本型
.局部变量 商品类别, 文本型
.局部变量 保质期, 文本型
.局部变量 产地, 文本型
.局部变量 循环次, 整数型
高级表格1.清空数据 ()
.计次循环首 (高级表格1.行数 － 1, 循环次)
    高级表格1.删除行 (高级表格1.行数 － 1)
.计次循环尾 ()
.计次循环首 (高级表格1.列数 － 1, 循环次)
    高级表格1.删除列 (高级表格1.列数 － 1)
.计次循环尾 ()
高级表格1.插入列 (“商品类别”, 1)
高级表格1.插入列 (“商品条码”, 2)
高级表格1.插入列 (“商品名称”, 3)
高级表格1.插入列 (“保质期”, 4)
高级表格1.插入列 (“产地”, 5)
高级表格1.置列宽 (3, 100)
高级表格1.置列宽 (4, 75)
.如果真 (编辑框1.内容 ＝ “”)
    信息框 (“输入要搜索的内容”, 48, “提示”)
    返回 ()
.如果真结束
.如果 (选择框2.选中 ＝ 假)
    记录集1.打开 (“select * from 商品基本信息 where 商品名称='” ＋ 编辑框1.内容 ＋ “'”, #SQL语句, )
.否则
    记录集1.打开 (“select * from 商品基本信息 where 商品名称 like ” ＋ “'%” ＋ 编辑框1.内容 ＋ “%';”, #SQL语句, )
.如果结束
.计次循环首 (记录集1.记录数量, 循环次)
    高级表格1.插入行 (, )
    记录集1.读文本 (“商品类别”, 商品类别)
    记录集1.读文本 (“商品条码”, 商品条码)
    记录集1.读文本 (“商品名称”, 商品名称)
    记录集1.读文本 (“保质期”, 保质期)
    记录集1.读文本 (“产地”, 产地)
    高级表格1.置数据 (高级表格1.行数 － 1, 0, #表格常量.文本型, 到文本 (循环次))
    高级表格1.置数据 (高级表格1.行数 － 1, 1, #表格常量.文本型, 商品类别)
    高级表格1.置数据 (高级表格1.行数 － 1, 2, #表格常量.文本型, 商品条码)
    高级表格1.置数据 (高级表格1.行数 － 1, 3, #表格常量.文本型, 商品名称)
    高级表格1.置数据 (高级表格1.行数 － 1, 4, #表格常量.文本型, 保质期)
    高级表格1.置数据 (高级表格1.行数 － 1, 5, #表格常量.文本型, 产地)
    记录集1.到下一条 ()
.计次循环尾 ()
.子程序 子程序_获取日期框内容, 文本型
.局部变量 文本, 文本型
文本 ＝ 取空白文本 (255)
SendMessageStr (日期框1.取窗口句柄 (), 13, 255, 文本)
返回 (文本)