工资管理系统vb+access

摘  要…………………………………………………………………………1
Abstract………………………………………………………………………2
第一章  引言…………………………………………………………………4
1．1  课题背景……………………………………………………………………4
1．2  系统简介……………………………………………………………………5
1. 3  开发工具简介
第二章 系统的分析……………………………………………………………6
2．1  系统开发的目标和思想……………………………………………………6
2．2  系统的可行性分析…………………………………………………………8
第三章  系统的设计……………………………………………………………18
3．1  系统的功能结构设计………………………………………………………18
3．2  系统的数据库设计
3．3  界面设计与代码设计……………………………………………………………………23
…………………………………………………………24
结束语………………………………………………………………………………46 本文来自think58

致谢…………………………………………………………………………………47
参考文献…………………………………………………

[资料来源：http://think58.com]

摘  要

copyright think58

[版权所有：http://think58.com]

[资料来源：THINK58.com]

工资管理系统用计算机管理企事业单位员工工资发放的一种计算机应用技术的创新,在计算机还未

普及之前企事业单位的员工工资发放都是由财务管理人员来承担操作的.现在一般的企业都采用了

think58.com [资料来源：http://www.THINK58.com]

信息化管理的方式即采用计算机作为工具的电子信息化的员工工资计算发放进行更有效的财务管 [资料来源：www.THINK58.com]

理。工资管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前 think58

端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。 [版权所有：http://think58.com]

而对于后者则要求应用程序功能完备,易使用等特点。
    经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的

内容来自think58 [资料来源：http://www.THINK58.com]

[资料来源：http://THINK58.com]

开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统 copyright think58

[资料来源：http://THINK58.com]

应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。
关键字:物资管理信息系统,MIS,visual basic ,数据库

[资料来源：THINK58.com]

1．2 系统简介
本系统服务于企事业单位财务部门,负责管理本部门员工的财务工资信息.
主要由以下几大功能模块构成:
一:数据录入(录入部门,录固定向)
二:数据整理(改固定项,改流动项,人员管理,部门管理)
三:打印报表(打工资条,打工资表,打汇总表,提款方案)
四:系统维护(系统初始,系统备份,数据恢复,权限管理,设置背景)
五:退出系统

1. 3  开发工具简介 本文来自think58 [来源：http://www.think58.com]

Visual Basic 6.0是Micrsoft公司出品的开发工具，Visual Basic是一种可视化的，面向对象的 think58.com [资料来源：http://www.THINK58.com]

Windows开发语言，它具有易用，通用和开发效率高的特点。随着微软对它不断地改进以及计算机 内容来自think58

[资料来源：http://THINK58.com]

本身性能的提高，使得Visual Basic越来越适合一般的应用程序开发。正如Bill Gate所说，世界 think58

上绝大多数的Windows应用程序是用Visual Basic编写的。在众多的开发工具中，我们为什么要选

本文来自think58 [版权所有：http://think58.com]

[资料来源：THINK58.com]

择Visual Basic6.0呢？因为VB具有众多其它开发工具所没有的优点！具体介绍如下：
    开发的高效
 语言的高效
 编译的高效
 执行的高效
 维护的高效
基于以上理由，我们毫不忧郁的选择了VB6.0做为我们的开发工具！！

1.1.1 主要的控件及其基本属性，事件简介
 命令按钮类的控件：
1) Caption属性：用来显示在控件上的标题。
2) Enable属性：控制控件的激活状态灰色或可用。
3) Appearance属性：值为1时,则以3D效果显示该控件,0则不然。
4) Backcolor属性：用来改变在按钮上显示图像的背景色。
5) Cancel属性：该属性决定按钮是否为一个”取消”按钮。
6) Default属性:决定哪一个命令按钮控件是窗体的缺省命令按钮.
7) Font属性:控制各种文字字体类型.
8) Left,top,height,width属性:设定控件的位置与大小.
9) Style,picture属性:决定按钮的显示方式是否为图像形式出现.
10) Visible属性:确定控件运行时是否为可见.
11) Index属性:当控件为一控件数组时,此属性值为该控件在数组的下标值.
12) DownPicture属性：设置/返回一个对图片的引用，该图片在按钮被单击处于压下状态时 think58.com

