VB工资管理系统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.com

致谢…………………………………………………………………………………47
参考文献………………………………………………… think58好，好think58 [资料来源：www.THINK58.com]

摘  要 内容来自think58

工资管理系统用计算机管理企事业单位员工工资发放的一种计算机应用技术的创新,在计算机还未普及之前企事业单位的员工工资发放都是由财务管理人员来承担操作的.现在一般的企业都采用了信息化管理的方式即采用计算机作为工具的电子信息化的员工工资计算发放进行更有效的财务管理。工资管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。
    经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。
关键字:物资管理信息系统,MIS,visual basic ,数据库 copyright think58

[资料来源：THINK58.com]

第一章 引言
1．1 课题背景
工资管理系统用计算机管理企事业单位员工工资发放的一种计算机应用技术的创新,在计算机还未普及之前企事业单位的员工工资发放都是由财务管理人员来承担操作的.现在一般的企业都采用了信息化管理的方式即采用计算机作为工具的电子信息化的员工工资计算发放进行更有效的财务管理。工资管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。 [资料来源：http://think58.com]

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

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

3．2  系统的数据库设计 内容来自think58 [来源：http://think58.com]

1:部门表: think58好，好think58

2:工资信息表:
  think58.com [资料来源：http://THINK58.com]

3:用户登陆表:
  [资料来源：www.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 copyright think58 [资料来源：www.THINK58.com]

Private Sub Command2_Click()
  End
End Sub

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

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

Private Sub Form_Load()
  Data1.DatabaseName = App.Path + "\gzglxt.mdb"
  Data1.RecordSource = "mmk"
  Data1.Refresh
End Sub think58好，好think58

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

think58.com

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

[资料来源：www.THINK58.com]

Private Sub Text3_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
     Command1.SetFocus
  End If
End Sub think58.com [资料来源：www.THINK58.com]

2.数据恢复界面:
 
数据恢复代码设计:
Private Sub Command1_Click()
Data1.Recordset.MoveFirst
Call disp4
End Sub
Sub disp4()
   Text1.Text = Data1.Recordset.Fields(0)
   Text2.Text = Data1.Recordset.Fields(1)
   Text3.Text = Data1.Recordset.Fields(2)
End Sub

Private Sub Command10_Click()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = False
Command1.SetFocus
Call disp4
End Sub 本文来自think58

[资料来源：www.THINK58.com]

Private Sub Command2_Click()
   If Data1.Recordset.BOF = False Then Data1.Recordset.MovePrevious
   If Data1.Recordset.BOF = True Then Data1.Recordset.MoveNext
   Call disp4
End Sub

think58

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

Private Sub Command3_Click()
  If Data1.Recordset.EOF = False Then Data1.Recordset.MoveNext
  If Data1.Recordset.EOF = True Then Data1.Recordset.MovePrevious
  Call disp4
End Sub

Private Sub Command4_Click()
Data1.Recordset.MoveLast
Call disp4
End Sub think58 [版权所有：http://think58.com]

Private Sub Command5_Click()
  dm = InputBox("请输入您要查找的操作员的代码")
  Data1.Recordset.FindFirst "czydm=" + "'" + dm + "'"
  If Data1.Recordset.NoMatch = True Then
     MsgBox "查无此操作员"
     Exit Sub
  Else
     Call disp4
  End If
End Sub

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

[资料来源：www.THINK58.com]

参 考 文 献 [版权所有：http://think58.com]

1陈明 . 软件工程学教程 .科技出版社，2002
2 萨师煊，王珊 . 数据库系统概论 . 第三版 . 高等教育出版社，2000
3 飞思科技产品研发中心 . visual basic 6.0数据库应用开发 .电子工业出版社，2003
4 飞思科技产品研发中心 . visual basic 6.0开发者手册 . 电子工业出版社, 2002
5 申旻 . visual basic 6.0高手突破 . 清华大学出版社，2002，302 think58好，好think58 [来源：http://www.think58.com]

  [资料来源：THINK58.com]