人力資源管理系統(tǒng)說明

1、PAGE PAGE 56“人力資源管理系統(tǒng)”項目開發(fā)實訓說明一 項目開發(fā)實訓進度說明2學時課要完成的任務：完成主界面的設計；數(shù)據(jù)庫類DataBase的定義和使用；登陸界面的設計1）主界面設計如圖2）數(shù)據(jù)庫類Database的定義和使用說明：因為各個窗體均需要對數(shù)據(jù)庫進行訪問，可以把對數(shù)據(jù)庫的一些操作通過一個類來實現(xiàn)，這樣可以使對數(shù)據(jù)庫的訪問更加簡單。類的定義請參考相應截圖和代碼類的定義Imports System.DataImports System.Data.OleDbImportsSystem.ComponentModelPublicClass DataBaseImplements IDi

2、sposable 實現(xiàn)接口IDisposable，主要用來“顯示釋放資源”Private OledbConn As OleDbConnection 數(shù)據(jù)庫連接對象Private trans As OleDbTransaction 事務處理對象Dim OledbComm As OleDbCommandPublicShared sConn AsString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=hrmbook.mdb;Persist Security Info=FalsePrivate disposedValue AsBoolean = Fa

3、lse 檢測冗余的調用ProtectedOverridableSub Dispose(ByVal disposing AsBoolean)IfNotMe.disposedValue ThenIf disposing Then TODO: 顯式調用時釋放非托管資源If OledbConn IsNothing = FalseThen OledbConn.Dispose() OledbConn = NothingEndIfEndIf TODO: 釋放共享的非托管資源EndIfMe.disposedValue = True本部分代碼自動添加的EndSub本部分代碼自動添加的#Region IDispo

4、sable Support Visual Basic 添加此代碼是為了正確實現(xiàn)可處置模式。PublicSub Dispose() Implements IDisposable.Dispose 不要更改此代碼。請將清理代碼放入上面的 Dispose(ByVal disposing As Boolean) 中。 Dispose(True) GC.SuppressFinalize(Me)EndSub#EndRegionPublicSub Open()If OledbConn IsNothing = TrueThen建立數(shù)據(jù)庫連接對象 OledbConn = New OleDbConnection(s

5、Conn) me.sConn打開數(shù)據(jù)庫連接 OledbConn.Open()EndIfEndSubPublicSub Close()如果數(shù)據(jù)庫連接對象不為空則關閉數(shù)據(jù)庫連接If OledbConn IsNothing = FalseThen OledbConn.Close()EndIfEndSubPublicFunction RunSelectSQL(ByVal sSQLString As System.String) As DataView本過程的功能：對數(shù)據(jù)庫的操作【按條件選擇合適的記錄】Me.Open()Dim OledbDS As DataSet = New DataSetDim Ol

6、edbDA As OleDbDataAdapter = New OleDbDataAdapter(sSQLString, Me.OledbConn) OledbDA.Fill(OledbDS)Return OledbDS.Tables(0).DefaultViewEndFunctionPublicSub RunDelOrInsSQL(ByVal sSQLString As System.String)本過程的功能：對數(shù)據(jù)庫的操作【執(zhí)行刪除或插入操作】Me.Open()Dim OledbComm As OleDbCommand = New OleDbCommand(sSQLString,Me.O

7、ledbConn) OledbComm.ExecuteNonQuery()EndSubPublicSub RunMulDelOrInsSQL(ByVal arr As ArrayList)本過程的功能：對數(shù)據(jù)庫的操作【批量的執(zhí)行刪除或插入操作，用到了事物處理的作用】Me.Open() trans = OledbConn.BeginTransactionDim i AsIntegerTryFor i = 0 To arr.Count - 1 OledbComm = New OleDbCommand(arr(i), Me.OledbConn) OledbComm.Transaction = tra

