如何同时搜索两个表格的搜索内容及显示两个表格内容

蒂克罗曼

1、点击“合并表格”同时显示“cha询表1”和“cha询表2”搜索出来的内容。2、点击“返回首页”显示两个表格所有内容。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

如果真 (数据库连接1.连接Access (取运行目录 () ＋ “\MDB.mdb”, “”) ＝ 假)
信息框 (“连接数据库失败！”, 0, )
返回 ()
记录集1.置连接 (数据库连接1)
_启动窗口.记录集1.打开 (“select * from 表1”, #SQL语句, )
刷新结果 ()

子程序名	返回值类型	公开	备 注
刷新结果

变量名	类 型	静态	数组	备 注
A	文本型

超级列表框1.全部删除 ()
_启动窗口.记录集1.到首记录 ()
判断循环首 (_启动窗口.记录集1.尾记录后 ＝ 假)
超级列表框1.插入表项 (, , , , , )
_启动窗口.记录集1.读文本 (“ID”, A)  ' 编号是整数型的，这里用文本接收也正常
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, A)
_启动窗口.记录集1.读文本 (“房间”, A)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, A)
_启动窗口.记录集1.读文本 (“A”, A)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, A)
_启动窗口.记录集1.读文本 (“B”, A)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, A)
_启动窗口.记录集1.读文本 (“C”, A)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 4, A)
_启动窗口.记录集1.读文本 (“D”, A)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 5, A)
_启动窗口.记录集1.读文本 (“E”, A)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 6, A)
_启动窗口.记录集1.读文本 (“F”, A)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 7, A)
_启动窗口.记录集1.读文本 (“G”, A)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 8, A)
_启动窗口.记录集1.读文本 (“H”, A)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 9, A)
_启动窗口.记录集1.读文本 (“I”, A)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 10, A)
_启动窗口.记录集1.到下一条 ()
判断循环尾 ()
_启动窗口.记录集1.关闭 ()

子程序名	返回值类型	公开	备 注
_按钮8_被单击

显示库存 ()

子程序名	返回值类型	公开	备 注
显示库存

变量名	类 型	静态	数组	备 注
A	文本型
临时	文本型

超级列表框1.全部删除 ()
_启动窗口.记录集1.打开 (“select * from 表1”, #SQL语句, )  ' 此SQL语句返回表中全部数据
_启动窗口.记录集1.到首记录 ()
判断循环首 (_启动窗口.记录集1.尾记录后 ＝ 假)
超级列表框1.插入表项 (, , , , , )
_启动窗口.记录集1.读文本 (“ID”, 临时)  ' 编号是整数型的，这里用文本接收也正常
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 临时)
_启动窗口.记录集1.读文本 (“房间”, 临时)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 临时)
_启动窗口.记录集1.读文本 (“A”, 临时)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 临时)
_启动窗口.记录集1.读文本 (“B”, 临时)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, 临时)
_启动窗口.记录集1.读文本 (“C”, 临时)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 4, 临时)
_启动窗口.记录集1.读文本 (“D”, 临时)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 5, 临时)
_启动窗口.记录集1.读文本 (“E”, 临时)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 6, 临时)
_启动窗口.记录集1.读文本 (“F”, 临时)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 7, 临时)
_启动窗口.记录集1.读文本 (“G”, 临时)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 8, 临时)
_启动窗口.记录集1.读文本 (“H”, 临时)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 9, 临时)
_启动窗口.记录集1.读文本 (“I”, 临时)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 10, 临时)
_启动窗口.记录集1.到下一条 ()
判断循环尾 ()
_启动窗口.记录集1.关闭 ()

子程序名	返回值类型	公开	备 注
超级列表框cha询结果子程序
参数名	类 型	参考	可空	数组	备 注
记录集1	整数型

变量名	类 型	静态	数组	备 注
局部_索引	整数型
局部_id	整数型
i	整数型

