【正文】 系統(tǒng)必須進(jìn)行口令校驗(yàn)。即在對(duì)人事管理方式和業(yè)務(wù)流程進(jìn)行認(rèn)真分析和研究的基礎(chǔ)上，排除現(xiàn)有組織機(jī)構(gòu)和業(yè)務(wù)分工所造成的信息障礙。將信息處理功能和彼此之間的聯(lián)系自頂向下，逐層分解，從邏輯上精確地描述系統(tǒng)應(yīng)具有的數(shù)據(jù)加工功能、數(shù)據(jù)輸入、數(shù)據(jù)輸出、數(shù)據(jù)存儲(chǔ)及數(shù)據(jù)來源和去向（外部實(shí)體）等項(xiàng)目。人事管理信息處理D1各種報(bào)表P人事基本信息出勤調(diào)動(dòng)出差請(qǐng)假信息用戶單位領(lǐng)導(dǎo) 圖3－2 人事信息處理的頂層數(shù)據(jù)流程圖 現(xiàn)在以加班處理的數(shù)據(jù)流程圖（圖33）為例說明二層數(shù)據(jù)流程圖，其它如出差、出勤等信息的數(shù)據(jù)流程圖略 工作加班記錄加班人員 匯總上報(bào)審核部門負(fù)責(zé)人上報(bào)加班記錄領(lǐng)導(dǎo)審批財(cái)務(wù)部門送交送交人事部門圖33人事管理系統(tǒng)的數(shù)據(jù)流程圖如下圖所示F1錄入員工基本信息和工作信息P1 1221員工信息空白單D1F2P2 1221填寫有關(guān)信息D2已填好的有關(guān)信息F3P3員工信息處理D3處理結(jié)果F4圖3－4 系統(tǒng)數(shù)據(jù)流程圖其中‘P’表示數(shù)據(jù)處理，‘F’表示數(shù)據(jù)流，‘D’表示數(shù)據(jù)存儲(chǔ)。這就需要開發(fā)人員編寫詳細(xì)的數(shù)據(jù)字典,來描述系統(tǒng)開發(fā)過程的細(xì)節(jié)。修改記錄：編寫日期審核日期表3：性別 數(shù) 據(jù) 項(xiàng)系統(tǒng)名：人事管理系統(tǒng) 編號(hào)：I003 名稱：性別 別名： 數(shù)據(jù)項(xiàng)值： 類型：文本 長度：2個(gè)字節(jié) 取值范圍：男、女簡述：性別僅有兩種情況，為了便于錄入，在設(shè)計(jì)時(shí)可以采用單選按鈕或下拉列表框的方式。修改記錄：編寫日期審核日期表7：學(xué)歷 數(shù) 據(jù) 項(xiàng)系統(tǒng)名：人事管理系統(tǒng) 編號(hào)：I007 名稱：學(xué)歷 別名： 數(shù)據(jù)項(xiàng)值： 類型：文本 長度：8個(gè)字節(jié) 取值范圍：簡述：因?yàn)閱T工的學(xué)歷分為高中，中專，大專，本科，碩士，博士，博士后這幾種情況。修改記錄：編寫日期審核日期表9：住址 數(shù) 據(jù) 項(xiàng)系統(tǒng)名：人事管理系統(tǒng) 編號(hào)：I009 名稱：住址 別名： 數(shù)據(jù)項(xiàng)值： 類型：文本 長度：26個(gè)字節(jié) 取值范圍：簡述：員工現(xiàn)在的家庭住址，若員工的家庭住址變動(dòng)，則從每年一度的員工簡明情況登記表中的信息進(jìn)行修改。修改記錄：編寫日期審核日期表12：Email 數(shù) 據(jù) 項(xiàng)系統(tǒng)名：人事管理系統(tǒng) 編號(hào)：I012 名稱： Email 別名：電子郵箱 數(shù)據(jù)項(xiàng)值： 類型：文本 長度：20個(gè)字節(jié) 取值范圍：簡述：員工的郵箱地址。修改記錄：編寫日期審核日期表16：起薪時(shí)間 數(shù) 據(jù) 項(xiàng)系統(tǒng)名：人事管理系統(tǒng) 編號(hào)：I016 名稱： 起薪時(shí)間 別名： 數(shù)據(jù)項(xiàng)值： 類型：日期/時(shí)間 長度： 取值范圍：簡述：員工從事相應(yīng)的工作可以領(lǐng)取相應(yīng)的薪金的時(shí)間修改記錄：編寫日期審核日期表17：職務(wù) 數(shù) 據(jù) 項(xiàng)系統(tǒng)名：人事管理系統(tǒng) 編號(hào)：I017 名稱：職務(wù) 別名： 數(shù)據(jù)項(xiàng)值： 類型：文本 長度：16 取值范圍：簡述：員工在相應(yīng)的工作崗位所承擔(dān)的職責(zé)?？梢圆捎肊－R圖的方法來進(jìn)行數(shù)據(jù)結(jié)構(gòu)分析。 實(shí)體 屬性 實(shí)體間的聯(lián)系圖3－5 E－R圖圖例 Email在本系統(tǒng)的數(shù)據(jù)流程圖中，系統(tǒng)邊界已經(jīng)很清楚了，所以可直接根據(jù)它設(shè)計(jì)本系統(tǒng)的E－R圖，不必要先設(shè)計(jì)分E－R圖，再合并總體E－R圖了。 對(duì)于實(shí)體間的聯(lián)系我們分不同的情況討論：(1) 若實(shí)體間的聯(lián)系是1:1，可以在兩個(gè)實(shí)體轉(zhuǎn)換成的兩個(gè)關(guān)系中任意一個(gè)關(guān)系的屬性中加入另一個(gè)關(guān)系的碼。每個(gè)關(guān)系的碼用下劃線表示。(2) 結(jié)構(gòu)設(shè)計(jì)與操作設(shè)計(jì)相結(jié)合在設(shè)計(jì)數(shù)據(jù)庫結(jié)構(gòu)時(shí)，有時(shí)為了編程實(shí)現(xiàn)的簡捷和思路的清晰，往往故意增加一些冗余數(shù)據(jù)。計(jì)算機(jī)系統(tǒng)的建成是建立在原系統(tǒng)充分調(diào)研的基礎(chǔ)上的，它既不能脫離原系統(tǒng)的大框架，也不是簡單的重復(fù)和替代。本程序采用Access作為數(shù)據(jù)庫引擎，其主要原因是考慮到現(xiàn)在的大多數(shù)辦公室應(yīng)用系統(tǒng)軟件均支持Access數(shù)據(jù)庫，所以只要應(yīng)用于格式符合的計(jì)算機(jī)系統(tǒng)上即可運(yùn)行，并且由于Access與VB皆是微軟公司開發(fā)出來的軟件，所以它們之間的兼容性非常好，容易配合使用。 模塊設(shè)計(jì) 按照功能分析及數(shù)據(jù)庫的設(shè)計(jì)結(jié)果，為本系統(tǒng)設(shè)計(jì)如下模塊，最終得到如下圖所示的功能模塊圖： (附圖)員工出勤管理系統(tǒng)員工基本信息管理員工考勤信息管理員工實(shí)習(xí)信息管理系統(tǒng)添加員工基本信息修改員工基本信息查詢員工基本信息刪除員工基本信息添加員工考勤信息修改員工考勤信息查詢員工考勤信息刪除員工考勤信息添加員工調(diào)動(dòng)信息修改員工調(diào)動(dòng)信息查詢員工調(diào)動(dòng)信息刪除員工調(diào)動(dòng)信息添加用戶、修改密碼圖3－8從總體結(jié)構(gòu)圖容易列出應(yīng)用程序的菜單，由總體結(jié)構(gòu)圖轉(zhuǎn)換到菜單時(shí)，其對(duì)應(yīng)情況如下：系統(tǒng)對(duì)應(yīng)菜單文件，子系統(tǒng)層對(duì)應(yīng)菜單標(biāo)題，功能層對(duì)應(yīng)子菜單項(xiàng)。(2) 修改員工信息：選擇一個(gè)員工，可以修改這個(gè)員工的基本信息。3． 員工考勤信息：(1) 添加考勤信息:,而其他考勤信息包含有請(qǐng)假、加班、出差信息。(5) 設(shè)置上下班時(shí)間：設(shè)置公司上下班時(shí)間。(4) 刪除調(diào)動(dòng)信息：刪除那些不需要的信息。如果您現(xiàn)在想學(xué)習(xí) Windows 編程，我們建議您先從 Visual Basic 學(xué)起，因?yàn)樗唵我讓W(xué)，功能強(qiáng)大，可以很輕松地開發(fā)出 Windows 應(yīng)用程序。用 Visual Basic 既可以開發(fā)現(xiàn)一般的 Windows應(yīng)用程序，也可以實(shí)現(xiàn)先進(jìn)的客戶機(jī)/服務(wù)器、瀏覽器/服務(wù)器系統(tǒng)。簡單地說就是三個(gè)關(guān)鍵的概念：窗口、事件和消息。這樣就可以快速創(chuàng)建強(qiáng)大的應(yīng)用程序而無需涉及不必要的細(xì)節(jié)。在事件驅(qū)動(dòng)的應(yīng)用程序中，代碼不是按照預(yù)定的路徑執(zhí)行，而是在響應(yīng)不同的事件時(shí)執(zhí)行不同的代碼片段。當(dāng)作出某些假設(shè)時(shí)，應(yīng)該組織好應(yīng)用程序的結(jié)構(gòu)，以確保該假設(shè)始終有效。Visual Basic 在編程者輸入代碼時(shí)便進(jìn)行解釋，即時(shí)捕獲并突出顯示大多數(shù)語法或拼寫錯(cuò)誤，這看起來就像一位專家在實(shí)時(shí)監(jiān)視代碼的輸入。由于 Visual Basic 的交互特性，因此可以發(fā)現(xiàn)在開發(fā)應(yīng)用程序時(shí)，您自己正頻繁地運(yùn)行著您的應(yīng)用程序。(DataBase Management System 。“數(shù)據(jù)庫”窗口的新增功能Microsoft Access 2000 的“數(shù)據(jù)庫”窗口提供了下列查看和處理數(shù)據(jù)庫對(duì)象的選項(xiàng)。使用“對(duì)象”欄將數(shù)據(jù)庫對(duì)象組織為組 如果選擇，更改默認(rèn)行為，并將光標(biāo)置于其上以選中數(shù)據(jù)對(duì)象， 單擊以打開該對(duì)象。 數(shù)據(jù)訪問頁的新增功能數(shù)據(jù)訪問頁是一個(gè) Web 頁，可以用來添加、編輯、查看或處理 Microsoft Access 數(shù)據(jù)庫或 SQL Server 數(shù)據(jù)庫中的當(dāng)前數(shù)據(jù)。 您可以使用頁添加、編輯和查看 Microsoft Access 數(shù)據(jù)庫或 Microsoft Access 項(xiàng)目中的數(shù)據(jù)；可以在 Internet 或 Intranet 上使用這些數(shù)據(jù)，也可以在電子郵件中發(fā)送這些數(shù)據(jù)。分析數(shù)據(jù)和進(jìn)行數(shù)據(jù)影射例如，如果字段中的一個(gè)值包含 HTML 標(biāo)記，它將文字的格式設(shè)置為斜體，IText/I，可以在頁上使用一個(gè)綁定 HTML 控件按斜體顯示該值。 人事管理系統(tǒng)模塊設(shè)計(jì)舉例 一、建立公共模塊 運(yùn)行VisualBasic后，選擇“文件”→“新建工程”菜單，然后從工程模板中選擇“標(biāo)準(zhǔn)EXE”項(xiàng)，單擊“確定”按鈕。在這個(gè)系統(tǒng)中，每個(gè)功能模塊都要使用數(shù)據(jù)庫，因此可以使用一個(gè)公用有數(shù)據(jù)操作函數(shù)，來執(zhí)行一系列的SQL語句。保存上下班記錄編號(hào)Public LrecordID As Integer 39。數(shù)據(jù)庫是否打開標(biāo)志Public Function TransactSQL(ByVal SQL As String) As Dim con As Dim rs As Dim strConnection As StringDim strArray() As StringSet con = New 39。 amp。執(zhí)行命令 iflag = 1 End IfTransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit FunctionTransactSQL_Error: MsgBox 查詢錯(cuò)誤： amp。顯示窗體End Sub二、登錄窗體： 圖4－1有關(guān)本窗體的代碼如下:Option ExplicitDim pwdCount As IntegerPrivate Sub cmdCancel_Click() Unload Me Exit SubEnd SubPrivate Sub cmdOK_Click() Dim SQL As String Dim rs As If Trim( = ) ThenMsgBox 沒有輸入用戶名稱，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 警告 Else 39。判斷是否輸入舊密碼 MsgBox 請(qǐng)輸入舊密碼, vbOKOnly + vbExclamation, 警告 Exit Sub Else If Trim() = Then 39。 amp。 MsgBox 密碼已經(jīng)修改, vbOKOnly + vbExclamation, 修改結(jié)果 Unload Me End If End IfEnd SubPrivate Sub Form_Load() = = = End Sub查詢員工信息圖4－4相關(guān)代碼如下：Option ExplicitPrivate query As String 39。獲得起始和結(jié)束時(shí)間 fromdate = amp。 amp。 amp。 Trim() amp。 Trim() amp。 and amp。 Trim() query = query amp。 Trim() amp。 todate amp。 End If If = vbChecked And = vbChecked Then query = query amp。 and SName=39。 End If If = vbChecked And = vbChecked Then query = select * from StuffInfo where SID=39。 End If If = vbChecked Then query = select * from StuffInfo where SInTime between query = query amp。 End If If = vbChecked Then query = select * from StuffInfo where SName=39。設(shè)置SQL語句 If = vbChecked Then query = select * from StuffInfo where SID=39。 1, yyyymmdd) todate = amp。 amp。起始時(shí)間Private todate As String 39。 39。判斷兩次密碼是否相同 MsgBox 兩次密碼不同, vbOKOnly + vbExclamation, 警告 = = Else 39。保存用戶名稱 Unload Me Else MsgBox 密碼不正確，請(qǐng)重新輸入！, vbOKOnly + vbExclamation