8、ns OledbComm.ExecuteNonQuery()Next i trans.Commit()Catch ex As Exception trans.Rollback()ThrowNew ExceptionEndTryEndSubPublicFunction getResult(ByVal strSql AsString) As OleDbDataReader本過程的功能：對數(shù)據(jù)庫的操作【按條件讀出合適的記錄】Me.Open() OledbComm = New OleDbCommand(strSql, Me.OledbConn)Dim dr As OleDbDataReader = O

9、ledbComm.ExecuteReader()Return drEndFunctionEndClassDataBase類截圖DataBase類截圖DataBase類截圖DataBase類截圖事務是作為包執(zhí)行的一組數(shù)據(jù)庫命令。利用事務，您的應用程序將能夠在事務進程中的任何部分出現(xiàn)任何錯誤時中止（回滾）所有已在事務中執(zhí)行的更改。例如，假設某個應用程序具有兩個表，其中一個表示庫存清單，而另一個表示訂單。當向一個表添加訂單時，需要在另一個表中減少相應的庫存。如果對訂單表的更新成功但對庫存清單表的更新失敗，則將損壞數(shù)據(jù)的完整性。為了確保兩個表都成功進行更新，可以將兩個數(shù)據(jù)命令都打包到一個事務中。如果一

10、個表成功更新而另一個表未成功更新，則可以回滾整個事務，解決導致失敗的問題，然后重試該事務。3)登陸界面設計及相應代碼附主界面代碼以及代碼截圖:（要把啟動對象設置為Sub Main）PublicClass frmMainPublicSharedSubMain()Dim frml AsNew frmLogin frml.ShowDialog() 先顯示登陸界面窗體，用戶編號，密碼等信息正確才允許顯示主界面If frml.bResult ThenDim fm AsNew frmMain fm.ShowDialog()EndIfEndSubPrivateFunction GetInstanceStat

11、e(ByVal name AsString) AsBoolean本過程功能是判斷某子窗體是否已存在Dim i AsInteger = Me.MdiChildren.LengthFor i = 0 ToMe.MdiChildren.Length - 1IfMe.MdiChildren(i).Name = name ThenMe.MdiChildren(i).Focus()ReturnTrueEndIfNextReturnFalseEndFunction“機構編制管理(&X)”菜單下的三子菜單1）“機構設置及編碼”對應菜單的Name屬性值：機構設置及編碼ToolStripMenuItem2）“機構

12、詳細信息”對應菜單的Name屬性值：機構詳細信息ToolStripMenuItem3）“退出”對應菜單的Name屬性值：退出ToolStripMenuItemPrivateSub機構設置及編碼ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles機構設置及編碼ToolStripMenuItem.ClickIf GetInstanceState(frmDepManage) ThenExitSubEndIf frmDepManage.MdiParent = MefrmDe

13、pManage是“機構設置及編碼”模塊窗體的Name屬性值 frmDepManage.Show()EndSubPrivateSub機構詳細信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles機構詳細信息ToolStripMenuItem.ClickIf GetInstanceState(frmDepInfo) ThenExitSubEndIfDim childFrm AsNew frmDepInfo frmDepInfo是“機構詳細信息”模塊窗體的Name屬性值

14、 childFrm.MdiParent = Me childFrm.Show()EndSubPrivateSub退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles退出ToolStripMenuItem.Click Application.Exit()EndSub“人員信息管理(&Y)”菜單下的二子菜單1）“職員信息維護”對應菜單的Name屬性值：職員信息維護ToolStripMenuItem2）“職員信息查詢”對應菜單的Name屬性值：職員信息查詢ToolSt

15、ripMenuItemPrivateSub職員信息維護ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles職員信息維護ToolStripMenuItem.ClickIf GetInstanceState(frmPeopleManage) ThenExitSubEndIfDim childFrm AsNew frmPeopleManage frmPeopleManage是“職員信息維護”模塊窗體的Name屬性值 childFrm.MdiParent = Me chil

