(完整版)+财务管理系统+论文毕业设计.doc

1、以下文档格式全部为word格式，下载后您可以任意修改编辑。目录第一章绪论 211 课题简介212 开发的意义2第二章开发环境及实现技术321 开发环境322 开发工具简介3第三章系统设计531 概要设计53 11 概要设计阶段的主要任务53 12 概要设计的过程3 13 概要设计的原则553 14 系统功能分析532 详细设计63 21 详细设计的任务3 22 详细设计的方法第四章数据库设计941 数据库 Access简介 942数据库需求分析 1043表的详细结构说明 1144测试用例14第五章详细设计166751 系统登录模块的设计与实现1652 主界面的设计与实现2053 工资管理设计与

2、实现2254 固定资产管理的设计与实现2755 流动资产管理的设计与实现3156 用户管理的设计与实现32第六章系统使用说明 4461 使用说明 4462 运行环境 44结束语 52致谢 52参考文献53第一章绪论11 课题简介财务管理系统是每一个单位管理财务收入和支出的不可缺少的一个管理信息系统 , 它的内容对企业财务计划，财务控制，财务监督，财务运用等方面都起着巨大的作用。如何发挥财务管理的作用关系到一个企业的命脉。财务管理的工作对象是资金运动，只要有资金运动就离不开财务管理。一个企业的生产经营活动无外乎供、产、销三个环节，这个过程始终贯穿着资金运动， 只是在各个环 节上资金的表现形态不同

3、罢了。 在供应阶段资金由货币形态转变为材料形态， 生产阶段由材 料形态变为产品形态，在销售阶段由产品形态又回到货币形态。从这里可以看出，财务管理 贯穿于企业的各项工作之中，财务工作与其它管理工作是密不可分的。 BP)从企业目前 的实际工 作来看，普遍存在两个误区：一种认为财务管理就是管钱， 只要管住钱就可万事大吉， 重资 金，轻核算。上面谈到，资金在生产经营过程中分别有着不同的表现形式， “钱”只是这个 过程的起点和终点，大量的管理工作都蕴含在过程之中。因此，只有加强内部核算，才能真 正做到节支降耗， 否则， “钱”是管不住的。 另一种认为财务管理就是管财务部门， 把财务 部门与其他管理部门割

4、裂开来， 财务管理的触角不能延伸到各项管理工作之中。 财务管理就 成为无本之木， 其作用得不到发挥，形成经营和生产“两张皮”。因此，开发这样一套管理软件成为很有必要的事情，对于我们即将计算机专业毕业的学员来说，也是一次将计算机应用于现实管理的一次很有意义的实践活动。12 开发的意义计算机已经成为我们学习和工作的得力助手，使用其可方便的管理企事业财务今天，计算机正在各行各业发挥着巨大的作用，它以其快速准确性弥补人类的先天不足，能够让计算机参与人们日常的财务管理事业，是一种时代发展的必然要求，也是一个社会国家进步的体现。况且现在建行已经建起了个人网上银行，本系统为个人理财系统的到来做了先期工作，比

5、如计算机的财务管理模式的建立。第二章开发环境及实现技术21 开发环境硬件系统硬件平台CPUIntel P4 1.5G主板Intel 850 芯片组的 GA-8TX-C内存2 128M的三星 Rambus内存硬盘Seagate Barracuda 7200.7 80G显卡Unika 小妖 G9800显示器美格 770PF， 17 寸纯平显示器软件环境操作系统Microsoft WindowsXP 简体中文专业版 SP1办公软件Microsoft Office 2003显卡驱动nVIDIA ForceWare 驱动 56.72 版 For Win2000XP软件系统：Visual basic 6.

6、0中文版、 Access 数据库。22 开发工具简介Visual Basic 6.0的特点Visual Basic 6.0是 Micrsoft公司出品的开发工具，Visual Basic是一种可视化的，面向对象的Windows开发语言，它具有易用，通用和开发效率高的特点。随着微软对它不断地改进以及计算机本身性能的提高，使得VisualBasic 越来越适合一般的应用程序开发。正如BillGate 所说，世界上绝大多数的Windows 应用程序是用Visual Basic编写的。在众多的开发工具中，我们为什么要选择Visual Basic6.0呢？因为 VB 具有众多其它开发工具所没有的优点！具

