【正文】 ?!, , 提示) 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語句 MsgBox(添加個人基本信息成功!, , 提示) Call DBclose()//關(guān)閉數(shù)據(jù)庫 Call text_ReadOnly_true() = True = True Call tv_true() () () Call tv1() Call GetNode() End If End If包括修改、刪除（刪除員工只是將該員工登記為無效，并不要求從表中刪除）.輸入員工號后按回車或點擊查詢按鈕，查詢待修改員工基本信息，各輸入框初始狀態(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 = 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 IfMsgBox(修改個人基本信息成功!, , 提示)//刪除員工基本信息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(請選擇或查詢要修改的數(shù)據(jù)!, , 提示) End If Case 2If 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(刪除成功!, , 提示) Call () Call () = True Call () End If ElseMsgBox(請選擇或查詢要刪除的數(shù)據(jù)!, , 提示) End If() End Select可以根據(jù)不同的條件組合，查詢員工的基本信息，查詢條件包括所屬部門、編號、姓名，和在職情況。同時應(yīng)具有查詢標專為無效的員工的作用。多條件查詢是本模塊重點考慮的內(nèi)容，本設(shè)計完成了對多字段、多條件的查詢，其實現(xiàn)程序如源程序分析： //按姓名查詢 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(對不起,沒有查詢到該數(shù)據(jù)!, , 提示) End If Else MsgBox(請輸入要查找的姓名, , 提示) End If//按員工編號查詢 Dim dgvds As New DataSet Dim da As SqlDataAdapter Dim strdgv As String If Then Call DBopen() strdgv = select emp_id as 員工編號,…… (dgvds, empinfo) = (empinfo) = Nothing Dim i As Integer ta = (empinfo) Call DBclose() If (dgvds, empinfo).Count = 0 Then MsgBox(對不起,沒有查詢到該數(shù)據(jù)!, , 提示) End If結(jié) 論系統(tǒng)只要功能、特點、優(yōu)化介紹系統(tǒng)主要功能企業(yè)人事管理系統(tǒng)主要功能：員工信息與檔案管理。全面廣泛的記錄員工信息，具備查詢功能，按任意條件查找員工，方便查看員工的雇傭信息和待遇信息，方便查看待遇歷史記錄，培訓(xùn)記錄，出勤記錄等一切與員工相關(guān)的信息。系統(tǒng)的特色、優(yōu)化介紹1. 本系統(tǒng)根據(jù)企業(yè)人事管理的實際需求和需要進行設(shè)計和開發(fā)，切合實際。2. 通用性能好，實用性強，易于推廣，可擴展好，系統(tǒng)運行可以在Windows 2000/Windows XP/Windows2003操作系統(tǒng)上，數(shù)據(jù)庫采用SQl2000，通用性強。3. 功能強大，綜合性強4. 有機結(jié)合計算機自動處理與人工處理5. 用戶界面友好，模塊清晰，操作簡單，使用方便6. 安全性高好，可靠性高7. 擴展性好，發(fā)展?jié)摿Υ笙到y(tǒng)存在的不足與改進方案系統(tǒng)存在的不足系統(tǒng)不足：由于時間餐倉促，所以本系統(tǒng)還不完善，功能還不是很強大，一些細節(jié)問題還沒有考慮到，再者由于作者水平有限，審美觀不太好的關(guān)系，本系統(tǒng)的界面不是很美觀，顯得比較粗糙。具體地說，不能由系統(tǒng)控制登陸的使用時間，而且身份驗證模塊比較簡單。目前采用的是單機版，已經(jīng)不大適應(yīng)發(fā)展趨勢，可能用不了多久又得更新為B/S或C/S。改進方案對于此系統(tǒng)要求從美觀、功能和技術(shù)上三個方面做重點改進。美觀方面當(dāng)然是提高審美觀點，盡可能做到界面美觀，且方便工作人員使用：功能方面要擴大此系統(tǒng)的功能，以前沒有的實現(xiàn)的現(xiàn)在要實現(xiàn)出來而且進行功能的擴展（例如員工工資管理模塊等）；技術(shù)方面的改進，現(xiàn)在的系統(tǒng)雖然基本上實現(xiàn)了，但很多方面沒有考慮清楚，比如說安全性方面，還存在比較多的漏洞，如何消除這些漏洞要作為重點來做。參 考 書 目[1]楊學(xué)會 李英杰 劉輝，《Visual 程序設(shè)計》，第一版，北京：中國鐵道出版社，[2]丁兆海 杜軍 ，《Visual 案例教程》，第一版，北京：電子科技出版社，[3]張秀玉，《SQl Server 數(shù)據(jù)庫程序設(shè)計》，第二版，北京：機械工業(yè)出版社，[4]程曉林 宋曉林 黃志超，《Visual 數(shù)據(jù)庫高級編程》，第一版，北京：清華大學(xué)出版設(shè)，