【正文】 人事管理系統(tǒng)》 10 籍貫 varchar 50 聯(lián)系電話 varchar 20 手機(jī)號(hào)碼 varchar 30 家庭地址 varchar 50 畢業(yè)院校 varchar 50 專業(yè) varchar 20 最高學(xué)歷 varchar 10 特長(zhǎng) varchar 50 參加工作時(shí)間 Datetime 8 總工齡 int 4 照片 image 16 部門(mén) varchar 50 職務(wù) varchar 20 職稱 varchar 20 基本工資 Money 8 入職時(shí)間 Datetime 8 本單位工齡 Int 4 部門(mén)表 字段名稱 數(shù)據(jù)類型 字段大小 部門(mén)編號(hào) Varchar 2 部門(mén)名稱 Varchar 20 部門(mén)經(jīng)理 Varchar 10 部門(mén)地址 Varchar 50 部門(mén)電話 Varchar 30 工資表 字段名稱 數(shù)據(jù)類型 字段大小 ID Bigint 8 所屬工資月份 varchar 15 員工編號(hào) varchar 5 員工姓名 varchar 10 員工工資 Money 8 加班費(fèi) Money 8 工齡工資 Money 8 加班費(fèi) Money 8 工齡工資 Money 8 全勤獎(jiǎng) Money 8 獎(jiǎng)勵(lì)總額 Money 8 職務(wù)津貼 Money 8 請(qǐng)假扣除 Money 8 懲罰總額 Money 8 養(yǎng)老保險(xiǎn) Money 8 潘慶強(qiáng)的畢業(yè)設(shè)計(jì) 《企業(yè)人事管理系統(tǒng)》 11 醫(yī)療保險(xiǎn) Money 8 應(yīng)發(fā)工資 Money 8 應(yīng)扣工資 Money 8 實(shí)發(fā)工資 Money 8 出勤記錄表 字段名稱 數(shù)據(jù)類型 字段大小 ID Bigint 8 員工編號(hào) Varchar 5 員工姓名 Vachar 10 上下班情況 Varchar 4 上下班時(shí)間 Datetime 8 日期 Datetime 5 是否異常 Varchar 4 異常時(shí)間 varchar 10 公出請(qǐng)假記錄表 字段名稱 數(shù)據(jù)類型 字段大小 ID Bigint 8 員工編號(hào) Varchar 5 員工姓名 Varchar 10 假別 Varchar 6 開(kāi)始時(shí)間 Varchar 20 結(jié)束時(shí)間 Varchar 20 原因 Varchar 50 請(qǐng)假時(shí)間 Varchar 20 錄入時(shí)間 datetime 8 四 公共模塊設(shè)計(jì) 在進(jìn)行系統(tǒng)設(shè)計(jì)時(shí)，應(yīng)該將那些可能被重復(fù)使用的功能編寫(xiě)成通用的過(guò)程或函數(shù)放在標(biāo)準(zhǔn)模塊 中，這樣不僅可以減少代碼量，而且方便日后維護(hù)。Integrated Security=SSPI。另外，設(shè)置 mdi 子窗體時(shí)，好要注意其 boderstyle 屬性。選擇通用選項(xiàng)卡，首先選用 32x32 復(fù)選框，燃油選擇圖像選項(xiàng)卡，添加本系統(tǒng)血藥的圖標(biāo)文件。該窗體運(yùn)行如圖所示： 潘慶強(qiáng)的畢業(yè)設(shè)計(jì) 《企業(yè)人事管理系統(tǒng)》 19 2 添加員工信息模塊技術(shù)分析 添加員工信息模塊主要應(yīng)用了 ado 對(duì)象的 recordset 對(duì) 象 的open,addnew,和 update 等方法。 (2)通過(guò)賦值語(yǔ)句將數(shù)據(jù)傳送給相應(yīng)的字段 例如： (編號(hào) ) = txt1(0) (姓名 ) = txt1(1) (性別 ) = (身份證號(hào) ) = txt1(2) (出生年月 ) = 潘慶強(qiáng)的畢業(yè)設(shè)計(jì) 《企業(yè)人事管理系統(tǒng)》 20 (年齡 ) = Val(txt1(13)) (民族 ) = Combo2 (婚姻狀況 ) = Combo3 (政治面貌 ) = Combo4 (入黨團(tuán)時(shí)間 ) = (籍貫 ) = txt1(3) ??????? (3)使用 recordset 對(duì)象的 update 方法更新記錄集 新紀(jì)錄輸入完成后需要用 update 方法才能將當(dāng)前的數(shù)據(jù)真正的存入到數(shù) 據(jù)庫(kù) 例如 3 記錄定位的方法 記錄定位主要使用 recordset 對(duì)象的 movenext/moveprevious/movelast方法，本系統(tǒng)用的較多的是 movenext/movefirst/movelast 4 自動(dòng)編號(hào) 自動(dòng)編號(hào)原理是使用 sql語(yǔ)句查詢表中的所有數(shù)據(jù)，并按“編號(hào)”排序，如果表中沒(méi)有數(shù)據(jù)（即記錄數(shù)等于 0），則第一個(gè)編號(hào)默認(rèn)為“ 00001” ；如果有數(shù)據(jù)（記錄數(shù)大于 0），即先把記錄指針移動(dòng)到最后一條，讓好設(shè)置“編號(hào)”字段加 1，最后使用 format 函數(shù)將其格式化為 5 位。使用代碼如下： 潘慶強(qiáng)的畢業(yè)設(shè)計(jì) 《企業(yè)人事管理系統(tǒng)》 21 = adTypeBinary If photoFilename Then photoFilename (照片 ) = 如果多媒體數(shù)據(jù)具有相當(dāng)大的數(shù)據(jù)量，那么就采用存取文件方法名 的方法保存多媒體數(shù)據(jù)。定義整型變量 Dim rs1 As New 39。在 Combo5 中添加最高學(xué)歷 潘慶強(qiáng)的畢業(yè)設(shè)計(jì) 《企業(yè)人事管理系統(tǒng)》 23 (中專 ) (高中 ) (大專 ) (本科 ) (碩士研究生 ) (博士研究生 ) = 2 39。設(shè)置對(duì)話框標(biāo)題欄上的文字 .Filter = jpg 圖片 |*.jpg 39。標(biāo)記為 False，修改狀態(tài) A = MsgBox(您確實(shí)要修改這條數(shù)據(jù)嗎 ?, vbYesNo) 39。關(guān)閉數(shù)據(jù)集對(duì)象 39。添加新記錄 (編號(hào) ) = Txt1(0) (姓名 ) = Txt1(1) (性別 ) = (身份證號(hào) ) = Txt1(2) (出生年月 ) = (年齡 ) = Val(Txt1(13)) (民族 ) = Combo2 (婚姻狀況 ) = Combo3 (政治面貌 ) = Combo4 (入黨團(tuán)時(shí)間 ) = (籍貫 ) = Txt1(3) (聯(lián)系電話 ) = Txt1(4) (手機(jī)號(hào)碼 ) = Txt1(5) (家庭地址 ) = Txt1(6) (畢業(yè)院校 ) = Txt1(7) (專業(yè) ) = Txt1(8) (最高學(xué)歷 ) = Combo5 (特長(zhǎng) ) = Txt1(9) 潘慶強(qiáng)的畢業(yè)設(shè)計(jì) 《企業(yè)人事管理系統(tǒng)》 27 (參加工作時(shí)間 ) = (總工齡 ) = Val(Txt1(10)) = adTypeBinary If photoFilename Then photoFilename (照片 ) = (部門(mén) ) = DataCombo1 (職務(wù) ) = Combo6 (職稱 ) = Combo7 (基本工資 ) = Val(Txt1(11)) (入職時(shí)間 ) = (本單位工齡 ) = Val(Txt1(12)) 39。如果表中沒(méi)有記錄 Txt1(0) = 00001 39。創(chuàng)建excel 應(yīng)用程序 ,打開(kāi) excel2021 Set newbook = 39。 （ 1） 用 ado 控件查詢并顯示數(shù)據(jù) 1查詢數(shù)據(jù)： ado控件的 recordsource 屬性可以是一個(gè)有效的 sql語(yǔ)句，因此通過(guò)該屬性即可實(shí)現(xiàn)數(shù)據(jù)查詢，查詢后還要使用 refresh方法刷新數(shù)據(jù)表。 1 窗體設(shè)計(jì) 添加或修改員工公出、請(qǐng)假 窗體的設(shè)計(jì)步驟如下： (1) 在工程中新建窗體，命名為 main_kqgl_gcqj_addmodify，設(shè)置 MDIchild 屬性為 true， boderstyle 屬性為 1，清空caption 屬性。如果標(biāo)記為 True（添加數(shù)據(jù)） With main_kqgl_gcqj select * from 公 出 請(qǐng) 假 記 錄 表 , n, adOpenKeyset, adLockOptimistic 39。 amp。 小時(shí) 39。遍歷員工列表 If .(i) = True Then 39。 (結(jié)束時(shí)間 ) = amp。 潘慶強(qiáng)的畢業(yè)設(shè)計(jì) 《企業(yè)人事管理系統(tǒng)》 34 Round(myminute / 60, 1) amp。刷新數(shù)據(jù)表 End With End If End Sub 4 員工沖出 /請(qǐng)假模塊的實(shí)現(xiàn)過(guò)程 員工 /公出請(qǐng)假模塊主要實(shí)現(xiàn)調(diào)用添加或修改員工公出 /請(qǐng)假窗體，查詢員工公出 /請(qǐng)假信息以及刪除指定的員工公出 /請(qǐng)假信息 ，顯現(xiàn)過(guò)程如下。Initial Catalog=db_manmanage。如果表中有記錄 39。清空員工列表 39。將員工編號(hào)和姓名添加到員工列表中 潘慶強(qiáng)的畢業(yè)設(shè)計(jì) 《企業(yè)人事管理系統(tǒng)》 36 39。只要記錄不到尾 ( 編號(hào) ) amp。設(shè)置該窗體的標(biāo)題欄 .DTPStartDate = Left((開(kāi)始時(shí)間 ), 10) 39。加載修改員工公出 /請(qǐng)假窗體 39。給結(jié)束時(shí)間賦值 .cboStyle = (假別 ) 39。關(guān)閉數(shù)據(jù)集對(duì)象 End If End Sub Private Sub DataGrid1_DblClick() blnAddGCQJ = False 39。 order by 編號(hào) , n, adOpenKeyset, adLockOptimistic 39。如果表中有記錄 39。將記錄指針移到下一條 Loop End If 39。 潘慶強(qiáng)的畢業(yè)設(shè)計(jì) 《企業(yè)人事管理系統(tǒng)》 35 2 代碼設(shè)計(jì) 1） 在代碼窗口中申明部分定義的數(shù)據(jù)集對(duì)象： Dim rs As New 2） 窗體啟動(dòng)時(shí)，進(jìn)行初始化設(shè)置。 （ 4） 在窗體上添加一個(gè) ado 控件，設(shè)置 datasource 屬性為Provider=。 小時(shí) 39。計(jì)算天數(shù) myminute