7、体介绍如下：开发的高效语言的高效编译的高效执行的高效维护的高效基于以上理由，我们毫不忧郁的选择了VB6.0 做为我们的开发工具！微软公司的 Visualbasic6.0连接数据库的主要方式以下几种方式：一是：用 data 控件进行数据库链接 ，二是利用 adodc（ADOData Control) 进行数据库链接 。三是 : 利用 DataEnvironment 进行数据库链接 . 四是利用ADO(ActiveX Data Objects)进行编程三种数据库访问对象，是Microsoft数据库访问技术的一个主要发展方向， ADO将 OLE DB封装在一个数据对象中，使得VB程序中以方便地实现对

8、数据库的访问。第三章系统设计31 概要设计31 1 概要设计阶段的主要任务系统分析员审理客户的需求状况并依据用户需求撰写需求分析报告以及软件描述工具。选择分解功能与划分模块的设计原则，例如模块划分独立性原则，信息隐蔽原则等。312 概要设计的过程在概要设计阶段应着重解决实现需求分析的程序模块设计问题。这包括考虑如何把被开发的软件系统划分成若干个模块，并决定各模块的接口，即模块间的相互关系，以及模块之间的传递的信息。1管理员选项模块（增加管理员， 修改管理员密码， 注销管理员，退出系统）2工资管理模块（增加考勤记录， 修改考勤记录， 查询考勤记录，计算工资，增加工资记录，查询工资记录，修改工资记

9、录，删除工资记录）3固定资产模块（增加固定资产记录，修改固定资产记录，查询固定资产记录，删除固定资产记录）4流动资产模块（增加报销记录， 查询报销记录， 导出报销记录）根据以上分析，该系统考虑将整个系统分解成如图3-1 模块结构图 :3 1 3 概要设计的原则并且在系统的开发过程中， 我尽量注意模块的高内聚、 低耦合，使得系统的整体性能提高，并且也有利于投入使用后的系统维护。314 系统功能分析本财务管理系统主要针对企事业单位的财务管理提供方便。1 管理员模块功能：提供对管理员的密码，权限，增删设置。 2 固定资产模块管理：提供对固定资产记录的增删管理。 3 流动资产管理：提供对流动资产，报销

10、管理。32 详细设计321 详细设计的任务详细设计必须是无歧义地描述过程地细节，详细设计主要决定每个模块内部的具体算法。32 2 详细设计的方法修改已建的数据库数据库的修改分为： 添加、编辑和删除记录。这三种操作均可由VisualBasic创建的程序来完成，下面的章节将详细描述实现的具体方法。实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由

11、重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。第 四 章数据库的设计41 数据库 Access简介使用 Microsoft Access，可以在单一的数据库文件中管理所有的信息。在这个文件中， 用户可以将自己的数据分别保存在各自独立的存储空间中， 这些空间称作表； 可以使用联机窗体来查看、 添加及更新表中的数据；使用查询来查找并检索所要的数据； 也可以使用报表以特定的版面布置来分析及打印数据。如果要保存数据，请为每一种类型的信息创建一个表。如果要从查询、窗体或报表中的多个表中将数

12、据合并在一起，就要定义各个表之间的关系。如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创建查询。 查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。在打开一个窗体时，MicrosoftAccess将从一个或多个表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。4 2 数据库需求分析本系统使用的

13、是ODBC 数据源，使用程序前，在【控制面板】【管理工具】【数据源（ODBC ）】中添加本程序目录下的 finance.mdb文件作为 Microsoft Access数据源，用户数据源名称必须命名为： Finance43 表的详细结构说明员工职务表的详细信息：员工工资结算表的详细结构说明：固定资产管理项目表的详细结构为：报销类型表的详细结构为：管理员登陆表的详细结构为：员工工作状态表员工工作状态表详细设计：4 4 测试用例第五章详细设计5.1 系统登录模块的设计与实现登陆界面：登陆界面源代码分析 :Private Sub Command1_Click()Dim sql As StringDi

14、m rs As New ADODB.RecordsetIf User.Text = Then保证用户名和密码都填写MsgBox 用户名不能为空！ , vbCriticalUser.SetFocusExit SubEnd IfIf Pass.Text = ThenMsgBox 密码不能为空！ , vbCriticalPass.SetFocusExit SubEnd IfIf DbHandle.DbConnection Thensql = TBL_ADMIN用 SQL语句判断是否是合法管理员rs.CursorType = adOpenDynamicrs.LockType = adLockOptim

15、isticrs.Filter = ADMIN_ID= & User.Text & AND ADMIN_PASSWORD= & Pass.Text & rs.Open sql, DbFinanceIf DbHandle.resultcount(rs) 1 Then不存在管理员记录提示错误信息并且退出系统MsgBox 用户名或密码错误！ , vbExclamationrs.CloseSet rs = NothingDbHandle.DbCloseEndEnd IfDbHandle.DbCloseMainForm.Show登陆成功显示主窗体Unload MeElseMsgBox 数据库错误！ , v

