【文章內(nèi)容簡介】 create procedure sf_形成月工資統(tǒng)計(jì)表 @導(dǎo)入工資月份 int, @統(tǒng)計(jì)工資月份 intasbegin transaction delete from 月工資統(tǒng)計(jì)表 刪除已有數(shù)據(jù) if exists (select * from 工資發(fā)放歷史表 where 日期=@導(dǎo)入工資月份) begin 從歷史倒入 insert into 月工資統(tǒng)計(jì)表 (日期, 職員編號(hào), 基本工資, 浮動(dòng)工資, 合同補(bǔ), 糧副補(bǔ), 房補(bǔ), 臨時(shí)補(bǔ), 職務(wù)工資, 工齡工資, 考核工資, 獎(jiǎng)金, 應(yīng)發(fā)金額合計(jì), 房租, 水電費(fèi), 請假扣除, 考勤扣除, 罰款, 住房公積金, 醫(yī)療保險(xiǎn), 養(yǎng)老保險(xiǎn), 失業(yè)保險(xiǎn), 生育保險(xiǎn), 工傷保險(xiǎn), 應(yīng)扣金額合計(jì), 工資合計(jì), 個(gè)人所得稅, 實(shí)發(fā)金額, 發(fā)放否, 月份) select @統(tǒng)計(jì)工資月份, 職員編號(hào), 基本工資, 浮動(dòng)工資, 合同補(bǔ), 糧副補(bǔ), 房補(bǔ), 臨時(shí)補(bǔ), 職務(wù)工資, 工齡工資, 考核工資, 獎(jiǎng)金, 應(yīng)發(fā)金額合計(jì), 房租, 水電費(fèi), 請假扣除, 考勤扣除, 罰款, 住房公積金, 醫(yī)療保險(xiǎn), 養(yǎng)老保險(xiǎn), 失業(yè)保險(xiǎn), 生育保險(xiǎn), 工傷保險(xiǎn), 應(yīng)扣金額合計(jì), 工資合計(jì), 個(gè)人所得稅, 實(shí)發(fā)金額, 發(fā)放否, 月份 from 工資發(fā)放歷史表 as h where =@導(dǎo)入工資月份 end 新的員工,歷史沒有記錄,生成記錄 insert into 月工資統(tǒng)計(jì)表 (職員編號(hào),日期) select 職員編號(hào),@統(tǒng)計(jì)工資月份 from 職員基本信息表 as h where not in (select 職員編號(hào) from 月工資統(tǒng)計(jì)表) 將空數(shù)據(jù)置0 exec sf_空數(shù)據(jù)置0 自動(dòng)計(jì)算工資 exec sf_當(dāng)月工資統(tǒng)計(jì)mitGO 發(fā)放指定職員的工資create procedure sf_當(dāng)月工資發(fā)放 @職員編號(hào) char(10)asbegin transaction update 月工資統(tǒng)計(jì)表 set 發(fā)放否=39。是39。 from 月工資統(tǒng)計(jì)表 where 職員編號(hào)=@職員編號(hào) insert into 工資發(fā)放歷史表 select * from 月工資統(tǒng)計(jì)表 where 職員編號(hào)=@職員編號(hào) delete 月工資統(tǒng)計(jì)表 where 職員編號(hào)=@職員編號(hào)mitGO4代碼與界面設(shè)計(jì)本系統(tǒng)采用多文檔窗體程序，每一功能對應(yīng)一個(gè)子窗體。本實(shí)例的運(yùn)行結(jié)果如圖4所示。選擇主菜單中的各菜單項(xiàng)即可進(jìn)入相應(yīng)的功能。例如可以選擇【薪資福利管理】|【當(dāng)月工資管理】菜單命令，調(diào)出如圖5所示的工資管理功能窗體，在其中輸入各個(gè)工資項(xiàng)明細(xì)，單擊【計(jì)算當(dāng)月工資】按鈕可以計(jì)算出工資；其中的工資項(xiàng)明細(xì)也可以通過【導(dǎo)入工資歷史】按鈕從歷史數(shù)據(jù)中導(dǎo)入，從而減輕輸入工作的強(qiáng)度；單擊[工資發(fā)放]按鈕，可以發(fā)放選定職員的工資，打印出工資條并將工資發(fā)放的記錄放入歷史。圖4 實(shí)例運(yùn)行結(jié)果圖5 當(dāng)月工資管理功能窗體啟動(dòng)Microsoft Visual ,在主菜單中選擇【文件】|【新建】|【項(xiàng)目】命令，彈出【新建項(xiàng)目】對話框沒，在【項(xiàng)目類型】列表框中選擇【Visual Basic 項(xiàng)目】，然后在【模板】列表框中選擇【W(wǎng)indow 應(yīng)用程序】。在【名稱】文本框中輸入一個(gè)合適的方案文件名，選取要存放的位置，然后單擊【確定】按鈕完成新項(xiàng)目的創(chuàng)建。（1） 利用系統(tǒng)默認(rèn)生成的窗體作為主窗體，并將其對應(yīng)的文件改名為“”,為其添加主菜單控件以及StatusBar控件，布局如圖6所示。圖6系統(tǒng)主窗體（2）窗體的屬性設(shè)置如表2所示。表2 主窗體屬性設(shè)置對象（控件）名屬性取值（說明）frmMainNamefrmMainfrmMainText人力資源管理系統(tǒng)frmMainIsMdiContainerTrueStatusBarText人力資源管理系統(tǒng)（3）窗體的主菜單屬性設(shè)置如表5所示。表3 窗體主菜單屬性設(shè)置菜單欄菜單項(xiàng)屬性取值（說明）MenuItemDepText機(jī)構(gòu)編制管理MenuItemDepManageText機(jī)構(gòu)設(shè)置及編碼MenuItemDepInfoText機(jī)構(gòu)詳細(xì)信息MenuItemPeopleText職員信息管理MenuItemDepPeopleManageText職員信息維護(hù)MenuItemPeopleQueryText職員信息查詢MenuItemSalaryText薪資福利管理MenuItemPeopleSalaryManageText當(dāng)月工資計(jì)算MenuItemTaxInfoText個(gè)人所得稅率MenuItemPrizeText工資發(fā)放歷史MenuItemPunishText職員獎(jiǎng)勵(lì)管理MenuItemSalaryhisText職員懲罰管理（4）添加判斷子窗體實(shí)例狀態(tài)的函數(shù)GetInstanceState,此函數(shù)主要作用是用來實(shí)現(xiàn)單擊主窗體的某菜單項(xiàng)，如【計(jì)算當(dāng)月工資】只是出現(xiàn)一個(gè)計(jì)算當(dāng)月工資窗體。Private Function GetInstanceState(ByVal name As String) As Boolean 39。獲得frmMain窗體的子窗體的數(shù)量 Dim i As Integer = 39。循環(huán)判斷是否有名為name的子窗體實(shí)例 For i = 0 To 1 If (i).Name = name Then 39。存在名為name的子窗體，是子窗體獲得焦點(diǎn)并返回True (i).Focus() Return True End If Next 39。不存在名為Name的子窗體False Return False End Function（5）添加采單項(xiàng)MenuItemDepManage的Click事件響應(yīng)函數(shù)。Private Sub MenuItemDepManage_Click(ByVal sender As Object, _ ByVal e As ) Handles 39。判斷機(jī)構(gòu)設(shè)置及編碼窗體是是否已經(jīng)創(chuàng)建 If GetInstanceState(frmDepManage) Then 39。機(jī)構(gòu)設(shè)置及編碼窗體已經(jīng)創(chuàng)建并返回 Exit Sub End If 39。創(chuàng)建并顯示商品資料維護(hù)窗體 Dim childFrm As frmDepManage = New frmDepManage = Me () End Sub因?yàn)楦鱾€(gè)窗體均需要對數(shù)據(jù)庫進(jìn)行訪問，可以把對數(shù)據(jù)庫的一些操作通過一個(gè)類來實(shí)現(xiàn)，這樣可以使對數(shù)據(jù)庫的訪問更加簡單。選擇【文件】|【添加新項(xiàng)】命令添加一個(gè)名為“”的類文件。Imports Imports Imports Public Class DataBase 39。實(shí)現(xiàn)接口IDisposable Implements IDisposable 39。數(shù)據(jù)庫連接對象 Private SqlConn As SqlConnection Public Shared sConn As String = Persist Security Info=False。Integrated Security=SSPI。database=hrmbook。server=localhost。Connect Timeout=30 Public Sub Dispose() Implements Dispose(True) (True) End Sub Protected Sub Dispose(ByVal disposing As Boolean) If disposing True Then Return End If If SqlConn Is Nothing = False Then () SqlConn = Nothing End If End Sub Public Sub Open() If SqlConn Is Nothing = True Then 39。建立數(shù)據(jù)庫連接對象 SqlConn = New SqlConnection() 39。打開數(shù)據(jù)庫連接 () End If End Sub Public Sub Close() 39。如果數(shù)據(jù)庫連接對象不為空則關(guān)閉數(shù)據(jù)庫連接 If SqlConn Is Nothing = False Then () End If End Sub Public Function RunSelectSQL(ByVal sSQLString As ) As DataView () Dim SqlDS As DataSet = New DataSet Dim SqlDA As SqlDataAdapter = New SqlDataAdapter(sSQLString, ) (SqlDS) Return (0).DefaultView End Function Public Function RunDelOrInsSQL(ByVal sSQLString As ) () Dim SqlComm As SqlCommand = New SqlCommand(sSQLString, ) () End FunctionEnd Class 實(shí)現(xiàn)機(jī)構(gòu)設(shè)置及編碼功能本節(jié)主要演示如何利用Visual 。機(jī)構(gòu)設(shè)置的編碼機(jī)構(gòu)設(shè)置及編碼功能主要用于實(shí)現(xiàn)設(shè)置機(jī)構(gòu)的層級關(guān)系。（1） 新建一個(gè)窗體，將其Name屬性設(shè)置為“frmDepManage”并為其添加如圖7所示的控件。圖7機(jī)構(gòu)設(shè)置及編碼窗體（2）部分控件的屬性設(shè)置如表4所示。表4 機(jī)構(gòu)設(shè)置及編碼窗體控件屬性設(shè)置控件類型對象名屬性取值（說明）FormfrmDepManageText機(jī)構(gòu)設(shè)置及編碼TreeViewtrvListDockLeftSplitterSplitter1DockLeftPanelpanelRightDockFillTextBoxtxbNameTextTextBoxtxbLKindCodeTextTextBoxtxbDepCodeTextTextBoxtxbDepCodeReadOnlyTrueButtonbtnModifyText修改ButtonbtnAddBasText增加為第一級ButtonbtnAddEqlText增加為本級別ButtonbtnAddSubText增加為子級別ButtonbtnSaveText保存修改ButtonbtnDelText刪除（3） 為frmDepManage類添加如下兩個(gè)私有變量。Private dvList As DataView 39。編碼位數(shù) Private iBits As Integer = 12（4） 選擇【文件】｜【添加新項(xiàng)】命令添加一個(gè)名為“”的類文件，并將“”中的內(nèi)容替換為以下內(nèi)容。39。TreeNodeData類是用來保存與某個(gè)TreeView節(jié)點(diǎn)(TreeNode)相關(guān)的數(shù)據(jù)Public Class TreeNodeData 39。以下是TreeNodeData六個(gè)共有變量 Public AbsIndex As String Public ItemIndex As String Public ItemLevel As String Public ParentIndex As String Public KindCode As String Public DepCode As String 39。TreeNodeData類的構(gòu)造函數(shù) Sub New(ByVal sAbsIndex As String, _ ByVal sItemIndex As String, _ ByVal sItemLevel As String, _ ByVal sPare