易语言能连两个数据库吗? 10
2个回答
展开全部
.版本 2
.常量 数据库1, "“数据库”"
.常量 出差时间, "“出差时间”"
.常量 出差地点, "“出差地点”"
.常量 出差人员, "“出差人员”"
.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
打开 (#数据库1, , , , , , )
.子程序 _查询按钮_被单击
.局部变量 计次, 整数型
.局部变量 开始日期, 日期时间型
.局部变量 结束日期, 日期时间型
.局部变量 行, 整数型
.局部变量 id, 日期时间型
超级列表框1.全部删除 ()
开始日期 = 日期框1.今天
结束日期 = 日期框2.今天
计次 = 取记录数 ()
到首记录 ()
.计次循环首 (计次, )
id = 读 (#出差时间)
.判断开始 (查找 (id ≥ 开始日期 且 id ≤ 结束日期))
行 = 超级列表框1.插入表项 (-1, , , , , )
超级列表框1.置标题 (行, 0, 到文本 (id))
超级列表框1.置标题 (行, 1, 读 (#出差地点))
超级列表框1.置标题 (行, 2, 读 (#出差人员))
.默认
.判断结束
跳过 ()
.计次循环尾 ()
.常量 数据库1, "“数据库”"
.常量 出差时间, "“出差时间”"
.常量 出差地点, "“出差地点”"
.常量 出差人员, "“出差人员”"
.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
打开 (#数据库1, , , , , , )
.子程序 _查询按钮_被单击
.局部变量 计次, 整数型
.局部变量 开始日期, 日期时间型
.局部变量 结束日期, 日期时间型
.局部变量 行, 整数型
.局部变量 id, 日期时间型
超级列表框1.全部删除 ()
开始日期 = 日期框1.今天
结束日期 = 日期框2.今天
计次 = 取记录数 ()
到首记录 ()
.计次循环首 (计次, )
id = 读 (#出差时间)
.判断开始 (查找 (id ≥ 开始日期 且 id ≤ 结束日期))
行 = 超级列表框1.插入表项 (-1, , , , , )
超级列表框1.置标题 (行, 0, 到文本 (id))
超级列表框1.置标题 (行, 1, 读 (#出差地点))
超级列表框1.置标题 (行, 2, 读 (#出差人员))
.默认
.判断结束
跳过 ()
.计次循环尾 ()
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询