易语言开发家庭收支系统软件

.判断开始 (按钮索引 ＝ 1)
载入 (添加收支项目窗口, 收支项目管理窗口, 真)
.判断 (按钮索引 ＝ 4)
销毁 ()
.判断 (按钮索引 ＝ 2)
.如果真 (收支项目高级表格.取光标行号 () ＝ -1)
信息框 (“请选择要删除的收支项目。”, 0 ＋ #信息图标, “系统提示”)
返回 ()
.如果真结束
.如果真 (信息框 (“确定要删除选定的收支项目信息吗？” ＋ #换行符 ＋ “数据删除后不可恢复。”, #是否钮 ＋ #信息图标 ＋ #默认按钮二, “删除收支项目信息提示”) ＝ #是钮)
选择的项目 ＝ 收支项目高级表格.取数据 (收支项目高级表格.取光标行号 (), 0)
sql ＝ “delete from 收支项目分类表 where 收支项目分类编号=” ＋ 选择的项目
.如果 (取反 (主窗口.数据库连接.执行SQL (sql)))
信息框 (“删除收支项目失败。”, #错误图标 ＋ 0, “删除收支项目信息失败”)
返回 ()
.否则
信息框 (“成功删除收支项目信息。”, #信息图标 ＋ 0, “删除收支项目信息成功”)
收支项目管理窗口._收支项目管理窗口_创建完毕 ()
_收支项目管理窗口_尺寸被改变 ()