窗口程序集名 | 保 留 | 保 留 | 备 注 |
窗口程序集_启动窗口 | | | |
写入日志 (“*************************************” +
到文本 (取现行时间 ()) +
“应用记录” +
“*************************************”)载入 (窗口_预加载程序, ,
假)数据库操作 ()连接服务器_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.
到下一条 ()

计次循环尾 ()窗口程序集名 | 保 留 | 保 留 | 备 注 |
窗口程序集_预加载程序 | | | |
窗口_预加载程序.透明标签_信息.
移动 (, , 窗口_预加载程序.宽度, 窗口_预加载程序.高度
)窗口_预加载程序.透明标签_信息.标题 =
“正在初始化数据,请稍后··········”写入日志 (“应用程序正在连接服务器”)
判断 (连接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.
更新 ()
信息框 (“用户取消了该操作!”,
#信息图标, “提示”)