财务收支管理软件系统

.如果真 (新收入 ≠ 0)
总收入 ＝ 总收入 ＋ 新收入
写配置项 (配置项路径, “总收入”, “金额”, 到文本 (总收入))
更新收支总数 ()
.如果 (打开 (“财务收支.edb”, , , , , , ))
加空记录 ()
写 (#消费类型, “收入”)
写 (#消费金额, 到小数 (窗口_添加新收入.编辑框_新收入.内容))
写 (#消费时间, 到文本 (取日期 (日期框_消费时间.今天)))
写 (#备注信息, 窗口_添加新收入.编辑框_备注.内容)
数据库提供者.数据库文件名 ＝ 取运行目录 () ＋ “\财务收支.edb”
数据源.刷新 ()
关闭 ()
.否则
创建新财务数据库 ()

row ＝ 表格_消费详情.取光标行号 ()
col ＝ 表格_消费详情.取光标列号 ()
s ＝ “第” ＋ 到文本 (row) ＋ “行，第” ＋ 到文本 (col) ＋ “列；”
.如果真 (表格_消费详情.取选择行数 () ＞ 1 或 表格_消费详情.取选择列数 () ＞ 1)
s ＝ s ＋ “选中” ＋ 到文本 (表格_消费详情.取选择行数 ()) ＋ “行” ＋ 到文本 (表格_消费详情.取选择列数 ()) ＋ “列；”
.如果真结束
连续赋值 (0, width, height)
.变量循环首 (row, row ＋ 表格_消费详情.取选择行数 () － 1, 1, i)
height ＝ height ＋ 数据源.取行高 (i)
.变量循环尾 ()
.变量循环首 (col, col ＋ 表格_消费详情.取选择列数 () － 1, 1, i)
width ＝ width ＋ 数据源.取列宽 (i)
.变量循环尾 ()
s ＝ s ＋ “尺寸：” ＋ 到文本 (width ÷ 10) ＋ “x” ＋ 到文本 (height ÷ 10) ＋ “mm”