vb 财务管理系统详细分析说明书文档格式.docx
- 文档编号:22435934
- 上传时间:2023-02-04
- 格式:DOCX
- 页数:79
- 大小:573.52KB
vb 财务管理系统详细分析说明书文档格式.docx
《vb 财务管理系统详细分析说明书文档格式.docx》由会员分享,可在线阅读,更多相关《vb 财务管理系统详细分析说明书文档格式.docx(79页珍藏版)》请在冰豆网上搜索。
应收管理由日记账的输入,发票输入组成
客户和供应商管理由客户管理,供应商管理组成
应付管理由付款单组成
财务科目由科目管理组成
财务查询管理由按日期,按科目组成
财务分析由试算平衡,生成损益表,生成财务指标组成
2.3数据库设计
2.3.1创建表
数据库fiance包含用户登录,币种,客户资料,财务指标,损益表,科目类别,付款单,发票表,供应商资料表,商品表,财务科目,日记账12个表,下面分别介绍这些表的结构。
(1)用户登录
用户登录表用来保存用户信息
编号
字段名称
数据结构
说明
1
用户名
文本
管理员登录名
2
密码
登录密码
(2)币种
币种表用来保存币种信息
币种
币种缩写
币种名称
3
汇率
数字
设置汇率
(3)客户资料
客户资料表用用于保存客户资料
客户代码
自动编号
客户代码关键字
客户名称
业务员
记录业务员
4
公司或部门
5
通讯地址
记录通讯地址
6
邮政编码
记录邮政编码
7
电话号码
记录电话号码
8
传真号码
记录传真号码
9
E-mail地址
记录E-mail地址
10
附注
备注
(4)财务指标
财务指标用来储存相关财务指标
编号关键字
流动比率
速动比率
资产负债率
产权比率
总资产周转率
流动资产周转率
应收账款周转率
资产净利率
权益报酬率
(5)损益表
损益表是用来储存相关损益信息
主营业务收入
货币
营业外收入
投资受益
收入合计
折扣与折让
业务税金及附加
业务成本
营业外支出
业务费用
11
成本与费用合计
12
本期损益合计
(6)科目类别
科目类别表储存科目类别信息
科目类别ID
科目类别ID关键字
科目类别
(7)付款单
付款单表是用来储存付款单信息
付款单号
记录付款单号关键字
付款日期
日期
记录付款日期
发票编号
记录发票编号
供应商代码
记录供应商代码
结算方式
记录结算方式
结算科目
记录结算科目
摘要
记录备注
付款金额
记录付款金额
制单员
记录制单员
审核员
记录审核员
(8)发票单
发表单表是用来储存发票信息的
发票号
记录发票号关键字
发票类型
记录发票类型
开票日期
记录开票日期
客户ID
记录客户ID
供应商ID
记录供应商ID
商品ID
记录商品ID
数量
记录数量
单价
记录单价
记录币种
结算金额
记录结算金额
13
(9)供应商资料表
供应商表用来储存供应商信息
供应商代码关键字
供应商名称
通信地址
电话
传真
(10)商品表
商品表是用来储存商品的信息
商品代码
商品代码关键字
商品名称
商品单价
商品税率
商品类别
商品概要
(11)财务科目
财务科目表是用来储存财务科目信息的
科目代码
科目代码关键字
科目名称
(12)日记账
日记账表是用来储存每天记账的信息
记账ID
记账ID关键字
日记账编号
借
贷
记账日期
2.3.2设定表关系
Access作为关系型数据库管理系统,指定表之间的关系是很重要的,财务管理系统数据库的所有表与字段创建完成后,就需要设定表关系了,access将来会凭借表关系来链接两个表或查询中的数据。
表与表之间的关系如下:
2.3.3链接数据库
首先我们应该在windows的odbc数据库源管理器中注册数据库。
在系统中注册数据库完毕后,就可以在程序中链接数据库了
我们使用了vb当中的adoc控件来连接数据库,同时我们还专门设计了一个模块处理数据库的连接
具体代码如下:
OptionExplicit
PublicDbFinanceAsNewADODB.Connection'
设置ADODB连接对象的公共变量
PublicFunctionDbConnection()'
打开数据库
DimeAsADODB.Error
DbConnection=True'
ConnectDB为真时表示打开数据库无误
OnErrorGoToerrorhandle'
出现任何错误将执行errorhandle进行错误处理
DbFinance.Errors.Clear
DbFinance.CommandTimeout=30'
执行SQL命令的缺省等待时间
DbFinance.ConnectionTimeout=30'
连接数据库的缺省时间
DbFinance.ConnectionString="
DSN=Finance"
'
打开DSN名为Finance的odbc数据源
OnErrorGoToUnconnect'
出现数据库连接错误时将进行处理
DbFinance.Open'
ExitFunction
errorhandle:
IfDbFinance.Errors.Count<
1Then
MsgBoxErr.Description,vbOKOnly+vbExclamation'
显示错误描述
Else
ForEacheInDbFinance.Errors
MsgBoxe.Description'
Nexte
EndIf
DbConnection=False'
DbConnection为假(False)时表示打开数据库有误
SetDbFinance=Nothing'
关闭错误的数据库
Unconnect:
MsgBox"
数据库网络连接失败,程序将终止!
"
vbCritical+vbOKOnly'
DbConnection=False
EndFunction
PublicSubDbClose()'
关闭数据库
OnErrorResumeNext
DbFinance.Close
SetDbFinance=Nothing
EndSub
PublicFunctionresultcount(rsAsADODB.Recordset)AsLong'
返回结果集中的记录数
OnErrorResumeNext
resultcount=0
DoWhilers.EOF=False
resultcount=resultcount+1
rs.MoveNext
Loop
rs.MoveFirst
3界面设计及其代码分析
财务管理管理系统的界面有一下七部分组成。
1)管理员管理界面设计
2)应收管理界面设计
3)应付管理界面设计
4)客户和供应商管理界面设计
5)财务科目管理界面设计
6)财务查询
7)生成报表
3.1用户登录界面及系统主界面设计
当用户进入系统时,系统会显示用户登录界面。
如图所示
用户需要输入用户名和密码,系统会通过查找用户登录来验证用户身份的有效性,否则会显示出错信息。
如果用户的用户名和密码输入正确,系统将会显示主界面。
主界面如图:
主界面代码如下:
PrivateSubCheck1_Click()
IfCheck1.ValueThen'
启用或者禁止快捷按钮所在的Frame
Frame1.Enabled=False
Frame2.Enabled=False
Frame3.Enabled=False
Frame4.Enabled=False
Frame6.Enabled=False
Frame7.Enabled=False
Frame8.Enabled=False
Frame1.Enabled=True
Frame2.Enabled=True
Frame3.Enabled=True
Frame4.Enabled=True
Frame6.Enabled=True
Frame7.Enabled=True
Frame8.Enabled=True
PrivateSubCommand1_Click()
AddAdmin.Show1'
显示增加管理员窗体
PrivateSubCommand10_Click()
'
退付款单
Payment.Show1
PrivateSubCommand11_Click()
QueryBydate.Show1'
查询按日期
PrivateSubCommand12_Click()
查询按科目
QueryBysubject.Show1
PrivateSubCommand13_Click()
试算平衡
DataReport3.Show1
PrivateSubCommand14_Click()
损益表
DataReport1.Show1
PrivateSubCommand16_Click()
生产财务指标
DataReport4.Show1
PrivateSubCommand2_Click()
AdminPass.Show1'
显示修改管理员密码窗体
PrivateSubCommand3_Click()
Me.Hide
AdminLogin.User.Text="
登录窗体信息清空
AdminLogin.Pass.Text="
AdminLogin.Show'
显示注销(登录)窗体
PrivateSubCommand4_Click()
End'
退出管理系统
PrivateSubCommand5_Click()
AddDateAccount.Show1'
显示日记账
PrivateSubCommand6_Click()
SubjectManage.Show1'
显示财务科目管理
PrivateSubCommand7_Click()
客户管理
ClientManage.Show1
PrivateSubCommand8_Click()
发票输入
InvoiceInput.Show1
PrivateSubCommand9_Click()
供应商管理
SupplierManage.Show1
PrivateSubForm_Load()
Me.Left=(Screen.Width-Me.ScaleWidth)/2'
初始化窗体居中显示
Me.Top=(Screen.Height-Me.ScaleHeight)/2
Me.Height=8010
Me.Width=12000
PrivateSubForm_Unload(CancelAsInteger)
OnErrorResumeNext'
当主窗体关闭时关闭数据库连接
DbHandle.DbClose
End
PrivateSubmenu_AddAdmin_Click()
PrivateSubmenu_addDateAccount_Click()
PrivateSubmenu_AdminPass_Click()
PrivateSubmenu_C_Click()
PrivateSubmenu_Exit_Click()
PrivateSubmenu_InvoiceInput_Click()
PrivateSubmenu_Logout_Click()
PrivateSubmenu_payment_Click()
PrivateSubmenu_s_Click()
PrivateSubmenu_subject_Click()
PrivateSub按科目_Click()
PrivateSub按日期_Click()
PrivateSub生成财务指标_Click()
PrivateSub生成损益表_Click()
PrivateSub试算平衡_Click()
3.2管理员管理界面设计界面设计
管理员管理主要由增加管理员,更改管理员密码,管理员注销,退出系统组成
管理员注销
当用户点管理员注销后,会返回到登陆界面
代码实现如下:
PrivateSubCommand3_Click()
退出系统
当用户点退出系统的时候会退出系统
增加管理员
当用户点增加管理员时会进入增加管理员窗口
当点确定时增加管理员
具体实现代码如下:
DimsqlAsString
DimrsAsNewADODB.Recordset
IfUser.Text="
Then'
判断管理员ID输入框不为空
管理员ID不能为空!
vbCritical
User.SetFocus
ExitSub
IfPass.Text="
判断管理员密码输入框不为空
管理员密码不能为空!
Pass.SetFocus
IfDbHandle.DbConnectionThen'
打开数据库连接
sql="
用户登录"
对表用户登录进行操作
rs.CursorType=adOpenDynamic
rs.LockType=adLockOptimistic
rs.Filter="
用户名='
&
User.Text&
"
选择条件是符合User.Text的管理员记录
rs.Opensql,DbFinance
IfDbHandle.resultcount(rs)=1Then'
如果找到一条存在的管理员记录就报错
管理员ID已经存在!
vbExclamation
rs.Close
Else'
否则新建一条管理员记录完成添加
rs.AddNew
rs("
用户名"
)=User.Text
密码"
)=Pass.Text
rs.Update
管理员成功添加!
UnloadMe
当数据库连接打不开时候报错
数据库错误!
Me.Hide'
取消按钮返回主窗体
把窗体定位居中显示
PrivateSubForm_Unload(Cance
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 财务管理系统详细分析说明书 财务管理 系统 详细 分析 说明书