|
板凳

楼主 |
发表于 2021-11-24 13:17:02
|
只看该作者
四川省成都市
|
_按钮EX_添加账目_鼠标左键单击 | 整数型 | | |
坐标x | 整数型 | | | | 坐标y | 整数型 | | | | 保留参数1 | 整数型 | | | | 保留参数2 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | iiii | 整数型 | | | SQL语句 | 文本型 | | |
如果真 (编辑框EX_本金.内容 ≠ “”) 如果真 (编辑框EX_支出.内容 ≠ “”)  如果真 (编辑框EX_收入.内容 ≠ “”)   SQL语句 = “insert into 账目管理(时间,本金,收入,开支,余额)values('” + 按钮EX_日历.标题 + “','” + 编辑框EX_本金.内容 + “元” + “','” + 编辑框EX_收入.内容 + “元” + “','” + 编辑框EX_支出.内容 + “','” + 到文本 (价格_纯支出 ()) + “元” + “')”   如果真 (数据库连接_账目管理. 执行SQL (SQL语句, ) = 真)    超级列表框EX_账目管理. 插入项目 (, 1, , 38 )    超级列表框EX_账目管理. 置项目文本 (超级列表框EX_账目管理. 取项目数量 () - 1, 9, 到文本 (超级列表框EX_账目管理. 取项目数量 ()) )    超级列表框EX_账目管理. 置项目文本 (超级列表框EX_账目管理. 取项目数量 () - 1, 1, 按钮EX_日历.标题 )    超级列表框EX_账目管理. 置项目文本 (超级列表框EX_账目管理. 取项目数量 () - 1, 2, 编辑框EX_本金.内容 + “元”)    超级列表框EX_账目管理. 置项目文本 (超级列表框EX_账目管理. 取项目数量 () - 1, 3, 编辑框EX_收入.内容 + “元”)    超级列表框EX_账目管理. 置项目文本 (超级列表框EX_账目管理. 取项目数量 () - 1, 4, 编辑框EX_支出.内容 )    超级列表框EX_账目管理. 置项目文本 (超级列表框EX_账目管理. 取项目数量 () - 1, 5, 到文本 (价格_纯支出 ()) + “元”)   提示窗口 (“添加成功”)   获取账目 ()   返回 ()  提示窗口 (“出现不可避免的因素,添加失败!”)  返回 () 提示窗口 (“请输入收入!”) 返回 () 提示窗口 (“请输入支出!”) 返回 ()提示窗口 (“请输入本金!”)
|
|