【正文】 在菜單 添加員工信息 : Private Sub addyg_Click() blnAddRS = True Load main_yggl_addmodify End Sub 5 工具 欄實現(xiàn)過程 本系統(tǒng)還設計了工具欄，將用戶經(jīng)常使用的功能顯示出來，可以方便用戶操作，如圖： 實現(xiàn)工具藍主要使用 imagelist 控件和 toolbar 控件，imagelist 控件主要用于裝載圖像文件， toolbar 控件用于創(chuàng)建工具欄。另外，設置 mdi 子窗體時，好要注意其 boderstyle 屬性。Data Source=NORTHWIND\SQLEXPRESS End Function 注意：上述代碼用到了 ado 對象的 connectiong 對象，使用對象前先引用它，選擇 工程 部件 ，選擇 microsoft actionX data objects library 五 主窗體設計 1 主窗體模塊概述 本系統(tǒng)的主窗體采用的是 MDI 窗體，即多文檔界面，類似于 WORD 應用程序，可以打開多個窗體進行操作，可以對窗體進行排列， 如圖所示 潘慶強的畢業(yè)設計 《企業(yè)人事管理系統(tǒng)》 13 2 窗體技術(shù)分析 主窗體采用 MDI 窗體，顯然第一步就該創(chuàng)創(chuàng)建它 子窗體重排 主窗體使用 MDI 窗體的 arrange 方法，該方法用于重排 MDIForm 對象中的窗口或圖標，這對于在 MDI 主窗體中啟動多個 MDI 子窗體是非常有用的。Integrated Security=SSPI。 Public tb1 As String, sql1 As String 2 聲明幾個用于判斷是添加狀態(tài)還是修改狀態(tài)的布爾型公共變量。 員工信息表 ： 字段名稱 數(shù)據(jù)類型 字段大小 Id Bigint 8 編號 varchar 5 姓名 varchar 10 性別 varchar 2 身份證號 varchar 20 出生年月 varchar 8 年齡 datetime 4 民族 int 20 婚宴狀況 varchar 4 政治面貌 varchar 10 入黨團時間 datetime 8 員工編號 ID 異常時間 是否異常 日期 上下班時間 上下班情況 員工姓名 出勤 假別 員工編號 ID 登入時間 請假時間 原因 結(jié)束時間 開始時間 公出請假 潘慶強的畢業(yè)設計 《企業(yè)人事管理系統(tǒng)》 10 籍貫 varchar 50 聯(lián)系電話 varchar 20 手機號碼 varchar 30 家庭地址 varchar 50 畢業(yè)院校 varchar 50 專業(yè) varchar 20 最高學歷 varchar 10 特長 varchar 50 參加工作時間 Datetime 8 總工齡 int 4 照片 image 16 部門 varchar 50 職務 varchar 20 職稱 varchar 20 基本工資 Money 8 入職時間 Datetime 8 本單位工齡 Int 4 部門表 字段名稱 數(shù)據(jù)類型 字段大小 部門編號 Varchar 2 部門名稱 Varchar 20 部門經(jīng)理 Varchar 10 部門地址 Varchar 50 部門電話 Varchar 30 工資表 字段名稱 數(shù)據(jù)類型 字段大小 ID Bigint 8 所屬工資月份 varchar 15 員工編號 varchar 5 員工姓名 varchar 10 員工工資 Money 8 加班費 Money 8 工齡工資 Money 8 加班費 Money 8 工齡工資 Money 8 全勤獎 Money 8 獎勵總額 Money 8 職務津貼 Money 8 請假扣除 Money 8 懲罰總額 Money 8 養(yǎng)老保險 Money 8 潘慶強的畢業(yè)設計 《企業(yè)人事管理系統(tǒng)》 11 醫(yī)療保險 Money 8 應發(fā)工資 Money 8 應扣工資 Money 8 實發(fā)工資 Money 8 出勤記錄表 字段名稱 數(shù)據(jù)類型 字段大小 ID Bigint 8 員工編號 Varchar 5 員工姓名 Vachar 10 上下班情況 Varchar 4 上下班時間 Datetime 8 日期 Datetime 5 是否異常 Varchar 4 異常時間 varchar 10 公出請假記錄表 字段名稱 數(shù)據(jù)類型 字段大小 ID Bigint 8 員工編號 Varchar 5 員工姓名 Varchar 10 假別 Varchar 6 開始時間 Varchar 20 結(jié)束時間 Varchar 20 原因 Varchar 50 請假時間 Varchar 20 錄入時間 datetime 8 四 公共模塊設計 在進行系統(tǒng)設計時，應該將那些可能被重復使用的功能編寫成通用的過程或函數(shù)放在標準模塊 中，這樣不僅可以減少代碼量，而且方便日后維護。 7) 每月工資的批量添加、修改、刪除和查詢。基于 visual basic 開發(fā)快捷，簡單易用，sql server 2021 具有強大的數(shù)據(jù)庫管理功能，我選用這兩個工具來實現(xiàn)企業(yè)人事管理系統(tǒng) 一：概述 企業(yè)人事管理系統(tǒng)是現(xiàn)代企事業(yè)單位人員、工資、日?？记谒仨殦碛械男畔⒒芾硐到y(tǒng)之一，它應包括人事信息的增，刪，改，查，人員調(diào)動，人員離職、人事信息的打印輸出，日?？记诠芾?、工資管理和福利管理等、設計后如圖所示： 二：系統(tǒng)設計 1. 系統(tǒng)目標： 1) 企業(yè)人事管理系統(tǒng)主要有以下幾項功能和要求 2) 新員工資料的添加、修改、刪除和查詢。 潘慶強的畢業(yè)設計 《企業(yè)人事管理系統(tǒng)》 3 3) 部門信息的添加、修改、刪除和查詢。 8) 福利信息的添加、修改、刪除和查詢。 使用模塊前，首先應創(chuàng)建它，方法為：選擇 工程 — 添加模塊命令，創(chuàng)建一個新模塊，使用默認的名稱 module1。 Public blnAddRS As Boolean, blnAddBM As Boolean, blnAddGCQJ As 潘慶強的畢業(yè)設計 《企業(yè)人事管理系統(tǒng)》 12 Boolean, blnAddBX As Boolean blnAddRS：添加修改員工信息標記。Persist Security Info=False。 系統(tǒng)主要使用了層疊，平鋪，排列子窗體，代碼如下： Private Sub cd_Click() vbCascade End Sub Private Sub pp_Click() 39。 3 MDI 主窗體實現(xiàn)過程 實現(xiàn) MDI 主窗體的方法很簡單，首先創(chuàng)建一個工程（也就是本系統(tǒng)的工程），然后選擇工程 — 添加 Mdi窗體命令，打開添加 mdi 窗體，再此選擇 mdi 窗體，單擊打開按鈕 MDI 主窗體就創(chuàng)建成功了，最后將 mdi 主窗體命名為 mdifrm_main. 剛創(chuàng)建的 Mdi 窗體很難看，接下來要簡單的修飾以下。具體實現(xiàn)過程如下： （ 1） 將 imagelist 控件和 toolbar 控件添加到工程中。 潘慶強的畢業(yè)設計 《企業(yè)人事管理系統(tǒng)》 16 （ 3） 在窗體上添加 toolbar 控件，作為主窗體的工具欄。, n, adOpenKeyset, adLockOptimistic If ( = ( 用 戶 名 ) And = (密碼 )) Then (5).Text = 當前系統(tǒng)用戶： amp。 1）與數(shù)據(jù)源的連接 （ 1） 與數(shù)據(jù)庫的鏈接： 定義數(shù)據(jù)集對象： Dim rs As New （ 2） 連接數(shù)據(jù)庫 鏈接數(shù)據(jù)庫主要使用 recordset Provider=。Initial Catalog=db_manmanage。關鍵 代碼如下： select * from 員 工信 息 表 order by 編號 , n, adOpenKeyset, adLockOptimistic If 0 Then txt1(0) = Format(Val((編號 )) + 1, 00000) Else txt1(0) = 00001 End If 5 向數(shù)據(jù)表中保存二進制數(shù)據(jù) 多媒體已經(jīng)成為計算機領域中不可缺少的一部分，雖然目前的文本數(shù)據(jù)庫居主流的地 位，但是從越來越多的社會需要看，能夠存儲圖片、影像、聲音，甚至動畫師未來數(shù)據(jù)庫系統(tǒng)不可缺少的一項功能。（ 2）第二種方法是使用 Stream 對象，使用該對象要引用 ado library 以上版本。也就是將多媒體文件的文件名保存在數(shù)據(jù)庫中。選擇工程部件，然后選中 microsoft ado data control 、 microsoft datalist controls microsoft windows mon control 和 microsoft conmon dialog control 復選框，然后確定，這些控件，就被添加到工具箱中了。定義數(shù)據(jù) 集對象 Public photoFilename As String Dim mst As New （ 2） 窗體被激活時候，用 setfocus 方法使編號文本框獲得焦點，代碼如下： Private Sub Form_Activate() Txt1(1).SetFocus End Sub （ 3） 窗體載入時候，使用 bobox 的控件的 additem 方法初始化性別、名族、婚姻狀況等，如果是標記 （ blnaddrs）為添加數(shù)據(jù)，將窗體標題設置為添加員工信息，并自動生成編號 。在 Combo2 中添加民族 (漢族 ) (回族 ) (滿族 ) (蒙古 族 ) (朝鮮族 ) = 0 39。在 Combo6 中添加職位 (無 ) (經(jīng)理 ) (副經(jīng)理 ) (部門經(jīng)理 ) = 0 39。 例如，名族。設置文件類型 潘慶強的畢業(yè)設計 《企業(yè)人事管理系統(tǒng)》 25 .ShowOpen 39。如果是修改狀態(tài)，則按“編號”檢索該數(shù)據(jù)，然后修改它；如果是添加狀態(tài)，則將數(shù)據(jù)保存到數(shù)據(jù)表中。彈出提示框 If A = vbYes Then 39。, n, adOpenKeyset, adLockOptimistic 39。關閉 Stream 對象 39。如果姓名為空 MsgBox 姓名不允許為空！ 39。保存記錄 39。如果表中有記錄 39。設置第一個默認編號為00001 End If 39。MsgBox 39。創(chuàng)建工作簿 Set newsheet = (1) 39。運行程序如圖所示，單擊