展开全部
.版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 记录, 整数型
.子程序 __启动窗口_创建完毕
标签1.标题32313133353236313431303231363533e59b9ee7ad9431333335323464 = “地点”
标签2.标题 = “消费”
标签3.标题 = “金额”
按钮1.标题 = “写入”
按钮2.标题 = “删除”
.如果真 (打开 (取运行目录 () + “\sjk.edb”, “sjk”, , , , , ) = 假)
创建数据库 ()
.如果真结束
打开 (取运行目录 () + “\sjk.edb”, “sjk”, , , , , )
列表刷新 ()
.子程序 创建数据库, 逻辑型
.局部变量 字段, 字段信息, , "5"
字段 [1].名称 = “序号”
字段 [1].类型 = #文本型
字段 [1].最大文本长度 = 3
字段 [2].名称 = “日期”
字段 [2].类型 = #文本型
字段 [2].最大文本长度 = 20
字段 [3].名称 = “地点”
字段 [3].类型 = #文本型
字段 [3].最大文本长度 = 20
字段 [4].名称 = “消费”
字段 [4].类型 = #文本型
字段 [4].最大文本长度 = 20
字段 [5].名称 = “金额”
字段 [5].类型 = #文本型
字段 [5].最大文本长度 = 20
创建 (取运行目录 () + “\sjk.edb”, 字段)
返回 (真)
.子程序 列表刷新
列表.全部删除 ()
到首记录 ()
.循环判断首 ()
记录 = 列表.插入表项 (, , , , , )
列表.置标题 (记录, 0, 读 (“序号”))
列表.置标题 (记录, 1, 读 (“日期”))
列表.置标题 (记录, 2, 读 (“地点”))
列表.置标题 (记录, 3, 读 (“消费”))
列表.置标题 (记录, 4, 读 (“金额”))
跳过 ()
.循环判断尾 (尾记录后 () = 假)
按钮1.可视 = 真
按钮2.可视 = 假
连续赋值 (“”, 编辑框1.内容, 编辑框2.内容, 编辑框3.内容)
.子程序 _按钮1_被单击
.如果真 (编辑框1.内容 = “”)
信息框 (“请输入地点”, #错误图标, )
编辑框1.获取焦点 ()
返回 ()
.如果真结束
.如果真 (编辑框2.内容 = “”)
信息框 (“请输入消费内容”, #错误图标, )
编辑框1.获取焦点 ()
返回 ()
.如果真结束
.如果真 (到数值 (编辑框3.内容) = 0)
信息框 (“请输入金额”, #错误图标, )
编辑框1.获取焦点 ()
返回 ()
.如果真结束
加记录 (到文本 (取记录数 () + 1), 到文本 (取日期 (日期框1.今天)), 编辑框1.内容, 编辑框2.内容, 编辑框3.内容)
列表刷新 ()
.子程序 _列表_左键单击表项
记录 = 到整数 (列表.取标题 (列表.现行选中项, 0))
日期框1.今天 = 到时间 (列表.取标题 (列表.现行选中项, 1))
编辑框1.内容 = 列表.取标题 (列表.现行选中项, 2)
编辑框2.内容 = 列表.取标题 (列表.现行选中项, 3)
编辑框3.内容 = 列表.取标题 (列表.现行选中项, 4)
按钮1.可视 = 假
按钮2.可视 = 真
.子程序 _按钮2_被单击
.如果真 (信息框 (“真要删除这组数据吗?”, #询问图标 + #确认取消钮, “提示!”) = #确认钮)
跳到 (记录)
删除 (真)
彻底删除 ()
到首记录 ()
记录 = 1
.判断循环首 (尾记录后 () = 假)
修改 (到文本 (记录), , , , )
记录 = 记录 + 1
跳过 ()
.判断循环尾 ()
.如果真结束
列表刷新 ()