VB+SQL-工资管理系统设计报告.doc
《VB+SQL-工资管理系统设计报告.doc》由会员分享,可在线阅读,更多相关《VB+SQL-工资管理系统设计报告.doc(26页珍藏版)》请在咨信网上搜索。
1、VB+SQL 工资管理系统设计报告 作者: 日期:26 个人收集整理 勿做商业用途 一、问题描述:设计一个工资管理系统,使其具有以下功能: 1)员工基本信息的管理功能.2)单位员工变动、奖惩情况的管理功能.3)工资的计算、修改功能。4)查询统计功能。5)报表打印功能。6)具有数据备份和数据恢复功能。二、系统总体设计:1)设计一个登录界面,使该系统具有一定的安全性和通用性,对应的,在数据库里建立一个登录界面表。2)在数据库内设计三个信息表,分别是员工情况表,员工部门表,工资表。3)在VB界面内设计窗体,并书写代码,使其与数据库连接起来,并具有相应功能。三、数据库设计:(由队友负责)四、详细设计:
2、 1)设计VB登录界面 图像如下:设置身份为管理员,成功登录相应代码为:Set Conn = New ADODB.Connection On Error GoTo MyErr: ConnStr = ”Provider=SQLOLEDB。1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=工资管理系统;Data Source=XGJYJ2OKZYWHIWB” 这是连接SQL数据库的语句Conn.Open ConnStr rs.CursorLocation = adUseClient rs.Open Trim
3、$(SQL), Conn, adOpenDynamic, adLockOptimistic Set Selectsql = rs Exit FunctionMyErr: Set rs = Nothing Set Conn = Nothing 释放相关的系统资源 MsgBox Err.Description, vbInformation, ”系统提示” 显示出错信息End FunctionPrivate Sub Command1_Click() Dim SQL As String Dim rs As ADODB。Recordset If Text1.Text = ” Then MsgBox 请输
4、入口令!”, 16 Text1。SetFocus Exit Sub End If SQL = SELECT FROM 系统登录 WHERE 用户名 = Text1.Text AND 密码=” Text2.Text and 身份=” & Combo1。Text & ” objcn, adOpenStatic, adLockOptimistic Set rs = Selectsql(SQL) If rs。RecordCount 0 Then Form2.Show 想要打开的主窗体 MsgBox 恭喜兄弟,登录成功!”, 64, 提示 Unload Me Else MsgBox ”口令不对,请重新输
5、入!”, 16, ”提示” Text1。Text = ” Text2.Text = Combo1.Text = ” Text1。SetFocus End IfEnd SubPrivate Sub Form_Load()End SubPrivate Sub Text2_Change()Text2.PasswordChar = *”End Sub将出现此界面,表示成功登录2)登录成功后,同时出现基本功能界面3)点击员工信息管理按钮,将出现员工信息表,代码如下:Private Sub Command1_Click()Form2.HideForm3。ShowEnd Sub员工信息表将实现以下功能:1)
6、 员工基本信息的展览2) 员工基本信息的添加、删除、修改3) 增加了一个adodc1控件,通过改变各控件的属性,达到VB与数据库连接的目的,具体操作见VB书最后一章。4) 设计了一个datagrid控件,使所以信息以表的信息清楚的展示,如果基本信息有什么变动,那可以在控件里得到结果。该界面的代码如下:Private Sub Command1_Click()Adodc1.Recordset。AddNewEnd SubPrivate Sub Command2_Click()Form2.ShowUnload MeEnd SubPrivate Sub Command3_Click()Adodc1。Re
7、cordset(员工编号) = Text1。TextAdodc1.Recordset(”姓名) = Text5.TextAdodc1。Recordset(”性别) = Text4。TextAdodc1.Recordset(”出生年月”) = Text3。TextAdodc1.Recordset(部门编号) = Text2。TextForm4。Adodc1.Recordset(员工编号) = Text1.TextForm5。Adodc1。Recordset(”员工编号) = Text1。TextForm6。Adodc1.Recordset(”员工编号”) = Text1.TextForm4。Ad
8、odc1.Recordset(”部门编号”) = Text2.TextAdodc1。Recordset。UpdateMsgBox (修改成功)End SubPrivate Sub Command4_Click()If MsgBox(”确定删除当前记录?”, vbQuestion + vbYesNo, 删除?) = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd IfEnd Sub4) 点击单位员工变动管理,将出现
9、员工变动管理界面,代码如下:Private Sub Command2_Click()Form2.HideForm4。ShowEnd Sub单位员工变动管理界面将实现以下功能:1) 员工部门表的展览2) 员工部门表的添加、删除、修改,解决了员工工作变动的问题。3) 增加了一个adodc1控件,通过改变各控件的属性,达到VB与数据库连接的目的,具体操作见VB书最后一章.4) 设计了一个datagrid控件,使所以信息以表的信息清楚的展示,如果基本信息有什么变动,那可以在控件里得到结果.单位员工变动管理界面代码如下:Private Sub Command1_Click()Adodc1。Records
10、et。AddNewEnd SubPrivate Sub Command2_Click()If MsgBox(”确定删除当前记录?, vbQuestion + vbYesNo, ”删除?”) = vbYes ThenAdodc1。Recordset.DeleteAdodc1。Recordset。MoveNextIf Adodc1.Recordset.EOF Then Adodc1。Recordset.MoveLastEnd IfEnd SubPrivate Sub Command3_Click()Adodc1.Recordset(”员工编号) = Text1.TextAdodc1。Records
11、et(”部门编号) = Text2。TextAdodc1。Recordset(部门名) = Text3。TextAdodc1。Recordset(负责人”) = Text4。TextForm3。Adodc1。Recordset(”员工编号) = Text1.TextForm3。Adodc1。Recordset(”部门编号) = Text2.TextAdodc1.Recordset。UpdateMsgBox (修改成功”)End SubPrivate Sub Command4_Click()Form2。ShowUnload MeEnd Sub5) 单击奖惩情况管理,将出现工资情况界面,相应代码如
12、下:Private Sub Command3_Click()Form2.HideForm5。ShowEnd Sub奖惩情况管理界面将实现以下功能:1) 工资表的展览2) 工资表的添加、删除、修改,解决了员工奖惩情况的问题.3) 增加了一个adodc1控件,通过改变各控件的属性,达到VB与数据库连接的目的,具体操作见VB书最后一章。4) 设计了一个datagrid控件,使所以信息以表的信息清楚的展示,如果基本信息有什么变动,那可以在控件里得到结果.该界面代码如下:Private Sub Command1_Click()Adodc1。Recordset。AddNewEnd SubPrivate S
13、ub Command2_Click()If MsgBox(确定删除当前记录?, vbQuestion + vbYesNo, ”删除?”) = vbYes ThenAdodc1。Recordset。DeleteAdodc1。Recordset.MoveNextIf Adodc1。Recordset。EOF Then Adodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command3_Click()Adodc1。Recordset(”员工编号”) = Text1。TextAdodc1。Recordset(”奖金) = Str(Text2。Text)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB SQL 工资管理 系统 设计 报告
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【快乐****生活】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【快乐****生活】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。