[来源：http://www.think58.com]

显示。
13) DisabledPicture属性：设置/返回一个对图片的引用，该图片在控件无效时显示在控件

[资料来源：http://www.THINK58.com]

中。
14) MaskColor属性：设置/返回一个在按钮的图片中作为“掩码“的的颜色
15) Picture属性：设置返回commandButton控件中要显示的图片。
 命令按钮类的事件：
1） 单击事件――Click事件
（1） 触发与适用
此事件是在一个命令按钮对象上按下然后释放一个鼠标按钮时发生。命令按钮的Click事件仅对当 copyright think58 [资料来源：THINK58.com]

单击鼠标时发生。
（2） 事件处理过程
按钮单击事件的处理过程为：
 Private Sub object-Click（Index As Integer）
其中Object为引发该事件的对象名称。如果是命令按钮的控件是数组，则需要使用Index参数标识

[版权所有：http://think58.com]

该控件。

[资料来源：THINK58.com]

2） 获得焦点――GotFocus事件
（1） 触发与适用 
当命令按钮获得焦点产生该事件，获得焦点可以通过诸如Tab切换或单击对象之类的用户动作，或 think58.com

在代码中用SetFocus方法改变焦点来实现。
（2） 事件处理过程
命令按钮GotFoucs事件处理过程为：
Private Sub Object-GotFocus（Index As Integer）
3） LostFocus事件：当一个对象失去焦点时发生
4） KeyDown事件：当命令按钮具有焦点时按下一个键时发生
5） KeyUp事件：当命令按钮具有焦点时释放一个键时发生。
6） KeyPress事件：当用户按下或松开一个ANSI键时发生。
7） MouseDown事件：当在命令按钮上按下鼠标按钮时发生。
8） MouseMove事件：当命令按钮上移动鼠标时发生。
9） MouseUp事件：当在命令按钮上释放鼠标按钮时发生。 think58 [资料来源：http://www.THINK58.com]

   

[资料来源：http://think58.com]

 标签框类的控件类的控件：
1) Caption属性：在应用程序界面上加入说明。
2) Autosize属性：决定控件是否自动改变大小以显示其全部内容。
3) Backstyle属性：用以指示标签是否透明.
4) Bordstyle属性:用以设定控件是否有边框。
 文本框类的控件：
1) Text属性：通过像text属性赋值的方法来改变该属性的值。
2) Maxlength属性：该属性设定在文本框控件中能够输入的最大字符数。
3) Multline属性：该属性设定text字符串中是否接受换行符。
4) Scrollbars属性：该属性决定是否为文本框加滚动条。
5) Passwordchar属性：该属性设定输入文本的特殊显示字符,在设计密码程序时非常有用。
6) Change事件属性：文本框的内容发生改变时,相应的控件之间发生相应的改变,具有即时 think58好，好think58 [资料来源：http://think58.com]

性。
7) Keypress：事件由用户在文本框控件中按任意键触发。
8) Alignment属性：设定控件中的文本对其方式
9) Appearance属性：设定一个对象在运行时是否可以3D效果显示。
10) BackColor属性：设置返回背景色
11) BorderStyle属性：设置对象的边框样式
12) DataField属性：设定数据使用者将被绑定到的字段名
13) DataFormat属性：设定DataFormat对象，用于数据绑定
14) DataMember属性：从数据供应程序提供的几个数据成员中返回/设定一个特定的数据成员
15) DataSource属性：设定控件绑定的一个数据源
16) DragIcon属性：设定图标，它将在拖放操作中作为指针显示
17) DragMode模式：设定一个值，确定在拖放操作中所用方式
18) Enabled属性：设置/返回运行时TextBox是否相应用户事件
19) Font属性：设置/返回字体属性
20) ForeColor属性：设置/返回文本的前景色
21) Height属性：设置/返回TextBox的高度
22) IMEMode属性：设置/返回数值用来确定输入方法编辑器的状态
23) Index属性：设置/返回唯一的标识控件数组中该控件的编号
24) Left属性：设置/返回TextBox控件的水平位置 think58好，好think58

