公司财务管理系统-毕业论文.docx

本科毕业论文
( 2017 届 )

题 目： 公司财务管理系统

学位论文原创性声明

兹呈交的学位论文，是本人在指导老师指导下独立完成的研究成果。本人在论文写作中参考的其他个人或集体的研究成果，均在文中以明确方式标明。本人依法享有和承担由此论文而产生的权利和责任。

声明人（签名）：
年 月 日

公司财务管理系统

……………………………………摘要.…………………………………………
《财务管理系统》顾名思义，是一个公司财务管理的软件，在很久以前，一般对财务的管理都是通过账本的记录，这是古代人使用的方法，而对于现在二十一世纪来说这肯定满足不了现代人的需求了，在我们人类发明了计算机之后，我们发现可以通过用计算机来记录数据，这在当时是比较麻烦的，后来我们发现我们可以通过计算机语言编辑一个软件，让这个软件来完成我们想要的数据记录。通过这个软件我们可以很容易的对公司的财务进行比较好的管理。因此我自己设计了一个比较简单的软件，用来作为公司的管理系统，此系统主要是对该公司的每位员工每个月的工资情况进行统计，此系统只有管理员可以登录，管理员登录账号后，就可以对该公司员工的工资情况进行增删改查。此系统实现了公司财务管理的基本功能，可以很好的为公司的财务管理工作，加强了公司的管理，并节约大量的人力物力。

…………………………………………英文摘要……………………………………
"Financial management system" as the name implies, is a financial management software, in a long time ago, the general financial management is through the record books, this is the ancients used method, but for now the 21st century it definitely can't satisfy the needs of modern people, after we human beings invented the computer, we can found that by using the computer to record data, this is the trouble at that time, then we found we can by editing a software, computer language to do we want to make the software of data records. With this software, we can easily manage the company's finances well. So I devised a simple software, used as the company's management system, this system is mainly for the company each employee each month's salary situation, only the administrator can log in the system, the administrator login account after, can the salary of employees of the company to add and delete. This system realized the basic function of financial management, can very good work for the company's financial management, to strengthen the management of the company, and save a lot of manpower material resources.

……………………………………前言…………………………………………

一、Visual Basic是什么？
Visual Basic,简称VB，是Microsoft公司推出的一种Windows应用程序开发工具。是当今世界上使用最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程方法。无论是开发功能强大、性能可靠的商务软件，还是编写能处理实际问题的实用小程序，VB都是最快速、最简便的方法。
何谓 Visual Basic？“Visual”指的是采用可视化的开发图形用户界面（GUI）的方法，一般不需要编写大量代码去描述界面元素的外观和位置，而只要把需要的控件拖放到屏幕上的相应位置即可；“Basic”指的是BASIC语言，因为VB是在原有的BASIC语言的基础上发展起来的，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。
VB提供了学习版、专业版和企业版，用以满足不同的开发需要。学习版使编程人员很容易地开发Windows和Windows NT的应用程序；专业版为专业编程人员提供了功能完备的开发工具；企业版允许专业人员以小组的形式来创建强健的分布式应用程序。
二、能用 Visual Basic 干什么呢？
也许应该问不能用它干什么更恰当一些。答案是：没有什么不能干的！
Visual Basic 所做的很多事情一点也不简单。它是一种强大的语言，即您所能想到的编程任务，它基本都能完成。从设计新型的用户界面到利用其它应用程序的对象；从处理文字图象到使用数据库；从开发个人或小组使用的小工具，到大型企业应用系统，甚至通过 Internet 的遍及全球分布式应用程序，都可在 Visual Basic 提供的工具中各取所需。
VB是微软公司的一种通用程序设计语言，包含在Microsoft Excel、Microsoft Access等众多Windows应用软件种的VBA都使用VB语言，以供用户二次开发；目前制作网页使用较多的VBScript脚本语言也是VB的子集。
利用 VB的数据访问特性，用户可以对包括Microsoft SQL Server和其他企业数据库在内的大部分数据库格式创建数据库和前端应用程序，以及可调整的服务器端部件。利用ActiveX(TM)技术，VB可使用如Microsoft Word、Microsoft Excel及其他Windows应用程序提供的功能，甚至可直接使用VB专业版和企业版创建的应用程序对象。
三、 VB语言的主要特点
1. 可视化的设计平台
传统程序设计语言编程时，需要通过编程计算来设计程序界面，在设计过程中看不到程序的实际显示效果，必须在运行程序的时候才能观察。如果对程序的界面不满意，还要回到程序中去修改，这一过程常常需要反复多次，大大影响了编程的效率。VB提供的可视化的设计平台，把Windows界面设计的复杂性“封装”起来。程序员不必再为界面的设计而编写大量的程序代码，只需按设计的要求，用系统提供的工具在屏幕上“画出”各种对象，VB自动产生界面设计代码，程序员所需要编写的只是实现程序功能的那部分代码，从而大大提高了编程的效率
2. 面向对象的设计方法
VB采用面向对象的编程方法（Object Oriented Programming），把程序和数据封装起来作为一个对象，并为每个对象赋予相应的属性。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具“画”在界面上，由VB自动生成对象的程序代码并封装起来。
3. 事件驱动的编程机制
VB通过事件来执行对象的操作。在设计应用程序的时候，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或由事件驱动程序调用通用过程来执行指定的操作。
4. 结构化的设计语言
VB是在结构化的BASIC语言基础上发展起来的，加上了面向对象的设计方法，因此是更出色的结构化程序设计语言
5. 充分利用Windows资源
VB提供的动态数据交换（Dynamic Data Exchange）编程技术，可以在应用中实现与其它Windows应用程序建立动态数据库交换和在不同的应用程序之间进行通信的功能。
6. 开放的数据库功能与网络支持
VB具有很强的数据库管理功能，不仅可以管理MS Access 格式的数据库，还能访问其它外部数据库，如FoxPro、Paradox等格式的数据库。另外，VB还提供了开放式数据连接（Open DataBase Connectivity）功能，可以通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Sever、Oracle等。

