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

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

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

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

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

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

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

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

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

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

2.7部門信息表:包括:部門編號、部門名稱、部門人數(shù)、部門級別字段字段名類型寬度Nulls1部門編號Int4否2部門名稱Char20是3部門人數(shù)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窗體中:'///////////引入系統(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//您無權(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不可見,TextBox1的Visible屬性設(shè)置為False不可見,Label3的Visible屬性設(shè)置為False不可見,ComboBox1的Visible屬性設(shè)置為False不可見,Label2的Visible屬性設(shè)置為False不可見,TextBox2的Visible屬性設(shè)置為False不可見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//////////修改個人密碼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…………同樣也可在工具欄中對用戶密碼進行修改.用戶查詢登錄時間代碼如下:在FrmMain.vb窗體下:PrivateSubMenuItem29_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem29.Click‘/////調(diào)用用戶登錄時間窗體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)Try