财务管理论文Word文档格式.docx
- 文档编号:6506358
- 上传时间:2023-05-06
- 格式:DOCX
- 页数:46
- 大小:348.65KB
财务管理论文Word文档格式.docx
《财务管理论文Word文档格式.docx》由会员分享,可在线阅读,更多相关《财务管理论文Word文档格式.docx(46页珍藏版)》请在冰点文库上搜索。
美格770PF,17寸纯平显示器
软件环境
操作系统
MicrosoftWindowsXP简体中文专业版+SP1
办公软件
MicrosoftOffice2003
显卡驱动
nVIDIAForceWare驱动56.72版ForWin2000/XP
软件系统:
Visualbasic6.0中文版、Access数据库。
2.2开发工具简介
VisualBasic6.0的特点
VisualBasic6.0是Micrsoft公司出品的开发工具,VisualBasic是一种可视化的,面向对象的Windows开发语言,它具有易用,通用和开发效率高的特点。
随着微软对它不断地改进以及计算机本身性能的提高,使得VisualBasic越来越适合一般的应用程序开发。
正如BillGate所说,世界上绝大多数的Windows应用程序是用VisualBasic编写的。
在众多的开发工具中,我们为什么要选择VisualBasic6.0呢?
因为VB具有众多其它开发工具所没有的优点!
具体介绍如下:
◆开发的高效
◆语言的高效
◆编译的高效
◆执行的高效
◆维护的高效
基于以上理由,我们毫不忧郁的选择了VB6.0做为我们的开发工具!
!
微软公司的Visualbasic6.0连接数据库的主要方式以下几种方式:
一是:
用data控件进行数据库链接,二是利用adodc(ADODataControl)进行数据库链接。
三是:
利用DataEnvironment进行数据库链接.四是利用ADO(ActiveXDataObjects)进行编程
三种数据库访问对象,是Microsoft数据库访问技术的一个主要发展方向,ADO将OLEDB封装在一个数据对象中,使得VB程序中以方便地实现对数据库的访问。
第三章系统设计
3.1概要设计
3.1.1概要设计阶段的主要任务
①系统分析员审理客户的需求状况并依据用户需求撰写需求分析报告以及软件描述工具。
选择分解功能与划分模块的设计原则,例如模块划分独立性原则,信息隐蔽原则等。
3.1.2概要设计的过程
在概要设计阶段应着重解决实现需求分析的程序模块设计问题。
这包括考虑如何把被开发的软件系统划分成若干个模块,并决定各模块的接口,即模块间的相互关系,以及模块之间的传递的信息。
1.管理员选项模块(增加管理员,修改管理员密码,注销管理员,退出系统)
2.工资管理模块(增加考勤记录,修改考勤记录,查询考勤记录,计算工资,
增加工资记录,查询工资记录,修改工资记录,删除工资记录)
3.固定资产模块(增加固定资产记录,修改固定资产记录,查询固定资产记录,删除固定资产记录)
4.流动资产模块(增加报销记录,查询报销记录,导出报销记录)
主界面
管理员选项
工资管理
固定资产管理
禁用快捷键
流动资产管理
登录
根据以上分析,该系统考虑将整个系统分解成如图3-1模块结构图:
3.1.3概要设计的原则
并且在系统的开发过程中,我尽量注意模块的高内聚、低耦合,使得系统的整体性能提高,并且也有利于投入使用后的系统维护。
3.1.4系统功能分析
本财务管理系统主要针对企事业单位的财务管理提供方便。
1管理员模块功能:
提供对管理员的密码,权限,增删设置。
2固定资产模块管理:
提供对固定资产记录的增删管理。
3流动资产管理:
提供对流动资产,报销管理。
3.2详细设计
3.2.1详细设计的任务
详细设计必须是无歧义地描述过程地细节,详细设计主要决定每个模块内部的具体算法。
3.2.2详细设计的方法
修改已建的数据库
数据库的修改分为:
添加、编辑和删除记录。
这三种操作均可由VisualBasic创建的程序来完成,下面的章节将详细描述实现的具体方法。
实现数据库之间的联系
数据库之间的关系指明两个库之间共享一个共同的关键字值。
一个连接是指一种虚拟的表,这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的,关键字段用于在相互连接的不同表中查找匹配的记录。
一个更高级的连接形式称为自连接。
这种连接是指一个表被连接到它自己的一个字段,或在不同的纪录中由重复数据的组合字段。
数据库中有三种不同类型的关键字:
主关键字、组合关键字和外关键字。
在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。
第四章数据库的设计
4.1数据库Access简介
使用
Microsoft
Access,可以在单一的数据库文件中管理所有的信息。
在这个文件中,用户可以将自己的数据分别保存在各自独立的存储空间中,这些空间称作表;
可以使用联机窗体来查看、添加及更新表中的数据;
使用查询来查找并检索所要的数据;
也可以使用报表以特定的版面布置来分析及打印数据。
如果要保存数据,请为每一种类型的信息创建一个表。
如果要从查询、窗体或报表中的多个表中将数据合并在一起,就要定义各个表之间的关系。
如果要搜索并检索符合指定条件的数据,包括来自多个表中的数据,就要创建查询。
查询的同时也可以更新或删除多条记录,并对数据执行内嵌或自定义的计算。
如果要简单地直接在某个表中查看、输入及更改数据,请创建一个窗体。
在打开一个窗体时,Microsoft
Access
将从一个或多个表中检索数据,并使用用户在“窗体向导”选择的版面布局或所创建的版面布局,将窗体显示在屏幕上。
如果要分析数据或将数据以特定的方式打印出来,请创建一个报表。
例如,可以打印一份将数据分组并计算数据总和的报表,也可以打印另一份带有各种数据格式的打印邮件标签的报表。
4.2数据库需求分析
本系统使用的是ODBC数据源,使用程序前,在【控制面板】-【管理工具】-【数据源(ODBC)】中添加本程序目录下的finance.mdb文件作为MicrosoftAccess数据源,用户数据源名称必须命名为:
Finance
4.3表的详细结构说明
员工职务表的详细信息:
员工工资结算表的详细结构说明:
固定资产管理项目表的详细结构为:
报销类型表的详细结构为:
管理员登陆表的详细结构为:
员工工作状态表
员工工作状态表详细设计:
4.4测试用例
Y
N
开始
输入登录密码
是否正确
第五章详细设计
5.1系统登录模块的设计与实现
登陆界面:
登陆界面源代码分析:
PrivateSubCommand1_Click()
DimsqlAsString
DimrsAsNewADODB.Recordset
IfUser.Text="
"
Then'
保证用户名和密码都填写
MsgBox"
用户名不能为空!
vbCritical
User.SetFocus
ExitSub
EndIf
IfPass.Text="
Then
密码不能为空!
Pass.SetFocus
IfDbHandle.DbConnectionThen
sql="
TBL_ADMIN"
'
用SQL语句判断是否是合法管理员
rs.CursorType=adOpenDynamic
rs.LockType=adLockOptimistic
rs.Filter="
ADMIN_ID='
&
User.Text&
"
'
ANDADMIN_PASSWORD='
Pass.Text&
rs.Opensql,DbFinance
IfDbHandle.resultcount(rs)<
>
1Then'
不存在管理员记录提示错误信息并且退出系统
用户名或密码错误!
vbExclamation
rs.Close
Setrs=Nothing
DbHandle.DbClose
End
MainForm.Show'
登陆成功显示主窗体
UnloadMe
Else
数据库错误!
EndSub
界面包括的控件有标签、文本框、命令按控件的属性设置界面:
主界面源代码分析:
OptionExplicit
PrivateSubAdminOption_Click()
sb1.Panels
(1).Text="
管理员选项"
鼠标在"
菜单使状态条的提示文字显示
PrivateSubCheck1_Click()
IfCheck1.ValueThen'
启用或者禁止快捷按钮所在的Frame
Frame1.Enabled=False
Frame2.Enabled=False
Frame3.Enabled=False
Frame4.Enabled=False
Frame1.Enabled=True
Frame2.Enabled=True
Frame3.Enabled=True
Frame4.Enabled=True
AddAdmin.Show1'
显示增加管理员窗体
PrivateSubCommand10_Click()
FixPay.Show1'
显示增加修改月工资窗体
PrivateSubCommand11_Click()
DelPay.Show1'
显示删除月工资窗体
PrivateSubCommand12_Click()
QueryPay.Show1'
显示查询月工资窗体
PrivateSubCommand13_Click()
AddFixed.Show1'
显示增加固定资产窗体
PrivateSubCommand14_Click()
fixFixed.Show1'
显示修改固定资产窗体
PrivateSubCommand15_Click()
QueryFixed.Show1'
显示查询固定资产窗体
PrivateSubCommand16_Click()
DelFixed.Show1'
显示删除固定资产窗体
PrivateSubCommand17_Click()
AddCur.Show1'
显示增加报销记录窗体
PrivateSubCommand18_Click()
QueryCur.Show1'
显示查询报销记录窗体
PrivateSubCommand19_Click()
ExportCur.Show1'
显示导出报销记录窗体
PrivateSubCommand2_Click()
AdminPass.Show1'
显示修改管理员密码窗体
PrivateSubCommand3_Click()
Me.Hide
AdminLogin.User.Text="
登录窗体信息清空
AdminLogin.Pass.Text="
AdminLogin.Show'
显示注销(登录)窗体
PrivateSubCommand4_Click()
End'
退出管理系统
PrivateSubCommand5_Click()
WorkEvent.Show1'
显示添加考勤记录窗体
PrivateSubCommand6_Click()
ChangeEvent.Show1'
显示修改考勤记录窗体
PrivateSubCommand7_Click()
QueryEvent.Show1'
显示查询考勤记录窗体
PrivateSubCommand8_Click()
CalcPay.Show1'
显示计算工资窗体
PrivateSubCommand9_Click()
AddPay.Show1'
显示增加月工资记录窗体
PrivateSubCurAsset_Click()
流动资产管理"
PrivateSubFixedAsset_Click()
固定资产管理"
PrivateSubForm_Load()
Me.Left=(Screen.Width-Me.ScaleWidth)/2'
初始化窗体居中显示
Me.Top=(Screen.Height-Me.ScaleHeight)/2
Me.Height=8010
Me.Width=9945
PrivateSubForm_Unload(CancelAsInteger)
OnErrorResumeNext'
当主窗体关闭时关闭数据库连接
PrivateSubmenu_AddAdmin_Click()
PrivateSubmenu_AddCur_Click()
PrivateSubmenu_AddEvent_Click()
显示增加考勤记录窗体
PrivateSubmenu_AddFixed_Click()
PrivateSubmenu_AddPay_Click()
显示增加月工资窗体
PrivateSubmenu_AdminPass_Click()
PrivateSubmenu_CalcPay_Click()
PrivateSubmenu_ChangeEvent_Click()
PrivateSubmenu_ChangeFixed_Click()
PrivateSubmenu_ChangePay_Click()
显示修改月工资窗体
PrivateSubmenu_DelFixed_Click()
PrivateSubmenu_DelPay_Click()
PrivateSubmenu_Exit_Click()
PrivateSubmenu_ExportCur_Click()
PrivateSubmenu_Logout_Click()
PrivateSubmenu_MonthBln_Click()
MonthBln.Show1'
显示月底结算窗体
PrivateSubmenu_QueryCur_Click()
PrivateSubmenu_QueryEvent_Click()
PrivateSubmenu_QueryFixed_Click()
PrivateSubmenu_QueryPay_Click()
PrivateSubPayMan_Click()
工资管理"
5.3工资管理的设计与实现
工资管理界面:
工资计算代码:
PrivateSubCommand1_Click()
DimiAsLong
DimUSER_IDAsString
DimUSER_NAMEAsString
DimUSER_PARTAsString
DimUSER_ROLEAsString
DimMONEYAsString
CommDlg.Flags=cdlOFNOverwritePrompt'
设置保存对话框有覆盖提示
CommDlg.Filter="
文本文件|*.txt"
设置保存对话框的显示文件类型
CommDlg.ShowSave'
显示保存对话框
IfCommDlg.FileName<
如果用户点确定按钮就写导出文件
OpenCommDlg.FileNameForOutputAs#1
Print#1,"
员工ID号"
;
Tab;
员工姓名"
所属部门"
职位名称"
本月工资"
Fori=1ToMSFlexGrid1.Rows-1'
从MSFlexGrid1中循环把记录信息写进文件中
MSFlexGrid1.Row=i
MSFlexGrid1.Col=0
USER_ID=MSFlexGrid1.Text
MSFlexGrid1.Col=1
USER_NAME=MSFlexGrid1.Text
MSFlexGrid1.Col=2
USER_PART=MSFlexGrid1.Text
MSFlexGrid1.Col=3
USER_ROLE=MSFlexGrid1.Text
MSFlexGrid1.Col=4
MONEY=MSFlexGrid1.Text
Print#1,USER_ID;
USER_NAME;
USER_PART;
USER_ROLE;
MONEY
Nexti
Close#1'
关闭文件
UnloadMe'
返回主窗体
DimworkAsNewADODB.Recordset'
考勤记录结果集
DimiAsInteger'
循环变量
DimuseridAsString
DimMONEYAsLong
DimtempAsLong'
考勤影响到的工资
DimresultcountAsLong'
返回记录数
窗体居中显示
IfDbHandle
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 财务管理 论文