家庭财务管理系统的开发与应用设计与实现
1.无需注册登录,支付后按照提示操作即可获取该资料.
2.资料以网页介绍的为准,下载后不会有水印.资料仅供学习参考之用.
密 惠 保
关闭:Unload Me
首条: On Error Resume Next
Mydb.MoveFirst
Call Bangding
本窗体基本等同于借出款,基本的窗体结构及代码等都是差不多。通过数据库连接对借出款进行记录。
4.3 查询
本文来自think58
[资料来源:http://THINK58.com]
[资料来源:www.THINK58.com]该窗体的主要功能是对已有的各种日常收入和日常支出通过各种方式进行查询,已达到对财务的明确。
think58
通过按日期、按金额、按项目、按方式等不同的方式对已有的数据进行查询。实现对收入的明了。
[来源:http://think58.com]
通过按日期、按金额、按项目、按方式等不同的方式对已有的数据进行查询。实现对支出的明了。
按人员统计: On Error Resume Next
think58好,好think58
[资料来源:http://think58.com]
Dim A, B As Integer
Set Mydb4 = ExeCutesql("select sum(金额) from 支出", "")
A = Mydb4.Fields(0)
Set Mydb3 = ExeCutesql("select 人员,sum(金额) as 金额,str(cint(sum(金额)/'" & A & "'*100)) & '%' as 百分比 from 支出 group by 人员 ", Str_text)
[资料来源:www.THINK58.com]
Mydb3.Requery
Set MSHFlexGrid2.DataSource = Mydb3
[资料来源:www.THINK58.com]
Command2.Enabled = True
Command1.Enabled = False
B = Mydb3.RecordCount
MSChart2.ColumnCount = B
MSChart2.ColumnLabel = Mydb3.Fields(0)
think58.com
[资料来源:www.THINK58.com]
[资料来源:http://www.THINK58.com]参考文献
[1]《数据库系统原理与应用》 闪四清 清华大学出版社
本文来自think58 [资料来源:www.THINK58.com]
[资料来源:http://www.THINK58.com][2]《Visual Basic 6.0程序设计》 亓莱滨 清华大学出版社
[版权所有:http://think58.com]
[3]《Visual Basic程序设计》 陈 明 中央广播电大出版社
[4]《软件工程》 杨文龙 电子工业出版社
[资料来源:www.THINK58.com]
[5]《管理信息系统》 薛华成 清华大学出版社
[6]《SQLserver 2000 简明教材》 黄维通 清华大学出版社
[版权所有:http://think58.com]
本文来自think58