【正文】 本 50 標(biāo)準(zhǔn) 出差目的地 EFromday 日期 /時間 標(biāo)準(zhǔn) 出差開始時間 功能實體的設(shè)計 基本實體的圖表示 得到上面的數(shù)據(jù)項和數(shù)據(jù) 表 以后，就可以設(shè)計出能夠滿足用戶需求的各種實 第 13 頁 體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計打下基礎(chǔ)。 本系統(tǒng)根據(jù)上 面的設(shè)計規(guī)劃出的實體有：職工基本信息實體、職工考勤信息實體、職工調(diào)動信息實體。 調(diào)用 職工調(diào)動信息 職工考勤信息 職工基本信息 … 職工姓名 職工性別 職工編號 … 職工姓名 調(diào)出時間 職工姓名 新職務(wù) 員工 進入單位時間 出差時間 調(diào)用 輸出 … 第 15 頁 第 4 章 系統(tǒng)設(shè) 計與實現(xiàn) 模塊化開發(fā)環(huán)境的簡介 Visual Basic 簡介 Visual Basic 是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā) Windows 環(huán)境下的種類應(yīng)用程序。在 Visual Basic 環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設(shè)計工具，使用 Windows 內(nèi)部的應(yīng)用程序接口 (API)函數(shù)，以及動態(tài)鏈接庫 (DLL)、動態(tài)數(shù)據(jù)交換 (DDE)、對象的鏈接與嵌入 (OLE)、開放式數(shù)據(jù)訪問 (ODBC)等技術(shù)，可以高效、快速地開發(fā)出 Windows 環(huán)境下功能強大、圖形界面豐富的應(yīng)用軟件系統(tǒng) 。 建立公共模塊 運行 Visual Basic 后，選擇 “文件 ”→“ 新建工程 ”菜單，然后從工程模板中選擇“標(biāo)準(zhǔn) EXE”項，單擊 “確定 ”按鈕。在本系統(tǒng)設(shè)計中，先刪除這個窗體，然后選擇 “文件 ”→“ 保存工程 ”菜單，在出現(xiàn)的 “文件另存為 ”對話框中輸入這個工程項目的名稱Stuff_MIS，并且選擇要保存這個工程的目錄，單擊 “保存 ”按鈕，保存工程。在這個系統(tǒng)中，每個功能模塊都要使用數(shù)據(jù)庫，因此可以使用一個公用的數(shù)據(jù)操作函數(shù)，來執(zhí)行一系列的 SQL 語句。 首先添加幾個變量的定義： Public gUserName As String 39。添加和修改的標(biāo)志 Public gSQL As String 39。保存查詢考勤結(jié)果 SQL 語句 Public kqsql2 As String 39。保存上下班記錄編號 Public LrecordID As Integer 39。保存加班記錄編號 Public ErecordID As Integer 39。數(shù)據(jù)庫是否打開標(biāo)志 添加執(zhí)行 SQL 語句的函數(shù) （ Public Function TransactSQL(ByVal SQL As String) As ）用（ Set con = New ）創(chuàng)建連接，然后創(chuàng)建記錄集（ Set rs = New ），打開之間的連接（ strConnection），接著返回記錄集（ Set TransactSQL = rs），執(zhí)行命令（ SQL），顯示該模塊的窗體（ vbModual）。使用這個窗體的好處是可以使程序更加有條理。 單擊工具欄中的添加 MDI 窗體或者選擇 “工程 ”→“ 添加 MDI 窗體 ”菜單，如圖41 所示。 添加主窗體后，設(shè)置主窗體的屬性，如圖 43 所 示。它們分別是職工基本信息管理模塊、職工考勤信息管理模塊、職工調(diào)動信息管理模塊、系統(tǒng)管理模塊。 1) 登陸窗體： 圖 46 登入窗體 為這個窗體添加 3個標(biāo)簽 (Label)，用來標(biāo)識窗體中的信息； 2個文本框(TextBox)， 用來輸入用戶名稱和用戶密碼； 2個按鈕 (CommandButton)，用來確定或取消操作。 表 42 登錄窗體中控件 屬性設(shè)置 控件 屬性 屬性值 TextBox Name UserName TextBox Name PassWord PassWordChar * Name cmdOK 第 22 頁 CommandButton Caption 確定 CommandButton Name cmdCancel Caption 取消 Label Caption 事業(yè)人事管理系統(tǒng) Label Caption 用戶名稱 Label Caption 用戶密碼 用戶沒有輸入用戶名稱、用戶密碼或者輸入錯誤密碼系統(tǒng)都會出現(xiàn)相應(yīng)的提示。 單擊“取消”按鈕，就會調(diào)用 cmdCancel＿ Click()函數(shù)，退出系統(tǒng)。查詢用戶 SQL = select * from UserInfo where UserID=39。 amp。 Set rs = TransactSQL(SQL) If iflag = 1 Then If = True Then MsgBox 沒有這個用戶，請重新輸入！ , vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then gUserName = Trim() 39。判斷輸入次數(shù) If pwdCount = 3 Then Unload Me Exit Sub End If End Sub 2) 建立修改密碼窗體： 圖 47 修改密碼 第 24 頁 窗體中添加了 3個標(biāo)簽用來顯示信息； 3個文本框用來輸入用戶名稱用戶密碼；2 個按鈕用來確定和取消操作。 表 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ù)，修改密碼。判斷是否輸入舊密碼 MsgBox 請輸入舊密碼！ , vbOKOnly + vbExclamation, 警告 第 25 頁 Exit Sub Else If Trim() = Then 39。判斷兩次密碼是否相同 MsgBox 兩次密碼不同！ , vbOKOnly + vbExclamation, 警告 = = Else 39。 amp。 39。 SQL = SQL amp。 39。添加的代碼如下： Private Sub cmdCancel_Click() Unload Me End Sub 2． 員工基本信息管理 員工基本信息管理主要任務(wù)是記錄員工的信息，用戶可以手工對員工信息進行添加、修改、刪除、查詢等操作 ?？丶闹饕獙傩栽O(shè)置如表 44 所示。 這個窗體以及控件的 主要屬性設(shè)置如表 45所示。 1) 添加上下班信息 添加功能實現(xiàn)員工基本考勤信息的添加，基本考勤分為上午和下午，當(dāng)天上午只能添加員工上午、下午出勤時間，員工編號、員工姓名和出勤日期。在“添加職工上下班信息”窗體中，選擇“上班時間”或者“下班時間”，然后輸入相應(yīng)的上下班時間，單擊“確定”按鈕，會調(diào)用 cmdOK_Click()函數(shù)，添加或者修改相應(yīng)的上下班信息。添加相應(yīng)的考勤信息，這里一次只能選擇一個項目進行添加，因為一個職工不可能在同一天中同時出現(xiàn)幾種情況。 第 32 頁 3) 查詢考勤信息界面： 圖 413 查詢職工考勤信息 窗體載入時，從數(shù)據(jù)庫中載入年份，同時設(shè)置月份。 顯示結(jié)果如圖 414。 第 34 頁 4． 職工調(diào)動信息管理 1) 添 加職工調(diào)動信息界面 : 圖 416 添加職工調(diào)動信息 輸入調(diào)動的信息，相應(yīng)的變化信息，大部分操作與上述的相似， 填寫后單擊“確定”按鈕，就會調(diào)用 cmdOK_Click()函數(shù)，添加相應(yīng)的 調(diào)動 信息。 要 使 用 這 2 個 控 件 ， 首 先 要 在 “ 控件 ” 對 話 框 中 選 中 Microsoft (SP4)(OLEDB)、 MicrosoftDataGridControl6． 0(SP5)(OLEDB)項。 選中 DataGrid 控件，單擊鼠標(biāo)右鍵，在菜單中選擇 “編輯 ”命令。 第 36 頁 3) 查詢調(diào)動信息窗體： 圖 418 查詢調(diào)動信息 5． 程序的配置運行 這個系統(tǒng)主要依靠 Access2021 數(shù)據(jù)庫，所以只要計算機中安裝有 Access2021就可以，但是一定要注意， Person． mdb 數(shù)據(jù)庫一定要和系統(tǒng)的可執(zhí)行文件在一個文件夾下，這樣才能夠正確的運行。在創(chuàng)建好數(shù)據(jù)庫表的前提下，利用 Visual Basic 程序設(shè)計軟件進行個窗體的編程設(shè)計。但由于人們能力的局限性，審查不能發(fā)現(xiàn)所有的錯誤。軟件測試是軟件開發(fā)的一個必不可少的重要環(huán)節(jié)。這樣，在軟件產(chǎn)品中就會隱藏許多錯誤和缺陷。這些錯誤和缺陷如果遺留到軟件交付投入運行之時，終將會暴露出來。 軟件測試在軟件生存期中橫跨兩個階段。編碼與單元測試屬于軟件生存期 中的同一個階段。 本階段力求使用有限的時間找出盡可能多的錯誤，力求系統(tǒng)盡量運行正常。 出錯處理 任何一個系統(tǒng)都不可能盡善盡美，錯誤在所難免。修改職工信息 flag = 2 If 1 Then gSQL = select * from StuffInfo where SID=39。 Trim(( , 0)) amp。 第 38 頁 0 Else MsgBox 目前沒有職工信息 , 請先添加職工信息！ , vbOKOnly + vbExclamation, 警告 ! flag = 1 End If End Sub 在系統(tǒng)開發(fā)過程中，有些錯誤不知道是出于何處，我的作法是在可能出現(xiàn)錯誤的地方設(shè)置一些陷阱，通 過這些陷阱一步一步對程序代碼進行檢查。這是我解決問題的主要方法。 打破習(xí)慣的操作順序，從中發(fā)現(xiàn)錯誤，在此階段系統(tǒng)的大量錯誤得到了改正。 由于畢業(yè)設(shè)計時間較短和自身的能力有限，所以該系統(tǒng)還有許多不盡如人意的地方。 第 40 頁 致 謝 隨著 這次 畢業(yè)設(shè)計的完成 ,我的大學(xué)學(xué)習(xí)生活也即將結(jié)束 .這次畢業(yè)設(shè)計 ,是我們對四年來理論知識學(xué)習(xí)的總結(jié) ,也是對我們步入社會工作的良好實踐 .通過這次的實踐工作 ,使我們了解到理論知識和實際應(yīng)用之間的差距 ,也就更好的為今后的工作打好基礎(chǔ) ,作好最后的精神準(zhǔn)備。這對我以后的工作之路奠定了堅實的基礎(chǔ)，這些開發(fā)經(jīng)驗對我來說是一筆寶貴的財