16、bExclamationDbHandle.DbCloseEndEnd IfEnd Sub主界面界面包括的控件有标签、文本框、命令按控件的属性设置界面:主界面源代码分析 :Option ExplicitPrivate Sub AdminOption_Click()sb1.Panels(1).Text = 管理员选项 鼠标在 管理员选项 菜单使状态条的提示文字显示End SubPrivate Sub Check1_Click()If Check1.Value Then启用或者禁止快捷按钮所在的FrameFrame1.Enabled = FalseFrame2.Enabled = FalseFram

17、e3.Enabled = FalseFrame4.Enabled = FalseElseFrame1.Enabled = TrueFrame2.Enabled = TrueFrame3.Enabled = TrueFrame4.Enabled = TrueEnd IfEnd SubPrivate Sub Command1_Click()AddAdmin.Show 1显示增加管理员窗体End SubPrivate Sub Command10_Click()FixPay.Show 1显示增加修改月工资窗体End SubPrivate Sub Command11_Click()DelPay.Show

18、 1显示删除月工资窗体End SubPrivate Sub Command12_Click()QueryPay.Show 1显示查询月工资窗体End SubPrivate Sub Command13_Click()AddFixed.Show 1显示增加固定资产窗体End SubPrivate Sub Command14_Click()fixFixed.Show 1显示修改固定资产窗体End SubPrivate Sub Command15_Click()QueryFixed.Show 1显示查询固定资产窗体End SubPrivate Sub Command16_Click()DelFixed

19、.Show 1显示删除固定资产窗体End SubPrivate Sub Command17_Click()AddCur.Show 1显示增加报销记录窗体End SubPrivate Sub Command18_Click()QueryCur.Show 1显示查询报销记录窗体End SubPrivate Sub Command19_Click()ExportCur.Show 1显示导出报销记录窗体End SubPrivate Sub Command2_Click()AdminPass.Show 1显示修改管理员密码窗体End SubPrivate Sub Command3_Click()Me.H

20、ideAdminLogin.User.Text = 登录窗体信息清空AdminLogin.Pass.Text = AdminLogin.Show显示注销 ( 登录) 窗体End SubPrivate Sub Command4_Click()End退出管理系统End SubPrivate Sub Command5_Click()WorkEvent.Show 1显示添加考勤记录窗体End SubPrivate Sub Command6_Click()ChangeEvent.Show 1显示修改考勤记录窗体End SubPrivate Sub Command7_Click()QueryEvent.S

21、how 1显示查询考勤记录窗体End SubPrivate Sub Command8_Click()CalcPay.Show 1显示计算工资窗体End SubPrivate Sub Command9_Click()AddPay.Show 1显示增加月工资记录窗体End SubPrivate Sub CurAsset_Click()sb1.Panels(1).Text = 流动资产管理 鼠标在 流动资产管理 菜单使状态条的提示文字显示End SubPrivate Sub FixedAsset_Click()sb1.Panels(1).Text = 固定资产管理 显示增加管理员窗体End SubP

22、rivate Sub Form_Load()Me.Left = (Screen.Width - Me.ScaleWidth) 2初始化窗体居中显示Me.Top = (Screen.Height - Me.ScaleHeight) 2Me.Height = 8010Me.Width = 9945End SubPrivate Sub Form_Unload(Cancel As Integer)On Error Resume Next当主窗体关闭时关闭数据库连接DbHandle.DbCloseEndEnd SubPrivate Sub menu_AddAdmin_Click()AddAdmin.Sh

23、ow 1显示增加管理员窗体End SubPrivate Sub menu_AddCur_Click()AddCur.Show 1显示增加报销记录窗体End SubPrivate Sub menu_AddEvent_Click()WorkEvent.Show 1显示增加考勤记录窗体End SubPrivate Sub menu_AddFixed_Click()AddFixed.Show 1显示修改考勤记录窗体End SubPrivate Sub menu_AddPay_Click()AddPay.Show 1显示增加月工资窗体End SubPrivate Sub menu_AdminPass_C

24、lick()AdminPass.Show 1显示修改管理员密码窗体End SubPrivate Sub menu_CalcPay_Click()CalcPay.Show 1显示计算工资窗体End SubPrivate Sub menu_ChangeEvent_Click()ChangeEvent.Show 1显示修改考勤记录窗体End SubPrivate Sub menu_ChangeFixed_Click()fixFixed.Show 1显示修改固定资产窗体End SubPrivate Sub menu_ChangePay_Click()FixPay.Show 1显示修改月工资窗体End

