VB工资管理信息系统概要

VB工资管理信息系统

1．2 系统简介

本毕业设计服务于企事业单位财务部门,负责管理本部门员工的财务工资信息. 主要由以下几大功能模块构成: 一:数据录入(录入部门,录固定向)

二:数据整理(改固定项,改流动项,人员管理,部门管理) 三:打印报表(打工资条,打工资表,打汇总表,提款方案)

四:系统维护(系统初始,系统备份,数据恢复,权限管理,设置背景) 五:退出系统

...................................

第二章 系统的分析

2．1 系统开发的目标和思想

本毕业设计开发目标是服务于企事业单位财务管理人员,方便工作人员,收集员工工资信息,发布工资发放信息,对本单位部门员工工资分类管理等. 同时力求做到界面人性化,功能齐全,数据存储安全.

2．2 系统的可行性分析

技术上:本毕业设计采用visual basic 6.0与微软的access作为数据库,技术上开发难度一般.

经济上:本毕业设计服务于企事业单位财务管理人员,提高了工作人员办事效率,节省了开支.所以具有经济上的可行性.

社会上:本毕业设计同时也方便了企业管理人员者,以及员工.所以具有社会可行性.

第三章 系统的设计

3．1 系统的功能结构设计 3．2 系统的数据库设计 1:部门表: 2:工资信息表:

3:用户登陆表:

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

Private Sub Command2_Click() End End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path + \ Data1.RecordSource = \ Data1.Refresh End Sub

Private Sub Text1_Change()

If Len(Text1.Text) >= 2 Then

Data1.Recordset.FindFirst \ 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

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

End If End Sub

本文来源：https://www.bwwdw.com/article/w45f.html