【導(dǎo)讀】現(xiàn)在是一個(gè)科學(xué)技術(shù)飛速發(fā)展、知識(shí)更替日新月異的世紀(jì)。各個(gè)領(lǐng)域，并且形成了功能強(qiáng)大、覆蓋全球的信息傳輸網(wǎng)絡(luò)。人事管理是很多廠礦、公司、個(gè)體事業(yè)單位所須的，人事信息管理系統(tǒng)包括。統(tǒng)更具有安全性、數(shù)據(jù)共享性、可移置性。編程開發(fā)出了“企業(yè)人事管理系統(tǒng)”。本系統(tǒng)采用企業(yè)現(xiàn)有軟硬件環(huán)境，及先進(jìn)的。需要，并達(dá)到操作過程中的直觀、方便、實(shí)用、安全等要求。除、修改、備份等操作。下面詳細(xì)討論了該系統(tǒng)的開發(fā)、設(shè)計(jì)環(huán)境、實(shí)現(xiàn)算法及

　　

【正文】 Timer1_Elapsed(ByVal sender As Object, ByVal e As ) Handles (2).Text = 日期： amp。 (3).Text = 時(shí)間： amp。 End Sub //用戶查看自己權(quán)限代碼實(shí)現(xiàn)，通過彈出窗口顯示 Private Sub MenuItem24_Click(ByVal sender As , ByVal e As ) Handles Dim str As String str = 你的權(quán)限有 : amp。 Chr(10) If user_s = 1 Then str = str amp。 查詢 √ amp。 Chr(10) Else str = str amp。 查詢 amp。 Chr(10) If user_a = 1 Then str = str amp。 增加 √ amp。 Chr(10) Else str = str amp。 增加 amp。 Chr(10) If user_e = 1 Then str = str amp。 修改 √ amp。 Chr(10) Else str = str amp。 修改 amp。 Chr(10) If user_d = 1 Then str = str amp。 刪除 √ amp。 Chr(10) Else str = str amp。 刪除 amp。 Chr(10) If user_p = 1 Then str = str amp。 報(bào)表輸出 √ amp。 Chr(10) Else str = str amp。 報(bào)表輸出 amp。 Chr(10) If userlevel = 1 Then str = str amp。 系統(tǒng)管理員 MsgBox(str, , 查看權(quán)限 ) End Sub 企業(yè)人事管理系統(tǒng) 畢業(yè)論文 24 //單擊退出時(shí)，彈出確認(rèn)提示，防止用戶誤點(diǎn)造成意外退出 Private Sub MenuItem20_Click(ByVal sender As , ByVal e As ) Handles If MsgBox(你確定是否退出系統(tǒng) ?, + , 提示 ) = Then End End If End Sub //用戶自定義界面，可以選擇顯示工具欄和狀態(tài)欄 Private Sub MenuItem18_Click(ByVal sender As , ByVal e As ) Handles If = True Then = False Else = True End If End Sub 基本信息 模塊的實(shí)現(xiàn) 員工基本信息輸入 功能說明 完成新員工人事檔案的建立。首先檢查用戶是否具有錄入信息權(quán)限，如果有進(jìn)入基本信息頁面，初始狀態(tài)下所有輸入和選擇框框均無效，只有點(diǎn)新增按鈕后才可用，同時(shí)提交按鈕變成有效。員工姓名、編號(hào)、部門為必填項(xiàng)。員工編號(hào)為系統(tǒng)自動(dòng)生成，員工部門通過提示框選擇?？梢蕴砑訂T工照片，如果沒有默認(rèn)為系統(tǒng)照片，輸入完成后點(diǎn)擊保存即可完成員工基本信息的添加。 企業(yè)人事管理系統(tǒng) 畢業(yè)論文 25 屏幕格式說明 新員工資料錄入界面 源程序分析 //判斷必填項(xiàng)是否填寫 If = Or = Or = Then MsgBox(必填項(xiàng)有空 ,請(qǐng)?zhí)钊?!, , 提示 ) Else If = 雙擊選擇部門 Then MsgBox(怎么不選取部門呢 ?!, , 提示 ) Else Call DBopen()//打開數(shù)據(jù)庫鏈接 Call P_stream() Dim str_insert_empinfo As String//定義 SQL插入語句 str_insert_empinfo = insert into empinfo(emp_id,emp_name,emp_sex,emp_birthday,emp_dpt,emp_job,emp_tt,emp_dip,emp_dra,...... Dim cmd As New SqlCommand(str_insert_empinfo, connection) (@bytes, ).Value = Bytes ()//執(zhí)行 SQL語句 企業(yè)人事管理系統(tǒng) 畢業(yè)論文 26 MsgBox(添加個(gè)人基本信息成功 !, , 提示 ) Call DBclose()//關(guān)閉數(shù)據(jù)庫 Call text_ReadOnly_true() = True = True Call tv_true() () () Call tv1() Call GetNode() End If End If 員工基本信息維護(hù) 功能說明 包括修改、刪除（刪除員工只是將該員工登記為無效，并不要求從表中刪除） .輸入員工號(hào)后按回車或點(diǎn)擊查詢按鈕，查詢待修改員工基本信息，各輸入框初始狀態(tài)為只讀， 源程序分析 //修改員工基本信息 Call DBopen() Dim str_update As String str_update = update empinfo set emp_name=39。 amp。 ...... where emp_id=39。 amp。 Trim() amp。 39。 Dim cmd As New SqlCommand(str_update, connection) () Call DBclose() If Is Nothing Then Else Call DBopen() Dim Stream As New (Stream, ) () Bytes = 企業(yè)人事管理系統(tǒng) 畢業(yè)論文 27 Dim SQL As String = update empinfo set emp_photo=@bytes where emp_id=39。 amp。 Trim() amp。 39。 Dim mand As New (SQL, connection) (@bytes, ).Value = Bytes () Call DBclose() End If MsgBox(修改個(gè)人基本信息成功 !, , 提示 ) //刪除員工基本信息 Dim a As Integer Dim t As String a = t = (a).Text Select Case () Case 0 Call text_ReadOnly_false() = False = False Call text_nothing() Case 1 If And Then update_id = 1 Call () Call () Call () = False Else MsgBox(請(qǐng)選 擇或查詢要修改的數(shù)據(jù) !, , 提示 ) End If Case 2 If And Then If MsgBox(你要?jiǎng)h除姓名為 : amp。 Trim() amp。 編號(hào)為 : amp。 Trim() amp。 的員式工嗎 ?, + , 提示 ) = Then Call DBopen() Dim cmd As New SqlCommand(delete from empinfo where emp_id=39。 amp。 Trim() amp。 39。, connection) () Call DBclose() MsgBox(刪除成功 !, , 提示 ) 企業(yè)人事管理系統(tǒng) 畢業(yè)論文 28 Call () Call () = True Call () End If Else MsgBox(請(qǐng)選擇或查詢要?jiǎng)h除的數(shù)據(jù) !, , 提示 ) End If () End Select 員工基本信息條件查詢 功能說明 可以根據(jù)不同的條件組合，查詢員工的基本信息，查詢條件包括所屬部門、編號(hào)、姓名，和在職情況。同時(shí)應(yīng)具有查詢標(biāo)專為無效的員工的作用。 多條件查詢是本模塊重點(diǎn)考慮的內(nèi)容，本設(shè)計(jì)完成了對(duì)多字段、多條件的查詢，其實(shí)現(xiàn)程序如源程序分析： 界面設(shè)計(jì) 企業(yè)人事管理系統(tǒng) 畢業(yè)論文 29 源程序分析 //按姓名查詢 Dim dgvds As New DataSet Dim da As SqlDataAdapter Dim strdgv As String If Then Call DBopen() strdgv = select emp_id as...... da = New SqlDataAdapter(strdgv, connection) (dgvds, empinfo) = (empinfo) = Nothing Dim i As Integer ta = (empinfo) Call DBclose() If (dgvds, empinfo).Count = 0 Then MsgBox(對(duì)不起 ,沒有查詢到該數(shù)據(jù) !, , 提示 )