【文章內(nèi)容簡介】 ： 圖 32 企業(yè)人事信息系統(tǒng)的主窗體 下面對主窗體各選項實現(xiàn)的功能作具體介紹： （ 1）員工基本信息 伊犁師范學(xué)院物理與電子信息學(xué)院 2020屆電子信息科學(xué)與技術(shù)專業(yè)畢業(yè)論文 頁碼 18 包括四個菜單項：增加人事卡片、編 輯人事卡片、刪除人事卡片、查詢員工基本信息。 （ 2）員工工資管理 包括四個菜單項：添加員工工資信息、編輯員工工資信息、刪除員工工資信息、查詢員工工資信息。 （ 3）員工考勤管理 包括四個菜單項：添加員工考勤信息、編輯員工考勤信息、刪除員工考勤信息、查詢員工考勤信息。 （ 4）報表 包括兩個菜單項：職工工資報表、職工考勤報表。 （ 5）系統(tǒng) 管理 包括兩 個菜單項： 添加用戶、 退出。 主窗體菜單 創(chuàng)建如 圖 33 所示菜單結(jié)構(gòu)： 圖 33 完成后的菜單編輯器 該窗體實現(xiàn)的是對菜單的編輯，主菜單有員工基 本信息管理、員工考勤管理、員工工資管理、報表、退出系統(tǒng)。其子菜單分別實現(xiàn)的是對這些主菜單的具體數(shù)據(jù)的添加、編輯、刪除和查詢。 伊犁師范學(xué)院物理與電子信息學(xué)院 2020屆電子信息科學(xué)與技術(shù)專業(yè)畢業(yè)論文 頁碼 19 員工基本信息模塊 創(chuàng)建好的窗體如 圖 34 所示： 圖 34 員工基本信息窗體 下面對本窗體實現(xiàn)的功能作具體介紹： 該窗體分四個部分，左上邊實現(xiàn)的是輸入員工的部門信息，右上邊實現(xiàn)的是對員工的基本信息的一些操作，左下邊是員工的基本信息，右下邊是其它資料信息。 員工的家庭成員窗體如 圖 35所示 ： 圖 35 員工的家庭成員窗體 伊犁師范學(xué)院物理與電子信息學(xué)院 2020屆電子信息科學(xué)與技術(shù)專業(yè)畢業(yè)論文 頁碼 20 員工的社會關(guān)系窗體如 圖 36所示 ： 圖 36 員工的社會關(guān)系窗體 員工的個人簡歷窗體如 圖 37所示 ： 圖 37 員工的個人簡歷窗體 伊犁師范學(xué)院物理與電子信息學(xué)院 2020屆電子信息科學(xué)與技術(shù)專業(yè)畢業(yè)論文 頁碼 21 員工考勤管理模塊 創(chuàng)建好的窗體如 圖 38 所示： 圖 38 員工考勤信息窗體 現(xiàn)將員工考勤窗體介紹一下：考勤信息欄可輸入日期、請假、公休假天數(shù)、應(yīng)出勤天數(shù)、節(jié)假日加班、其他加班。員工信息欄包括職工編號和姓名。 員工工資管理模塊 創(chuàng)建好的窗體如 圖 39 所示： 圖 39 員工工資信息窗體 伊犁師范學(xué)院物理與電子信息學(xué)院 2020屆電子信息科學(xué)與技術(shù)專業(yè)畢業(yè)論文 頁碼 22 該窗體的功能有輸入員工的信息、代扣項目和工資總計。 查詢員工基本信息窗體 創(chuàng) 建好的窗體如 圖 310 所示： 圖 310 查詢員工基本信息窗體 報表模塊 創(chuàng)建好的窗體如 圖 311 所示： 圖 311 報表窗體 伊犁師范學(xué)院物理與電子信息學(xué)院 2020屆電子信息科學(xué)與技術(shù)專業(yè)畢業(yè)論文 頁碼 23 職工工資信息報表 創(chuàng)建好的窗體如 圖 312所示： 圖 312 職工工資信息報表窗體 職工考勤信息報表 創(chuàng)建好的窗體如 圖 313所示： 圖 313 職工考勤 信息報表窗體 伊犁師范學(xué)院物理與電子信息學(xué)院 2020屆電子信息科學(xué)與技術(shù)專業(yè)畢業(yè)論文 頁碼 24 代碼設(shè)計 在程序界面設(shè)計完畢之后，將逐一向各個窗體和模塊添加代碼。以下將對各個窗體的代碼逐一加以介紹。 登錄模塊代碼的編寫 Private Sub Command1_Click() On Error Resume Next Dim sqlstr As String sqlstr = Select * from 管理用戶 Where 用戶名稱 =39。 amp。 Trim() amp。 39。and 密碼 =39。 amp。 Trim() amp。 39。 = sqlstr If = 0 Then MsgBox 密碼錯誤！ Else End If End Sub Private Sub Form_Load() On Error Resume Next = Provider=。Persist Security Info=False。Data Source= amp。 amp。 \database\。 = 2 adCmdTable = 管理用戶 End Sub 以上代碼實現(xiàn)如果用戶名和密碼均為 數(shù)據(jù)庫中已存在的信息 ，則進(jìn)入系統(tǒng)主界面，否則輸出錯誤消息，提醒重新輸入正確消息。 伊犁師范學(xué)院物理與電子信息學(xué)院 2020屆電子信息科學(xué)與技術(shù)專業(yè)畢業(yè)論文 頁碼 25 主模塊代碼的編寫 在 vb中，模塊是一種特定的對象，用于保存可以在各個窗體中調(diào)用的共同代碼。在工程資源管理器中雙擊 MdlMain，打開代碼窗口，在其中輸入如下代碼： Public conStr As String Public ActionType As String Public Sub Main() 39。變量初始化 conStr = Provider=。Persist Security Info=False。Data Source= amp。 amp。 \database\。 39。啟動主窗體 End Sub 在本段代碼中主要定義了幾個全局變量以及賦予了變量初始值，選定了所連接的數(shù)據(jù)庫。 主窗體代碼的編寫 主窗體的代碼編寫主要是為菜單填寫代碼。打開主窗體的設(shè)計視圖，選取“員工基本信息”菜單，并在下拉菜單中選擇“增加人事卡片”命令，系統(tǒng)將自動打開主窗體的代碼窗口，并添加名為 mnuAdd_Click 的私有過程，為該過程添加代碼如下： Private Sub bjyggzxx_Click() ActionType = bianji End Sub Private Sub cxyggzxx_Click() End Sub Private Sub cxygjbxx_Click() End Sub Private Sub cxygkqxx_Click() End Sub 伊犁師范學(xué)院物理與電子信息學(xué)院 2020屆電子信息科學(xué)與技術(shù)專業(yè)畢業(yè)論文 頁碼 26 Private Sub exit_Click() If MsgBox(確定要退出系統(tǒng)嗎？ , vbInformation + vbYesNo, 退出系統(tǒng) ) = vbYes Then End 39。退出系統(tǒng) End If End Sub Private Sub mnuAdd_Click() ActionType = Add 39。設(shè)置共有變量的值，向人事資料卡片窗體傳遞信息 39。顯示人事資料卡片窗體 End Sub Private Sub mnuDel_Click() 39。刪除記錄 ActionType = Del End Sub Private Sub mnuDept_Click() 39。部門管理 39。顯示部門管理窗體 End Sub Private Sub mnuDeptlist_Click() 39。部門人事管理 39。顯示部門人事管理窗體 End Sub Private Sub mnuEdit_Click() 39。編輯記錄 ActionType = Edit End Sub Private Sub scyggzxx_Click() ActionType = shanchu End Sub Private Sub tjgzxx_Click() ActionType = tianjia 伊犁師范學(xué)院物理與電子信息學(xué)院 2020屆電子信息科學(xué)與技術(shù)專業(yè)畢業(yè)論文 頁碼 27 End Sub Private Sub scygkqxx_Click() ActionType = shanchu1 End Sub Private Sub tjygkqxx_Click() ActionType = tianjia1 End Sub Private Sub bjygkqxx_Click() ActionType = bianji1 End Sub Private Sub zggzbb_Click() End Sub Private Sub zgkqbb_Click() End Sub 上述代碼主要是為菜單填寫代碼，并為全局變量 ActionType 賦值，以便程序執(zhí)行時調(diào)用，進(jìn)行合理的動作。 人事資料卡片窗體在內(nèi)存中裝載時，需要對窗體的數(shù)據(jù)源和動作進(jìn)行設(shè)置，因此對其 Load 事件添加代碼如下： Private Sub Form_Load() 39。設(shè) 置數(shù)據(jù)源 = Provider=。Persist Security Info=False。Data Source= amp。 amp。 \database\。 = 2 adCmdTable = 職 工基本信息 39。設(shè) 置按 鈕 狀 態(tài) 伊犁師范學(xué)院物理與電子信息學(xué)院 2020屆電子信息科學(xué)與技術(shù)專業(yè)畢業(yè)論文 頁碼 28 = False = False = False = False = False Select Case ActionType 39。由全局 變 量來決定 動 作 Case Add Call cmdadd_Click Case Del = True = True Case Edit = True = True End Select End Sub 上述代碼為 Adodc1 控件的屬性 ConnectionString， CommandType，RecordSource 賦值，使其與指定的數(shù)據(jù)庫建立連接，并確定具體可以訪問的數(shù)據(jù)表。此段代碼還設(shè)置了各個按鈕的狀態(tài)，即可見、不可見，以及根據(jù)全局變量來執(zhí)行動作，例如“若全局變量 ActionType=Add，則調(diào)用 cmdadd_Click 程序。” 對于 窗體上的各個按鈕，其代碼如下： Private Sub cmdadd_Click() 39。增加 記錄 39。調(diào) 用 AddNew 方法來添加 記錄 = False 39。不允 許 移 動記錄 = True = True = False = False = False End Sub 伊犁師范學(xué)院物理與電子信息學(xué)院 2020屆電子信息科學(xué)與技術(shù)專業(yè)畢業(yè)論文 頁碼 29 上述代碼除了設(shè)定各個按鈕的狀態(tài)以外，最主要的是通過 Adodc1 數(shù)據(jù)控件的對象 Recordset 調(diào)用 AddNew 方法來添加記錄 。 AddNew 方法 將清除綁定控件中的所有內(nèi)容，并且將一條空的新記錄添加到記錄集的末