16、dFrm.Show()EndSubPrivateSub職員信息查詢ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles職員信息查詢ToolStripMenuItem.ClickIf GetInstanceState(frmPeopleQuery) ThenExitSubEndIfDim childFrm AsNew frmPeopleQuery frmPeopleQuery是“職員信息查詢”模塊窗體的Name屬性值 childFrm.MdiParent = Me c

17、hildFrm.Show()EndSub薪資福利管理(&Z)菜單下的四子菜單1）“當月工資管理”對應菜單的Name屬性值：當月工資管理ToolStripMenuItem2）“工資發(fā)放歷史”對應菜單的Name屬性值：工資發(fā)放歷史ToolStripMenuItem3）“職員獎勵管理”對應菜單的Name屬性值：職員獎勵管理ToolStripMenuItem3）“職員懲罰管理”對應菜單的Name屬性值：職員懲罰管理ToolStripMenuItemPrivateSub當月工資管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e

18、 As System.EventArgs) Handles當月工資管理ToolStripMenuItem.ClickIf GetInstanceState(frmSalaryManage) ThenExitSubEndIfDim childFrm AsNew frmSalaryManage frmSalaryManage是“當月工資管理”模塊窗體的Name屬性值 childFrm.MdiParent = Me childFrm.Show()EndSubPrivateSub工資發(fā)放歷史ToolStripMenuItem_Click(ByVal sender As System.Object, B

19、yVal e As System.EventArgs) Handles工資發(fā)放歷史ToolStripMenuItem.ClickIf GetInstanceState(frmSalaryHis) ThenExitSubEndIfDim childFrm AsNew frmSalaryHis frmSalaryHis是“工資發(fā)放歷史”模塊窗體的Name屬性值 childFrm.MdiParent = Me childFrm.Show()EndSubPrivateSub職員獎勵管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVa

20、l e As System.EventArgs) Handles職員獎勵管理ToolStripMenuItem.ClickIf GetInstanceState(frmPrize) ThenExitSubEndIfDim childFrm AsNew frmPrize frmPrize是“職員獎勵管理”模塊窗體的Name屬性值 childFrm.MdiParent = Me childFrm.Show()EndSubPrivateSub職員懲罰管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.E

21、ventArgs) Handles職員懲罰管理ToolStripMenuItem.ClickIf GetInstanceState(frmPunishInfo) ThenExitSubEndIfDim childFrm AsNew frmPunishInfo frmPunishInfo是“職員懲罰管理”模塊窗體的Name屬性值 childFrm.MdiParent = Me childFrm.Show()EndSubEndClass附數(shù)據(jù)庫介紹本系統(tǒng)的數(shù)據(jù)庫描述如下：（注意表間關系的建立，請看提供的數(shù)據(jù)庫文件hrmbook.mdb，同學們可直接使用）數(shù)據(jù)庫表（7張表）用戶清單表字段名字段類型是

22、否主鍵用戶編號文本是部門文本否姓名文本否性別文本否密碼文本否組織機構編碼表字段名字段類型是否主鍵說明內(nèi)部編號自動編號否類別文本否AbsIndex數(shù)字否記錄總機構中索引ItemIndex數(shù)字否記錄在同級結構中的索引ItemLevel數(shù)字否記錄是第幾個級別ParentIndex數(shù)字否記錄的上級結構中索引類別號文本否單位編號文本是單位名稱文本否拼音編碼文本否單位地址文本否單位電話號碼文本否開戶銀行文本否帳號文本否開戶全稱文本否職員基本信息表字段名字段類型是否主鍵內(nèi)部編號自動編號否職員編號文本是姓名文本否姓名簡碼文本否性別文本否出生日期數(shù)字否年齡數(shù)字否籍貫文本否民族文本否文化程度文本否畢業(yè)學校文本否健