超级列表框1.全部删除 ()
i ＝ 1
判断循环首 (外部数据库1.尾记录后 (记录集1) ＝ 假)
局部_索引 ＝ 超级列表框1.插入表项 (, , , , , 局部_id)
超级列表框1.置标题 (局部_索引, 0, 到文本 (外部数据库1.读 (记录集1, “ID”)))
超级列表框1.置标题 (i － 1, 1, 外部数据库1.读 (记录集1, “房间”))
超级列表框1.置标题 (i － 1, 2, 外部数据库1.读 (记录集1, “A”))
超级列表框1.置标题 (i － 1, 3, 外部数据库1.读 (记录集1, “B”))
超级列表框1.置标题 (i － 1, 4, 外部数据库1.读 (记录集1, “C”))
超级列表框1.置标题 (i － 1, 5, 外部数据库1.读 (记录集1, “D”))
超级列表框1.置标题 (i － 1, 6, 外部数据库1.读 (记录集1, “E”))
超级列表框1.置标题 (i － 1, 7, 外部数据库1.读 (记录集1, “F”))
超级列表框1.置标题 (i － 1, 8, 外部数据库1.读 (记录集1, “G”))
超级列表框1.置标题 (i － 1, 9, 外部数据库1.读 (记录集1, “H”))
超级列表框1.置标题 (i － 1, 10, 外部数据库1.读 (记录集1, “I”))
外部数据库1.到后一记录 (记录集1)
i ＝ i ＋ 1
判断循环尾 ()
外部数据库1.关闭记录集 (记录集1)

子程序名	返回值类型	公开	备 注
_按钮9_被单击

__启动窗口_创建完毕 ()

子程序名	返回值类型	公开	备 注
_cha询表1_被单击

变量名	类 型	静态	数组	备 注
记录	整数型
记录集2	整数型
局_SQL语句	文本型
i	整数型

外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\MDB.mdb”, , “”, , )
记录 ＝ 外部数据库1.cha询 (“select * from [表2] where 房间 like '%” ＋ 编辑框1.内容 ＋ “%'”)
超级列表框cha询结果子程序 (记录)
返回 ()

子程序名	返回值类型	公开	备 注
_cha询表2_被单击

变量名	类 型	静态	数组	备 注
记录	整数型
记录集2	整数型
局_SQL语句	文本型
i	整数型

外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\MDB.mdb”, , “”, , )
记录 ＝ 外部数据库1.cha询 (“select * from [表1] where 房间 like '%” ＋ 编辑框1.内容 ＋ “%'”)
超级列表框cha询结果子程序 (记录)
返回 ()

子程序名	返回值类型	公开	备 注
_合并表格_被单击

变量名	类 型	静态	数组	备 注
记录集1	整数型
记录集2	整数型
局_SQL语句	文本型
i	整数型

外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\MDB.mdb”, , “”, , )
记录集1 ＝ 外部数据库1.cha询 (“select * from 表1 where 房间 like '%” ＋ 编辑框1.内容 ＋ “'”)
记录集1 ＝ 外部数据库1.cha询 (“select * from 表2 where 房间 like '%” ＋ 编辑框1.内容 ＋ “'”)
超级列表框cha询结果子程序 (记录集1)

i支持库列表	支持库注释
eDB	数据库操作支持库
iext	扩展界面支持库一

