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

1、1概述:簡(jiǎn)單介紹本系統(tǒng)實(shí)現(xiàn)的內(nèi)容用戶登錄通過(guò)權(quán)限判斷，普通用戶不能瀏覽、閱讀和查詢信息，指定用戶可以操作， 可以進(jìn)行信息錄入、修改和刪除的操作。系統(tǒng)的主要功能特點(diǎn)有：該表單的功能是在系統(tǒng)被訪問(wèn)之前，要對(duì)進(jìn)入系統(tǒng)的用戶進(jìn)行安全性檢查，防止非法用戶進(jìn)行系統(tǒng)破壞數(shù)據(jù)及威脅系統(tǒng)安全，避免不必要的損失。只有合法的用戶在輸入正確的密碼后方可進(jìn)入系統(tǒng)。用戶在經(jīng)過(guò)正確的登錄后可進(jìn)行一1）人事管理：包括部門信息和員工信息的查看 ，進(jìn)行人員的調(diào)動(dòng)，并查看各部門員工 的福利待遇.2）考勤管理：進(jìn)行日常出勤管理和加班出差的管理3）工資管理：可對(duì)各部門員工的工資進(jìn)行登錄和查詢 .4）打?。阂詶l目或表格的形式對(duì)員工工資或

2、員工信息進(jìn)行輸出預(yù)覽5）系統(tǒng)管理：登錄用戶可對(duì)系統(tǒng)進(jìn)行管理包括增加用戶 ，修改用戶，刪除用戶和修改 密碼.值得一提的是登錄用戶進(jìn)行修改時(shí)僅限自身 ，不可對(duì)別的用戶進(jìn)行修改操作.數(shù)據(jù)庫(kù)設(shè)計(jì)：?jiǎn)T工信息表：用戶需要錄入的員工信息表主要字段包括：?jiǎn)T工編號(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否加班信息表：包括：?jiǎn)T工編號(hào)、加班日期、加班

3、天數(shù)、加班補(bǔ)助字段字段名寬度Nulls1員工編號(hào)Char10否2加班日期Char10否3加班天數(shù)Int4是4加班補(bǔ)助Numeric9(10,0)是工資福利表：包括：?jiǎn)T工編號(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)W保血Numeric9(19,4)是8其他補(bǔ)貼Numeric

4、9(19,4)是9發(fā)放時(shí)間Char20否10加班補(bǔ)助Numeric9(18,0)是11缺勤扣除Numeric9(18,0)是12實(shí)發(fā)工資Numeric9(18,0)是缺勤信息表：包括：?jiǎn)T工編號(hào)、缺勤日期、缺勤天數(shù)、缺勤類型、缺勤扣除。字段字段名寬度Nulls1員工編號(hào)Char10否2缺勤日期Char10否3缺勤天數(shù)char10是4缺勤類型Int4是5缺勤扣除char10是用戶信息表：包括：用戶名、用戶密碼、用戶類型字段字段名寬度Nulls1用戶名Char10否2用戶密碼Char20否3用戶類型int4否登錄時(shí)間表：包括：用戶名、用戶類型、登錄時(shí)間字段字段名寬度Nulls1用戶名Char10否2

5、用戶類型Char10否3登錄時(shí)間char40否部門信息表：包括：部門編號(hào)、部門名稱、部門人數(shù)、部門級(jí)別字段字段名寬度Nulls1部門編號(hào)Int4否2部門名稱Char20是3部門人數(shù)Int4是4部門級(jí)別char10是3代碼添加用戶代碼:在窗體中：ImportsImportsImportsPrivateSubMenuItem20_Click,EndSub在窗體中：ImportsImportsPublicClassFrmXTGLInheritsPrivateMyTagAsStringPrivateUsernameAsStringPrivateSubButton2_Click,DimconnstrAs

6、NewString("provider=;UserID=sa;PassWord=110;PersistSecurityInfo=false;InitialCatalog=wage;DataSource=.;")DimCnAsNewOleDbConnectionDimcmdAsOleDbCommandDimSQLStringAsStringIfEndIfTryIfMyTag=1ThenSQLString="INSERTINTO 用戶信息表(用戶名 , 用戶密碼 , 用戶類型 )"&_"VALUES('"&&

