醉清风L的博客

.版本 2 .支持库 eDB .如果真 (编辑框_物品.内容 ＝ “”) 信息框 (“请输入所购买物品的名称”, #警告图标, “错误”) 返回 () .如果真结束 .判断开始 (记录集1.打开 (“insert into 家庭日常支出 (物品,价格,购买地,备注,购买时间,修改时间) values ('” ＋ 编辑框_物品.内容 ＋ “','” ＋ 编辑框_价格.内容 ＋ “','” ＋ 编辑框_购买地.内容 ＋ “','” ＋ 编辑框_备注.内容 ＋ “','” ＋ 编辑框_购买时间.内容 ＋ “','” ＋ 编辑框1.内容 ＋ “')”, #SQL语句, )) 信息框 (“成功添加信息”, 0, ) 记录集1.打开 (“select * from 家庭日常支出 order by 编号 asc”, #SQL语句, ) 连续赋值 (“”, 编辑框_物品.内容, 编辑框_价格.内容, 编辑框_购买地.内容, 编辑框_备注.内容) 初始化表格 () .默认 信息框 (“添加失败”, 0, )

登录器源码