[资料来源：http://THINK58.com]

25) Locked属性：设置/返回TextBox中文本是否可编辑
26) LinkItem属性：设置/返回DDE与另一个应用程序会话时，传给接受端的数据
27) MaxLength属性：设置/返回一个值，指定在TextBox控件中能够输入的字符最大值
28) MouseIcon属性：设置/返回自定义鼠标的图标
29) Top属性：设置/返回TextBox控件的垂直位置
30) Tag属性：存储过程所需的附加数据
 文本框类的事件：
1） Change事件：当改变文本框内容时发生
2） Click事件：鼠标单击控件时发生
3） DblClick事件：用鼠标左键双击控件时发生
4） DragDrop事件：在一个完整的拖放动作完成或使用Drag方法，并将其Action参数设置为2 copyright think58

[版权所有：http://think58.com]

时发生
5） DragOver事件：在拖放操作正在进行时发生
6） GotFocus事件：当一个命令按钮获得焦点时发生
7） LinkClose事件：当一个DDE对话结束时发生
8） LinkError事件：当一个DDE对话框过程中出现错误时，该事件发生
9） KeyDown事件：当命令按钮具有焦点时按下一个键时发生
10） Validate事件：在焦点转换到另一个控件之前发生，此时该控件的Causes Validation think58 [资料来源：www.THINK58.com]

属性值设置为True

think58

[资料来源：http://THINK58.com]

[来源：http://think58.com]

第二章 系统的分析
2．1 系统开发的目标和思想
本系统开发目标是服务于企事业单位财务管理人员,方便工作人员,收集员工工资信息,发布工资发

放信息,对本单位部门员工工资分类管理等.
同时力求做到界面人性化,功能齐全,数据存储安全. think58好，好think58

2．2 系统的可行性分析 [资料来源：http://THINK58.com]

技术上:本系统采用visual basic 6.0与微软的access作为数据库,技术上开发难度一般.
经济上:本系统服务于企事业单位财务管理人员,提高了工作人员办事效率,节省了开支.所以具有

[资料来源：THINK58.com]

经济上的可行性.
社会上:本系统同时也方便了企业管理人员者,以及员工.所以具有社会可行性. 本文来自think58 [资料来源：www.THINK58.com]

第三章 系统的设计 [资料来源：http://www.THINK58.com]

3．1  系统的功能结构设计 [资料来源：www.THINK58.com]

3．2  系统的数据库设计

[资料来源：http://www.THINK58.com]

1:部门表: copyright think58 [资料来源：http://www.THINK58.com]

2:工资信息表:
 
3:用户登陆表:
 

think58.com

[资料来源：http://think58.com]

3．3 界面设计与代码设计
1:登陆界面设计
 
登陆界面代码设计:
Private Sub Command1_Click()
  If Trim(Text3.Text) = Data1.Recordset.Fields(2) Then
    
        czy = Data1.Recordset.Fields(1)
        bz = Text1.Text
        Unload Me
        gzglxt.Show
  Else
     MsgBox "密码不符，请核对后再输入"
     Text3.Text = ""
     Text3.SetFocus
  End If
End Sub [资料来源：http://www.THINK58.com]

Private Sub Command2_Click()
  End
End Sub think58好，好think58 [资料来源：http://think58.com]

Private Sub Form_Load()
  Data1.DatabaseName = App.Path + "\gzglxt.mdb"
  Data1.RecordSource = "mmk"
  Data1.Refresh
End Sub 内容来自think58 [来源：http://think58.com]

Private Sub Text1_Change()
  If Len(Text1.Text) >= 2 Then
     Data1.Recordset.FindFirst "czydm=" + "'" + Text1.Text + "'"
     If Data1.Recordset.NoMatch = True Then
        MsgBox "操作员代码不存在，请核对后再输入!"
        Text1.Text = ""
        Text1.SetFocus
     Else
        Text2.Text = Data1.Recordset.Fields(1)
        Text3.SetFocus
     End If
  End If
End Sub [来源：http://think58.com]

Private Sub Text3_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
     Command1.SetFocus
  End If
End Sub

2.数据恢复界面:
[资料来源：THINK58.com]