.版本 2<br /> <br /> .支持库 eDB<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .如果真 (数据库连接1.连接Access (取运行目录 () ＋ “\MDB.mdb”, “”) ＝ 假)<br />     信息框 (“连接数据库失败！”, 0, )<br />     返回 ()<br /> .如果真结束<br /> 记录集1.置连接 (数据库连接1)<br /> _启动窗口.记录集1.打开 (“select * from 表1”, #SQL语句, )<br /> 刷新结果 ()<br /> <br /> <br /> .子程序 刷新结果<br /> .局部变量 A, 文本型<br /> <br /> 超级列表框1.全部删除 ()<br /> _启动窗口.记录集1.到首记录 ()<br /> .判断循环首 (_启动窗口.记录集1.尾记录后 ＝ 假)<br />     超级列表框1.插入表项 (, , , , , )<br />     _启动窗口.记录集1.读文本 (“ID”, A)  ' 编号是整数型的，这里用文本接收也正常<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, A)<br />     _启动窗口.记录集1.读文本 (“房间”, A)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, A)<br />     _启动窗口.记录集1.读文本 (“A”, A)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, A)<br />     _启动窗口.记录集1.读文本 (“B”, A)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, A)<br />     _启动窗口.记录集1.读文本 (“C”, A)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 4, A)<br />     _启动窗口.记录集1.读文本 (“D”, A)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 5, A)<br />     _启动窗口.记录集1.读文本 (“E”, A)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 6, A)<br />     _启动窗口.记录集1.读文本 (“F”, A)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 7, A)<br />     _启动窗口.记录集1.读文本 (“G”, A)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 8, A)<br />     _启动窗口.记录集1.读文本 (“H”, A)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 9, A)<br />     _启动窗口.记录集1.读文本 (“I”, A)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 10, A)<br />     _启动窗口.记录集1.到下一条 ()<br /> .判断循环尾 ()<br /> _启动窗口.记录集1.关闭 ()<br /> <br /> <br /> .子程序 _按钮8_被单击<br /> <br /> 显示库存 ()<br /> <br /> <br /> <br /> .子程序 显示库存<br /> .局部变量 A, 文本型<br /> .局部变量 临时, 文本型<br /> <br /> 超级列表框1.全部删除 ()<br /> _启动窗口.记录集1.打开 (“select * from 表1”, #SQL语句, )  ' 此SQL语句返回表中全部数据<br /> _启动窗口.记录集1.到首记录 ()<br /> .判断循环首 (_启动窗口.记录集1.尾记录后 ＝ 假)<br />     超级列表框1.插入表项 (, , , , , )<br />     _启动窗口.记录集1.读文本 (“ID”, 临时)  ' 编号是整数型的，这里用文本接收也正常<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 临时)<br />     _启动窗口.记录集1.读文本 (“房间”, 临时)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 临时)<br />     _启动窗口.记录集1.读文本 (“A”, 临时)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 临时)<br />     _启动窗口.记录集1.读文本 (“B”, 临时)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, 临时)<br />     _启动窗口.记录集1.读文本 (“C”, 临时)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 4, 临时)<br />     _启动窗口.记录集1.读文本 (“D”, 临时)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 5, 临时)<br />     _启动窗口.记录集1.读文本 (“E”, 临时)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 6, 临时)<br />     _启动窗口.记录集1.读文本 (“F”, 临时)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 7, 临时)<br />     _启动窗口.记录集1.读文本 (“G”, 临时)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 8, 临时)<br />     _启动窗口.记录集1.读文本 (“H”, 临时)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 9, 临时)<br />     _启动窗口.记录集1.读文本 (“I”, 临时)<br />     超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 10, 临时)<br />     _启动窗口.记录集1.到下一条 ()<br /> .判断循环尾 ()<br /> _启动窗口.记录集1.关闭 ()<br /> <br /> <br /> .子程序 超级列表框cha询结果子程序<br /> .参数 记录集1, 整数型<br /> .局部变量 局部_索引, 整数型<br /> .局部变量 局部_id, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 超级列表框1.全部删除 ()<br /> i ＝ 1<br /> .判断循环首 (外部数据库1.尾记录后 (记录集1) ＝ 假)<br />     局部_索引 ＝ 超级列表框1.插入表项 (, , , , , 局部_id)<br />     超级列表框1.置标题 (局部_索引, 0, 到文本 (外部数据库1.读 (记录集1, “ID”)))<br />     超级列表框1.置标题 (i － 1, 1, 外部数据库1.读 (记录集1, “房间”))<br />     超级列表框1.置标题 (i － 1, 2, 外部数据库1.读 (记录集1, “A”))<br />     超级列表框1.置标题 (i － 1, 3, 外部数据库1.读 (记录集1, “B”))<br />     超级列表框1.置标题 (i － 1, 4, 外部数据库1.读 (记录集1, “C”))<br />     超级列表框1.置标题 (i － 1, 5, 外部数据库1.读 (记录集1, “D”))<br />     超级列表框1.置标题 (i － 1, 6, 外部数据库1.读 (记录集1, “E”))<br />     超级列表框1.置标题 (i － 1, 7, 外部数据库1.读 (记录集1, “F”))<br />     超级列表框1.置标题 (i － 1, 8, 外部数据库1.读 (记录集1, “G”))<br />     超级列表框1.置标题 (i － 1, 9, 外部数据库1.读 (记录集1, “H”))<br />     超级列表框1.置标题 (i － 1, 10, 外部数据库1.读 (记录集1, “I”))<br />     外部数据库1.到后一记录 (记录集1)<br />     i ＝ i ＋ 1<br /> .判断循环尾 ()<br /> 外部数据库1.关闭记录集 (记录集1)<br /> <br /> <br /> .子程序 _按钮9_被单击<br /> <br /> __启动窗口_创建完毕 ()<br /> <br /> .子程序 _cha询表1_被单击<br /> .局部变量 记录, 整数型<br /> .局部变量 记录集2, 整数型<br /> .局部变量 局_SQL语句, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\MDB.mdb”, , “”, , )<br /> 记录 ＝ 外部数据库1.cha询 (“select * from [表2] where 房间 like '%” ＋ 编辑框1.内容 ＋ “%'”)<br /> 超级列表框cha询结果子程序 (记录)<br /> 返回 ()<br /> <br /> .子程序 _cha询表2_被单击<br /> .局部变量 记录, 整数型<br /> .局部变量 记录集2, 整数型<br /> .局部变量 局_SQL语句, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\MDB.mdb”, , “”, , )<br /> 记录 ＝ 外部数据库1.cha询 (“select * from [表1] where 房间 like '%” ＋ 编辑框1.内容 ＋ “%'”)<br /> 超级列表框cha询结果子程序 (记录)<br /> 返回 ()<br /> <br /> .子程序 _合并表格_被单击<br /> .局部变量 记录集1, 整数型<br /> .局部变量 记录集2, 整数型<br /> .局部变量 局_SQL语句, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\MDB.mdb”, , “”, , )<br /> 记录集1 ＝ 外部数据库1.cha询 (“select * from 表1 where 房间 like '%” ＋ 编辑框1.内容 ＋ “'”)<br /> 记录集1 ＝ 外部数据库1.cha询 (“select * from 表2 where 房间 like '%” ＋ 编辑框1.内容 ＋ “'”)<br /> 超级列表框cha询结果子程序 (记录集1)

灵海雪缘

求助附件也要精币下载啊

青梅

合并还不简单吗,cha询表1和cha询表2用2个计次循环挨个插进去就行,返回首页也是一样的

青梅

灵海雪缘 发表于 2024-4-30 16:08
求助附件也要精币下载啊

33333,我还没注意到这个

蒂克罗曼

灵海雪缘 发表于 2024-4-30 16:08
求助附件也要精币下载啊

我没有设置过下载附件需要金币。

蒂克罗曼

青梅 发表于 2024-4-30 16:10
合并还不简单吗,cha询表1和cha询表2用2个计次循环挨个插进去就行,返回首页也是一样的 ...

怎么写不会，下载附件金币，可以私下发你。改好回复一下，上传附件看看。

蒂克罗曼

灵海雪缘 发表于 2024-4-30 16:08
求助附件也要精币下载啊

如果因为下载附件需要精币，不是我的本意，我也不知道为什么下载附件需要精币，如果你能帮我解决了问题，我可以另外再加精币的。

蒂克罗曼

有谁帮忙解决一下，谢谢！