收支系统php,财务收支管理软件系统

.如果真 (新收入 ≠ 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”