課程設(shè)計(jì)企業(yè)人事信息管理系統(tǒng)

課程設(shè)計(jì)企業(yè)人事信息管理系統(tǒng)1概述:1.1簡(jiǎn)單介紹本系統(tǒng)實(shí)現(xiàn)的內(nèi)容用戶登錄經(jīng)過(guò)權(quán)限判斷,普通用戶不能瀏覽、閱讀和查詢信息,指定用戶能夠操作,能夠進(jìn)行信息錄入、修改和刪除的操作。1.2系統(tǒng)的主要功能特點(diǎn)有:1.2.1系統(tǒng)登錄表單該表單的功能是在系統(tǒng)被訪問(wèn)之前,要對(duì)進(jìn)入系統(tǒng)的用戶進(jìn)行安全性檢查,防止非法用戶進(jìn)行系統(tǒng)破壞數(shù)據(jù)及威脅系統(tǒng)安全,避免不必要的損失。只有合法的用戶在輸入正確的密碼后方可進(jìn)入系統(tǒng)。1.2.2系統(tǒng)分為五個(gè)大的功能模塊:用戶在經(jīng)過(guò)正確的登錄后可進(jìn)行—1)人事管理:包括部門信息和員工信息的查看,進(jìn)行人員的調(diào)動(dòng),并查看各部門員工的福利待遇.2)考勤管理:進(jìn)行日常出勤管理和加班出差的管理3)工資管理:可對(duì)各部門員工的工資進(jìn)行登錄和查詢.4)打印:以條目或表格的形式對(duì)員工工資或員工信息進(jìn)行輸出預(yù)覽.5)系統(tǒng)管理:登錄用戶可對(duì)系統(tǒng)進(jìn)行管理包括增加用戶,修改用戶,刪除用戶和修改密碼.值得一提的是登錄用戶進(jìn)行修改時(shí)僅限自身,不可對(duì)別的用戶進(jìn)行修改操作.

數(shù)據(jù)庫(kù)設(shè)計(jì):2.1員工信息表:用戶需要錄入的員工信息表主要字段包括:員工編號(hào)、員工姓名、部門編號(hào)、性別、生日、住址、職位、出生地、聯(lián)系電話。

字段字段名類型寬度Nulls1員工編號(hào)char10否2員工姓名Char15否3部門編號(hào)Int4否4性別char2否5生日Char10否6住址Char30否7職位Varchar20否8出生地Char10否9聯(lián)系電話Char20否10最高學(xué)歷Char20否

2.2加班信息表:包括:員工編號(hào)、加班日期、加班天數(shù)、加班補(bǔ)助。

字段字段名類型寬度Nulls1員工編號(hào)Char10否2加班日期Char10否3加班天數(shù)Int4是4加班補(bǔ)助Numeric9(10,0)是

2.3工資福利表:包括:員工編號(hào)、崗位工資、基本工資、伙食補(bǔ)貼、住房補(bǔ)貼、住房公積金、養(yǎng)老保險(xiǎn)、其它補(bǔ)貼、發(fā)放時(shí)間、加班補(bǔ)助、缺勤扣除、實(shí)發(fā)工資。

字段字段名類型寬度Nulls1員工編號(hào)Char10否2崗位工資Numeric9(19,4)是3基本工資Numeric9(19,4)是4伙食補(bǔ)貼Numeric9(19,4)是5住房補(bǔ)貼Numeric9(19,4)是6住房公積金Numeric9(19,4)是7養(yǎng)老保險(xiǎn)Numeric9(19,4)是8其它補(bǔ)貼Numeric9(19,4)是9發(fā)放時(shí)間Char20否10加班補(bǔ)助Numeric9(18,0)是11缺勤扣除Numeric9(18,0)是12實(shí)發(fā)工資Numeric9(18,0)是

2.4缺勤信息表:包括:員工編號(hào)、缺勤日期、缺勤天數(shù)、缺勤類型、缺勤扣除。字段字段名類型寬度Nulls1員工編號(hào)Char10否2缺勤日期Char10否3缺勤天數(shù)char10是4缺勤類型Int4是5缺勤扣除char10是

2.5用戶信息表:包括:用戶名、用戶密碼、用戶類型。字段字段名類型寬度Nulls1用戶名Char10否2用戶密碼Char20否3用戶類型int4否

2.6登錄時(shí)間表:包括:用戶名、用戶類型、登錄時(shí)間。字段字段名類型寬度Nulls1用戶名Char10否2用戶類型Char10否3登錄時(shí)間char40否

2.7部門信息表:包括:部門編號(hào)、部門名稱、部門人數(shù)、部門級(jí)別字段字段名類型寬度Nulls1部門編號(hào)Int4否2部門名稱Char20是3部門人數(shù)Int4是4部門級(jí)別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窗體中:'///////////引入系統(tǒng)命名空間的文件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//如果刪除自己的賬戶,將不能在使用本系統(tǒng)…………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//您無(wú)權(quán)修改別人的密碼……ExitSubEndIfEndIfCn.ConnectionString=connstrCn.Open()cmd=NewOleDbCommand(SQLString,Cn)cmd.ExecuteNonQuery()CatchexAsExceptionMsgBox(ex.Message)EndTrycmd.Dispose()Cn.Dispose()Button2.Enabled=FalseGetUser()EndSub刪除用戶代碼:在FrmMain.vb窗體中:'///////////引入系統(tǒng)命名空間的文件ImportsSystem.Data.OleDbImportsSystem.Data.SqlClientImportsSystem.IOImportsSystem.Windows.Forms.HelpPrivateSubMenuItem14_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem14.Click/////////刪除用戶……….EndSub在login.vb窗體中:”確定”按鈕的Text屬性變?yōu)椤眲h除”,Label1的Visible屬性設(shè)置為False不可見(jiàn),TextBox1的Visible屬性設(shè)置為False不可見(jiàn),Label3的Visible屬性設(shè)置為False不可見(jiàn),ComboBox1的Visible屬性設(shè)置為False不可見(jiàn),Label2的Visible屬性設(shè)置為False不可見(jiàn),TextBox2的Visible屬性設(shè)置為False不可見(jiàn)PrivateSublogin_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadGetUser()ComboBox1.Items.Add("普通用戶")ComboBox1.Items.Add("系統(tǒng)用戶")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("如果刪除自己的賬戶,將不能在使用本系統(tǒng)。",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//////////修改個(gè)人密碼DimxgmmAsNewFrmXTGL(4,Username)xgmm.Show()EndSub在FormXTGL.vb窗體中:'//////////引入系統(tǒng)命名空間文件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…………同樣也可在工具欄中對(duì)用戶密碼進(jìn)行修改.用戶查詢登錄時(shí)間代碼如下:在FrmMain.vb窗體下:PrivateSubMenuItem29_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem29.Click‘/////調(diào)用用戶登錄時(shí)間窗體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登錄時(shí)間表(用戶名,用戶類型,登錄時(shí)間)values('"&Label4.Text.Trim&"','"&Label5.Text&"','"&s.Substring(0,15)&"')",conn)Try