VB毕业设计工资查询系统.docx
- 文档编号:5267655
- 上传时间:2022-12-14
- 格式:DOCX
- 页数:40
- 大小:24.89KB
VB毕业设计工资查询系统.docx
《VB毕业设计工资查询系统.docx》由会员分享,可在线阅读,更多相关《VB毕业设计工资查询系统.docx(40页珍藏版)》请在冰豆网上搜索。
VB毕业设计工资查询系统
目录
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。
2系统需求分析
该工资管理系统主要用于工资的管理,管理员通过此系统保证职员信息的准确性,此系统的建立和使用有利于管理者和职员更好的了解自己的工资信息,提高工作效率。
3系统运行环境
本设计所使用的系统环境为:
Windows98、WindowsXp、wingdows2000
windows98 该系统环境是计算机内默认的系统环境
MicrosoftVisualbasic
Visualbasic6.0是Microsoft公司推出的编程工具软件,它采用面向对象的程序设计方法,在原有版本的基础上扩充了一系列新特性并采用了开放式结构。
本软件采用了Visualbasic6.0编写,它主要分为五大部分:
查看或修改信息部分、添加或删除信息部分、排序部分。
Visualbasic6.0的安装
1)将MicrosoftVisualbasic安装盘放入光驱,双击Vb6.0文件夹下的setup文件后,出现MicrosoftVisualbasic的安装向导;
2)单击“下一步”,出现许可证协议,点击“是”;
3)出现“目标路径”界面,使用系统默认的路径,单击“下一步”;
4)依次单击“下一步”按系统提示自动进行安装;
5)最后点击“完成”即可结束安装。
4系统设计
4.1数据库设计说明
工资管理系统所用到的数据库:
数据库名:
yu
字段名 类 型 宽度
姓名 文本型 20
性别 文本型 20
电话 文本型 20
住址 文本型 20
职称 文本型 20
基本工资 单精度 4
公积金 单精度 4
奖金 单精度 4
个人所得税 单精度 4
实发工资切 单精度 4
应发工资 单精度 4
岗位津贴 单精度 4
4.2各功能模块系统图
模块系统图如下:
欢迎使用工资管理系统界面
系统窗口
关于窗体/帮助
退出系统
工资管理系统
查询窗体
统计窗体
浏览
4.3各功能模块系统说明
4.3.1登录界面
当运行工资管理系统程序后,出现如下界面
用户需输入用户名和密码,用户名:
yuzhaosen,密码:
19830625当用户输入贴完毕后单击回车即可,系统对其用户名及密码进行验证,正确将进入系统主窗口界面;不正确系统会出现提示信息,如密码三次有误界面如下。
如单击”确定”,将退出本系统。
4.3.2文件浏览窗口
当顺利通过登录窗体后,将出现系统主窗口界面,界面如下:
菜单“文件”中的“浏览”中有全部浏览和逐条浏览。
在逐条浏览中“首记录”、“上一条“、“下一条”、“尾记录”可浏览数据库内容。
图如下:
全部浏览责是把数据库中所有的纪录全部浏览。
当单击“逐条”按钮时将切换到逐条浏览的界面。
界面如下:
4.3.3查询窗体
单击主窗体中菜单栏“查询”菜单,弹出查询界面。
图如下
当用户输入相关信息后点“查询”按钮,后数据库将显示用户所要查询的内容。
(姓名为必填字段)
4.4.4关于窗体
5程序清单
5.1表单
5.1.1登录界面
属性:
Form1的caption=“登录”
Picture1:
e:
\study\大猫\59.gif
WindowState:
2-Maximized
1) 标签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 浏览窗体form11
form11的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)命令按钮1
caption:
首条
FontNam:
宋体
FontSize:
小五
Height:
375
Left:
1560
18)命令按钮2
caption:
上一条
FontNam:
宋体
FontSize:
小五
Height:
375
Left:
2400
19)命令按钮3
caption:
下一条
FontNam:
宋体
FontSize:
小五
Height:
375
Left:
3240
20)命令按钮4
caption:
尾条
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)命令按钮1
caption:
查询
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登录窗体
DimnAsInteger 定义变量
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then 判断是不是回车建
Text2.SetFocus text2得到输入控制权
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=False 隐藏Label的内容
Command1.Visible=True显示退出按钮
EndIf
EndIf
EndIf
EndSub
5.2.2主窗体代码
PrivateSubabout_Click()
Form10.Show 调用关于窗体
EndSub
PrivateSubadd_Click()
Form3.Show 调用添加窗体
EndSub
PrivateSuball_Click()
Form12.Show 调用全部浏览窗体
EndSub
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.Show 调用删除窗体
EndSub
PrivateSubexit_Click()
End 退去程序
EndSub
PrivateSubfind1_Click()
Form2.Show 调用查询窗体
EndSub
PrivateSubhelp1_Click()
response=MsgBox("软件如有问题请与'mao_wang83@'联系",,"帮助")
Form13.Show 调用帮助窗体
EndSub
PrivateSubMDIForm_Load()
Form1.Hide 隐藏登录窗体
EndSub
PrivateSubone_Click()
Form11.Show 调用逐条浏览窗体
EndSub
5.2.3浏览窗体代码:
5.2.3.1逐条浏览代码
PrivateSubCommand1_Click()
Data1.Recordset.MoveFirst
EndSub
PrivateSubCommand2_Click()
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
response=MsgBox("已到库尾!
",,"注意")
Data1.Recordset.MoveLast
EndIf
EndSub
PrivateSubCommand3_Click()
Data1.Recordset.MovePrevious
IfData1.Recordset.BOFThen
response=MsgBox("已到库首!
",,"注意")
Data1.Recordset.MoveFirst
EndIf
EndSub
PrivateSubCommand4_Click()
Data1.Recordset.MoveLast
EndSub
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.MoveLast
EndIf
EndSub
PrivateSubCommand4_Click()
Data1.Recordset.MoveLast
EndSub
PrivateSubCommand5_Click()
Data1.Recordset.MoveLast
Data1.Recordset.MoveNext
Data1.Recordset.AddNew
Text3.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=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
Command5.Enabled=False
Command6.Enabled=True
Command7.Enabled=False
Command8.Enabled=True
Text1.Locked=False
Text2.Locked=False
Text3.Locked=False
Text4.Locked=False
Text5.Locked=False
Text6.Lo
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 毕业设计 工资 查询 系统