企業人事管理系統本科畢業論文-資料下載頁

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

　　

【正文】 Timer1_Elapsed(ByVal sender As Object, ByVal e As ) Handles (2).Text = 日期： amp。 (3).Text = 時間： amp。 End Sub //用戶查看自己權限代碼實現，通過彈出窗口顯示 Private Sub MenuItem24_Click(ByVal sender As , ByVal e As ) Handles Dim str As String str = 你的權限有 : 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。 報表輸出 √ amp。 Chr(10) Else str = str amp。 報表輸出 amp。 Chr(10) If userlevel = 1 Then str = str amp。 系統管理員 MsgBox(str, , 查看權限 ) End Sub 企業人事管理系統 畢業論文 24 //單擊退出時，彈出確認提示，防止用戶誤點造成意外退出 Private Sub MenuItem20_Click(ByVal sender As , ByVal e As ) Handles If MsgBox(你確定是否退出系統 ?, + , 提示 ) = Then End End If End Sub //用戶自定義界面，可以選擇顯示工具欄和狀態欄 Private Sub MenuItem18_Click(ByVal sender As , ByVal e As ) Handles If = True Then = False Else = True End If End Sub 基本信息 模塊的實現 員工基本信息輸入 功能說明 完成新員工人事檔案的建立。首先檢查用戶是否具有錄入信息權限，如果有進入基本信息頁面，初始狀態下所有輸入和選擇框框均無效，只有點新增按鈕后才可用，同時提交按鈕變成有效。員工姓名、編號、部門為必填項。員工編號為系統自動生成，員工部門通過提示框選擇。可以添加員工照片，如果沒有默認為系統照片，輸入完成后點擊保存即可完成員工基本信息的添加。 企業人事管理系統 畢業論文 25 屏幕格式說明 新員工資料錄入界面 源程序分析 //判斷必填項是否填寫 If = Or = Or = Then MsgBox(必填項有空 ,請填入 !, , 提示 ) Else If = 雙擊選擇部門 Then MsgBox(怎么不選取部門呢 ?!, , 提示 ) Else Call DBopen()//打開數據庫鏈接 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 ()//執行 SQL語句 企業人事管理系統 畢業論文 26 MsgBox(添加個人基本信息成功 !, , 提示 ) Call DBclose()//關閉數據庫 Call text_ReadOnly_true() = True = True Call tv_true() () () Call tv1() Call GetNode() End If End If 員工基本信息維護 功能說明 包括修改、刪除（刪除員工只是將該員工登記為無效，并不要求從表中刪除） .輸入員工號后按回車或點擊查詢按鈕，查詢待修改員工基本信息，各輸入框初始狀態為只讀， 源程序分析 //修改員工基本信息 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 = 企業人事管理系統 畢業論文 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(修改個人基本信息成功 !, , 提示 ) //刪除員工基本信息 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(請選 擇或查詢要修改的數據 !, , 提示 ) End If Case 2 If And Then If MsgBox(你要刪除姓名為 : amp。 Trim() amp。 編號為 : 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(刪除成功 !, , 提示 ) 企業人事管理系統 畢業論文 28 Call () Call () = True Call () End If Else MsgBox(請選擇或查詢要刪除的數據 !, , 提示 ) End If () End Select 員工基本信息條件查詢 功能說明 可以根據不同的條件組合，查詢員工的基本信息，查詢條件包括所屬部門、編號、姓名，和在職情況。同時應具有查詢標專為無效的員工的作用。 多條件查詢是本模塊重點考慮的內容，本設計完成了對多字段、多條件的查詢，其實現程序如源程序分析： 界面設計 企業人事管理系統 畢業論文 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(對不起 ,沒有查詢到該數據 !, , 提示 )