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