目 录
一 绪论...........................................................
1.1 课题简介...................................................
1.2 开发的意义.................................................
二 开发环境与开发工具的介绍........................................
2.1 开发环境...................................................
2.2 开发工具的简介.............................................
三 系统设计.......................................................
3.1 概要设计..................................................
3.1.1 概要设计阶段的主要任务..................................
3.1.2 概要设计的过程..........................................
3.1.3 概要设计的原则..........................................
3.1.4 系统功能分析............................................
四 数据库设计........................................................
4.1 数据库Access简介.............................................
4.2 数据库需求分析...............................................
4.3 表的详细结构说明.............................................
4.4 测试用例.....................................................
五 详细设计.........................................................
5.1 系统登录模块的设计与实现....................................
5.2 主界面的设计与实现..........................................
5.3 工资管理系统设计与实现......................................
5.4 用户管理的设计与实现........................................
六 系统使用与说明..................................................
6.1 使用说明....................................................
6.2 运行环境....................................................

结束语...............................................................
致谢................................................................
参考文献...........................................................

第一章 绪论
1.1 课题简介
财务管理系统是每一个单位管理财务收入和支出的不可缺少的一个管理信息系统,它的内容对企业财务计划，财务控制，财务监督，财务运用等方面都起着巨大的作用。如何发挥财务管理的作用关系到一个企业的命脉。财务管理的工作对象是资金流动，只要有资金流动就离不开财务管理。一个企业的生产经营活动无外乎供、产、销三个环节，这个过程始终贯穿着资金运动，只是在各个环 节上资金的表现形态不同罢了。在供应阶段资金由货币形态转变为材料形态，生产阶段由材 料形态变为产品形态，在销售阶段由产品形态又回到货币形态。从这里可以看出，财务管理 贯穿于企业的各项工作之中，财务工作与其它管理工作是密不可分的。〖BP)〗从企业目前 的实际工 作来看，普遍存在两个误区：一种认为财务管理就是管钱，只要管住钱就可万事大吉，重资 金，轻核算。上面谈到，资金在生产经营过程中分别有着不同的表现形式，“钱”只是这个 过程的起点和终点，大量的管理工作都蕴含在过程之中。因此，只有加强内部核算，才能真 正做到节支降耗，否则，“钱”是管不住的。另一种认为财务管理就是管财务部门，把财务 部门与其他管理部门割裂开来，财务管理的触角不能延伸到各项管理工作之中。财务管理就 成为无本之木，其作用得不到发挥，形成经营和生产“两张皮”。 因此，开发这样一套管理软件成为很有必要的事情，对于我们即将计算机专业毕业的学员来说，也是一次将计算机应用于现实管理的一次很有意义的实践活动。
1.2 开发的意义
计算机是一种能够按照指令对各种数据和信息进行自动加工与处理的电子设备。计算机又称电脑，是电子计算机的简称。电子计算机诞生于20世纪中叶，是人类最伟大的技术发明之一。它的出现和广泛应用把人类从繁重的脑力劳动中解放出来，在社会各个领域中提高了信息的收集、处理和传播的速度与准确性，直接加快了人类向信息化社会迈进的步伐，是科学技术发展史上的里程碑。计算机作为信息时代的主要载体和工具，正担负着越来越重要的作用，作为课程，计算机在各级各类学校设置成为必需，而且由于计算机教育贴近现实，有着其他课程无可比拟的可操作性、实用性、实效性，作为素质教育的一环，在素质教育中占据了极其重要的地位。
计算机已经成为我们学习和工作的得力助手，更是我们生活中必不可少的一部分，使用其可方便的管理企事业财务。今天，计算机正在各行各业发挥着巨大的作用，它以其快速准确性弥补人类的先天不足，能够让计算机参与人们日常的财务管理事业，是一种时代发展的必然要求，也是一个社会国家进步的体现。况且现在建行已经建起了个人网上银行，本系统为个人理财系统的到来做了先期工作，比如计算机的财务管理模式的建立。

