计算机应用毕业论文工资管理系统.docx
- 文档编号:26935101
- 上传时间:2023-06-24
- 格式:DOCX
- 页数:35
- 大小:125.03KB
计算机应用毕业论文工资管理系统.docx
《计算机应用毕业论文工资管理系统.docx》由会员分享,可在线阅读,更多相关《计算机应用毕业论文工资管理系统.docx(35页珍藏版)》请在冰豆网上搜索。
计算机应用毕业论文工资管理系统
计算机应用毕业论文--工资管理系统
1-------------------------------------------------
(2)
2-------------------------------------------
(2)
3-------------------------------------------
(2)
4-------------------------------------------------(3)
4.1数据库设计说明-------------------------------------------(3)
4.2各功能模块系统图----------------------------------------(3)
4.3各功能说明和界面图-------------------------------------(4)
5-------------------------------------------------(7)
6-----------------------------------------------(30)
7-----------------------------------------------(30)
1
本息系统是“工资管理系统”,其具备浏览、添加、修改、删除、查找、统
计等功能。
每一名职员每月都有工资,管理人员可根据职员的姓名、性别、电话等可以
从本系统后去获取工资信息。
为了更好的方便管理人员查询并统计工资,特设计
本程序。
可以通过该系统对工资信息进行查看和对职员的修改、添加和删除,提
高工作效率。
在此次的毕业设计中所使用的软件是:
MicrosoftVisualbasic6.0。
该工资管理系统主要用于工资的管理,管理员通过此系统保证职员信息的
准确性,此系统的建立和使用有利于管理者和职员更好的了解自己的工资信息,
提高工作效率。
本设计所使用的系统环境为:
Windows98、WindowsXp、wingdows2000
windows98该系统环境是计算机内默认的系统环境
Visualbasic6.0是Microsoft公司推出的编程工具软件,它采用面向对象的程
序设计方法,在原有版本的基础上扩充了一系列新特性并采用了开放式结构。
本软件采用了Visualbasic6.0编写,它主要分为五大部分:
查看或修改信息
部分、添加或删除信息部分、排序部分。
Visualbasic6.0
1)将MicrosoftVisualbasic安装盘放入光驱,双击Vb6.0文件夹下的setup
文件后,出现MicrosoftVisualbasic的安装向导;2)单击“下一步”,出现许可证协议,点击“是”;
3)出现“目标路径”界面,使用系统默认的路径,单击“下一步”;4)依次单击“下一步”按系统提示自动进行安装;
5)最后点击“完成”即可结束安装。
工资管理系统所用到的数据库:
数据库名:
yu
字段名类型宽度
姓名文本型20
性别文本型20
电话文本型20
住址文本型20
职称文本型20
基本工资单精度4
公积金单精度4
奖金单精度4
个人所得税单精度4
实发工资切单精度4
应发工资单精度4
岗位津贴单精度44.2
模块系统图如下:
欢迎使用工资管理系统界面
关于窗体/帮助系统窗口
工资管理系统退出系统统计窗体查询窗体浏览
按按按按职添删职职修职称加除称称改秋为为为为高工职部经程员门工师统发经程统计理师计应统统实发计计发实实实应发发发发应应发
4.3
4.3.1登录界面
当运行工资管理系统程序后,出现如下界面
用户需输入用户名和密码,用户名:
yuzhaosen,密码:
19830625当用户输入贴完毕后单击回车即可,系统对其用户名及密码进行验证,正确将进入系统主
窗口界面;不正确系统会出现提示信息,如密码三次有误界面如下。
如单击”确
定”,将退出本系统。
4.3.2文件浏览窗口
当顺利通过登录窗体后,将出现系统主窗口界面,界面如下:
菜单“文件”中的“浏览”中有全部浏览和逐条浏览。
在逐条浏览中“首记录”、“上一条“、
“下一条”、“尾记录”可浏览数据库内容。
图如下:
全部浏览责是把数据库中所有的纪录全部浏览。
当单击“逐条”按钮时将切换到逐条
浏览的界面。
界面如下:
4.3.3查询窗体
单击主窗体中菜单栏“查询”菜单,弹出查询界面。
图如下
当用户输入相关信息后点“查询”按钮,后数据库将显示用户所要查询的内
容。
(姓名为必填字段)
4.4.4关于窗体
5.1.1登录界面
属性:
Form1的caption=“登录”Picture1:
e:
\study\大猫\59.gifWindowState:
2-Maximized1)标签1
Caption:
欢迎进入工资管理系统
FontNam:
楷体
FontSize:
小二
Backstyle:
0-透明Forecolor:
H80000012
2)标签2
Caption:
帐号
FontNam:
楷体
FontSize:
五号
Backstyle:
0-透明Forecolor:
H80000012
3)标签1
Caption:
口令FontNam:
楷体FontSize:
五号Backstyle:
0-透明Forecolor:
H80000012
4)标签3
Caption:
帐号正确FontName:
楷体FontSize:
四号Backstyle:
0-透明Forecolor:
H000000FF
5)命令按钮1
Caption:
退出FontName:
黑体FontSize:
小五Height:
375
Left:
975
5.1.2浏览窗体form11form11的caption:
浏览
1)标签1
Caption:
姓名FontNam:
宋体FontSize:
小五Height:
195
Left:
240
2)标签2
Caption:
性别FontNam:
宋体FontSize:
小五Height:
195
Left:
240
3)标签3
Caption:
职称
FontNam:
宋体FontSize:
小五Height:
195
Left:
240
4)标签4
Caption:
联系电话FontNam:
宋体FontSize:
小五
Height:
195
Left:
240
5)标签5
Caption:
基本工资FontNam:
宋体FontSize:
小五Height:
195
Left:
3120
6)标签6
Caption:
实发工资FontNam:
宋体FontSize:
小五Height:
195
Left:
3120
7)标签7
Caption:
奖金FontNam:
宋体FontSize:
小五Height:
195
Left:
3120
8)标签8
Caption:
家庭住址FontNam:
宋体FontSize:
小五Height:
195
Left:
3120
9)文本框1
text:
FontNam:
宋体FontSize:
小五Height:
375
Left:
1080
10)文本框2
text:
FontNam:
宋体FontSize:
小五Height:
375
Left:
1080
11)文本框3
text:
FontNam:
宋体FontSize:
小五Height:
375
Left:
1080
12)文本框4
text:
FontNam:
宋体FontSize:
小五Height:
375
Left:
1080
13)文本框5
text:
FontNam:
宋体FontSize:
小五Height:
375
Left:
4200
14)文本框6
text:
FontNam:
宋体FontSize:
小五Height:
375
Left:
4200
15)文本框7
text:
FontNam:
宋体FontSize:
小五Height:
375
Left:
4200
16)文本框8
text:
FontNam:
宋体FontSize:
小五Height:
375
Left:
4200
17)命令按钮1caption:
首条FontNam:
宋体FontSize:
小五Height:
375
Left:
1560
18)命令按钮2caption:
上一条FontNam:
宋体FontSize:
小五Height:
375
Left:
2400
19)命令按钮3caption:
下一条
FontNam:
宋体FontSize:
小五Height:
375
Left:
3240
20)命令按钮4caption:
尾条FontNam:
宋体FontSize:
小五Height:
375
Left:
4080
5.1.3查询窗体
form2的caption:
查询
1)标签1
Caption:
姓名FontNam:
宋体FontSize:
小五Height:
315
Left:
1080
2)标签2
Caption:
电话FontNam:
宋体FontSize:
小五Height:
315
Left:
3000
3)标签3
Caption:
住址FontNam:
宋体FontSize:
小五Height:
315
Left:
3000
4)combo1
Caption:
性别FontNam:
宋体FontSize:
小五Height:
315
Left:
3000
5)combo2
Caption:
职称FontNam:
宋体FontSize:
小五Height:
315
Left:
4920
6)命令按钮1caption:
查询
FontNam:
宋体
FontSize:
小五
Height:
375
Left:
5520
7)datagrid1
FontNam:
宋体
FontSize:
小五
Height:
2415
Left:
240
5.1.4关于
Form10的caption=“关于”
Picture:
e:
\study\大猫\2.jpg
1)标签1
Caption:
工资管理系统
FontNam:
楷体
FontSize:
小三
Alignment:
2-中央
Backstyle:
0-透明
2)标签2
Caption:
作者:
于兆森
FontNam:
楷体
FontSize:
四号
Alignment:
2-中央
Backstyle:
0-透明
3)标签3
Caption:
版权所有XX
FontNam:
楷体
FontSize:
小四
Alignment:
2-中央
Backstyle:
0-透明5.2
5.2.1登录窗体
DimnAsIntegerPrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
Text2.SetFocustext2
IfText1.Text="yuzhaosen"Then
Label4.Visible=True
Else
response=MsgBox("用户名不正确!
",,"错误信息")
Text1.Text=""
Text1.SetFocus
EndIf
EndIf
EndSub
PrivateSubText2_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
IfText2.Text="yuzhaosen"Then
MDIForm1.Show
response=MsgBox("欢迎进入本软件",,"提示信息")
Else
n=n+1
Ifn<3Then
response=MsgBox("密码不正确!
请重新输入!
",,"错误信息")
Text2.Text=""
Text2.SetFocus
Else
response=MsgBox("密码三次有误,请退出!
",,"登陆失败")
Text1.Text=""
Text2.Text=""
Text1.Locked=True
Text2.Locked=True
Label4.Visible=FalseLabel
Command1.Visible=True
EndIf
EndIf
EndIf
EndSub
5.2.2主窗体代码
PrivateSubabout_Click()
Form10.Show
EndSub
PrivateSubadd_Click()
Form3.Show
EndSub
PrivateSuball_Click()
Form12.ShowEndSub
PrivateSubalter_Click()
Form4.Show
EndSub
PrivateSubcounta1_Click()
Form6.Show
EndSub
PrivateSubcounta2_Click()
Form7.Show
EndSub
PrivateSubcounta3_Click()
Form8.Show
EndSub
PrivateSubcounta4_Click()
Form9.Show
EndSub
PrivateSubdele_Click()
Form5.ShowEndSub
PrivateSubexit_Click()
EndEndSub
PrivateSubfind1_Click()
Form2.ShowEndSub
PrivateSubhelp1_Click()
response=MsgBox("软件如有问题请与'mao_wang83@'联系",,"帮助")
Form13.ShowEndSub
PrivateSubMDIForm_Load()
Form1.HideEndSub
PrivateSubone_Click()
Form11.ShowEndSub
5.2.3浏览窗体代码
PrivateSubCommand1_Click()
Data1.Recordset.MoveFirst
EndSub
PrivateSubCommand2_Click()Data1.Recordset.MoveNextIfData1.Recordset.EOFThen
response=MsgBox("已到库尾!
",,"注意")
Data1.Recordset.MoveLastEndIf
EndSub
PrivateSubCommand3_Click()Data1.Recordset.MovePreviousIfData1.Recordset.BOFThen
response=MsgBox("已到库首!
",,"注意")
Data1.Recordset.MoveFirstEndIf
EndSub
PrivateSubCommand4_Click()Data1.Recordset.MoveLastEndSub
PrivateSubCommand5_Click()Form11.Hide
EndSub
PrivateSubForm_Load()Text1.Locked=True
Text2.Locked=True
Text3.Locked=True
Text4.Locked=True
Text5.Locked=True
Text6.Locked=True
Text7.Locked=True
Text8.Locked=True
Data1.Visible=False
Form11.Left=3700
Form11.Top=2300
Form11.Height=5000
Form11.Width=7700
EndSub
5.2.3.2
PrivateSubCommand1_Click()Form12.Hide
EndSub
PrivateSubCommand2_Click()
Form12.Hide
Form11.Show
EndSub
PrivateSubForm_Load()
Form12.Left=3700
Form12.Top=2300
Form12.Height=6500
Form12.Width=10000
EndSub
5.2.4编辑窗体
先建立数据源bysj,然后和数据库连接。
5.2.4.1
DimxxAsInteger
PrivateSubCombo1_Change()
Ifxx=1Then
Text11.Text=Combo1.Text
EndIf
EndSub
PrivateSubCombo2_Change()
Ifxx=1Then
Text12.Text=Combo2.Text
EndIf
EndSub
PrivateSubCommand1_Click()
Data1.Recordset.MoveFirst
EndSub
PrivateSubCommand2_Click()
Data1.Recordset.MovePrevious
IfData1.Recordset.BOFThen
response=MsgBox("已到库首!
",,"注意")
Data1.Recordset.MoveFirst
EndIf
EndSub
PrivateSubCommand3_Click()
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
response=MsgBox("已到库尾!
",,"注意")
Data1.Recordset.MoveLastEndIf
EndSub
PrivateSubCommand4_Click()Data1.Recordset.MoveLastEndSub
PrivateSubCommand5_Click()Data1.Recordset.MoveLastData1.Recordset.MoveNextData1.Recordset.AddNewText3.Text=0
Text5.Text=0
Text6.Text=0
Text7.Text=0
Text8.Text=0
Text9.Text=0
Text10.Text=0
Combo1.Text="男"
Combo2.Text="高级工程师"
Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=TrueCommand7.Enabled=FalseCommand8.Enabled=TrueText1.Locked=FalseText2.Locked=FalseText3.Locked=FalseText4.Locked=FalseText5.Locked=FalseText6.Locked=FalseText7.Locked=FalseText8.Locked=FalseText9.Locked=FalseText10.Locked=FalseCombo1.Locked=FalseCombo2.Locked=FalseText11.Text=Combo1.TextText12.Text=Combo2.Text
xx=1
EndSub
PrivateSubCommand6_Click()xx=0
Data1.Refresh
Data1.Recordset.MoveLastCommand1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand6.Enabled=FalseCommand7.Enabled=TrueCommand8.Enabled=FalseText11.Text=Combo1.TextText12.Text=Combo2.TextText1.Locked=TrueText2.Locked=TrueText3.Locked=TrueText4.Locked=TrueText5.Locked=TrueText6.Locked=TrueText7.Locked=TrueText8.Locked=TrueText9.Locked=TrueText10.Locked=TrueCombo1.Locked=TrueCombo2.Locked=TrueEndSub
PrivateSubCommand7_Click()Data1.Refresh
Form3.Hide
EndSub
PrivateSubCommand8_Click()xx=0
Data1.Recordset.MoveLastData1.Recordset.DeleteData1.Recordset.MoveLastCommand1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=True
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 应用 毕业论文 工资管理 系统