23、康狀況文本否婚姻狀況文本否身份證號碼文本否家庭電話文本否辦公電話文本否手機文本否電子郵件地址文本否職工賬號文本否單位編號文本否備注文本否月工資統(tǒng)計表字段名字段類型是否主鍵日期數(shù)字否職員編號文本是基本工資數(shù)字否浮動工資數(shù)字否合同補數(shù)字否糧副補數(shù)字否房補數(shù)字否臨時補數(shù)字否職務工資數(shù)字否工齡工資數(shù)字否考核工資數(shù)字否獎金數(shù)字否應發(fā)金額合計數(shù)字否房租數(shù)字否水電費數(shù)字否請假扣除數(shù)字否考勤扣除數(shù)字否罰款數(shù)字否住房公積金數(shù)字否醫(yī)療保險數(shù)字否養(yǎng)老保險數(shù)字否失業(yè)保險數(shù)字否生育保險數(shù)字否工傷保險數(shù)字否應扣金額合計數(shù)字否工資合計數(shù)字否個人所得稅數(shù)字否實發(fā)金額數(shù)字否發(fā)放否文本否月份數(shù)字否工資發(fā)放歷史表字段名字段類型是否

24、主鍵日期數(shù)字否職員編號文本是基本工資數(shù)字否浮動工資數(shù)字否合同補數(shù)字否糧副補數(shù)字否房補數(shù)字否臨時補數(shù)字否職務工資數(shù)字否工齡工資數(shù)字否考核工資數(shù)字否獎金數(shù)字否應發(fā)金額合計數(shù)字否房租數(shù)字否水電費數(shù)字否請假扣除數(shù)字否考勤扣除數(shù)字否罰款數(shù)字否住房公積金數(shù)字否醫(yī)療保險數(shù)字否養(yǎng)老保險數(shù)字否失業(yè)保險數(shù)字否生育保險數(shù)字否工傷保險數(shù)字否應扣金額合計數(shù)字否工資合計數(shù)字否個人所得稅數(shù)字否實發(fā)金額數(shù)字否發(fā)放否文本否月份數(shù)字否職員懲罰表字段名字段類型是否主鍵序號自動編號是職員編號文本否懲罰類型文本否懲罰金額數(shù)字否是否計入工資文本否懲罰原因文本否部門意見文本否懲罰日期數(shù)字否職員獎勵表字段名字段類型是否主鍵序號自動編號是職員

25、編號文本否獎勵類型文本否獎勵金額數(shù)字否是否計入工資文本否獎勵原因文本否部門意見文本否獎勵日期數(shù)字否注意：添加代碼時要注意有些代碼是有聯(lián)系的，比如，某過程可能調用其它過程。那么被調過程寫好后，主調過程調用時才是正確的。否則說某某過程沒有聲明。2學時課要完成的任務“機構編制管理(&X)”菜單下的二子菜單“機構設置及編碼”窗體模塊frmDepManage的實現(xiàn)“機構詳細信息”frmDepInfo窗體模塊的實現(xiàn)1）“機構設置及編碼”窗體frmDepManage設計、代碼及運行界面。其主要功能為：實現(xiàn)設置機構的層次關系【把數(shù)據(jù)庫里的組織機構在TreeView控件里顯示成層次關系】。PublicClass

26、 frmDepManagePrivate dvList As DataViewPrivateSub InitTree(ByRef nodes As TreeNodeCollection, ByVal sParentIndex AsString)TryDim tmpNode As TreeNodeDim absIndex AsStringDim dvTemp As DataView = dvList.Table.DefaultView選出數(shù)據(jù)源中ParentIndex為sParentIndex的數(shù)據(jù)行Dim dataRows() As DataRow = dvList.Table.Select(

27、ParentIndex= & sParentIndex & )循環(huán)添加TreeNodeForEach dr As DataRow In dataRows獲得節(jié)點所需數(shù)據(jù) tmpNode = New TreeNode tmpNode.Text = dr(類別) absIndex=dr(AbsIndex)添加節(jié)點 nodes.Add(tmpNode)遞歸調用 InitTree(nodes(nodes.Count - 1).Nodes, absIndex)NextCatch ex As Exception MessageBox.Show(初始化TreeViews失敗)EndTryEndSubPriv