25、SubPrivate Sub menu_DelFixed_Click()DelFixed.Show 1显示删除固定资产窗体End SubPrivate Sub menu_DelPay_Click()DelPay.Show 1显示删除月工资窗体End SubPrivate Sub menu_Exit_Click()End退出管理系统End SubPrivate Sub menu_ExportCur_Click()ExportCur.Show 1显示导出报销记录窗体End SubPrivate Sub menu_Logout_Click()Me.HideAdminLogin.User.Text =

26、 登录窗体信息清空AdminLogin.Pass.Text = AdminLogin.Show显示注销 ( 登录) 窗体End SubPrivate Sub menu_MonthBln_Click()MonthBln.Show 1显示月底结算窗体End SubPrivate Sub menu_QueryCur_Click()QueryCur.Show 1显示查询报销记录窗体End SubPrivate Sub menu_QueryEvent_Click()QueryEvent.Show 1显示查询考勤记录窗体End SubPrivate Sub menu_QueryFixed_Click()Q

27、ueryFixed.Show 1显示查询固定资产窗体End SubPrivate Sub menu_QueryPay_Click()QueryPay.Show 1显示查询月工资窗体End SubPrivate Sub PayMan_Click()sb1.Panels(1).Text = 工资管理 鼠标在 工资管理 菜单使状态条的提示文字显示End Sub5.3工资管理的设计与实现工资管理界面 :工资计算代码 :Private Sub Command1_Click()Dim i As LongDim USER_ID As StringDim USER_NAME As StringDim USER

28、_PART As StringDim USER_ROLE As StringDim MONEY As StringCommDlg.Flags= cdlOFNOverwritePrompt设置保存对话框有覆盖提示CommDlg.Filter= 文本文件 |*.txt设置保存对话框的显示文件类型CommDlg.ShowSave 显示保存对话框If CommDlg.FileName Then 如果用户点确定按钮就写导出文件Open CommDlg.FileName For Output As #1Print #1, 员工 ID 号 ; Tab; 员工姓名 ; Tab; 所属部门 ; Tab; 职位名

29、称 ; Tab; 本月工资 For i = 1 To MSFlexGrid1.Rows - 1从 MSFlexGrid1中循环把记录信息写进文件中MSFlexGrid1.Row = iMSFlexGrid1.Col = 0USER_ID = MSFlexGrid1.TextMSFlexGrid1.Row = iMSFlexGrid1.Col = 1USER_NAME = MSFlexGrid1.TextMSFlexGrid1.Row = iMSFlexGrid1.Col = 2USER_PART = MSFlexGrid1.TextMSFlexGrid1.Row = iMSFlexGrid1.

30、Col = 3USER_ROLE = MSFlexGrid1.TextMSFlexGrid1.Row = iMSFlexGrid1.Col = 4MONEY = MSFlexGrid1.TextPrint #1, USER_ID; Tab; USER_NAME; Tab; USER_PART; Tab;USER_ROLE; Tab; MONEYNext iClose #1关闭文件End IfEnd SubPrivate Sub Command2_Click()Unload Me返回主窗体End SubPrivate Sub Form_Load()Dim sql As StringDim rs

31、As New ADODB.RecordsetDim work As New ADODB.Recordset考勤记录结果集Dim i As Integer Dim userid As String Dim MONEY As Long循环变量Dim temp As Long考勤影响到的工资Dim resultcount As Long 返回记录数Me.Left= (Screen.Width - Me.ScaleWidth)2窗体居中显示Me.Top = (Screen.Height - Me.ScaleHeight)2If DbHandle.DbConnectionThen选定用户表中所有记录以及

32、关联的角色和部门记录sql=SELECTUSER_ID,USER_NAME,PART_NAME,ROLE_NAME,ROLE_MONEYFROMTBL_USER,TBL_ROLE,TBL_PARTWHEREUSER_PART=PART_IDANDUSER_ROLE=ROLE_IDrs.CursorType = adOpenDynamicrs.LockType = adLockOptimisticrs.Open sql, DbFinanceresultcount = DbHandle.resultcount(rs)Cls设置电子表格的列头MSFlexGrid1.Cols = 5MSFlexGri

33、d1.Rows = resultcount + 1MSFlexGrid1.Row = 0MSFlexGrid1.Col = 0MSFlexGrid1.Text = 员工 ID 号 MSFlexGrid1.Col = 1MSFlexGrid1.Text = 员工姓名 MSFlexGrid1.Col = 2MSFlexGrid1.Text = 所属部门 MSFlexGrid1.Col = 3MSFlexGrid1.Text = 职位名称 MSFlexGrid1.Col = 4MSFlexGrid1.Text = 本月工资 For i = 0 To 4MSFlexGrid1.ColWidth(i)=

