个人财务收支管理简易软件系统

.如果真 (表项索引 ＝ -1)
信息框 (“请选中需要修改的某条记录.”, 0, )
返回 ()
.如果真结束
.如果 (打开 (“财务收入.edb”, , , , , , ))
跳到 (数据库索引)
写 (#收入类型, 组合框_收入类型.内容) ' 写 (#收入类型, 到文本 (收入类型数组 [组合框_收入类型.现行选中项 ＋ 1]))
写 (#收入金额, 到小数 (编辑框_收入金额.内容))
写 (#收入时间, 到时间 (日期框_收入时间.今天))
写 (#收入备注信息, 编辑框_收入备注信息.内容)
关闭 ()
收入信息列表.置标题 (表项索引, 1, 编辑框_收入金额.内容)
总收入 ＝ 总收入 ＋ 到小数 (编辑框_收入金额.内容) － 收入改变前金额
收入信息列表.置标题 (表项索引, 2, 组合框_收入类型.内容) ' 到文本 (收入类型数组 [组合框_收入类型.现行选中项 ＋ 1]))
收入信息列表.置标题 (表项索引, 3, 到文本 (日期框_收入时间.今天))
收入信息列表.置标题 (表项索引, 4, 编辑框_收入备注信息.内容)
连续赋值 (“”, 组合框_收入类型.内容, 编辑框_收入金额.内容, 编辑框_收入备注信息.内容)
更新余额 ()
.如果 (高级选择夹图.现行子夹 ＝ 0)
饼图2 ()
.否则
曲线图2 ()
.如果结束

.否则
信息框 (“打开数据库失败.”, 16, “错误提示”)