【正文】 的屬性和上面介紹的窗體屬性設(shè)置大致相同，惟一不同的地方就是Caption 一項(xiàng)的設(shè)置。 TransactSQL (SQL) MsgBox 密碼已經(jīng)修改！ , vbOKOnly + vbExclamation, 修改結(jié)果 Unload Me End If End If End Sub 單擊“取消”按鈕，將會(huì)取消修改密碼的操作。修改密碼 SQL = update UserInfo set UserPWD = 39。保存用戶名稱 第 23 頁(yè) Unload Me Else MsgBox 密碼不正確，請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If Else Unload Me End If End If pwdCount = pwdCount + 1 39。如果 3 次輸入錯(cuò)誤密碼，就會(huì)退出這個(gè)系統(tǒng)。選擇 MDI 窗體，單擊 “打開(kāi) ”按鈕，為這個(gè)工程添加一個(gè)多文檔窗體作為主窗體，如圖 42 所示。保存請(qǐng)假記錄編號(hào) Public OrecordID As Integer 39。在 第 16 頁(yè) 項(xiàng)目資源管理器中為這個(gè)工程添加一個(gè)模塊，保存為 。它簡(jiǎn)單易學(xué)、 效率高，且功能強(qiáng)大，可以與 Windows 的專業(yè)開(kāi)發(fā)工具 SDK 相媲美，而且程序開(kāi)發(fā)人員不必具有 C/C++編程基礎(chǔ)。 職工考勤信息：包括職工編號(hào)、職工姓名、職工所在部門(mén)、出勤時(shí)間、曠工時(shí)間、請(qǐng)假時(shí)間、早退時(shí)間、遲到時(shí)間、加班時(shí)間、出差時(shí)間等。數(shù)據(jù)庫(kù)是信息管理系統(tǒng)的后臺(tái)，存儲(chǔ)著所有的信息，在信息管理系統(tǒng)中有著很重要的地位。 職工調(diào)動(dòng)信息 (1)添加調(diào)動(dòng)信息：添加事業(yè)職工的原有部門(mén)、原有職務(wù)、新部門(mén)、新職務(wù)等信息。并且可以針對(duì)查詢結(jié)果進(jìn)行修改和刪除操作。 Vb/SQL2021 的結(jié)合足以給企業(yè)帶來(lái)信息化 的優(yōu)勢(shì) 。這些優(yōu)點(diǎn)能夠極大地提高人事勞資管理的效率，因此，系統(tǒng)開(kāi)發(fā)在經(jīng)濟(jì)上是可行的。 第 4 頁(yè) 第 2 章 系統(tǒng) 需求分析 功能需求概述 單位內(nèi)部的人事的管理，從大的方面分主要集中在單位職工的個(gè)人情況、調(diào)入調(diào)出等。數(shù)據(jù)庫(kù)的接口靈活，可選用嵌入式方式， ODBC 方式等。人員子集信息是描述人員情況的輔助信息，對(duì)于每個(gè)人來(lái)說(shuō)這類信息也許是一條、多條、也可能沒(méi)有，如學(xué)歷、出國(guó)記錄等信息。 企業(yè)員工管理系統(tǒng)是一個(gè)企業(yè)單位信息化建設(shè)不可缺少的部分，它的內(nèi)容對(duì)于企業(yè)的決策者和管理者來(lái)說(shuō)都至關(guān)重要，所以企業(yè)員工管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄巍?the electronic data processing。系統(tǒng)主要實(shí)現(xiàn)對(duì)數(shù)據(jù)的插入、刪除、統(tǒng)計(jì)、查詢、更新等功能。詳細(xì) 說(shuō)明了系統(tǒng) 的設(shè)計(jì) 重點(diǎn)、設(shè)計(jì)思想、難點(diǎn)技術(shù)和解決方案。使用計(jì)算機(jī)進(jìn)行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。 企業(yè)員工管理的概念 所謂員工管理，是指以從事社會(huì)勞動(dòng)的人和有關(guān)的事的相互關(guān)系為對(duì)象，通過(guò)組織、協(xié)調(diào)、控制、監(jiān)督等手段，謀求人與事以及共事人之間的相互適應(yīng)，實(shí)現(xiàn)充分發(fā)揮人的潛能，把事情做得更好這一目標(biāo)所進(jìn)行的管理活動(dòng)。 2． 靈活、快速的檢索查詢 對(duì)人員、單位信息可以按多種條件組合查詢，并且支持區(qū)間查詢和模糊查詢。 第 3 頁(yè) 開(kāi)發(fā)背景 人力資源是企業(yè)所有資源中最活躍與最昂貴的資源，如何讓更多的員工以積極主動(dòng)的 態(tài)度參與公司的運(yùn)作，最大限度的發(fā)揮企業(yè)人力資源的效用是每一個(gè)管理者關(guān)心的問(wèn)題。 開(kāi)發(fā)這個(gè)系統(tǒng)的目的就是幫助 企業(yè) 部門(mén)提高工作效率，實(shí)現(xiàn) 企業(yè)員工 管理的系統(tǒng)化、規(guī)范化和自動(dòng)化。 。 如圖 21 系統(tǒng) 管理 系統(tǒng)啟動(dòng)的時(shí)候有一個(gè)管理員用戶，使用這個(gè)用戶登錄后，可以添加其他用戶，而且每一個(gè)用戶 都可以更改自己的密碼。上下班信息主要記錄每個(gè)職工每天上下班的時(shí)間，而其他考勤信息包含有請(qǐng)假、加班、出差信息。 (4)刪除調(diào)動(dòng)信息：刪除那些不需要的信息。 Access2021 是一個(gè)中、小型數(shù)據(jù)庫(kù)管理系統(tǒng)，使用方便、功能強(qiáng)大，與其它數(shù)據(jù)庫(kù)有良好的接口。 表 31 AttendanceInfo 表的邏輯結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 格式 說(shuō)明 ID 自動(dòng)編號(hào) 長(zhǎng)整型 標(biāo)準(zhǔn) AStuffID 文本 20 標(biāo)準(zhǔn) 職工編號(hào) AStuffName 文本 10 標(biāo)準(zhǔn) 職工姓名 ADate 日期 /時(shí)間 標(biāo)準(zhǔn) 當(dāng)前日期 AFlag 文本 20 標(biāo)準(zhǔn) 出入標(biāo)志 AInTime 日期 /時(shí)間 標(biāo)準(zhǔn) 上班時(shí)間 AOutTime 日期 /時(shí)間 標(biāo)準(zhǔn) 下班時(shí)間 ALate 數(shù)字 長(zhǎng)整型 標(biāo)準(zhǔn) 遲到 次數(shù) AEarly 數(shù)字 長(zhǎng) 整型 標(biāo)準(zhǔn) 早退次數(shù) 表 32 OvertimeInfo 表的邏輯結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 格式 說(shuō)明 OID 自動(dòng)編號(hào) 長(zhǎng)整型 標(biāo)準(zhǔn) 記錄編號(hào) OStuffID 文本 20 標(biāo)準(zhǔn) 職工編號(hào) OSpeciality 數(shù)字 長(zhǎng)整型 標(biāo)準(zhǔn) 特殊加班天數(shù) OCommon 數(shù)字 長(zhǎng)整型 標(biāo)準(zhǔn) 正常加班天數(shù) OFromDay 日期 /時(shí)間 標(biāo)準(zhǔn) 加班日期 表 33 LeaveInfo 表的邏輯結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 格式 說(shuō)明 LID 自動(dòng)編號(hào) 長(zhǎng)整型 標(biāo)準(zhǔn) 記錄編號(hào) LStuffID 文本 20 標(biāo)準(zhǔn) 職工編號(hào) LIll 數(shù)字 長(zhǎng)整型 標(biāo)準(zhǔn) 病假天數(shù) LPrivate 數(shù)字 長(zhǎng)整型 標(biāo)準(zhǔn) 事假天數(shù) 第 11 頁(yè) LFromDay 日期 /時(shí)間 標(biāo)準(zhǔn) 假期開(kāi)始時(shí)間 表 34 AlterationInfo 表的邏輯結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 格式 說(shuō)明 ID 自動(dòng)編號(hào) 長(zhǎng)整型 標(biāo)準(zhǔn) 記錄編號(hào) AID 文本 20 標(biāo)準(zhǔn) 職工編號(hào) AName 文本 10 標(biāo)準(zhǔn) 職工姓名 AOldDept 文本 50 標(biāo)準(zhǔn) 原部門(mén) ANewDept 文本 50 標(biāo)準(zhǔn) 新部門(mén) AOldPosition 文本 50 標(biāo)準(zhǔn) 原職務(wù) ANewPosition 文本 50 標(biāo)準(zhǔn) 新職務(wù) AOutTime 日期 /時(shí)間 標(biāo)準(zhǔn) 調(diào)出 時(shí)間 AInTime 日期 /時(shí)間 標(biāo)準(zhǔn) 調(diào)入時(shí)間 ARemark 備注 標(biāo)準(zhǔn) 備注 表 35 TimeSetting 字段名稱 數(shù)據(jù)類型 字段大小 格式 說(shuō)明 begintime 日期 /時(shí)間 標(biāo)準(zhǔn) 上班時(shí)間 endtime 日期 /時(shí)間 標(biāo)準(zhǔn) 下班時(shí)間 表 36 StuffInfo 表的邏輯結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 格式 說(shuō)明 SID 文本 20 標(biāo)準(zhǔn) 職工 編號(hào) SName 文本 10 標(biāo)準(zhǔn) 職工姓名 SGender 文本 2 標(biāo)準(zhǔn) 性別 SPlace 文本 20 標(biāo)準(zhǔn) 籍貫 SAge 數(shù)字 長(zhǎng)整型 標(biāo)準(zhǔn) 年齡 SBirthday 日期 /時(shí)間 標(biāo)準(zhǔn) 生日 SDegree 文本 10 標(biāo)準(zhǔn) 學(xué)歷 第 12 頁(yè) SAddress 文本 50 標(biāo)準(zhǔn) 住址 SSpecial 文本 20 標(biāo)準(zhǔn) 專業(yè) SCode 文本 10 標(biāo)準(zhǔn) 郵編 STel 文本 20 標(biāo)準(zhǔn) 電話 SEmail 文本 20 標(biāo)準(zhǔn) Email SWorkTime 日期 /時(shí)間 標(biāo)準(zhǔn) 參加工作時(shí)間 SInTime 日期 /時(shí)間 標(biāo)準(zhǔn) 進(jìn)入單位時(shí)間 SDept 文本 50 標(biāo)準(zhǔn) 部門(mén) SPayTime 日期 /時(shí)間 標(biāo)準(zhǔn) 起薪時(shí)間 SPosition 文本 50 標(biāo)準(zhǔn) 職務(wù) SRemark 文本 50 標(biāo)準(zhǔn) 備注 表 37 UserInfo 表的邏輯結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 格式 說(shuō)明 UserID 文本 10 標(biāo)準(zhǔn) 用戶名稱 UserPWD 文本 20 標(biāo)準(zhǔn) 用戶密碼 表 38 ErrandInfo 表的邏輯結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 格 式 說(shuō)明 EID 自動(dòng)編號(hào) 長(zhǎng)整型 標(biāo)準(zhǔn) 記錄編號(hào) EStuffID 文本 20 標(biāo)準(zhǔn) 職工編號(hào) EErranddays 數(shù)字 長(zhǎng)整型 標(biāo)準(zhǔn) 出差天數(shù) EPurpose 文本 50 標(biāo)準(zhǔn) 出差目的地 EFromday 日期 /時(shí)間 標(biāo)準(zhǔn) 出差開(kāi)始時(shí)間 功能實(shí)體的設(shè)計(jì) 基本實(shí)體的圖表示 得到上面的數(shù)據(jù)項(xiàng)和數(shù)據(jù) 表 以后，就可以設(shè)計(jì)出能夠滿足用戶需求的各種實(shí) 第 13 頁(yè) 體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。 建立公共模塊 運(yùn)行 Visual Basic 后，選擇 “文件 ”→“ 新建工程 ”菜單，然后從工程模板中選擇“標(biāo)準(zhǔn) EXE”項(xiàng)，單擊 “確定 ”按鈕。添加和修改的標(biāo)志 Public gSQL As String 39。數(shù)據(jù)庫(kù)是否打開(kāi)標(biāo)志 添加執(zhí)行 SQL 語(yǔ)句的函數(shù) （ Public Function TransactSQL(ByVal SQL As String) As ）用（ Set con = New ）創(chuàng)建連接，然后創(chuàng)建記錄集（ Set rs = New ），打開(kāi)之間的連接（ strConnection），接著返回記錄集（ Set TransactSQL = rs），執(zhí)行命令（ SQL），顯示該模塊的窗體（ vbModual）。它們分別是職工基本信息管理模塊、職工考勤信息管理模塊、職工調(diào)動(dòng)信息管理模塊、系統(tǒng)管理模塊。查詢用戶 SQL = select * from UserInfo where UserID=39。 表 43 添加用戶窗體中控件屬性設(shè)置 控件 屬性 屬性值 TextBox Name UserName TextBox Name PassWord Maxlength 8 PassWordChar * TextBox Name confirmPWD Maxlength 8 PassWordChar * CommandButton Name cmdOK Caption 確定 CommandButton Name cmdCancel Caption 取消 Label Caption 新用戶名稱 Label Caption 用戶密碼 Label Caption 確認(rèn)密碼 在修改密碼窗體中 ， 首先輸入用戶的舊密碼，然后輸入新設(shè)置的密碼，再確認(rèn)新密碼，單擊“確定”按鈕，調(diào)用 cmdOK＿ Click()函數(shù)，修改密碼。 39。控件的主要屬性設(shè)置如表 44 所示。添加相應(yīng)的考勤信息，這里一次只能選擇一個(gè)項(xiàng)目進(jìn)行添加，因?yàn)橐粋€(gè)職工不可能在同一天中同時(shí)出現(xiàn)幾種情況。 要 使 用 這 2 個(gè) 控 件 ， 首 先 要 在 “ 控件 ” 對(duì) 話 框 中 選 中 Microsoft (SP4)(OLEDB)、 MicrosoftDataGridControl6． 0(SP5)(OLEDB)項(xiàng)。但由于人們能力的局限性，審查不能發(fā)現(xiàn)所有的錯(cuò)誤。 軟件測(cè)試在軟件生存期中橫跨兩個(gè)階段。修改職工信息 flag = 2 If 1 Then gSQL = select * from StuffInfo where SID=39。 打破習(xí)慣的操作順序，從中發(fā)現(xiàn)錯(cuò)誤，在此階段系統(tǒng)的大量錯(cuò)誤得到了改