【正文】 很多東西。在此，我們第四組的全體學(xué)生對他表示由衷的感謝！ 謝謝老師的幫助和支持！ 主要參考文獻 《 Visual Basic 6 使用指南》 田金蘭等 電子工業(yè)出版社 2020 年出版 《 Visual Basic 6 數(shù)據(jù)庫訪問技術(shù)》 Jeffrey 機械工業(yè)出版社 2020 年出版 《軟件開發(fā)技術(shù)》 潘錦平 西安電子科技大學(xué)出版社 1999 年出版 《數(shù)據(jù)庫系統(tǒng)概論》 王珊、薩師宣 高等教育出版社 2020 年出版 《如何 使用 Visual Basic 中文版》機械工業(yè)出版社 2020 年出版 《中文 Visual Basic 實用教程》北京希望電腦公司電子出版 設(shè)計者： 04 計網(wǎng) 王星科 FRO M my father I received the best inheritance, namely a good temper. And who was my father? That has nothing to do with the good temper。 on the contrary, his employment placed him at the head of the grandest people of the town, and it was his place by right. He had to precede the bishop, and even the princes of the blood。 the names of the preachers at the church, and the new books which are published。 and then also I take in the Intelligencer, just as he used to do. I am not very young, I have neither wife nor children, nor a library, but, as I said, I read the Intelligencer, which is enough for me。 he was both in appearance and character a plete contradiction to his profession. And pray what was his profession and his standing in respectable society? Well, perhaps, if in the begi nning of a book these were written and printed, many, when they read it, would lay the book dow n and say, I t seems to me a very miserable title, I don39。他們無論在理論上還是在操作實踐中，都給予我們很大的幫助，使我們得到了很大的提高。 最后，在系統(tǒng)分析、設(shè)計時，遇到了很多技術(shù)上的困難，但是經(jīng)過老師的指導(dǎo)和自己不斷的修改與調(diào)試，基本解決了設(shè)計中的問題。即一方面使用本系統(tǒng)來進行工作，另一方面又繼續(xù)沿用老的方式 — 手工方式，這種狀況持續(xù)了半個月的時間，在這期間發(fā)現(xiàn)了一些程序中存在的漏洞和錯誤，用戶也提出一些修改意見，經(jīng)過程序的進一步完善后，正式投入了使用，中止了以前老的手工的操作方式。 （ 4）硬件的維護：指的是對系統(tǒng)所使用的設(shè)備進行維護。 系統(tǒng)的維護： 本系統(tǒng)是個較復(fù)雜的人 機系統(tǒng)，由于系統(tǒng)外部環(huán)境與內(nèi)部因素的變化，不斷影響系統(tǒng)的運行，同時需要系統(tǒng)不斷地適應(yīng)這些變化，不斷地完善系統(tǒng)，以提高系 統(tǒng)運行的效率與服務(wù)水平，這就需要自始至終進行系統(tǒng)的維護工作。設(shè)置時間 (0) = (1) = MsgBox 時間已經(jīng)設(shè)置！ , vbOKOnly + vbExclamation, 設(shè)置結(jié)果！ End If End If Unload Me End Sub Private Sub Form_Load() Dim SQL As String Dim rs As New SQL = select * from TimeSetting Set rs = TransactSQL(SQL) If = True Then = = Else = rs(0) = rs(1) End If End Sub 167。 員工管理系統(tǒng)測試 在開發(fā)員工管理系統(tǒng)的時候，為了使系統(tǒng)能夠穩(wěn)定 運行，對系統(tǒng)進行了測試： 1． 查詢功能 測試：為了保證系統(tǒng) 的每一項功能都可能順 利執(zhí)行，尤其是查詢功能的執(zhí)行，特進行各項查詢 方式的不同索引，確保各種查詢方式均可查詢到正確記錄。 todate amp。 Trim() amp。 Trim() query = query amp。 and amp。 Trim() amp。 Trim() amp。 amp。 amp。獲得起始和結(jié)束時間 fromdate = amp。 MsgBox 密碼 已 經(jīng)修 改 , vbOKOnly + vbExclamation, 修改結(jié)果 Unload Me End If End If End Sub Private Sub Form_Load() = = = End Sub 查詢員工信息 圖 4－ 4 相關(guān)代碼如下： Option Explicit Private query As String 39。 amp。判斷是否輸入舊密碼 MsgBox 請輸入舊密碼 , vbOKOnly + vbExclamation, 警告 Exit Sub Else If Trim() = Then 39。顯示窗體 End Sub 二、登錄窗體： 圖 4－ 1 有關(guān)本窗體的代碼如下 : Option Explicit Dim pwdCount As Integer Private Sub cmdCancel_Click() Unload Me Exit Sub End Sub Private Sub cmdOK_Click() Dim SQL As String Dim rs As If Trim( = ) Then MsgBox 沒 有 輸 入 用 戶 名 稱 ， 請 重 新 輸 入 ！ , vbOKOnly + vbExclamation, 警告 Else 39。執(zhí)行命令 iflag = 1 End If TransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit Function TransactSQL_Error: MsgBox 查詢錯誤： amp。 amp。數(shù)據(jù)庫是否打開標(biāo)志 Public Function TransactSQL(ByVal SQL As String) As Dim con As Dim rs As Dim strConnection As String Dim strArray() As String Set con = New 39。保存上下班記錄編號 Public LrecordID As Integer 39。添加和修改的標(biāo)志 Public gSQL As String 39。 為了提高代碼的效率方便維護，在 VisualBasic 中可以用公用模塊來存放工程中經(jīng)常使用的函數(shù)、過程和全局變量等。 167。 Visual Basic 是在原有 Basic 語言基礎(chǔ)上進一步發(fā)展，至今包含了數(shù)百條語句、函數(shù)及關(guān)鍵詞，其中很多和 Windows GUI 有直接關(guān)系。 開發(fā)環(huán)境的選擇 前端開發(fā)工具 Visual Basic 簡介 Visual Basic 是在世界范圍內(nèi)廣泛使用的一種強大的編程語言，它為 Windows 應(yīng)用程序的開發(fā)提供了最迅速和便捷的方法。 3． 員工調(diào)動信息 (1) 添加調(diào)動信息：添加企業(yè)員工的原有部門、原有職務(wù)、新部門、新職務(wù)等信息。 (2) 修改考勤信息：當(dāng)考勤信息出現(xiàn)錯誤需要修改的時候，可 以從這里修改相應(yīng)的記錄。 (3) 查詢員工信息：可以根據(jù)員工的編號、姓名或者進入公司的時間進行查詢員工基本信息。本系統(tǒng)所使用的模塊包括：系統(tǒng) 模塊，員工調(diào)動信息模塊，員工考勤模塊，員工基本信息模塊等。 數(shù)據(jù)庫實現(xiàn) Aouttime 日期 /時間 調(diào)出時間 Aintime 日期 /時間 調(diào)入時間 Aremark 備注 備注 字段 出差信息表 調(diào)動信息表 名稱 數(shù)據(jù)類型 字段含義 Oid 自動編號 記錄編號 Ostuffid 文本 員工編號 Ospeciality 數(shù)字 特殊加班天數(shù) Omon 數(shù)字 正常加班天數(shù) Ofromday 日期 /時間 加班日期 字段名稱 數(shù)據(jù)類型 字段含義 Eid 自動編號 記錄編號 Estuffid 文本 員工編號 Eerranddays 數(shù)字 出差天數(shù) Epurpose 數(shù)字 出差目的地 Efromday 日期/時間 出差日期 本 程序采用 Access 作為數(shù)據(jù)庫引擎， 其主要原因是考慮到現(xiàn)在的大多數(shù)辦公室應(yīng)用系統(tǒng)軟件均支持 Access 數(shù)據(jù)庫，所以只要應(yīng)用于格式符合的計算機系統(tǒng)上即可運行，并且由于 Access 與 VB 皆是微軟公司開發(fā)出來的軟件，所以它們之間的兼容性非常好，容易配合使用。無論采用何種方法 或手段去處理日常事務(wù)，都應(yīng)該能完成相應(yīng)的功能，決不會因為采用了計算機而丟失了必要的功能，或徹底改變了原有的工作流程和模式。 物理結(jié)構(gòu)設(shè)計 設(shè)計原則如下： (1)進行規(guī)范化設(shè)計，盡可能地減少數(shù)據(jù)冗余和重 復(fù) 合理的數(shù)據(jù)庫表的設(shè)計應(yīng)該是在滿足需求的前提下，使數(shù)據(jù)的重復(fù)量最小，就盡量按照關(guān)系數(shù)據(jù)庫系統(tǒng)理論方法去設(shè)計一個數(shù)據(jù)庫，減少數(shù)據(jù)的冗余。本系統(tǒng)的E－ R 圖如下圖所示： 簡述：員工當(dāng)前所在的部門，因為員工可能在不同的部門中調(diào)動，所以可根據(jù)定期的員工信息登記表進行修改。 E－ R 設(shè)計方法是一種通過 E－ R圖來描述現(xiàn)實世界信息結(jié)構(gòu)的 DB設(shè)計方法。 修改記錄： 編寫 日期 審核 日期 數(shù) 據(jù) 項 系統(tǒng)名：員工管理系統(tǒng) 編號： I015 名稱： 部門 別名： 數(shù)據(jù)項值： 類型：文本 長度： 12 取值范圍： 表 10：職務(wù) 限于篇幅，其它的數(shù)據(jù)項的數(shù)據(jù)字典略。盡管企業(yè)中現(xiàn)在還沒有具有博士及博士后學(xué)歷的員工，但為了系統(tǒng)以后能適應(yīng)企業(yè)發(fā)展的需要，需要把這兩種學(xué)歷考慮進去。 修改記錄： 編寫 日期 審核 日期 數(shù) 據(jù) 項 系統(tǒng)名：員工管理系統(tǒng) 編號： I005 名稱：年齡 別名： 數(shù)據(jù)項值： 類型：數(shù)字 長度： 2個字節(jié) 取值范圍： 1699 簡述：員工的歲數(shù)，因為企業(yè)要求最低文化程度為高中或中專，所以最低年齡為 16 歲。 限于篇幅，下面僅列出本系統(tǒng)中的部分有關(guān)數(shù)據(jù)項的數(shù)據(jù)字典。 167。是在調(diào)研的基礎(chǔ)上，從系統(tǒng)的科學(xué)性、管理的合理性、實際運動的可行性角度出發(fā)。本系統(tǒng)的邏輯模型主要是以系統(tǒng)的數(shù)據(jù)流圖和數(shù)據(jù)字典為主要描述工具。能對相應(yīng)的信息進行增加、刪除、修改。但具體的操作仍為用 WORD 及 EXCEL 電子表格處理軟件進行處理。 167。 167。 4． 幫助模塊包括