【正文】 當(dāng)審核用戶點擊其中一個按鈕時，則會調(diào)用 BtnSubmit1_Click（）或BtnSubmit2_Click（）事件處理程序，同時也將數(shù)據(jù)提交到數(shù)據(jù)庫表之中。當(dāng)用戶選擇未經(jīng)審批字段時，則顯示未經(jīng)審批的 員工列表，在該 DataGrid中我們加入一列 MoreDetail，點擊它則顯示該員工請假申請的具體事宜，包括請假理由，請假天數(shù)等。 在 Page_Load（）事件處理程序中，我們初始化員工申請下拉列表，列表包括已經(jīng)審批和未經(jīng)審批字段。 ] CurItem = CurItem + (1) (CurItem) End While 初始化轉(zhuǎn)正類型下拉列表 : = select types_types from types_table MyRdr = () () While () ((0)) End While () 提交按鈕的 Btn_Submit_Click（）事件處理程序 : = Insert into 江蘇大學(xué)本科畢業(yè)論文 基于 .NET 的人事管理系統(tǒng) 29 types_table(emp_contract_begin,emp_contract_end,emp_department,emp_contract_type) values (empid,empBdate,empEdate,empdept,emptype) (empBdate, ()) (empEdate, ()) (empDept, ()) (emptype, ) () = Update employ ([emp_types]) values (emptpye) (emptpye, ) (empBdate, ()) (empEdate, ()) () () = 成功添加了這個合同記錄 . = 轉(zhuǎn)正成功 請假審批 Web頁面的設(shè)計和實現(xiàn) 本頁面主要是部門負(fù)責(zé)人員對本部門員工的請假申請進(jìn)行審批，同時還可以顯示已經(jīng)審批過的一些請假申請。order by emp_id MyRdr = () While () CurItem = [ amp。Nowamp。 初始化使用到期的員工下拉列表 : = select emp_id,emp_name from employ_table Where emp_temp_E_time =39。 在 Page_Load（）事件處理程序中，我們初始化使用到期的員工下拉列表和轉(zhuǎn)正類型下拉列表，當(dāng)用戶選擇用戶之后顯示該員工的一些基本數(shù)據(jù)。 員工轉(zhuǎn)正 Web頁面的設(shè)計和實現(xiàn) 首先我們具體分析該頁面要實現(xiàn)的功能，它要求顯示在職員工的使用情況，主要是它的合同類型。 用 DataSet 數(shù)據(jù)集綁定 DataGrid1代碼如下： Dim DS As New DataSet() Dim MyApt As New SqlDataAdpter(MyCmd) (DS) () =(0) () If 0 Then HideThem()//自定 義方法，隱藏按鈕和顯示表格 圖 38人事調(diào)動信息查詢頁面 江蘇大學(xué)本科畢業(yè)論文 基于 .NET 的人事管理系統(tǒng) 28 = + 的調(diào)動信息 Else = 該員工沒有人事調(diào)動信息 End If 員工轉(zhuǎn)正等 Web 頁面的設(shè)計和實現(xiàn) 考慮到權(quán)限管理，以下這幾個頁面主要是部門負(fù)責(zé)人員對普通員工的各項申請進(jìn)行 審核然后批準(zhǔn)提交。 在 Page_Load（）事件處理程序中，我們初始化分廠、部門、員工這三個下拉列表，并且將 DataGrid1設(shè)置為不可視（ =False）。 Str MyRdr = () () = (0) //將統(tǒng)計的數(shù)目填到文本框 () End If End If 江蘇大學(xué)本科畢業(yè)論文 基于 .NET 的人事管理系統(tǒng) 27 圖 3－ 7關(guān)于職務(wù)的人事統(tǒng)計查詢頁面 人事調(diào)動信息查詢 Web 頁面的設(shè)計和實現(xiàn) 在該頁面中，我們可以查看某分廠某部門某員工在本單位的人事調(diào)動信息。用戶選擇所要統(tǒng)計的字段，比如說選擇“審計”提交，結(jié)果 TextBox顯示為 3. 圖 36關(guān)于技術(shù)職稱的人事統(tǒng)計查詢頁面 下面的代碼則是初始化下拉列表： If = 4 Then//用戶選擇了技術(shù)職稱選項 = True //下拉列表可視 = True = True //標(biāo)簽“人數(shù)”可視 = True //文本框可視 = 技術(shù)職稱 //標(biāo)簽 “技術(shù)職稱” = True = select from TTOATP_table t1,employ_table t2 Where =//查詢“技術(shù)職稱”的種類 MyRdr = () () //清空下拉列表 While () //讀取并綁定技術(shù)職稱的種類 江蘇大學(xué)本科畢業(yè)論文 基于 .NET 的人事管理系統(tǒng) 26 ((0)) End While () End If 提交部分代碼如下： If = 4 Then If 0 Then //沒有選擇技術(shù)職稱類型 = 請選擇您要統(tǒng)計的 技術(shù)職稱 Exit Sub Else Dim Str As String Str = select TOATP_id from duty_table Where TOATP_types=amp。如圖 3－ 6和圖 3－ 7所示。 其中，對象 MyRdr是我們定義的 SqlDataReader對象，該對象的方法有很多，在這里必須根據(jù)我們要添加的字段 FMT_Name的數(shù)據(jù)類型來決定 GetString或是 GetValue。 開 始從 分 廠 表 提 取所 有 分 廠 名 稱及 I D 號根 據(jù) 分 廠 I D 號 到 部門 表 中 提 取 部 門 名稱 和 I D 號根 據(jù) 部 門 I D 到崗 崗 崗 崗 崗 崗 崗 崗崗 崗 崗 崗根 據(jù) 崗 崗 崗 崗 崗 崗 崗 I D 崗 崗崗 崗 崗 崗 崗 崗 崗 崗 崗 崗 崗 崗 崗結(jié) 束 圖 3－ 4人力資源查詢的設(shè)計流程 添加下拉列表選項的代碼如下： = Select FMT_Name from Factory_More_Table MyRdr = () While () ((0))//其中 NameList為下拉列表的 ID End While 由于添加下拉列表的選項是輕量級的數(shù)據(jù)流，所以我們選擇 SqlDataReader對象，而不是 DataSet對象，因為 DataTable很小，數(shù)據(jù)庫吞吐速度的提升抵消了中間層上內(nèi)存的損耗。在 Page_Load（）事件處理程序中，我們將 DataGrid2設(shè)置為不可視（ =False），而其他控件均默認(rèn)為可視；并且初始化下拉列表。當(dāng)這個頁面成功 Page_Load之后，我們才可以查看分廠的人員配置。下拉列表中選項的名稱均從數(shù)據(jù)庫中選取，這樣以便于總公司擴(kuò)建時，信息可以靈活而即時的更新。 江蘇大學(xué)本科畢業(yè)論文 基于 .NET 的人事管理系統(tǒng) 23 人力資源 Web頁面的設(shè)計和實現(xiàn) 根據(jù)圖 3－ 4，我們將主頁面的布置設(shè)計如下圖 3－ 5。 人力資源 Web頁面的設(shè)計和實現(xiàn) 人力資源查詢的設(shè)計流程 人力資源頁面主要實現(xiàn)崗位配置情況的查詢，可以查看各個分廠各個部門不同崗位的人員數(shù)量和其他一些相關(guān)的數(shù)據(jù)。 MyRdr = () () If =1 Then 39。（源碼見附錄）其中與數(shù)據(jù)庫的鏈接代碼如下： = CStr((CnnStr))/*連接字符串 CnnStr*/ () /*打開連接 */ = MyCnn 用戶權(quán)限管理代碼設(shè)計如： StrId = If StrId = Then = 輸入用戶 End If pwd = = Select count(*) from employ_table where emp_id=amp。我們打開 ，找到 authentication和authorization元素，將它們的值修改如下： authentication mode=Forms forms loginUrl=/ /*使用 Index Web窗體來驗證用戶 */ /authentication authorization deny users=?/ /*匿名用戶不能訪問該應(yīng)用程序中的任何頁面 */ /authorization 其中， forms身份驗證的設(shè)置后面包含一個 loginUrl設(shè)置，該設(shè)置指向一個用于身份驗證的 Web窗體頁。 我們使用 IIS管理控制臺（ Start、 program、 Administrative Tool、 Inter Services Manager）將應(yīng)用程序設(shè)置為允許匿名訪問，這樣的設(shè)置意味著 IIS不再處理身份驗證，它把責(zé)任委托給 。在用戶登陸前顯示所有的項目，當(dāng)用戶沒有登陸或者登錄出錯時，我們將返回主頁面或提示出錯信息。如圖 3－ 3所示。對于 SQL數(shù)據(jù)提供者的連接字符串“ CnnStr”，我們沒有定義 Provider參數(shù)，因為這樣會產(chǎn)生一個異常。故此處密碼也為 39。在這個會話變量中，提供了 MSDE引擎的名稱： localhost；所要連接的數(shù)據(jù)庫的名稱： Test；用戶訪問該數(shù)據(jù)庫使用的權(quán)限： sa；由于我們在數(shù)據(jù)庫安全設(shè)置使用通過 sql身份驗證策略，其密碼設(shè)置為 39。User ID = sa。在 Session_Start（）這個子過程中添加創(chuàng)建會話的代碼： (CnnStr, Initial Catalog=Test。在這種狀態(tài)下，用戶第一次訪 問你的 Web時， 戶創(chuàng)建一個會話，且該會話一直保持到信息被刪除或者會話超時；而會話級數(shù)據(jù)能夠在不同的頁面之間持續(xù)，卻不能在不同用戶之間以及同一個用戶對該站點的不同訪問之間持續(xù)。 它們的內(nèi)容如表 3－ 3所示 ： 文件名稱 內(nèi)容 應(yīng)用程序配置信息 應(yīng)用程序級事件處理程序 默認(rèn)的 HTML樣式設(shè)置 權(quán)限信息 使用 Web服務(wù)的信息鏈接 產(chǎn)品信息，如版本信息和技術(shù)支持信息 表 3－ 3 由于應(yīng)用程序狀態(tài)（指 Web應(yīng)用程序能夠保存特定程序中公共數(shù)據(jù)的能力）對任何用戶而言是沒有差別的，而且應(yīng)用程序狀態(tài)沒有超時周期。在以后設(shè)計的各 Web頁面時， 。 登陸頁面的設(shè)計和實現(xiàn) 首先，我們構(gòu) 建登陸窗體，在 VS. NET中創(chuàng)建一個新的 ASP. NET Web應(yīng)用程序，默認(rèn)命名。 4) 編譯并運行 。 開發(fā) Web應(yīng)用程序 1) 選擇一個工程文件 ，“ 文件 新建 項目 Visual Basic項目 WEB應(yīng)用程序” . 2) 設(shè)置屬性 。當(dāng)通過點擊鼠標(biāo)或其它 方法引起一個事件時，事件就到達(dá)服務(wù)器并返回相應(yīng)的數(shù)據(jù)。一個 Web表單有兩個視圖：一個客戶視圖和一個服