VBSQL工资管理系统设计报告

VBSQL工资管理系统设计报告

ID:43446171

大小:1.01 MB

页数:30页

时间:2019-10-02

VBSQL工资管理系统设计报告_第1页
VBSQL工资管理系统设计报告_第2页
VBSQL工资管理系统设计报告_第3页
VBSQL工资管理系统设计报告_第4页
VBSQL工资管理系统设计报告_第5页
资源描述:

《VBSQL工资管理系统设计报告》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、一、问题描述:设计一个工资管理系统,使其具有以下功能:1)员工基本信息的管理功能。2)单位员工变动、奖惩情况的管理功能。3)工资的计算、修改功能。4)查询统计功能。5)报表打印功能。6)具有数据备份和数据恢复功能。二、系统总体设计:1)设计一个登录界面,使该系统具有一定的安全性和通用性,对应的,在数据库里建立一个登录界面表。2)在数据库内设计三个信息表,分别是员工情况表,员工部门表,工资表。3)在VB界面内设计窗体,并书写代码,使其与数据库连接起来,并具有相应功能。三、数据库设计:(由队友负责)四、详

2、细设计:1)设计VB登录界面图像如下:设置身份为管理员,成功登录相应代码为:SetConn=NewADODB.ConnectionOnErrorGoToMyErr:ConnStr二z,Providei-SQLOLEDB・1;IntegratedSecurity二SSPI;PersistSecurityInfo二False;InitialCatalogs工资管理系统;I)ataSource二XGJYJ2OKZYWHIWB〃'这是连接SQL数据库的语句Conn.OpenCormStrrs.CursorLo

3、cation=adUscClicntrs.0penTrim$(SQL),Conn,adOpenDynamic,adLockOptimisticSetSelectsql=rsExitFunctionMyErr:Setrs二Nothing'SetConn二Nothing释放相关的系统资源JMsgBoxErr.Description,vblnformation,〃系统提示〃'显示出错信息EndFunctionPrivateSubCommandl_Click()DimSQLAsStringDimrsAsADO

4、DB.RecordsetIfText1.Text二ThenMsgBox〃请输入口令!〃,16Text1.SctFocusExitSubEndIfSQL二"SELECT*FROM系统登录WHERE用户名二'〃&Textl.Text&AND密码二'〃&Text2.Text&〃‘and身份二'〃&Combol.Text&'objen,adOpenStatic,adLockOptimisticSetrs二Selectsql(SQL)Ifrs.RecordCount>0ThenForm2.Show'想要打开的主

5、窗体MsgBox"恭喜兄弟,登录成功!64,提示〃UnloadMeElseMsgBox"口令不对,请重新输入!",16,提示〃Textl.Text二Tcxt2.Text二"”Combo1.Text="”Textl・SetFocusEndIfEndSubPrivateSubFormLoad()EndSubPrivateSubText2_Change()Tcxt2.PasswordChar二EndSub将出现此界面,表示成功登录2)登录成功后,同时出现基本功能界面3)点击员工信息管理按钮,将出现员工信息表

6、,代码如2PrivateSubCommandlClick()Form2・HideForm3・ShowEndSub员工信息表将实现以下功能:1)员工基本信息的展览2)员工基本信息的添加、删除、修改3)增加了一个adodcl控件,通过改变各控件的属性,达到VB与数据库连接的目的,具体操作见VB书最后一章。4)设计了一个datagrid控件,使所以信息以表的信息清楚的展示,如果基木信息有什么变动,那可以在控件里得到结果。5Form3员工编号Qi姓名张三性别出生年月1991/11/23忝加修改返回部门编粤员T

7、编三出牛年月►01张三1991/11/23a02李四1994/5/23b031992/8/28c041992/9/7d05明1992/10/1该界面的代码如门PrivateSubCommandlClick()Adodcl.Recordset.AddNewEndSubPrivateSubCommand2_Click()Form2・ShowUnloadMeEndSubPrivateSubCommand3_Click()Adodcl.Recordset员工编号〃)=Textl.TextAdodcl.Reco

8、rdset(z,姓名〃)=Text5.TextAdodcl.Recordset(z,性别〃)=Tcxt4.TextAdodcl.Recordset(z,出生年月〃)=Text3.TextAdodcl.RecordsetC部门编号〃)=Text2.TextForm4.Adodcl.RecordsetC员T编号〃)二Textl.TextForm5.Adodcl.Recordset(/z员工编号〃)=Textl.TextForm6.Adodcl.Records

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。