【文章內(nèi)容簡介】 否懲罰日期數(shù)字否 職員獎勵表字段名字段類型是否主鍵序號自動編號是職員編號文本否獎勵類型文本否獎勵金額數(shù)字否是否計入工資文本否獎勵原因文本否部門意見文本否獎勵日期數(shù)字否注意：添加代碼時要注意有些代碼是有聯(lián)系的，比如，某過程可能調(diào)用其它過程。那么被調(diào)過程寫好后，主調(diào)過程調(diào)用時才是正確的。否則說某某過程沒有聲明。2學(xué)時課要完成的任務(wù)“機構(gòu)編制管理(amp。X)”菜單下的二子菜單l “機構(gòu)設(shè)置及編碼”窗體模塊frmDepManage的實現(xiàn)l “機構(gòu)詳細信息”frmDepInfo窗體模塊的實現(xiàn)1）“機構(gòu)設(shè)置及編碼”窗體frmDepManage設(shè)計、代碼及運行界面。其主要功能為：實現(xiàn)設(shè)置機構(gòu)的層次關(guān)系【把數(shù)據(jù)庫里的組織機構(gòu)在TreeView控件里顯示成層次關(guān)系】。 Public Class frmDepManage Private dvList As DataView Private Sub InitTree(ByRef nodes As TreeNodeCollection, ByVal sParentIndex As String) Try Dim tmpNode As TreeNode Dim absIndex As String Dim dvTemp As DataView = 39。選出數(shù)據(jù)源中ParentIndex為sParentIndex的數(shù)據(jù)行 Dim dataRows() As DataRow = (ParentIndex=39。 amp。 sParentIndex amp。 39。) 39。循環(huán)添加TreeNode For Each dr As DataRow In dataRows 39。獲得節(jié)點所需數(shù)據(jù) tmpNode = New TreeNode = dr(類別) absIndex= dr(AbsIndex) 39。添加節(jié)點 (tmpNode) 39。遞歸調(diào)用 InitTree(nodes( 1).Nodes, absIndex) Next Catch ex As Exception (初始化TreeViews失敗) End Try End Sub Private Sub frmDepManage_Load(ByVal sender As , ByVal e As ) Handles Dim db As New DataBase Dim strSQL As String strSQL = select * from 組織機構(gòu)編碼表 order by absIndex dvList = (strSQL) () InitTree(, 1) End SubEnd Class2）“機構(gòu)詳細信息”窗體frmDepInfo設(shè)計、相應(yīng)代碼及運行界面其功能主要是維護組織機構(gòu)的信息【比如：修改某信息后，點保存按鈕保存到數(shù)據(jù)庫】DataGridView控件注意：用代碼綁定DataGridView控件【=】2學(xué)時課要完成的任務(wù) “人員信息管理(amp。Y)”菜單下的二子菜單l “職員信息維護”窗體模塊frmPeopleManage的實現(xiàn)l “職員信息查詢”窗體模塊frmPeopleQuery的實現(xiàn)1）“職員信息維護”窗體模塊frmPeopleManage的設(shè)計、運行界面及代碼其主要功能是用于輸入和修改職員的資料代碼如下：相應(yīng)文本框控件和相應(yīng)字段綁定，DataGridView控件用代碼綁定Public Class frmPeopleManage Private iCurrentLine As Integer = 1 Private Sub SetDataGridView() = () Dim dt As DataTable dt = (職員基本信息表) 39。 = False 39。 = False = End Sub Private Sub frmPeopleManage_Load(ByVal sender As , ByVal e As ) Handles (, 職員基本信息表) Dim db As DataBase = New DataBase Dim strSQL As String = select 單位編號 from strSQL += 組織機構(gòu)編碼表 order by 單位編號 Dim dv As DataView = (strSQL) For Each drv As DataRowView In dv (drv(單位編號)) Next () SetDataGridView() 39。顯示圖片，把綁定“Images”字段的TextBox18藏在圖片框Picturebox1控件的后面 If 0 Then = () Else = Nothing End If End Sub Private Sub dgvPeopleInfo_CellClick(ByVal sender As Object, ByVal e As ) Handles Try BindingContext(, 職員基本信息表).ResumeBinding() If iCurrentLine = 1 Or iCurrentLine Then iCurrentLine = BindingContext(, 職員基本信息表).Position = End If If = (職員基本信息表). Then BindingContext(, 職員基本信息表).SuspendBinding() End If 39。顯示圖片，把綁定“Images”字段的TextBox18藏在圖片框Picturebox1控件的后面 If 0 Then = () Else = Nothing End If Catch ex As Exception () End Try End Sub Private Sub ToolStrip1_ItemClicked(ByVal sender As , ByVal e As ) Handles If Is Then Dim row As Integer row = = (row + 1).Cells(0) BindingContext(, 職員基本信息表).Position = Try If Then () (職員基本信息表). = = (row).Cells(0) (數(shù)據(jù)修改成功！) Else = (row).Cells(0) (無修改的數(shù)據(jù)！) End If Catch ex As Exception (修改的數(shù)據(jù)出錯！) End Try ElseIf Is Then Try Dim iRow As Integer iRow = If (確認要刪除此條記錄嗎？, Confirm, ) = Then (職員基本信息表).Rows(iRow).Delete() Else Exit Sub