饭店记账管理系统软件无模块

日期框1.今天 ＝ 到时间 (日期文本)
超级列表框1.全部删除 ()
标签1.标题 ＝ “读取数据中，请稍后...”
处理事件 ()
a ＝ _启动窗口.外部数据库1.查询 (“select * from [收入表] where [时间] like '%” ＋ 到文本 (日期文本) ＋ “%'”)
.判断循环首 (_启动窗口.外部数据库1.尾记录后 (a) ＝ 假)
处理事件 ()
i ＝ 超级列表框1.插入表项 (, _启动窗口.外部数据库1.读 (a, “时间”), , , , )
超级列表框1.置标题 (i, 1, _启动窗口.外部数据库1.读 (a, “来源”))
超级列表框1.置标题 (i, 2, 到文本 (_启动窗口.外部数据库1.读 (a, “金额”)))
超级列表框1.置标题 (i, 3, _启动窗口.外部数据库1.读 (a, “备注”))
超级列表框1.置表项数值 (i, _启动窗口.外部数据库1.读 (a, “id”))
_启动窗口.外部数据库1.到后一记录 (a)
.判断循环尾 ()
标签1.标题 ＝ “数据读取完毕，已成功读取到 ” ＋ 到文本 (超级列表框1.取表项数 ()) ＋ “ 条数据。”
超级列表框1.刷新显示 ()