28、ateSub frmDepManage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.LoadDim db AsNew DataBaseDim strSQL AsString strSQL = select * from 組織機構編碼表 order by absIndex dvList = db.RunSelectSQL(strSQL) db.Dispose() InitTree(trvList.Nodes, -1)EndSubEndClass2）“機構詳細信息”窗體frmDepIn

29、fo設計、相應代碼及運行界面其功能主要是維護組織機構的信息【比如：修改某信息后，點保存按鈕保存到數(shù)據(jù)庫】DataGridView控件DataGridView控件注意：用代碼綁定DataGridView控件【dgvDepInfo.DataSource=dt.DefaultView】2學時課要完成的任務“人員信息管理(&Y)”菜單下的二子菜單“職員信息維護”窗體模塊frmPeopleManage的實現(xiàn)“職員信息查詢”窗體模塊frmPeopleQuery的實現(xiàn)1）“職員信息維護”窗體模塊frmPeopleManage的設計、運行界面及代碼其主要功能是用于輸入和修改職員的資料代碼如下：相應文本框控件和

30、相應字段綁定，DataGridView控件用代碼綁定PublicClass frmPeopleManagePrivate iCurrentLine AsInteger = -1PrivateSub SetDataGridView()Me.OleDbConnection1.ConnectionString = DataBase.sConnMe.OleDbDataAdapter1.Fill(Me.DataSet11)Dim dt As DataTable dt = Me.DataSet11.Tables(職員基本信息表)dt.DefaultView.AllowDelete = Falsedt.De

31、faultView.AllowNew = False dgvPeopleInfo.DataSource = dt.DefaultViewEndSubPrivateSub frmPeopleManage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.LoadMe.OleDbDataAdapter1.Fill(Me.DataSet11, 職員基本信息表)Dim db As DataBase = New DataBaseDim strSQL AsString = select 單位編號 f

