VB+SQL-工资管理系统设计报告.doc

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

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;InitialCa

3、talog=工资管理系统;DataSource=XGJYJ2OKZYWHIWB"'这是连接SQL数据库的语句Conn.OpenConnStrrs.CursorLocation=adUseClientrs.OpenTrim$(SQL),Conn,adOpenDynamic,adLockOptimisticSetSelectsql=rs'ExitFunction绝大多数人，开始了一次在家门口享受体育盛会的人生体验。而我们的志愿者却开始了一段崭新的跋涉，许许多多个日子在积淀，许许多多份努力在累加，为了这个盛大的时刻，每一个人都

4、在心中奋力的呐喊：亚运，我们准备好了!'MyErr:'Setrs=Nothing'SetConn=Nothing'释放相关的系统资源'MsgBoxErr.Description,vbInformation,"系统提示"'显示出错信息EndFunctionPrivateSubCommand1_Click()DimSQLAsStringDimrsAsADODB.RecordsetIfText1.Text=""ThenMsgBox"请输入口令!",16Text1.SetFocusExitSubEndIfSQL="SELECT*

5、FROM系统登录WHERE用户名='"&Text1.Text&"'AND密码='"&Text2.Text&"'and身份='"&Combo1.Text&"'"'objcn,adOpenStatic,adLockOptimisticSetrs=Selectsql(SQL)Ifrs.RecordCount>0ThenForm2.Show'想要打开的主窗体MsgBox"恭喜兄弟,登录成功!",64,"提示"UnloadMe绝大多数人，开始了一次在家门口享受体育盛会的人生体验。而我们的志愿者却开始了一段崭新的跋涉，许许多多个日子

6、在积淀，许许多多份努力在累加，为了这个盛大的时刻，每一个人都在心中奋力的呐喊：亚运，我们准备好了!ElseMsgBox"口令不对,请重新输入!",16,"提示"Text1.Text=""Text2.Text=""Combo1.Text=""Text1.SetFocusEndIfEndSubPrivateSubForm_Load()EndSubPrivateSubText2_Change()Text2.PasswordChar="*"EndSub将出现此界面，表示成功登录2）登录成功后，同时出现基本功能界面绝大多数人，开始

7、了一次在家门口享受体育盛会的人生体验。而我们的志愿者却开始了一段崭新的跋涉，许许多多个日子在积淀，许许多多份努力在累加，为了这个盛大的时刻，每一个人都在心中奋力的呐喊：亚运，我们准备好了!3）点击员工信息管理按钮，将出现员工信息表，代码如下：PrivateSubCommand1_Click()Form2.HideForm3.ShowEndSub员工信息表将实现以下功能：1）员工基本信息的展览2）员工基本信息的添加、删除、修改3）增加了一个adodc1控件，通过改变各控件的属性，达到VB与数据库连接的目的，具体操作见VB书

8、最后一章。4）设计了一个datagrid控件，使所以信息以表的信息清楚的展示，如果基本信息有什么变动，那可以在控件里得到结果。绝大多数人，开始了一次在家门口享受体育盛会的人生体验。而我们的志愿者却开始了一段崭新的跋涉，许许多多个日子在积淀，许许多多份努力在累加，为了这个盛大的时刻，每一个人都在心中奋力的呐喊：亚运，我