VB课程设计——企业人事信息管理系统

精品文档就在这里-------------各类专业好文档，值得你下载，教育，管理，论文，制度， 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 手册，应有尽有-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------精品文档---------------------------------------------------------------------VB课程 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 ——企业人事信息管理系统　2008—09-2723:55HYPERLINK"http://blog.163。com/google_help＠126/blog/static/824232992008827115549512/”\l”#"分类：计算机类知识字号：HYPERLINK"http://blog.163.com/google_help@126/blog/static/824232992008827115549512/"\l"＃"大大 HYPERLINK”http://blog.163.com/google_help＠126/blog/static/824232992008827115549512/”\l"＃"中中 HYPERLINK”http://blog.163。com/google_help@126/blog/static/824232992008827115549512/”\l”#"小小1概述：1.1简单介绍本系统实现的内容用户登录通过权限判断，普通用户不能浏览、阅读和查询信息，指定用户可以操作，可以进行信息录入、修改和删除的操作。1。2系统的主要功能特点有:1.2。1系统登录 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 单该表单的功能是在系统被访问之前，要对进入系统的用户进行安全性检查，防止非法用户进行系统破坏数据及威胁系统安全，避免不必要的损失。只有合法的用户在输入正确的密码后方可进入系统。1.2。2系统分为五个大的功能模块：用户在经过正确的登录后可进行—1）人事管理:包括部门信息和员工信息的查看,进行人员的调动，并查看各部门员工的福利待遇.2）考勤管理:进行日常出勤管理和加班出差的管理3)工资管理：可对各部门员工的工资进行登录和查询.4）打印:以条目或表格的形式对员工工资或员工信息进行输出预览。5）系统管理：登录用户可对系统进行管理包括增加用户，修改用户,删除用户和修改密码。值得一提的是登录用户进行修改时仅限自身,不可对别的用户进行修改操作。 数据库设计：2。1员工信息表：用户需要录入的员工信息表主要字段包括:员工编号、员工姓名、部门编号、性别、生日、住址、职位、出生地、联系电话。  字段字段名类型宽度Nulls1员工编号char10否2员工姓名Char15否3部门编号Int4否4性别char2否5生日Char10否6住址Char30否7职位Varchar20否8出生地Char10否9联系电话Char20否10最高学历Char20否   2。2加班信息表：包括：员工编号、加班日期、加班天数、加班补助。  字段字段名类型宽度Nulls1员工编号Char10否2加班日期Char10否3加班天数Int4是4加班补助Numeric9(10，0)是 2。3工资福利表：包括：员工编号、岗位工资、基本工资、伙食补贴、住房补贴、住房公积金、养老保险、其他补贴、发放时间、加班补助、缺勤扣除、实发工资。  字段字段名类型宽度Nulls1员工编号Char10否2岗位工资Numeric9(19，4)是3基本工资Numeric9(19,4)是4伙食补贴Numeric9（19，4)是5住房补贴Numeric9（19，4）是6住房公积金Numeric9（19，4）是7养老保险Numeric9(19，4)是8其他补贴Numeric9(19，4)是9发放时间Char20否10加班补助Numeric9(18,0)是11缺勤扣除Numeric9(18，0）是12实发工资Numeric9(18，0）是 2.4缺勤信息表：包括：员工编号、缺勤日期、缺勤天数、缺勤类型、缺勤扣除。字段字段名类型宽度Nulls1员工编号Char10否2缺勤日期Char10否3缺勤天数char10是4缺勤类型Int4是5缺勤扣除char10是 2。5用户信息表：包括:用户名、用户密码、用户类型.字段字段名类型宽度Nulls1用户名Char10否2用户密码Char20否3用户类型int4否 2.6登录时间表：包括：用户名、用户类型、登录时间.字段字段名类型宽度Nulls1用户名Char10否2用户类型Char10否3登录时间char40否 2。7部门信息表:包括：部门编号、部门名称、部门人数、部门级别字段字段名类型宽度Nulls1部门编号Int4否2部门名称Char20是3部门人数Int4是4部门级别char10是3代码 添加用户代码: 在FormMain。vb窗体中：ImportsSystem.Data。OleDbImportsSystem。Data.SqlClientImportsSystem.IOImportsSystem。Windows.Forms.HelpPrivateSubMenuItem20_Click（ByValsenderAsSystem。Object,ByValeAsSystem。EventArgs）HandlesMenuItem20。Click……….。….。EndSub在FormXTGL.vb窗体中：ImportsSystem。Data.OleDbImportsSystem.Data。SqlClient————-—————--—-——-———————-—--—-—————-—--——-————PublicClassFrmXTGLInheritsSystem.Windows.Forms.FormPrivateMyTagAsStringPrivateUsernameAsStringPrivateSubButton2_Click（ByValsenderAsSystem。Object,ByValeAsSystem。EventArgs）HandlesButton2。ClickDimconnstrAsNewString（"provider=SQLOLEDB。1；UserID=sa;PassWord=110;PersistSecurityInfo=false;InitialCatalog=wage；DataSource=。;"）DimCnAsNewOleDbConnectionDimcmdAsOleDbCommandDimSQLStringAsStringIf…….EndIfTryIfMyTag=1ThenSQLString="INSERTINTO用户信息表(用户名，用户密码，用户类型）”&_"VALUES(’”＆TextBox1.Text&”',"＆CInt(TextBox2.Text)&”,”&_ComboBox1。SelectedIndex&"）”ElseIfMyTag=2ThenSQLString=”DELETE用户信息表WHERE用户名='”&TextBox1.Text＆”'"ElseIfMyTag=3ThenSQLString=”UpDate用户信息表SET用户密码='”&TextBox2。Text&_”’,用户类型="&ComboBox1.SelectedIndex&”WHERE用户名='"&_TextBox1。Text&"'”ElseIfMyTag=4ThenIfTextBox1。Text=UsernameThenSQLString=”UpDate用户信息表SET用户密码=’”＆TextBox2.Text&_”’WHERE用户名=’"＆TextBox1。Text＆"’"Else………。ExitSubEndIfEndIfCn。ConnectionString=connstrCn。Open（）cmd=NewOleDbCommand(SQLString，Cn)cmd。ExecuteNonQuery（)CatchexAsExceptionMsgBox(ex。Message)EndTrycmd。Dispose()Cn.Dispose(）Button2.Enabled=FalseGetUser（）EndSub4.3修改用户界面代码如下：在FrmMain。vb窗体中：’///////////引入系统命名空间的文件ImportsSystem.Data.OleDbImportsSystem。Data。SqlClientImportsSystem.IOImportsSystem.Windows.Forms.Help———-——--———-———-———————-—-——--———-——-——————---PrivateSubMenuItem21_Click(ByValsenderAsSystem.Object，ByValeAsSystem.EventArgs）HandlesMenuItem21。Click//////修改用户………EndSub在FormXTGL。vb窗体中：ImportsSystem。Data.OleDbImportsSystem.Data.SqlClient——————-———-——-——--————-————--————————--——————-PublicClassFrmXTGLInheritsSystem。Windows.Forms。FormPrivateMyTagAsStringPrivateUsernameAsString—-——————-—--——--—---———-——-——-——————-—-———--——PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem。EventArgs)HandlesButton2。ClickDimconnstrAsNewString（”provider=SQLOLEDB。1;UserID=sa；PassWord=110；PersistSecurityInfo=false;InitialCatalog=wage；DataSource=。;"）DimCnAsNewOleDbConnectionDimcmdAsOleDbCommandDimSQLStringAsString//如果删除自己的账户，将不能在使用本系统…………EndIfTryIfMyTag=1ThenSQLString=”INSERTINTO用户信息表（用户名,用户密码,用户类型）"&_”VALUES（'"&TextBox1。Text&"'，"＆CInt（TextBox2.Text）&”,"＆_ComboBox1.SelectedIndex＆"）”ElseIfMyTag=2ThenSQLString=”DELETE用户信息表WHERE用户名=’”&TextBox1.Text＆”'”ElseIfMyTag=3ThenSQLString="UpDate用户信息表SET用户密码='"&TextBox2。Text＆_”’,用户类型=”＆ComboBox1。SelectedIndex＆"WHERE用户名=’"&_TextBox1。Text&"'”ElseIfMyTag=4ThenIfTextBox1.Text=UsernameThenSQLString="UpDate用户信息表SET用户密码='"&TextBox2.Text&_"’WHERE用户名=’"&TextBox1。Text＆”'"Else//您无权修改别人的密码……ExitSubEndIfEndIfCn。ConnectionString=connstrCn.Open（）cmd=NewOleDbCommand(SQLString,Cn)cmd.ExecuteNonQuery（）CatchexAsExceptionMsgBox（ex。Message）EndTrycmd.Dispose()Cn.Dispose（)Button2。Enabled=FalseGetUser()EndSub删除用户代码：在FrmMain。vb窗体中：’///////////引入系统命名空间的文件ImportsSystem。Data.OleDbImportsSystem.Data.SqlClientImportsSystem.IOImportsSystem。Windows。Forms.HelpPrivateSubMenuItem14_Click(ByValsenderAsSystem。Object，ByValeAsSystem.EventArgs）HandlesMenuItem14.Click/////////删除用户……….EndSub在login。vb窗体中：“确定”按钮的Text属性变为“删除”,Label1的Visible属性设置为False不可见，TextBox1的Visible属性设置为False不可见，Label3的Visible属性设置为False不可见，ComboBox1的Visible属性设置为False不可见，Label2的Visible属性设置为False不可见，TextBox2的Visible属性设置为False不可见PrivateSublogin_Load（ByValsenderAsSystem.Object,ByValeAsSystem。EventArgs)HandlesMyBase。LoadGetUser()ComboBox1.Items。Add（"普通用户"）ComboBox1.Items.Add(”系统用户”)Button2。Enabled=False…….…….EndIfEndSub在FormXTGL。vb窗体中：PrivateSubButton2_Click（ByValsenderAsSystem。Object,ByValeAsSystem。EventArgs)HandlesButton2.ClickDimconnstrAsNewString（”provider=SQLOLEDB。1；UserID=sa;PassWord=110；PersistSecurityInfo=false；InitialCatalog=wage;DataSource=。；”）DimCnAsNewOleDbConnectionDimcmdAsOleDbCommandDimSQLStringAsStringIfTextBox1.Text=UsernameAndMyTag=2ThenIfMsgBox(”如果删除自己的账户，将不能在使用本系统.”,MsgBoxStyle。YesNo，"警告!")=MsgBoxResult。NoThenExitSubEndIfTryIfMyTag=1ThenSQLString=”INSERTINTO用户信息表（用户名，用户密码,用户类型）"&_"VALUES('"&TextBox1。Text＆”',”&CInt(TextBox2。Text)&","&_ComboBox1.SelectedIndex&”)"ElseIfMyTag=2ThenSQLString="DELETE用户信息表WHERE用户名='”&TextBox1.Text＆”'"ElseIfMyTag=3ThenSQLString="UpDate用户信息表SET用户密码='"&TextBox2。Text＆_”'，用户类型=”＆ComboBox1。SelectedIndex＆"WHERE用户名=’"＆_TextBox1。Text＆”’"ElseIfMyTag=4ThenIfTextBox1.Text=UsernameThenSQLString="UpDate用户信息表SET用户密码=’”&TextBox2.Text&_"'WHERE用户名=’”&TextBox1。Text＆”’”Else.。....。EndIfCn。ConnectionString=connstrCn。Open(）cmd=NewOleDbCommand（SQLString，Cn)cmd.ExecuteNonQuery（)………EndSub修改用户代码如下:在FrmMain.vb窗体中：PrivateSubMenuItem26_Click（ByValsenderAsSystem.Object，ByValeAsSystem。EventArgs）HandlesMenuItem26.Click//////////修改个人密码DimxgmmAsNewFrmXTGL（4,Username)xgmm.Show（）EndSub在FormXTGL。vb窗体中：’//////////引入系统命名空间文件ImportsSystem.Data。OleDbImportsSystem.Data。SqlClientPublicClassFrmXTGLInheritsSystem。Windows。Forms。FormPrivateMyTagAsStringPrivateUsernameAsStringPrivateSubButton2_Click(ByValsenderAsSystem。Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimconnstrAsNewString(”provider=SQLOLEDB.1；UserID=sa;PassWord=110；PersistSecurityInfo=false;InitialCatalog=wage;DataSource=.；”）DimCnAsNewOleDbConnectionDimcmdAsOleDbCommandDimSQLStringAsString//给出警告，不能修改别人的密码………TryIfMyTag=1ThenSQLString="INSERTINTO用户信息表（用户名，用户密码,用户类型)”&_”VALUES（’"＆TextBox1。Text＆"’，"&CInt(TextBox2.Text)&”,"&_ComboBox1.SelectedIndex＆”)"ElseIfMyTag=2ThenSQLString="DELETE用户信息表WHERE用户名='"＆TextBox1。Text&"’"ElseIfMyTag=3ThenSQLString=”UpDate用户信息表SET用户密码=’”&TextBox2。Text&_”’,用户类型=”＆ComboBox1.SelectedIndex&"WHERE用户名=’”&_TextBox1。Text&”’"ElseIfMyTag=4ThenIfTextBox1。Text=UsernameThenSQLString=”UpDate用户信息表SET用户密码=’"＆TextBox2。Text＆_"’WHERE用户名=’”＆TextBox1。Text＆”’”Else…………同样也可在工具栏中对用户密码进行修改.用户查询登录时间代码如下:在FrmMain.vb窗体下：PrivateSubMenuItem29_Click（ByValsenderAsSystem。Object，ByValeAsSystem.EventArgs)HandlesMenuItem29。Click‘/////调用用户登录时间窗体DimfrmdlAsNewFormdlsjfrmdl.Show(）EndSub在login。vb窗体下:ImportsSystem.Data.OleDbImportsSystem。Data。SqlClientImportsSystem.DataPublicClassloginInheritsSystem.Windows.Forms.FormDimconnAsNewSqlConnection（"datasource=。；database=wage；integratedsecurity=sspi；”）PrivateSubButton2_Click(ByValsenderAsSystem。Object，ByValeAsSystem.EventArgs）HandlesButton2.ClickIfTrim（GetPsw（Trim（Me。Label4。Text)））=Trim(Me。TextBox2.Text)AndLen（Me。Label4。Text）〉0ThenDimmfAsNewFrmMain(Label4。Text，Label5。Text)DimsAsString=Now.ToStringDimcAsNewSqlCommand（”insertinto登录时间表（用户名，用户类型，登录时间）values('"&Label4。Text。Trim&”'，’”＆Label5.Text&”'，'"＆s.Substring(0,15)&”'）”,conn）Tryconn.Open（）c。ExecuteNonQuery(）conn。Close(）mf.Show（)Me.Hide（）CatchexAsExceptionMsgBox（ex。ToString）EndTryElseMsgBox（”请选择您的姓名并输入正确的密码！"）EndIfEndSub在Formdlsj窗体下:ImportsSystem.dataImportsSystem.Data.SqlClientPublicClassFormdlsjInheritsSystem。Windows。Forms.FormDimconAsNewSqlConnection("datasource=。;database=wage；integratedsecurity=sspi”)DimdsAsNewDataSetPrivateSubFormdlsj_Load(ByValsenderAsSystem。Object,ByValeAsSystem。EventArgs)HandlesMyBase。LoadDimadAsNewSqlDataAdapter(”select＊from登录时间表”,con）ds。Clear（)ad.Fill（ds)ds.Tables（0).DefaultView.Sort=”登录时间”DataGrid1。DataSource=ds。Tables（0)。DefaultViewEndSubEndClass第五章课程设计 总结 初级经济法重点总结下载党员个人总结TXt高中句型全总结.doc高中句型全总结.doc理论力学知识点总结pdf  本系统从功能上可以分为下列五个模块:系统管理、部门管理、人员管理、工资管理及打印管理。系统管理（包括用户管理）：分为系统用户和普通用户,主要对公司员工信息修整和查看,同时可以添加删除修改用户，修改密码；部门管理:对各部门之间的调动、调整以及相关信息的改变；人员管理：对员工的添加、删除、信息修改、考勤结果进行管理操作;工资管理：对员工的基本工资、资金补贴等任务的管理操作;打印管理：对员工的信息资料、工资等相关项目和内容进行报表预览。本系统可方便高级用户进行系统信息管理和维护，并允许普通用户进行部分信息浏览、察看，实行机制透明化管理，同时该系统提供了大量操作提示，以其较强的容错能力，大大方便了管理者和用户的使用.确保了数据的安全性、正确性、完整性和一致性。