精易论坛

标题: 易语言制作个人财务系统 [打印本页]

作者: Eyy讲师小歪    时间: 2017-5-5 07:58
标题: 易语言制作个人财务系统
主要是易语言和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互联网支持库

个人财务管理系统源码.rar

56.97 KB, 下载次数: 265, 下载积分: 精币 -2 枚

个人财务管理系统例程源码


作者: 牵羊逛街的狼    时间: 2017-5-5 08:15
学习一下了。。收藏了
作者: aquan888    时间: 2017-5-5 14:18
下载来学习一下!
作者: msicleo    时间: 2017-5-5 14:46
非常感谢···········
作者: 爱歪歪    时间: 2017-5-5 15:18
支持                              
作者: 我本善良    时间: 2017-5-5 16:42
学习了         
作者: 反客为主    时间: 2017-5-5 19:57
下载来学习一下!
作者: ei9997    时间: 2017-5-5 22:16

下载来学习一下!
作者: cjwxp    时间: 2017-5-6 10:02
这个必须学习下,感谢楼主
作者: gg867594531    时间: 2017-5-6 11:02
现在下载来学习下
作者: icy8    时间: 2017-5-6 22:18
感谢楼主,正缺例子学习
作者: forever末末    时间: 2017-5-7 12:03
本帖最后由 forever末末 于 2017-5-7 12:05 编辑

不错的东东貌似很详细,学习的好东西...这个貌似mysql是不是少了个这个。。
作者: kyo9766    时间: 2017-5-8 10:37
很不错,可以学习 ACCESS 和 FTP 的操作
作者: wlzyk118    时间: 2017-5-8 22:19

下载来学习一下!
作者: phantom009    时间: 2017-5-11 09:12
新人,学习学习,感谢分享!~
作者: front88    时间: 2017-5-17 08:27
新人,学习学习,感谢分享!~
作者: longdaqing    时间: 2017-5-17 17:21
新人,学习学习,感谢分享!~
作者: thm421    时间: 2017-5-19 14:08
学习学习,感谢分享!
作者: 寒哥    时间: 2017-5-25 22:44
谢谢楼主的分享
作者: xbp2013    时间: 2017-9-10 08:57
谢谢分享,学习了。
作者: li1029899283    时间: 2017-9-16 23:40
..........................................
作者: 入门求精通    时间: 2017-9-20 08:17
看一下,不过也谢谢分享
作者: 明天你好呀!    时间: 2017-12-3 10:46
6666666666666
作者: zhuxiang521    时间: 2018-5-7 18:42
虽然我是个新人 但是说实话你写的不怎么样
作者: anshta    时间: 2020-12-29 14:46
学习一下休息休息xx
作者: 234111    时间: 2021-1-6 15:54
学习一下
作者: guayafem12    时间: 2021-7-1 16:45
学习一下
作者: yoken    时间: 2023-3-27 01:17
学习一下休息休息xx




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4