易语言制作个人财务系统

Eyy讲师小歪

主要是易语言和Acess数据库的连用，功能还是在一定程度上不全面的，喜欢的易友可以自己添加，我吧与源码上传上去，希望和大家分享更多的源码，并且大家一起讨论。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

写入日志 (“*************************************” ＋ 到文本 (取现行时间 ()) ＋ “应用记录” ＋ “*************************************”)
载入 (窗口_预加载程序, , 假)
数据库操作 ()
连接服务器_Yy科技城服务器 ()
启动线程 (&渐隐效果, , )
取出信息 ()
窗口_预加载程序.销毁 ()

子程序名	返回值类型	公开	备 注
数据库操作

判断 (检查数据库 () ＝ 假)
写入日志 (“文件检测系统检测到您的用户数据异常，可能是您的数据库被更改或者删除！”)
数据库操作失败的错误提示 ()
判断 (信息框 (“您的数据库文件被删除，您是否要还原一份新的数据文件？” ＋ #换行符 ＋ “您需要注意的是，如果您还原新的数据文件，您以前保存的数据将丢失。”, #错误图标 ＋ #是否钮, “提示”) ＝ #是钮 )
写入日志 (“文件修复系统正在尝试修复该问题！”)
写入日志 (“文件修复系统正在检查数据库文件是否存在！”)
判断 (文件是否存在 (取运行目录 () ＋ “/mdb”) ＝ 假)
写入日志 (“文件修复系统检测到数据库文件不存在”)
写入日志 (“文件修复系统正在搭建目录工程”)
如果真 (创建目录 (取运行目录 () ＋ “/mdb”))
写到文件 (取运行目录 () ＋ “/mdb” ＋ “/access.mdb”, #access )
写入日志 (“文件修复系统目录搭建完成！”)


判断 (文件是否存在 (取运行目录 () ＋ “/mdb” ＋ “/access.mdb”) ＝ 假)
写入日志 (“文件检测系统检测到数据库文件不存在，但是目录工程较为完整。”)
写入日志 (“文件检测系统正在为您制定计划”)
写入日志 (“文件检测系统决定给您注入全新的数据库文件！”)
写到文件 (取运行目录 () ＋ “/mdb” ＋ “/access.mdb”, #access )
写入日志 (“文件修复系统完成了计划”)
写入日志 (“文件检测系统检测到您的目录工程和数据文件没有异常！”)

写入日志 (“用户不允许修复文件！”)
结束 ()

判断 (连接数据库 () ＝ 假)
写入日志 (“连接数据库失败”)
数据库操作失败的错误提示 ()
结束 ()
判断 (连接记录集 () ＝ 假)
写入日志 (“连接记录集失败”)
数据库操作失败的错误提示 ()
结束 ()
判断 (打开数据表 () ＝ 假)
写入日志 (“打开数据库失败”)
数据库操作失败的错误提示 ()
结束 ()
写入日志 (“数据库操作成功！”)

子程序名	返回值类型	公开	备 注
检查数据库	逻辑型

写入日志 (“正在检查并在没有问题时打开数据库”)
判断 (文件是否存在 (取运行目录 () ＋ “/mdb/access.mdb”) ＝ 真)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
连接数据库	逻辑型

判断 (_启动窗口.数据库连接1.连接Access (取运行目录 () ＋ “/mdb/access.mdb”, “xiaowai...”) ＝ 真)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
连接记录集	逻辑型

判断 (_启动窗口.记录集1.置连接 (_启动窗口.数据库连接1) ＝ 真)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
打开数据表	逻辑型

判断 (_启动窗口.记录集1.打开 (“config”, 2) ＝ 真)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
数据库操作失败的错误提示

信息框 (“对数据库的操作失败，这期间出现任何错误系统都不能正常工作。在此提醒，请不要对程序的数据库文件进行操作，那样会使您的数据丢失。详情请检查日志文件”, #错误图标, “提示：”)

子程序名	返回值类型	公开	备 注
写入日志
参数名	类 型	参考	可空	数组	备 注
日志信息	文本型

变量名	类 型	静态	数组	备 注
命令代码	文本型

置随机数种子 ()
判断 (文件是否存在 (取运行目录 () ＋ “\config_file”) ＝ 真)
写配置项 (取运行目录 () ＋ “\” ＋ “config_file” ＋ “\” ＋ 到文本 (取年份 (取现行时间 ())) ＋ “_” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “_” ＋ 到文本 (取日 (取现行时间 ())) ＋ “.ini”, “个人财务管理系统管理日志”, 到文本 (取现行时间 ()) ＋ “_(” ＋ 到文本 (取随机数 (1, 200)) ＋ “)”, 日志信息)
创建目录 (取运行目录 () ＋ “\config_file”)

子程序名	返回值类型	公开	备 注
_按钮_插入数据_被单击

载入 (添加花费记录系统, , 真)

子程序名	返回值类型	公开	备 注
__启动窗口_可否被关闭	逻辑型

判断 (信息框 (“是否要退出财务管理系统？”, #信息图标 ＋ #是否钮, “是否退出”) ＝ #是钮 )
返回 (真)
返回 (假)

窗口程序集名	保 留	保 留	备 注
数据库操作

子程序名	返回值类型	公开	备 注
取出信息

变量名	类 型	静态	数组	备 注
总金额	文本型
操作金额	文本型
资金动态	文本型
剩余资金	文本型
资金去向	文本型
索引	整数型
计次变量	整数型
记录数量	整数型

写入日志 (“正在找到记录数量”)
记录数量 ＝ _启动窗口.记录集1.记录数量
写入日志 (“记录数量已经找到。”)
计次循环首 (记录数量, 计次变量)
判断 (计次变量 ＝ 1)
_启动窗口.记录集1.读文本 (0, 总金额)
_启动窗口.记录集1.读文本 (1, 操作金额)
_启动窗口.记录集1.读文本 (2, 资金动态)
_启动窗口.记录集1.读文本 (3, 剩余资金)
_启动窗口.记录集1.读文本 (4, 资金去向)
索引 ＝ _启动窗口.超级列表框1.插入表项 (, , , , , )
_启动窗口.超级列表框1.置标题 (索引, 0, 到文本 (计次变量))
_启动窗口.超级列表框1.置标题 (索引, 1, “本地资源”)
_启动窗口.超级列表框1.置标题 (索引, 2, 总金额)
_启动窗口.超级列表框1.置标题 (索引, 3, 操作金额)
_启动窗口.超级列表框1.置标题 (索引, 4, 资金动态)
_启动窗口.超级列表框1.置标题 (索引, 5, 剩余资金)
_启动窗口.超级列表框1.置标题 (索引, 6, 资金去向)
_启动窗口.记录集1.到下一条 ()
_启动窗口.记录集1.读文本 (0, 剩余资金)
_启动窗口.记录集1.读文本 (1, 操作金额)
_启动窗口.记录集1.读文本 (2, 资金动态)
_启动窗口.记录集1.读文本 (3, 剩余资金)
_启动窗口.记录集1.读文本 (4, 资金去向)
索引 ＝ _启动窗口.超级列表框1.插入表项 (, , , , , )
_启动窗口.超级列表框1.置标题 (索引, 0, 到文本 (计次变量))
_启动窗口.超级列表框1.置标题 (索引, 1, “本地资源”)
_启动窗口.超级列表框1.置标题 (索引, 2, 总金额)
_启动窗口.超级列表框1.置标题 (索引, 3, 操作金额)
_启动窗口.超级列表框1.置标题 (索引, 4, 资金动态)
_启动窗口.超级列表框1.置标题 (索引, 5, 剩余资金)
_启动窗口.超级列表框1.置标题 (索引, 6, 资金去向)
_启动窗口.记录集1.到下一条 ()

计次循环尾 ()

窗口程序集名	保 留	保 留	备 注
窗口程序集_预加载程序

子程序名	返回值类型	公开	备 注
_窗口_预加载程序_创建完毕

窗口_预加载程序.透明标签_信息.移动 (, , 窗口_预加载程序.宽度, 窗口_预加载程序.高度)
窗口_预加载程序.透明标签_信息.标题 ＝ “正在初始化数据，请稍后··········”

窗口程序集名	保 留	保 留	备 注
服务器操作

子程序名	返回值类型	公开	备 注
连接服务器_Yy科技城服务器

写入日志 (“应用程序正在连接服务器”)
' 判断 (连接FTP服务器 (“001.3vftp.com”, “yykjcgcwglxt”, “xiaowai...”, , ) ＝ 真)
判断 (连接FTP服务器 (“015.3vftp.com”, “yykjcnbwz”, “xiaowai...”, , ) ＝ 真)
写入日志 (“连接服务器成功，正在启动获取服务器信息线程”)
上传 ()
获取服务器信息 ()
写入日志 (“连接服务器失败”)
信息框 (“与服务器的连接失败了”, #错误图标, “提示”)

子程序名	返回值类型	公开	备 注
上传

判断 (FTP文件上传 (取运行目录 () ＋ “\1.txt”, “\1234353.txt”, ) ＝ 真)
信息框 (“上传完成”, 0, )
信息框 (“上传不成功!”, 0, )

子程序名	返回值类型	公开	备 注
获取服务器信息

写入日志 (“应用程序正在获取服务器信息”)
判断 (FTP文件下载 (“\index.html”, 取运行目录 () ＋ “\1.txt”, ) ＝ 真)
写入日志 (“获取服务器信息程序，【即将启动解析程序”)
打开服务器信息 ()
写入日志 (“从服务器上获取文件失败。”)
信息框 (“获取文件失败”, #错误图标, “提示：”)

子程序名	返回值类型	公开	备 注
打开服务器信息

变量名	类 型	静态	数组	备 注
开始欢迎信息	文本型

写入日志 (“解析程序已经运行”)
写入日志 (“正在打开信息文件”)
开始欢迎信息 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\123.txt”))
写入日志 (“文件解析完毕，即将传输到程序管理系统”)
信息框 (开始欢迎信息, 0, )

窗口程序集名	保 留	保 留	备 注
窗口程序集_添加花费记录系统

子程序名	返回值类型	公开	备 注
_添加花费记录系统_创建完毕

子程序名	返回值类型	公开	备 注
_按钮_提交_被单击

变量名	类 型	静态	数组	备 注
支出类型	文本型
操作金额	文本型
资金去向	文本型

判断 (单选框_支出.选中 ＝ 真)
支出类型 ＝ “支出”
支出类型 ＝ “收入”
操作金额 ＝ 编辑框_操作金额.内容
资金去向 ＝ 编辑框_资金去向.内容
判断 (信息框 (“请确定您要插入的信息：” ＋ #换行符 ＋ “类型：” ＋ 支出类型 ＋ #换行符 ＋ “操作金额：” ＋ 操作金额 ＋ #换行符 ＋ “资金去向：” ＋ 资金去向 ＋ #换行符 ＋ “上述信息是否为您要录入的信息”, #信息图标 ＋ #是否钮, “提示：”) ＝ #是钮 )
_启动窗口.记录集1.添加 ()
_启动窗口.记录集1.写文本 (1, 支出类型 ＋ 操作金额)
_启动窗口.记录集1.更新 ()
信息框 (“用户取消了该操作！”, #信息图标, “提示”)

i支持库列表	支持库注释
EThread	多线程支持库
eDB	数据库操作支持库
iext	扩展界面支持库一
internet	互联网支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 eDB<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 写入日志 (“*************************************” ＋ 到文本 (取现行时间 ()) ＋ “应用记录” ＋ “*************************************”)<br /> 载入 (窗口_预加载程序, , 假)<br /> 数据库操作 ()<br /> 连接服务器_Yy科技城服务器 ()<br /> 启动线程 (&渐隐效果, , )<br /> 取出信息 ()<br /> 窗口_预加载程序.销毁 ()<br /> <br /> .子程序 数据库操作<br /> <br /> .判断开始 (检查数据库 () ＝ 假)<br />     写入日志 (“文件检测系统检测到您的用户数据异常，可能是您的数据库被更改或者删除！”)<br />     数据库操作失败的错误提示 ()<br />     .判断开始 (信息框 (“您的数据库文件被删除，您是否要还原一份新的数据文件？” ＋ #换行符 ＋ “您需要注意的是，如果您还原新的数据文件，您以前保存的数据将丢失。”, #错误图标 ＋ #是否钮, “提示”) ＝ #是钮)<br />         写入日志 (“文件修复系统正在尝试修复该问题！”)<br />         写入日志 (“文件修复系统正在检查数据库文件是否存在！”)<br />         .判断开始 (文件是否存在 (取运行目录 () ＋ “/mdb”) ＝ 假)<br />             写入日志 (“文件修复系统检测到数据库文件不存在”)<br />             写入日志 (“文件修复系统正在搭建目录工程”)<br />             .如果真 (创建目录 (取运行目录 () ＋ “/mdb”))<br />                 写到文件 (取运行目录 () ＋ “/mdb” ＋ “/access.mdb”, #access)<br />                 写入日志 (“文件修复系统目录搭建完成！”)<br />             .如果真结束<br /> <br /> <br />         .判断 (文件是否存在 (取运行目录 () ＋ “/mdb” ＋ “/access.mdb”) ＝ 假)<br />             写入日志 (“文件检测系统检测到数据库文件不存在，但是目录工程较为完整。”)<br />             写入日志 (“文件检测系统正在为您制定计划”)<br />             写入日志 (“文件检测系统决定给您注入全新的数据库文件！”)<br />             写到文件 (取运行目录 () ＋ “/mdb” ＋ “/access.mdb”, #access)<br />             写入日志 (“文件修复系统完成了计划”)<br />         .默认<br />             写入日志 (“文件检测系统检测到您的目录工程和数据文件没有异常！”)<br />         .判断结束<br /> <br />     .默认<br />         写入日志 (“用户不允许修复文件！”)<br />         结束 ()<br />     .判断结束<br /> <br /> .判断 (连接数据库 () ＝ 假)<br />     写入日志 (“连接数据库失败”)<br />     数据库操作失败的错误提示 ()<br />     结束 ()<br /> .判断 (连接记录集 () ＝ 假)<br />     写入日志 (“连接记录集失败”)<br />     数据库操作失败的错误提示 ()<br />     结束 ()<br /> .判断 (打开数据表 () ＝ 假)<br />     写入日志 (“打开数据库失败”)<br />     数据库操作失败的错误提示 ()<br />     结束 ()<br /> .默认<br />     写入日志 (“数据库操作成功！”)<br /> .判断结束<br /> <br /> <br /> .子程序 检查数据库, 逻辑型<br /> <br /> 写入日志 (“正在检查并在没有问题时打开数据库”)<br /> .判断开始 (文件是否存在 (取运行目录 () ＋ “/mdb/access.mdb”) ＝ 真)<br />     返回 (真)<br /> .默认<br />     返回 (假)<br /> .判断结束<br /> <br /> <br /> .子程序 连接数据库, 逻辑型<br /> <br /> .判断开始 (_启动窗口.数据库连接1.连接Access (取运行目录 () ＋ “/mdb/access.mdb”, “xiaowai...”) ＝ 真)<br />     返回 (真)<br /> .默认<br />     返回 (假)<br /> .判断结束<br /> <br /> <br /> .子程序 连接记录集, 逻辑型<br /> <br /> .判断开始 (_启动窗口.记录集1.置连接 (_启动窗口.数据库连接1) ＝ 真)<br />     返回 (真)<br /> .默认<br />     返回 (假)<br /> .判断结束<br /> <br /> <br /> .子程序 打开数据表, 逻辑型<br /> <br /> .判断开始 (_启动窗口.记录集1.打开 (“config”, 2) ＝ 真)<br />     返回 (真)<br /> .默认<br />     返回 (假)<br /> .判断结束<br /> <br /> <br /> .子程序 数据库操作失败的错误提示<br /> <br /> 信息框 (“对数据库的操作失败，这期间出现任何错误系统都不能正常工作。在此提醒，请不要对程序的数据库文件进行操作，那样会使您的数据丢失。详情请检查日志文件”, #错误图标, “提示：”)<br /> <br /> .子程序 写入日志<br /> .参数 日志信息, 文本型<br /> .局部变量 命令代码, 文本型<br /> <br /> 置随机数种子 ()<br /> .判断开始 (文件是否存在 (取运行目录 () ＋ “\config_file”) ＝ 真)<br />     写配置项 (取运行目录 () ＋ “\” ＋ “config_file” ＋ “\” ＋ 到文本 (取年份 (取现行时间 ())) ＋ “_” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “_” ＋ 到文本 (取日 (取现行时间 ())) ＋ “.ini”, “个人财务管理系统管理日志”, 到文本 (取现行时间 ()) ＋ “_(” ＋ 到文本 (取随机数 (1, 200)) ＋ “)”, 日志信息)<br /> .默认<br />     创建目录 (取运行目录 () ＋ “\config_file”)<br /> .判断结束<br /> <br /> <br /> .子程序 _按钮_插入数据_被单击<br /> <br /> 载入 (添加花费记录系统, , 真)<br /> <br /> .子程序 __启动窗口_可否被关闭, 逻辑型<br /> <br /> .判断开始 (信息框 (“是否要退出财务管理系统？”, #信息图标 ＋ #是否钮, “是否退出”) ＝ #是钮)<br />     返回 (真)<br /> .默认<br />     返回 (假)<br /> .判断结束<br /> <br /> .版本 2<br /> .支持库 eDB<br /> .支持库 iext<br /> <br /> .程序集 数据库操作<br /> <br /> .子程序 取出信息<br /> .局部变量 总金额, 文本型<br /> .局部变量 操作金额, 文本型<br /> .局部变量 资金动态, 文本型<br /> .局部变量 剩余资金, 文本型<br /> .局部变量 资金去向, 文本型<br /> .局部变量 索引, 整数型<br /> .局部变量 计次变量, 整数型<br /> .局部变量 记录数量, 整数型<br /> <br /> 写入日志 (“正在找到记录数量”)<br /> 记录数量 ＝ _启动窗口.记录集1.记录数量<br /> 写入日志 (“记录数量已经找到。”)<br /> .计次循环首 (记录数量, 计次变量)<br />     .判断开始 (计次变量 ＝ 1)<br />         _启动窗口.记录集1.读文本 (0, 总金额)<br />         _启动窗口.记录集1.读文本 (1, 操作金额)<br />         _启动窗口.记录集1.读文本 (2, 资金动态)<br />         _启动窗口.记录集1.读文本 (3, 剩余资金)<br />         _启动窗口.记录集1.读文本 (4, 资金去向)<br />         索引 ＝ _启动窗口.超级列表框1.插入表项 (, , , , , )<br />         _启动窗口.超级列表框1.置标题 (索引, 0, 到文本 (计次变量))<br />         _启动窗口.超级列表框1.置标题 (索引, 1, “本地资源”)<br />         _启动窗口.超级列表框1.置标题 (索引, 2, 总金额)<br />         _启动窗口.超级列表框1.置标题 (索引, 3, 操作金额)<br />         _启动窗口.超级列表框1.置标题 (索引, 4, 资金动态)<br />         _启动窗口.超级列表框1.置标题 (索引, 5, 剩余资金)<br />         _启动窗口.超级列表框1.置标题 (索引, 6, 资金去向)<br />         _启动窗口.记录集1.到下一条 ()<br />     .默认<br />         _启动窗口.记录集1.读文本 (0, 剩余资金)<br />         _启动窗口.记录集1.读文本 (1, 操作金额)<br />         _启动窗口.记录集1.读文本 (2, 资金动态)<br />         _启动窗口.记录集1.读文本 (3, 剩余资金)<br />         _启动窗口.记录集1.读文本 (4, 资金去向)<br />         索引 ＝ _启动窗口.超级列表框1.插入表项 (, , , , , )<br />         _启动窗口.超级列表框1.置标题 (索引, 0, 到文本 (计次变量))<br />         _启动窗口.超级列表框1.置标题 (索引, 1, “本地资源”)<br />         _启动窗口.超级列表框1.置标题 (索引, 2, 总金额)<br />         _启动窗口.超级列表框1.置标题 (索引, 3, 操作金额)<br />         _启动窗口.超级列表框1.置标题 (索引, 4, 资金动态)<br />         _启动窗口.超级列表框1.置标题 (索引, 5, 剩余资金)<br />         _启动窗口.超级列表框1.置标题 (索引, 6, 资金去向)<br />         _启动窗口.记录集1.到下一条 ()<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> .版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_预加载程序<br /> <br /> .子程序 _窗口_预加载程序_创建完毕<br /> <br /> 窗口_预加载程序.透明标签_信息.移动 (, , 窗口_预加载程序.宽度, 窗口_预加载程序.高度)<br /> 窗口_预加载程序.透明标签_信息.标题 ＝ “正在初始化数据，请稍后··········”<br /> .版本 2<br /> .支持库 internet<br /> <br /> .程序集 服务器操作<br /> <br /> .子程序 连接服务器_Yy科技城服务器<br /> <br /> 写入日志 (“应用程序正在连接服务器”)<br /> ' 判断 (连接FTP服务器 (“001.3vftp.com”, “yykjcgcwglxt”, “xiaowai...”, , ) ＝ 真)<br /> .判断开始 (连接FTP服务器 (“015.3vftp.com”, “yykjcnbwz”, “xiaowai...”, , ) ＝ 真)<br />     写入日志 (“连接服务器成功，正在启动获取服务器信息线程”)<br />     上传 ()<br />     获取服务器信息 ()<br /> .默认<br />     写入日志 (“连接服务器失败”)<br />     信息框 (“与服务器的连接失败了”, #错误图标, “提示”)<br /> .判断结束<br /> <br /> <br /> .子程序 上传<br /> <br /> .判断开始 (FTP文件上传 (取运行目录 () ＋ “\1.txt”, “\1234353.txt”, ) ＝ 真)<br />     信息框 (“上传完成”, 0, )<br /> .默认<br />     信息框 (“上传不成功!”, 0, )<br /> .判断结束<br /> <br /> <br /> .子程序 获取服务器信息<br /> <br /> 写入日志 (“应用程序正在获取服务器信息”)<br /> .判断开始 (FTP文件下载 (“\index.html”, 取运行目录 () ＋ “\1.txt”, ) ＝ 真)<br />     写入日志 (“获取服务器信息程序，【即将启动解析程序”)<br />     打开服务器信息 ()<br /> .默认<br />     写入日志 (“从服务器上获取文件失败。”)<br />     信息框 (“获取文件失败”, #错误图标, “提示：”)<br /> .判断结束<br /> <br /> <br /> .子程序 打开服务器信息<br /> .局部变量 开始欢迎信息, 文本型<br /> <br /> 写入日志 (“解析程序已经运行”)<br /> 写入日志 (“正在打开信息文件”)<br /> 开始欢迎信息 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\123.txt”))<br /> 写入日志 (“文件解析完毕，即将传输到程序管理系统”)<br /> 信息框 (开始欢迎信息, 0, )<br /> <br /> .版本 2<br /> .支持库 eDB<br /> <br /> .程序集 窗口程序集_添加花费记录系统<br /> <br /> .子程序 _添加花费记录系统_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮_提交_被单击<br /> .局部变量 支出类型, 文本型<br /> .局部变量 操作金额, 文本型<br /> .局部变量 资金去向, 文本型<br /> <br /> .判断开始 (单选框_支出.选中 ＝ 真)<br />     支出类型 ＝ “支出”<br /> .默认<br />     支出类型 ＝ “收入”<br /> .判断结束<br /> 操作金额 ＝ 编辑框_操作金额.内容<br /> 资金去向 ＝ 编辑框_资金去向.内容<br /> .判断开始 (信息框 (“请确定您要插入的信息：” ＋ #换行符 ＋ “类型：” ＋ 支出类型 ＋ #换行符 ＋ “操作金额：” ＋ 操作金额 ＋ #换行符 ＋ “资金去向：” ＋ 资金去向 ＋ #换行符 ＋ “上述信息是否为您要录入的信息”, #信息图标 ＋ #是否钮, “提示：”) ＝ #是钮)<br />     _启动窗口.记录集1.添加 ()<br />     _启动窗口.记录集1.写文本 (1, 支出类型 ＋ 操作金额)<br />     _启动窗口.记录集1.更新 ()<br /> .默认<br />     信息框 (“用户取消了该操作！”, #信息图标, “提示”)<br /> .判断结束

yoken

学习一下休息休息xx

guayafem12

学习一下

234111

学习一下

anshta

学习一下休息休息xx

zhuxiang521

虽然我是个新人 但是说实话你写的不怎么样

明天你好呀！

6666666666666

入门求精通

看一下，不过也谢谢分享

li1029899283

..........................................

xbp2013

谢谢分享，学习了。

寒哥

谢谢楼主的分享