第二章 开发环境与开发工具的介绍
2.1 开发环境
软件环境
操作系统 Microsoft WindowsXP简体中文专业版＋SP1
办公软件 Microsoft Office 2003
软件系统： 
Visual basic 6.0企业中文版、Access数据库（2010）。
2.2 开发工具简介
Visual Basic是一种由 微软公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。这是一种可用于微软自家产品开发的语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
微软公司的Visual basic6.0连接数据库的主要方式以下几种方式：一是：用data控件进行数据库链接 ，二是利用adodc（ADO Data Control)进行数据库链接 。三是: 利用DataEnvironment进行数据库链接.四是利用ADO(ActiveX Data Objects)进行编程 三种数据库访问对象，是Microsoft数据库访问技术的一个主要发展方向，ADO将OLE DB封装在一个数据对象中，使得VB程序中以方便地实现对数据库的访问。

第三章 系统设计
3.1 概要设计
3.1.1 概要设计阶段的主要任务
概要设计的主要任务是把需求分析得到的系统扩展用例图转换为软件结构和数据结构。设计软件结构的具体任务是：将一个复杂系统按功能进行模块划分、建立模块的层次结构及调用关系、确定模块间的接口及人机界面等。数据结构设计包括数据特征的描述、确定数据的结构特性、以及数据库的设计。显然，概要设计建立的是目标系统的逻辑模型，与计算机无关。
3.1.2 概要设计的过程
在概要设计阶段应着重解决实现需求分析的程序模块设计问题。这包括考虑如何把被开发的软件系统划分成若干个模块，并决定各模块的接口，即模块间的相互关系，以及模块之间的传递的信息。
1、管理员模块（管理员的登录，管理员密码的修改，退出系统）
2、工资管理模块（增加工资记录，删除工资记录，修改工资记录，查找工资记录，计算工资，打印工资单）
根据以上分析，该系统考虑将整个系统分解成如下图模块结构图:
修改密码

编辑员工工资单
退出系统
打印工资单
管理员登录

3.1.3 概要设计的原则
在系统的开发过程中，我们要尽量的注意模块的高内聚，低耦合，是系统 的整体性能得以提高，让我们在以后的维护与升级中更加方便。
3.1.4 系统功能分析
本财务管理系统主要是用于企业单位的财务管理。
管理员模块功能：管理员登录，修改密码，对员工的工资进行编辑（基本工 资，奖金，交通补贴，生活补贴，出勤情况），查询员工信息，打印工资单。

