vb sql 工资管理系统设计报告

《vb sql 工资管理系统设计报告》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

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

2、份为管理员，成功登录相应代码为：SetConn=NewADODB.Connection'OnErrorGoToMyErr:ConnStr="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=工资管理系统;DataSource=XGJYJ2OKZYWHIWB"'这是连接SQL数据库的语句Conn.OpenConnStrrs.CursorLocation=adUseClientrs.OpenTrim$(SQL),Conn,adOp

3、enDynamic,adLockOptimisticSetSelectsql=rs'ExitFunction'MyErr:'Setrs=Nothing'SetConn=Nothing'释放相关的系统资源'MsgBoxErr.Description,vbInformation,"系统提示"'显示出错信息EndFunctionPrivateSubCommand1_Click()DimSQLAsStringDimrsAsADODB.RecordsetIfText1.Text=""ThenMsgBox"请输入口令!",16Text1.SetFocusE

4、xitSubEndIfSQL="SELECT*FROM系统登录WHERE用户名='"&Text1.Text&"'AND密码='"&Text2.Text&"'and身份='"&Combo1.Text&"'"'objcn,adOpenStatic,adLockOptimisticSetrs=Selectsql(SQL)Ifrs.RecordCount>0ThenForm2.Show'想要打开的主窗体MsgBox"恭喜兄弟,登录成功!",64,"提示"UnloadMeElseMsgBox"口令不对,请重新输入!",16,"提示"Text1.Text=

5、""Text2.Text=""Combo1.Text=""Text1.SetFocusEndIfEndSubPrivateSubForm_Load()EndSubPrivateSubText2_Change()Text2.PasswordChar="*"EndSub将出现此界面，表示成功登录2）登录成功后，同时出现基本功能界面3）点击员工信息管理按钮，将出现员工信息表，代码如下：PrivateSubCommand1_Click()Form2.HideForm3.ShowEndSub员工信息表将实现以下功能：1）员工基本信息的展览2）员工基本信息

6、的添加、删除、修改3）增加了一个adodc1控件，通过改变各控件的属性，达到VB与数据库连接的目的，具体操作见VB书最后一章。4）设计了一个datagrid控件，使所以信息以表的信息清楚的展示，如果基本信息有什么变动，那可以在控件里得到结果。该界面的代码如下：PrivateSubCommand1_Click()Adodc1.Recordset.AddNewEndSubPrivateSubCommand2_Click()Form2.ShowUnloadMeEndSubPrivateSubCommand3_Click()Adodc1.Records

7、et("员工编号")=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

8、.Text'Form4.Adodc1.Recordset("部门编号")=Text2.TextAdodc1.Recordset.UpdateMsgBo