34、 MSFlexGrid1.Width5 - 5平均分配每个列的宽Next iFor i = 1 To resultcount循环将职工信息和基本工资放入电子表格userid = rs(USER_ID)MSFlexGrid1.Row = iMSFlexGrid1.Col = 0MSFlexGrid1.Text = useridMSFlexGrid1.Col = 1MSFlexGrid1.Text = rs(USER_NAME)MSFlexGrid1.Col = 2MSFlexGrid1.Text = rs(PART_NAME)MSFlexGrid1.Col = 3MSFlexGrid1.Text

35、 = rs(ROLE_NAME)MONEY = rs(ROLE_MONEY)MSFlexGrid1.Col = 4MSFlexGrid1.Text = Str(MONEY)rs.MoveNextNext irs.CloseSet rs = NothingFor i = 1 To resultcount通过考勤表计算考勤信息影响的工资MSFlexGrid1.Row = iMSFlexGrid1.Col = 0userid = MSFlexGrid1.TextMSFlexGrid1.Col = 4MONEY = Val(MSFlexGrid1.Text)sql = SELECTWORK_TIME,

36、TYPE_MARK,TYPE_IDFROMTBL_WORK,TBL_TYPEWHEREWORK_TYPE=TYPE_IDANDWORK_ID=& userid & work.CursorType = adOpenDynamicwork.LockType = adLockOptimisticwork.Open sql, DbFinance选取每一行职工ID 的本月考勤信息Do While work.EOF = FalseSelect Case work(TYPE_ID)通过考勤类别计算考勤时间和工资关系Case 1temp = work(WORK_TIME) * 1Case 2temp = wo

37、rk(WORK_TIME) * 2Case 3temp = work(WORK_TIME) * 10Case 4temp = work(WORK_TIME) * 20End SelectIf work(TYPE_MARK) Then当考勤类别是加班出差等要向基本工资中加工资MONEY = MONEY + tempElseMONEY= MONEY- temp当考勤类别是迟到早退等要向基本工资中减工资End Ifwork.MoveNextLoopMSFlexGrid1.Text = Str(MONEY)重新设置每个人的月工资work.CloseNext iDbHandle.DbCloseElse打

38、开数据库失败错误退出MsgBox 数据库错误！, vbExclamationDbHandle.DbCloseEndEnd IfEnd Sub5.4 固定资产管理的设计与实现添加固定资产代码 :Private Sub Command1_Click()Dim sql As StringDim rs As New ADODB.RecordsetIf Text1.Text = Then 判断资产编号输入框不为空 MsgBox 资产编号不能为空！ , vbCriticalText1.SetFocusExit SubEnd IfIf Text2.Text = Then 判断资产名称输入框不为空 MsgBo

39、x 资产名称不能为空！ , vbCriticalText2.SetFocusExit SubEnd IfIf Text3.Text = Then 判断资产数目输入框不为空 MsgBox 资产数目不能为空！ , vbCriticalText3.SetFocusExit SubEnd IfIf Text4.Text = Then 判断资产单价输入框不为空 MsgBox 资产单价不能为空！ , vbCriticalText4.SetFocusExit SubEnd IfIf Text7.Text = Then 判断经手人 ID 输入框不为空 MsgBox 经手人 ID 不能为空！ , vbCriti

40、calText7.SetFocusExit SubEnd IfIf Text5.Text = Then判断联系电话输入框不为空MsgBox 联系电话不能为空！ , vbCriticalText5.SetFocusExit SubEnd IfIf Text6.Text = Then判断资产说明输入框不为空MsgBox 资产说明不能为空！ , vbCriticalText6.SetFocusExit SubEnd IfIf Not IsNumeric(Text3.Text) Then判断资产数目输入框必须是数字MsgBox 资产数目必须是数字！ , vbCriticalText3.SetFocus

41、Exit SubEnd IfIf Not IsNumeric(Text4.Text) Then判断资产单价输入框是数字MsgBox 资产单价必须是数字！ , vbCriticalText4.SetFocusExit SubEnd IfIf PartCombo.ListIndex = -1 Then确保部门被选择MsgBox 部门必须选择！ , vbCriticalPartCombo.SetFocusExit SubEnd IfIf DbHandle.DbConnection Then打开数据库连接准备添加固定资产记录sql = TBL_FIXED 在固定资产表中搜索 ,判断是否已经存在和欲添加固定rs.CursorType = adOpenDynamic资产