32、rom strSQL += 組織機構編碼表 order by 單位編號Dim dv As DataView = db.RunSelectSQL(strSQL)ForEach drv As DataRowView In dvMe.cbbDepCode.Items.Add(drv(單位編號)Next db.Dispose() SetDataGridView()顯示圖片，把綁定“Images”字段的TextBox18藏在圖片框Picturebox1控件的后面IfMe.TextBox18.Text.Trim.Length 0 ThenMe.PictureBox1.Image = Image.FromF

33、ile(Me.TextBox18.Text.Trim)ElseMe.PictureBox1.Image = NothingEndIfEndSubPrivateSub dgvPeopleInfo_CellClick(ByVal sender AsObject, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvPeopleInfo.CellClickTry BindingContext(Me.DataSet11, 職員基本信息表).ResumeBinding()If iCurrentLine = -1 Or

34、 iCurrentLine dgvPeopleInfo.CurrentCell.RowIndex Then iCurrentLine = dgvPeopleInfo.CurrentCell.RowIndex BindingContext(Me.DataSet11, 職員基本信息表).Position = dgvPeopleInfo.CurrentCell.RowIndexEndIfIf dgvPeopleInfo.CurrentCell.RowIndex = Me.DataSet11.Tables(職員基本信息表).Rows.Count Then BindingContext(Me.DataS

35、et11, 職員基本信息表).SuspendBinding()EndIf顯示圖片，把綁定“Images”字段的TextBox18藏在圖片框Picturebox1控件的后面IfMe.TextBox18.Text.Trim.Length 0 ThenMe.PictureBox1.Image = Image.FromFile(Me.TextBox18.Text.Trim)ElseMe.PictureBox1.Image = NothingEndIfCatch ex As Exception MessageBox.Show(ex.Message)EndTryEndSubPrivateSub ToolS

36、trip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClickedIf e.ClickedItem IsMe.tbbSave ThenDim row AsInteger row = dgvPeopleInfo.CurrentCell.RowIndex dgvPeopleInfo.CurrentCell = dgvPeopleInfo.Rows(row + 1).Cells(0)

37、BindingContext(Me.DataSet11, 職員基本信息表).Position = dgvPeopleInfo.CurrentCell.RowIndexTryIfMe.DataSet11.HasChanges ThenMe.OleDbDataAdapter1.Update(Me.DataSet11)Me.DataSet11.Tables(職員基本信息表).DefaultView.RowFilter = dgvPeopleInfo.CurrentCell = dgvPeopleInfo.Rows(row).Cells(0) MessageBox.Show(數(shù)據(jù)修改成功！)Else

38、dgvPeopleInfo.CurrentCell = dgvPeopleInfo.Rows(row).Cells(0) MessageBox.Show(無修改的數(shù)據(jù)！)EndIfCatch ex As Exception MessageBox.Show(修改的數(shù)據(jù)出錯！)EndTryElseIf e.ClickedItem IsMe.tbbDel ThenTryDim iRow AsInteger iRow = dgvPeopleInfo.CurrentCell.RowIndexIf MessageBox.Show(確認要刪除此條記錄嗎？, Confirm, MessageBoxButton

39、s.YesNo) = Windows.Forms.DialogResult.Yes ThenMe.DataSet11.Tables(職員基本信息表).Rows(iRow).Delete()ElseExitSubEndIfTryIfMe.DataSet11.HasChanges ThenMe.DataSet11.AcceptChanges()Me.OleDbDataAdapter1.Update(Me.DataSet11, 職員基本信息表) MessageBox.Show(數(shù)據(jù)刪除成功！)Else MessageBox.Show(無修改的數(shù)據(jù)！)EndIfCatch ex As Exceptio

40、n MessageBox.Show(刪除數(shù)據(jù)出錯1！ & ex.Message)EndTryCatch ex As Exception MessageBox.Show(刪除數(shù)據(jù)出錯2！)EndTryEndIfEndSubPrivateSub cbbDepCode_TextChanged(ByVal sender AsObject, ByVal e As System.EventArgs) Handles cbbDepCode.TextChangedDim db As DataBase = New DataBaseDim strSQL AsString = select 單位名稱 from st

41、rSQL += 組織機構編碼表 where 單位編號= strSQL += Me.cbbDepCode.Text.Trim + Dim dv As DataView = db.RunSelectSQL(strSQL)If dv.Table.Rows.Count 0 ThenMe.TextBox16.Text = dv.Table.Rows(0)(0)ElseMe.TextBox16.Text = EndIfEndSubEndClass2）“職員信息查詢”窗體模塊frmPeopleQuery的設計、運行界面及代碼其主要功能是查詢職員的資料，但不能修改職員的信息。4學時課要完成的任務薪資福利管理(

42、&Z)菜單下的四子菜單第1次課要完成的任務：“當月工資管理”窗體模塊功能的實現(xiàn)“工資發(fā)放歷史”窗體模塊功能的實現(xiàn)第2次課要完成的任務：“職員獎勵管理”窗體模塊功能的實現(xiàn)“職員懲罰管理”窗體模塊功能的實現(xiàn)第1次課要完成的任務2學時1）“當月工資管理”窗體frmSalaryManage的設計、運行界面和代碼其主要功能是計算當月工資和工資發(fā)放其代碼如下：PublicClass frmSalaryManagePrivate dvMaster As DataViewPrivate iCurrentLine AsInteger = -1PrivateSub LoadData()Dim strSQL AsS

43、tring = select 姓名,日期,應發(fā)金額合計,應扣金額合計, strSQL += 工資合計,個人所得稅,實發(fā)金額,發(fā)放否,a.職員編號 strSQL += from 職員基本信息表 as a,月工資統(tǒng)計表 as b strSQL += where a.職員編號=b.職員編號 order by 內(nèi)部編號Dim db As DataBase = New DataBase dvMaster = db.RunSelectSQL(strSQL) dvMaster.AllowDelete = False dvMaster.AllowNew = False dvMaster.AllowEdit =

44、 False dgvSalaryInfo.DataSource = dvMaster控制某列的列寬For i AsInteger = 0 To 8根據(jù)內(nèi)容調整列寬Me.dgvSalaryInfo.Columns(i).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCellsNext控制某列是否可以點列標題進行排序For i AsInteger = 0 To 8不可以點列標題進行排序，只能靠編程Me.dgvSalaryInfo.Columns(i).SortMode = DataGridViewColumnSortMode.NotSortabl

45、eNext db.Dispose()Me.OleDbConnection1.ConnectionString = DataBase.sConnMe.OleDbDataAdapter1.Fill(Me.DataSet11, 月工資統(tǒng)計表)EndSubPrivateSub frmSalaryManage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load把新職工信息插入到工資統(tǒng)計表中Dim strSQL AsString = insert into 月工資統(tǒng)計表(職員編號) sele

46、ct 職員編號 from 職員基本信息表 as h where h.職員編號 not in (select 職員編號 from 月工資統(tǒng)計表)Dim db As DataBase = New DataBase db.RunDelOrInsSQL(strSQL) db.Dispose() LoadData()EndSubPrivateSub btnCalSalary_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalSalary.ClickIfMe.txbNowSalary.Text.T

47、rim.Length 6 Then MessageBox.Show(請輸入正確的年月數(shù)據(jù)，比如：200903，2009表示2009年，03表示3月份)ExitSubEndIfDim month AsInteger = Convert.ToInt32(Me.txbNowSalary.Text.Trim)Dim db As DataBase = New DataBaseDim arr As ArrayList = New ArrayListDim strSQL AsString = select sum(獎勵金額) as 獎金,i.職員編號 as 職員編號 from 職員獎勵表 as i wher

48、e i.是否計入工資=是 and i.獎勵日期 + Convert.ToString(month * 100) + and i.獎勵日期 + Convert.ToString(month * 100) + and i.懲罰日期 + Convert.ToString(month + 1) * 100) + group by i.職員編號 dr = db.getResult(strSQL)While (dr.Read()Dim jine AsString = dr.GetDouble(0)Dim id AsString = dr.GetString(1) strSQL = update 月工資統(tǒng)計

49、表 set 罰款= + jine.ToString() + where 職員編號= & id & and 日期= & month arr.Add(strSQL)EndWhile dr.Close() strSQL = update 月工資統(tǒng)計表 set 罰款=0 where 罰款 is null & arr.Add(strSQL) strSQL = update 月工資統(tǒng)計表 set 應扣金額合計 = 房租 + 水電費 + 請假扣除 + 罰款 + 考勤扣除 + 住房公積金 + 醫(yī)療保險 + 養(yǎng)老保險 + 失業(yè)保險 arr.Add(strSQL) strSQL = update 月工資統(tǒng)計表 s

50、et 應發(fā)金額合計 = 基本工資 + 浮動工資 + 合同補 + 糧副補 + 房補 + 臨時補+職務工資+工齡工資+ 考核工資+ 獎金 arr.Add(strSQL) strSQL = update 月工資統(tǒng)計表 set 工資合計 = 應發(fā)金額合計 - 應扣金額合計 arr.Add(strSQL) strSQL = update 月工資統(tǒng)計表 set 實發(fā)金額 = 工資合計 arr.Add(strSQL) db.RunMulDelOrInsSQL(arr) db.Dispose()重新加載數(shù)據(jù) LoadData() MsgBox(當月工資計算完畢，可以發(fā)放了！)EndSubPrivateSub

51、dgvSalaryInfo_CellClick(ByVal sender AsObject, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvSalaryInfo.CellClickIf iCurrentLine = -1 Or iCurrentLine dgvSalaryInfo.CurrentCell.RowIndex Then iCurrentLine = dgvSalaryInfo.CurrentCell.RowIndex BindingContext(Me.DataSet11, 月工資統(tǒng)計表)

52、.Position = dgvSalaryInfo.CurrentCell.RowIndexEndIfEndSubPrivateSub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.ClickDim row AsIntegerTry row = Me.dgvSalaryInfo.CurrentCell.RowIndexMe.dgvSalaryInfo.CurrentCell = dgvSalaryInfo.Rows(row +

53、 1) Mod dvMaster.Table.Rows.Count).Cells(0)保證要修改或錄入的記錄完畢（位置改變，意味該記錄錄入完畢） BindingContext(Me.DataSet11, 月工資統(tǒng)計表).Position = dgvSalaryInfo.CurrentCell.RowIndexIfMe.DataSet11.HasChanges(DataRowState.Modified) ThenMsgBox(修改記錄)Me.OleDbDataAdapter1.Update(Me.DataSet11)Me.DataSet11.Tables(月工資統(tǒng)計表).DefaultView

54、.RowFilter = Me.dgvSalaryInfo.CurrentCell = Me.dgvSalaryInfo.Rows(row).Cells(0) LoadData() MessageBox.Show(修改成功)Else MessageBox.Show(無修改的數(shù)據(jù)！)EndIfCatch ex As ExceptionMe.dgvSalaryInfo.CurrentCell = Me.dgvSalaryInfo.Rows(row).Cells(0) MessageBox.Show(修改的數(shù)據(jù)出錯 & ex.Message)EndTryEndSubPrivateSub btnGiv

55、eSalary_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGiveSalary.ClickIf MessageBox.Show(是否發(fā)放？, Confirm, _ MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes ThenDim db As DataBase = New DataBaseDim id AsString = dvMaster.Table.Rows(dgvSalaryInfo.CurrentCell.Row

56、Index)(職員編號)Dim arr As ArrayList = New ArrayListDim strSQL AsString = update 月工資統(tǒng)計表 set 發(fā)放否=是 where 職員編號= & id & arr.Add(strSQL) strSQL = insert into 工資發(fā)放歷史表 select * from 月工資統(tǒng)計表 where 職員編號= & id & arr.Add(strSQL) db.RunMulDelOrInsSQL(arr) LoadData()ElseExitSubEndIfEndSubEndClass2）“工資發(fā)放歷史”窗體frmSlary

57、His的設計、運行界面和代碼其主要功能用于查詢職員歷史月份的工資其代碼如下：第2次課要完成的任務2學時1）“職員獎勵管理”窗體frmPrize的設計、運行界面和相應代碼其主要功能用于設置職員的獎勵信息其代碼如下：PublicClass frmPrizePrivateSub SetDataGridView()Me.OleDbConnection1.ConnectionString = DataBase.sConnMe.OleDbDataAdapter1.Fill(Me.DataSet11) dgvPrizeInfo.DataSource = Me.DataSet11.Tables(職員獎勵表).

58、DefaultViewEndSubPrivateSub frmPrize_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load SetDataGridView()EndSubPrivateSub tsbSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbSave.ClickDim row AsInteger row = Me.dgvPrizeInfo.CurrentCel

59、l.RowIndexMe.dgvPrizeInfo.CurrentCell = Me.dgvPrizeInfo.Rows(row + 1).Cells(0)TryIfMe.DataSet11.HasChanges ThenMe.OleDbDataAdapter1.Update(Me.DataSet11)Me.DataSet11.Tables(職員獎勵表).DefaultView.RowFilter = MessageBox.Show(數(shù)據(jù)修改成功！)Else MessageBox.Show(無修改的數(shù)據(jù)！)EndIfCatch ex As Exception MessageBox.Show(修改的數(shù)據(jù)出錯！ & ex.Message)EndTryEndSubPrivateSub tsbDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbDel.ClickTryDim row AsInteger row = Me.dgvPrizeInfo.CurrentCell.RowIndexIf MessageBox.Show(你確認要刪除此條記錄嗎？, 確認, MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes The