【正文】 End If Dim childFrm As New frmDepInfo 39。X)”菜單下的三子菜單 39。3)登陸界面設計及相應代碼附主界面代碼以及代碼截圖:（要把啟動對象設置為Sub Main）Public Class frmMain Public Shared Sub Main() Dim frml As New frmLogin () 39。當向一個表添加訂單時，需要在另一個表中減少相應的庫存。本過程的功能：對數(shù)據(jù)庫的操作【批量的執(zhí)行刪除或插入操作，用到了事物處理的作用】 () trans = Dim i As Integer Try For i = 0 To 1 OledbComm = New OleDbCommand(arr(i), ) = trans () Next i () Catch ex As Exception () Throw New Exception End Try End Sub Public Function getResult(ByVal strSql As String) As OleDbDataReader 39。打開數(shù)據(jù)庫連接 () End If End Sub Public Sub Close() 39。請將清理代碼放入上面的 Dispose(ByVal disposing As Boolean) 中。 TODO: 釋放共享的非托管資源 End If = True本部分代碼自動添加的 End SubRegion IDisposable Support 39。Data Source=。類的定義請參考相應截圖和代碼‘類的定義Imports Imports Imports Public Class DataBase Implements IDisposable 39。實現(xiàn)接口IDisposable，主要用來“顯示釋放資源” Private OledbConn As OleDbConnection 39。Persist Security Info=False Private disposedValue As Boolean = False 39。 Visual Basic 添加此代碼是為了正確實現(xiàn)可處置模式。 Dispose(True) (Me) End SubEnd Region Public Sub Open() If OledbConn Is Nothing = True Then 39。如果數(shù)據(jù)庫連接對象不為空則關閉數(shù)據(jù)庫連接 If OledbConn Is Nothing = False Then () End If End Sub Public Function RunSelectSQL(ByVal sSQLString As ) As DataView 39。本過程的功能：對數(shù)據(jù)庫的操作【按條件讀出合適的記錄】 () OledbComm = New OleDbCommand(strSql, ) Dim dr As OleDbDataReader = () Return dr End FunctionEnd ClassDataBase類截圖DataBase類截圖事務是作為包執(zhí)行的一組數(shù)據(jù)庫命令。如果對訂單表的更新成功但對庫存清單表的更新失敗，則將損壞數(shù)據(jù)的完整性。先顯示登陸界面窗體，用戶編號，密碼等信息正確才允許顯示主界面 If Then Dim fm As New frmMain () End If End Sub Private Function GetInstanceState(ByVal name As String) As Boolean 39。1）“機構設置及編碼”對應菜單的Name屬性值：機構設置及編碼ToolStripMenuItem 39。frmDepInfo是“機構詳細信息”模塊窗體的Name屬性值 = Me () End Sub Private Sub 退出ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles () End Sub 39。2）“職員信息查詢”對應菜單的Name屬性值：職員信息查詢ToolStripMenuItem Private Sub 職員信息維護ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles If GetInstanceState(frmPeopleManage) Then Exit Sub End If Dim childFrm As New frmPeopleManage 39。Z)菜單下的四子菜單 39。3）“職員懲罰管理”對應菜單的Name屬性值：職員懲罰管理ToolStripMenuItem Private Sub 當月工資管理ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles If GetInstanceState(frmSalaryManage) Then Exit Sub End If Dim childFrm As New frmSalaryManage 39。frmPunishInfo是“職員懲罰管理”模塊窗體的Name屬性值 = Me () End SubEnd Class附數(shù)據(jù)庫介紹本系統(tǒng)的數(shù)據(jù)庫描述如下：（注意表間關系的建立，同學們可直接使用）數(shù)據(jù)庫表（7張表） 用戶清單表字段名字段類型是否主鍵用戶編號文本是部門文本否姓名文本否性別文本否密碼文本否 組織機構編碼表字段名字段類型是否主鍵說明內(nèi)部編號自動編號否類別文本否AbsIndex數(shù)字否記錄總機構中索引ItemIndex數(shù)字否記錄在同級結構中的索引ItemLevel數(shù)字否記錄是第幾個級別ParentIndex數(shù)字否記錄的上級結構中索引類別號文本否單位編號文本是單位名稱文本否拼音編碼文本否單位地址文本否單位電話號碼文本否開戶銀行文本否帳號文本否開戶全稱文本否 職員基本信息表字段名字段類型是否主鍵內(nèi)部編號自動編號否職員編號文本是姓名文本否姓名簡碼文本否性別文本否出生日期數(shù)字否年齡數(shù)字否籍貫文本否民族文本否文化程度文本否畢業(yè)學校文本否健康狀況文本否婚姻狀況文本否身份證號碼文本否家庭電話文本否辦公電話文本否手機文本否電子郵件地址文本否職工賬號文本否單位編號文本否備注文本否 月工資統(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ā)放歷史表字段名字段類型是否主鍵日期數(shù)