3.2 详细设计
3.2.1 详细设计的任务
详细设计包括业务对象设计、功能逻辑设计、数据库设计和界面设计等工作。详细设计是系统实现的依据，需要考虑所有的设计细节。
3.2.2 详细设计的方法
设计好数据库，按照自己的需求，先设计好自己所需要的数据库，用来帮助程序的运行。
修改已建的数据库 
数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。 
实现数据库之间的联系 
数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。

第四章 数据库的设计
4.1 数据库Access的简介
Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点，是 Microsoft Office 的系统程序之一。
Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软OFFICE的一个成员, 在包括专业版和更高版本的office版本里面被单独出售。2012年12月4日,最新的微软Office Access 2016在微软Office 2016里发布，微软Office Access 2013 是前一个版本。
MS ACCESS以它自己的格式将数据存储在基于Access Jet的数据库引擎里。它还可以直接导入或者链接数据(这些数据存储在其他应用程序和数据库)。
软件开发人员和数据架构师可以使用Microsoft Access开发应用软件,“高级用户”可以使用它来构建软件应用程序。和其他办公应用程序一样，ACCESS支持Visual Basic宏语言,它是一个面向对象的编程语言,可以引用各种对象，包括DAO(数据访问对象),ActiveX数据对象,以及许多其他的ActiveX组件。可视对象用于显示表和报表，他们的方法和属性是在VBA编程环境下，VBA代码模块可以声明和调用Windows操作系统函数。
4.2 数据库需求分析
本系统使用的是ODBC数据源，使用程序前，在【控制面板】－【管理工具】－【数据源（ODBC）】中添加本程序目录下的finance.mdb文件作为Microsoft Access数据源，用户数据源名称必须命名为：Finance
4.3 表的详细结构说明
管理员职务表的详细信息

员工信息表的详细信息

员工工资表的详细信息

4.4 测试用例

注：可以登录三次，三次都失败将自动退出程序。
第五章 详细设计
5.1 财务管理系统的登录模块设计与实现
登录界面：

登录源代码分析：
Private Sub Form_Load()//窗体载入时就读取数据库中的数据
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=gzgl.mdb;Persist Security Info=False"
con.CursorLocation = adUseClient
con.Open
mysql = "select * from 管理"
Randomize
Text2.Text = ""
Label3.Caption = "版权所有：WZC"
Set rs = con.Execute(mysql)
For j = 0 To rs.RecordCount - 1
Combo1.AddItem rs.Fields(j).Value
Next
Combo1.Text = rs.Fields(0)
End Sub

Private Sub Command1_Click()//输入的密码与数据库中的密码进行比较
If Text2.Text = rs("密码") Then
Unload Me '关闭登录窗口
Form4.Show '显示主窗口
Else
MsgBox "密码不正确，请重新输入！", 48, "提示"
Text2.SetFocus
Text2.Text = ""
i = i + 1
If i = 3 Then
MsgBox "您无权使用本系统，谢谢！"
End
End If
End If
End Sub
主界面：

主界面源代码分析：
Private Sub Form_Load()
myyear = Year(Now)
mymonth = Month(Now)
myday = Day(Now)
mydate = myyear & "年" & mymonth & "月" & myday & "日"
StatusBar1.Panels(1).Text = "今天是" + mydate
Me.Caption = "工资管理系统 使用者：" + user
Image1.Picture = LoadPicture(App.Path + "\back.jpg")
picw = Image1.Width
pich = Image1.Height
End Sub

员工信息界面：包括相关控件属性的设置