7、;"',"&CInt&","&_&")"ElseIfMyTag=2ThenSQLString="DELETE 用戶信息表 WHERE戶名='"&&""ElseIfMyTag=3ThenSQLString="UpDate用戶信息表 SET用戶密碼='"&&_"',用戶類型="&&"WHER四戶名="&_&&quo

8、t;'"ElseIfMyTag=4Then=UsernameThenSQLString="UpDate用戶信息表 SET用戶密碼='"&&_"'WHERE用戶名='"&&"”'ElseExitSubEndIfEndIf=connstr() cmd=NewOleDbCommand(SQLString,Cn)()CatchexAsExceptionMsgBoxEndTry()()=FalseGetUser()EndSub修改用戶界面代碼如下：在窗體中：'&qu

9、ot;)DimCnAsNewOleDbConnectionDimcmdAsOleDbCommandDimSQLStringAsStringEndSub在窗體中： “確定”按鈕的 Text 屬性變?yōu)椤皠h除” ， Label1 的 Visible 屬性設(shè)置為False 不可見(jiàn)， TextBox1 的 Visible 屬性設(shè)置為 False 不可見(jiàn)， Label3 的 Visible屬性設(shè)置為False不可見(jiàn)，ComboBox的Visible 屬性設(shè)置為False不可見(jiàn)，Label2的 Visible 屬性設(shè)置為 False 不可見(jiàn)， TextBox2 的 Visible 屬性設(shè)置為 False 不

10、可見(jiàn)PrivateSublogin_Load,GetUser()=FalseEndIfEndSub在窗體中：PrivateSubButton2_Click,DimconnstrAsNewString("provider=;UserID=sa;PassWord=110;PersistSecurityInfo=false;InitialCatalog=wage;DataSource=.;")DimCnAsNewOleDbConnectionDimcmdAsOleDbCommandDimSQLStringAsString=UsernameAndMyTag=2ThenIfMsgBo

11、x(" 如果刪除自己的賬戶，將不能在使用本系統(tǒng)。 "," 警告！ ")=EndIfTryIfMyTag=1ThenSQLString="INSERTINTO 用戶信息表(用戶名 , 用戶密碼 , 用戶類型 )"&_"VALUES('"&&"',"&CInt&","&_&")"ElseIfMyTag=2ThenSQLString="DELETE 用戶信息表 WHERE戶名=&#

12、39;"&&""ElseIfMyTag=3ThenSQLString="UpDate用戶信息表 SET用戶密碼='"&&_"',用戶類型="&&"WHER四戶名="&_&"'"ElseIfMyTag=4Then=UsernameThenSQLString="UpDate用戶信息表 SET用戶密碼='"&&_"'WHERE用戶名='

13、"&&"”'ElseEndIf=connstr()cmd=NewOleDbCommand(SQLString,Cn)()EndSub修改用戶代碼如下：在窗體中：PrivateSubMenuItem26_Click,")DimCnAsNewOleDbConnectionDimSQLStringAsString用戶查詢登錄時(shí)間代碼如下：在窗體下：PrivateSubMenuItem29_Click, database=wage;integratedsecurity=sspi;")PrivateSubButton2_Click,If=A

14、nd>0ThenDimmfAsNewFrmMain,DimsAsString=DimcAsNewSqlCommand("insertinto 登 錄 時(shí) 間 表 ( 用 戶 名 , 用 戶 類 型 , 登 錄 時(shí)間)valuesC"&&""&&""&(0,15)&"')",conn)Try()()()()()CatchexAsExceptionMsgBoxEndTryElseMsgBox("請(qǐng)選擇您的姓名并輸入正確的密碼！")EndI

15、fEndSub在 Formdlsj 窗體下：ImportsPublicClassFormdlsjInheritsDimconAsNewSqlConnection("datasource=.;database=wage;integratedsecurity=sspi")DimdsAsNewDataSetPrivateSubFormdlsj_Load,DimadAsNewSqlDataAdapter("select*from 登錄時(shí)間表",con)()(ds)(0).=" 登錄時(shí)間 "=(0).DefaultViewEndSubEndClass第五章課程設(shè)計(jì)總結(jié)本系統(tǒng)從功能上可以分為下列五個(gè)模塊：系統(tǒng)管理、部門管理、人員管理、工資管理及打印管理。系統(tǒng)管理(包括用戶管理) ：分為系統(tǒng)用戶和普通用戶，主要對(duì)公司員工信息修整和查看，同時(shí)可以添加刪除