数据库工资管理系统课程设计报告

《数据库工资管理系统课程设计报告》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、课程设计报告课程设计题目：工资管理系统工资管理系统一、实验题目：1)员工基本信息的管理功能。2)单位员工变动、奖惩情况的管理功能。3)工资的计算、修改功能。4)查询统计功能。5)报表打印功能。6)具有数据备份和数据恢复功能。设计要求： 在提供员工详细的工资资料的同时，尽量使系统能具一定的安全性和通用性。 二、编程1、主窗口的设计MDIForm1.HideForm9.ShowEndSubPrivateSubMDIForm_Load()EndSubPrivateSubss_Click()MDIForm1.HideForm4.ShowEndSubPrivateSubSSS_Click()MDI

2、Form1.HideForm2.ShowEndSubPrivateSubaa_Click()MDIForm1.HideForm3.ShowEndSubPrivateSubSSSS_Click()MDIForm1.HideForm5.ShowEndSubPrivateSubSSSSS_Click()MDIForm1.HideForm6.ShowEndSubPrivateSubSSSSSS_Click()MDIForm1.HideForm7.ShowEndSubPrivateSubSSSSSSS_Click()MDIForm1.HideForm8.ShowEndSub2、登入窗口设计Opti

3、onExplicitPrivateFunctionSelectsql(SQLAsString)AsADODB.Recordset'返回ADODB.Recordset对象DimConnStrAsStringDimConnAsADODB.ConnectionDimrsAsADODB.RecordsetSetrs=NewADODB.RecordsetSetConn=NewADODB.Connection'OnErrorGoToMyErr:ConnStr="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;

4、InitialCatalog=teacher;DataSource=LENOVO-PC"'这是连接SQL数据库的语句Conn.OpenConnStrrs.CursorLocation=adUseClientrs.OpenTrim$(SQL),Conn,adOpenDynamic,adLockOptimisticSetSelectsql=rs'ExitFunction'MyErr:'Setrs=Nothing'SetConn=Nothing'释放相关的系统资源'MsgBoxErr.Description,vbInformation,"系统提示"'显示出错信息EndFunctionPriva

5、teSubCommand1_Click()DimSQLAsStringDimrsAsADODB.RecordsetIfText1.Text=""ThenMsgBox"请输入口令!",16Text1.SetFocusExitSubEndIfSQL="SELECT*FROM系统用户表结构WHERE用户名='"&Text1.Text&"'AND口令='"&Text2.Text&"'and身份='"&Combo1.Text&"'"'objcn,adOpenStatic,adLockOptimisticSetrs=Selectsql(SQL)Ifrs.RecordCount>0ThenMDIFor

6、m1.Show'想要打开的主窗体MsgBox"登录成功!",64,"提示"UnloadMeElseMsgBox"口令不对,请重新输入!",16,"提示"Text1.SetFocusEndIfEndSubPrivateSubForm_Load()Form1.Left=(Screen.Width-Form1.Width)/2Form1.Top=(Screen.Height-Form1.Height)/23、员工基本信息管理设计PrivateSubCommand7_Click()'Text1.Text=""'Text2.Text=""'Text3.Text=""'Text4.Text=""'T

7、ext5.Text=""'Combo1.ListIndex=4'Combo2.ListIndex=4Command5.Enabled=TrueCommand6.Enabled=True'在保存新记录之前禁用下述控件Command1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueEndSub'PrivateSubCommand8_C