源代码分析：进入这个界面时首先从数据库中读取之前的数据，然后下面的代码可以实现对员工信息的增删改查

Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim mysql As String
Dim a, i, msg, j, m As Integer
Private Sub Command2_Click(Index As Integer)
Select Case Index
Case 0 '第一条记录
rst.MoveFirst
Command2(0).Enabled = False
Command2(1).Enabled = False
Command2(2).Enabled = True
Command2(3).Enabled = True
Case 1 '上一条记录
rst.MovePrevious '上一条
If rst.BOF Then
MsgBox "已经没有上一条记录了", 48, "警告"
rst.MoveFirst
Command2(0).Enabled = False
Command2(1).Enabled = False
Command2(2).Enabled = True
Command2(3).Enabled = True
End If
Command2(2).Enabled = True
Command2(3).Enabled = True
Case 2 '下一条记录
rst.MoveNext
If rst.EOF Then
MsgBox "已经没有最后一条记录了", 48, "警告"
Command2_Click (3)
rst.MoveLast
Command2(2).Enabled = False
Command2(3).Enabled = False
Command2(1).Enabled = True
Command2(0).Enabled = True
End If
Command2(1).Enabled = True
Command2(0).Enabled = True
Case 3 '末尾一条记录
rst.MoveLast
Command2(2).Enabled = False
Command2(3).Enabled = False
Command2(1).Enabled = True
Command2(0).Enabled = True
Case 4
For i = 0 To a - 1
Text1(i).Enabled = True
Next i
Case 5
Form9.Show 1
Case 6
Me.Hide '关闭
Case 7
msg = MsgBox("您确定删除该员工信息吗？", vbOKCancel, "警告")
If msg = 1 Then
rst.Delete
rst.MoveNext
End If
End Select
Text1(0).Text = IIf(IsNull(rst.Fields("姓名").Value), "", rst.Fields("姓名").Value) '填充记录
Text1(1).Text = IIf(IsNull(rst.Fields("政治面貌").Value), "", rst.Fields("政治面貌").Value) '填充记录
Text1(2).Text = IIf(IsNull(rst.Fields("职务").Value), "", rst.Fields("职务").Value) '填充记录
Text1(3).Text = IIf(IsNull(rst.Fields("科室").Value), "", rst.Fields("科室").Value) '填充记录
Text1(4).Text = IIf(IsNull(rst.Fields("生日").Value), "", rst.Fields("生日").Value) '填充记录
Text1(5).Text = IIf(IsNull(rst.Fields("军烈属").Value), "", rst.Fields("军烈属").Value) '填充记录
Text1(6).Text = IIf(IsNull(rst.Fields("出勤天数").Value), "", rst.Fields("出勤天数").Value) '填充记录
Text1(7).Text = IIf(IsNull(rst.Fields("缺勤天数").Value), "", rst.Fields("缺勤天数").Value) '填充记录
Text1(8).Text = IIf(IsNull(rst.Fields("基本工资").Value), "", rst.Fields("基本工资").Value) '填充记录
Text1(9).Text = IIf(IsNull(rst.Fields("奖金").Value), "", rst.Fields("奖金").Value) '填充记录
Text1(10).Text = IIf(IsNull(rst.Fields("津贴").Value), "", rst.Fields("津贴").Value) '填充记录
Text1(11).Text = IIf(IsNull(rst.Fields("洗理").Value), "", rst.Fields("洗理").Value) '填充记录
Text1(12).Text = IIf(IsNull(rst.Fields("书报").Value), "", rst.Fields("书报").Value) '填充记录
Text1(13).Text = IIf(IsNull(rst.Fields("交通").Value), "", rst.Fields("交通").Value) '填充记录
Text1(14).Text = IIf(IsNull(rst.Fields("工资扣").Value), "", rst.Fields("工资扣").Value) '填充记录
Text1(15).Text = Val(Text1(8).Text) + Val(Text1(9).Text) + Val(Text1(10).Text) + Val(Text1(11).Text) + Val(Text1(12).Text) + Val(Text1(13).Text)
Text1(16).Text = Text1(14).Text
Text1(17).Text = Val(Text1(15).Text) - Val(Text1(16).Text)
End Sub
Private Sub Form_Load()
Set con = New ADODB.Connection
a = Text1.Count
con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=gzgl.mdb;persist security info=false"
con.CursorLocation = adUseClient
con.Open
rst.Open "select * from 员工信息,工资总 where 员工信息.ID=工资总.ID", con, adOpenKeyset, adLockOptimistic
If rst.BOF = True Or rst.EOF Then
MsgBox "数据库是空的！"
Else
Text1(0).Text = rst.Fields("姓名").Value
Text1(1).Text = rst.Fields("政治面貌").Value
Text1(2).Text = rst.Fields("职务").Value
Text1(3).Text = rst.Fields("科室").Value
Text1(4).Text = rst.Fields("生日").Value
Text1(5).Text = rst.Fields("军烈属").Value