2023年全國碩士研究生考試考研英語一試題真題(含答案詳解+作文范文)_第1頁
已閱讀1頁,還剩55頁未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

1、<p><b>  畢業(yè)設(shè)計(jì)論文</b></p><p>  設(shè)計(jì)題目 人事管理系統(tǒng) </p><p>  教 學(xué) 班: </p><p>  學(xué)生姓名: </p>

2、;<p>  學(xué) 號: </p><p>  指導(dǎo)教師: </p><p>  完成日期: </p><p><b>  摘要</b></p><p>  隨著計(jì)算機(jī)技術(shù)的飛速

3、發(fā)展,計(jì)算機(jī)在企業(yè)管理中應(yīng)用的普及,利用計(jì)算機(jī)實(shí)現(xiàn)企業(yè)人事管理勢在必行。本系統(tǒng)結(jié)合公司實(shí)際的人事管理制度,經(jīng)過實(shí)際的需求分析,采用功能強(qiáng)大的Visual Basic6.0作為開發(fā)工具而開發(fā)出來的單機(jī)版人事管理系統(tǒng)。</p><p>  整個系統(tǒng)從符合操作簡便、界面友好、靈活、實(shí)用、安全的要求出發(fā),完成人事管理的全過程,包括新進(jìn)員工加入時人事檔案的建立、老員工的轉(zhuǎn)出、職位等的變動引起職工信息的修改、員工信息查詢、統(tǒng)

4、計(jì)等人事管理工作以及新進(jìn)員的新增、老員工修改等管理工作。經(jīng)過實(shí)際使用證明,本文所設(shè)計(jì)的人事管理系統(tǒng)可以滿足公司人事管理方面的需要。</p><p>  關(guān)鍵詞: 信息管理、人事管理、人事管理系統(tǒng)</p><p><b>  目 錄</b></p><p>  第一章 概述--------------------------------

5、------------------1</p><p>  1、本課題的來源-------------------------------------------1</p><p>  2、本論文的目的、內(nèi)容及作者主要貢獻(xiàn)-----------------------1</p><p>  第二章 開好發(fā)工具的選擇-------------------------

6、----------2</p><p>  第三章 系統(tǒng)調(diào)研及可行性分析------------------------------6</p><p>  1、 系統(tǒng)調(diào)研-----------------------------------------------------6</p><p>  2、 可靠性分析概述-----------------------

7、-----------------------6</p><p>  3、 技術(shù)可行性分析----------------------------------------------7</p><p>  第四章 系統(tǒng)分析---------------------------------------------9</p><p>  1、系統(tǒng)需求分析-------

8、------------------------------------9</p><p>  2、數(shù)據(jù)流程圖---------------------------------------------9</p><p>  第五章 系統(tǒng)總體設(shè)計(jì)--------------------------------------10</p><p>  1、功能描述----

9、------------------------------------------10</p><p>  2、系統(tǒng)操作流程圖----------------------------------------11</p><p>  第六章 系統(tǒng)詳細(xì)設(shè)計(jì)--------------------------------------12</p><p>  1、數(shù)據(jù)庫

10、設(shè)計(jì)--------------------------------------------12</p><p>  2、系統(tǒng)主要界面------------------------------------------13</p><p>  第七章 系統(tǒng)測試--------------------------------------------16</p><p&g

11、t;  1、測試舉例----------------------------------------------16</p><p>  2、測試項(xiàng)目----------------------------------------------17</p><p>  3、測試方法----------------------------------------------18</p&g

12、t;<p>  致 謝---------------------------------------------------19</p><p>  參考文獻(xiàn)------------------------------------------------------20</p><p><b>  第一章 概述</b></p><p

13、><b>  本課題的來源</b></p><p>  隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展,計(jì)算機(jī)在企業(yè)管理中應(yīng)用的普及,利用計(jì)算機(jī)實(shí)現(xiàn)企業(yè)人事管理勢在必行。對于大中型企業(yè)來說,利用計(jì)算機(jī)支持企業(yè)高效率完成勞動人事管理的日常事務(wù),是適應(yīng)現(xiàn)代企業(yè)制度要求、推動企業(yè)勞動人事管理走向科學(xué)化、規(guī)范化的必要條件;計(jì)算機(jī)管理所無法比擬的優(yōu)點(diǎn)檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。

14、這些優(yōu)點(diǎn)能夠極大地提高人事管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。不同的企業(yè)具有不同的人事管理制度,這就決定了不同的企業(yè)需要不同的人事管理系統(tǒng)。</p><p>  2、本論文的目的、內(nèi)容及作者主要貢獻(xiàn)</p><p><b>  (1)目的:</b></p><p>  目前市面上流行的人事管理系統(tǒng)不少。但是,對于企、

15、事業(yè)單位的人事管理系統(tǒng)來說,不需要大型的數(shù)據(jù)庫系統(tǒng)。只需要一個操作方便,功能實(shí)用,能滿足本中心對數(shù)據(jù)的管理及需求的系統(tǒng)。我們的目標(biāo)就是在于開發(fā)一個功能實(shí)用、操作方便,簡單明了的人事管理系統(tǒng)。</p><p><b>  (2)內(nèi)容</b></p><p>  能夠錄入人事的基本資料,在操作上能夠完成諸如添加、修改、刪除、按各種條件進(jìn)行查詢、新用戶的設(shè)置及密碼修改等方面

16、的工作,基本滿足人事日常業(yè)務(wù)的需要。</p><p>  (3)作者的主要貢獻(xiàn)</p><p>  本人獨(dú)立完成了此課題的研究與開發(fā),包括調(diào)研、分析、設(shè)計(jì)、編碼、測試、文檔編寫等內(nèi)容。</p><p>  第二章 開發(fā)工具的選擇</p><p>  現(xiàn)在,市場上可以選購的應(yīng)用開發(fā)產(chǎn)品很多,流行的也有數(shù)十種。目前在我國市場上最為流行、使用最多

17、、最為先進(jìn)的可用作企業(yè)級開發(fā)工具的產(chǎn)品有:</p><p>  Microsoft公司的Visual Basic</p><p>  Microsoft公司的Visual C</p><p>  Borland公司的Delphi </p><p><b>  Java等等</b></p><p>

18、  在目前市場上這些眾多的程序開發(fā)工具中,有些強(qiáng)調(diào)程語言的彈性與執(zhí)行效率;有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高,各有各的優(yōu)點(diǎn)和特色,也滿足了不同用戶的需求。然而,語言的彈性和工具的便利性是密不可分的,只有便利的工具,卻沒有彈性的語言作支持,許多特殊化的處理動作必需要耗費(fèi)數(shù)倍的工夫來處理,使得原來所標(biāo)榜的效率提高的優(yōu)點(diǎn)失去了作用;相反,如果只強(qiáng)調(diào)程續(xù)語言的彈性,卻沒有便利的工具作配合,會使一些即使非常簡單的界面處理動作

19、,也會嚴(yán)重地浪費(fèi)程序設(shè)計(jì)師的寶貴時間。</p><p>  作為數(shù)據(jù)庫系統(tǒng)的開發(fā),Visual Basic是一個非常理想選擇。數(shù)據(jù)庫是MIS中的重要支持技術(shù),在MIS開發(fā)過程中,如何選擇數(shù)據(jù)庫管理是一個重要的問題,目前,數(shù)據(jù)庫產(chǎn)品較多,每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍,因此,在選擇數(shù)據(jù)庫時,應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點(diǎn)及適用范圍,本系統(tǒng)選用的數(shù)據(jù)庫語言Visual Basic語言,該開發(fā)工具具有很多長處:</p

20、><p>  Visual Basic是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計(jì),可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率高,且功能強(qiáng)大,可以與Windows的專業(yè)開發(fā)工具SDK相媲美,而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。在Visual Basic環(huán)境下,利用事件驅(qū)動的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具,使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù),以及動態(tài)鏈接

21、庫(DLL)、動態(tài)數(shù)據(jù)交換(DDE)、對象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù),可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。</p><p>  總的來說,Visual Basic具有以下特點(diǎn):</p><p><b>  可視化編程:</b></p><p>  用傳統(tǒng)程序設(shè)計(jì)語言設(shè)計(jì)程

22、序時,都是通過編寫程序代碼來設(shè)計(jì)用戶界面,在設(shè)計(jì)過程中看不到界面的實(shí)際顯示效果,必須編譯后運(yùn)行程序才能觀察。如果對界面的效果不滿意,還要回到程序中修改。有時候,這種編程-編譯-修改的操作可能要反復(fù)多次,大大影響了軟件開發(fā)效率。Visual Basic提供了可視化設(shè)計(jì)工具,把Windows界面設(shè)計(jì)的復(fù)雜性“封裝”起來,開發(fā)人員不必為界面設(shè)計(jì)而編寫大量程序代碼。只需要按設(shè)計(jì)要求的屏幕布局,用系統(tǒng)提供的工具,在屏幕上畫出各種“部件”,即圖形對

23、象,并設(shè)置這些圖形對象的屬性。Visual Basic自動產(chǎn)生界面設(shè)計(jì)代碼,程序設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能的那部分代碼,從而可以大大提高程序設(shè)計(jì)的效率。</p><p><b>  面向?qū)ο蟮某绦蛟O(shè)計(jì)</b></p><p>  4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計(jì),但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語言(C++)不完全相同。在一般的面向?qū)ο蟪?/p>

24、序設(shè)計(jì)語言中,對象由程序代碼和數(shù)據(jù)組成,是抽象的概念;而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法(OOP),把程序和數(shù)據(jù)封裝起來作為一個對象,并為每個對象賦予應(yīng)有的屬性,使對象成為實(shí)在的東西。在設(shè)計(jì)對象時,不必編寫建立和描述每個對象的程序代碼,而是用工具畫在界面上,Visual Basic自動生成對象的程序代碼并封裝起來。每個對象以圖形方式顯示在界面上,都是可視的。</p><p><b>

25、;  結(jié)構(gòu)化程序設(shè)計(jì)語言</b></p><p>  Visual Basic是在BASIC語言的基礎(chǔ)上發(fā)展起來的,具有高級程序設(shè)計(jì)語言的語句結(jié)構(gòu),接近于自然語言和人類的邏輯思維方式。Visual Basic語句簡單易懂,其編輯器支持彩色代碼,可自動進(jìn)行語法錯誤檢查,同時具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。</p><p>  Visual Basic是解釋型語言,在輸入代

26、碼的同時,解釋系統(tǒng)將高級語言分解翻譯成計(jì)算機(jī)可以識別的機(jī)器指令,并判斷每個語句的語法錯誤。在設(shè)計(jì)Visual Basic程序的過程中,隨時可以運(yùn)行程序,而在整個程序設(shè)計(jì)好之后,可以編譯生成可執(zhí)行文件(.EXE),脫離Visual Basic環(huán)境,直接在Windows環(huán)境下運(yùn)行。</p><p><b>  事件驅(qū)動編程機(jī)制</b></p><p>  Visual B

27、asic通過事件來執(zhí)行對象的操作。一個對象可能會產(chǎn)生多個事件,每個事件都可以通過一段程序來響應(yīng)。例如,命令按鈕是一個對象,當(dāng)用戶單擊該按鈕時,將產(chǎn)生一個“單擊”(CLICK)事件,而在產(chǎn)生該事件時將執(zhí)行一段程序,用來實(shí)現(xiàn)指定的操作。</p><p>  在用Visual Basic設(shè)計(jì)大型應(yīng)用軟件時,不必建立具有明顯開始和結(jié)束的程序,而是編寫若干個微小的子程序,即過程。這些過程分別面向不同的對象,由用戶操作引發(fā)某

28、個事件來驅(qū)動完成某種特定的功能,或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行指定的操作,這樣可以方便編程人員,提高效率。</p><p><b>  訪問數(shù)據(jù)庫</b></p><p>  Visual Basic具有強(qiáng)大的數(shù)據(jù)庫管理功能,利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口,可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫,并提供了強(qiáng)大的數(shù)據(jù)存儲和檢索功能。同時,Vi

29、sual Basic還能直接編輯和訪問其他外部數(shù)據(jù)庫,如DBASE,F(xiàn)oxPro,Paradox等,這些數(shù)據(jù)庫格式都可以用Visual Basic編輯和處理。</p><p>  Visual Basic提供開放式數(shù)據(jù)連接,即ODBC功能,可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫,如SQL Server,Oracle等。在應(yīng)用程序中,可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn),直接訪問服務(wù)器上的數(shù)據(jù)庫

30、,并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編程技術(shù),為單機(jī)上運(yùn)行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口,以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶/服務(wù)器(client/server)方案。</p><p>  動態(tài)數(shù)據(jù)交換(DDE)</p><p>  利用動態(tài)數(shù)據(jù)交換(Dynamic Data Exchange)技術(shù),可以把一種應(yīng)用程序中的數(shù)據(jù)動態(tài)地鏈接到

31、另一種應(yīng)用程序中,使兩種完全不同的應(yīng)用程序建立起一條動態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時,可以自動更新鏈接的數(shù)據(jù)。Visual Basic提供了動態(tài)數(shù)據(jù)交換的編程技術(shù),可以在應(yīng)用程序中與其他Windows應(yīng)用程序建立動態(tài)數(shù)據(jù)交換,在不同的應(yīng)用程序之間進(jìn)行通信。</p><p>  對象的鏈接與嵌入(OLE)</p><p>  對象的鏈接與嵌入(OLE)將每個應(yīng)用程序都看作是一個對象(objec

32、t),將不同的對象鏈接(link)起來,再嵌入(embed)某個應(yīng)用程序中,從而可以得到具有聲音、影像、圖像、動畫、文字等各種信息的集合式的文件。OLE技術(shù)是Microsoft公司對象技術(shù)的戰(zhàn)略,它把多個應(yīng)用程序合為一體,將每個應(yīng)用程序看作是一個對象進(jìn)行鏈接和嵌入,是一種應(yīng)用程序一體化的技術(shù)。利用OLE技術(shù),可以方便地建立復(fù)合式文檔(compound document),這種文檔由來自多個不同應(yīng)用程序的對象組成,文檔中的每個對象都與原來

33、的應(yīng)用程序相聯(lián)系,并可執(zhí)行與原來應(yīng)用程序完全相同的操作。</p><p>  動態(tài)鏈接庫(DLL)</p><p>  Visual Basic是一種高級程序設(shè)計(jì)語言,不具備低級語言的功能,對訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過動態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序加入到Visual Basic應(yīng)用程序中,可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外,通過動態(tài)鏈接庫,

34、還可以調(diào)用Windows應(yīng)用程序接口(API)函數(shù),實(shí)現(xiàn)SDK所具有的功能。</p><p>  第三章 系統(tǒng)調(diào)研及可行性分析</p><p><b>  3.1 系統(tǒng)調(diào)研</b></p><p>  正式開發(fā)管理信息系統(tǒng)之前進(jìn)行調(diào)研是非常必要的,其必要性主要表現(xiàn)在以下幾個方面。</p><p> ?。?)明確用戶的要

35、求,以根據(jù)調(diào)查結(jié)果進(jìn)行可行性分析,確認(rèn)系統(tǒng)的開發(fā)是否可行。</p><p> ?。?)提出新系統(tǒng)的人員并不都是系統(tǒng)研究人員,有些人對于其功能和處理數(shù)據(jù)的方法沒有明確的認(rèn)識。它們只是根據(jù)自己業(yè)務(wù)工作的需要提出了要求,系統(tǒng)開發(fā)人員要對此進(jìn)行詳細(xì)的調(diào)查和分析,確認(rèn)用戶的要求可以通過現(xiàn)有的計(jì)算機(jī)技術(shù)實(shí)現(xiàn),保證開發(fā)的管理信息系統(tǒng)的功能與用戶提出的要求相吻合。</p><p> ?。?)企業(yè)的現(xiàn)行系統(tǒng)

36、可能是手工系統(tǒng),也可能是使用和計(jì)算機(jī)的系統(tǒng),無論是何種情況,都要詳細(xì)地調(diào)查現(xiàn)行系統(tǒng)中信息處理的具體情況,系統(tǒng)內(nèi)部功能結(jié)構(gòu),以便設(shè)計(jì)出一個合理的、好的新系統(tǒng)邏輯模型,為新系統(tǒng)的設(shè)計(jì)工作打好基礎(chǔ),保證整個系統(tǒng)開發(fā)的質(zhì)量。</p><p>  總之,必要對現(xiàn)行系統(tǒng)進(jìn)行詳細(xì)的調(diào)查,明確用戶需求,保證開發(fā)的新系統(tǒng)的功能與用戶的要求相吻合,避免耗費(fèi)大量的人力、物力、財力,新系統(tǒng)的開發(fā)卻失敗的悲劇發(fā)生。</p>

37、<p>  3.2 可行性分析概述</p><p>  可行性分析是在用戶的要求和系統(tǒng)調(diào)研的基礎(chǔ)上進(jìn)行的,對新系統(tǒng)的開發(fā)從社會、技術(shù)、經(jīng)濟(jì)、管理等方面進(jìn)行分析,并得出新系統(tǒng)的開發(fā)工作可行、不可行、需要修改、追加投資、暫緩開發(fā)、分步實(shí)施等方案和結(jié)論,最后完成可行性分析。</p><p>  可行性分析一般可定義為:可行性分析是在建設(shè)的前期對工程項(xiàng)目的一種考察和鑒定,對擬議中的項(xiàng)目

38、進(jìn)行全面與綜合的技術(shù)、經(jīng)濟(jì)能力的調(diào)查,判斷它是否可行。</p><p>  (1)可行性分析階段的主要工作包括以下幾個方面:</p><p>  ①新系統(tǒng)目標(biāo)可行性分析:</p><p>  分析新系統(tǒng)的目標(biāo)是否符合企業(yè)的現(xiàn)狀和發(fā)展的需要。</p><p><b> ?、谏鐣尚行苑治觯?lt;/b></p>&

39、lt;p>  社會可行性分析主要是指管理信息系統(tǒng)的開發(fā)是否符合國家法律、下策,是否能夠與社會大系統(tǒng)實(shí)現(xiàn)良好的對接。</p><p><b>  ③技術(shù)可行性分析:</b></p><p>  技術(shù)可行性分析是根據(jù)新系統(tǒng)的目標(biāo)來衡量是否具備所需要的技術(shù),包括系統(tǒng)開發(fā)人員數(shù)量和水平,硬件方面,軟件方面及其它應(yīng)用技術(shù)。</p><p><

40、b> ?、芙?jīng)濟(jì)可行性分析</b></p><p>  經(jīng)濟(jì)可行性分析主要是對開發(fā)新系統(tǒng)所投入的資金與系統(tǒng)投入使用后所帶來的經(jīng)濟(jì)效益進(jìn)行比較,確認(rèn)新系統(tǒng)是否會給企業(yè)帶來一定的經(jīng)濟(jì)效益。</p><p><b> ?、莨芾砜尚行苑治觯?lt;/b></p><p>  管理可行性分析主要是分析企業(yè)現(xiàn)行的管理體制和企業(yè)領(lǐng)導(dǎo)是否具有現(xiàn)代化的

41、管理意識和管理水平。</p><p>  3.3 技術(shù)可行性分析</p><p>  技術(shù)可行性分析主要包括四個方面:目前有關(guān)的技術(shù)能否支持所開發(fā)的新系統(tǒng);新系統(tǒng)開發(fā)人員的數(shù)量和水平,即人力資源;硬件和軟件資源。</p><p><b> ?。?)技術(shù)支持:</b></p><p>  首先根據(jù)新系統(tǒng)的目標(biāo),考慮目前有關(guān)

42、的技術(shù)能否支持所開發(fā)的新系統(tǒng)。這里討論的技術(shù)必須是已經(jīng)普遍使用的,而不是待研究的或正在研究的。</p><p><b> ?。?)硬件資源:</b></p><p>  開發(fā)管理信息系統(tǒng)所需的硬件資源包含以下兩個方面:</p><p>  系統(tǒng)開發(fā)人員在管理信息系統(tǒng)的開發(fā)過程中所需要的計(jì)算機(jī)設(shè)備及其有關(guān)的外部設(shè)備;管理信息系統(tǒng)開發(fā)成功投入使用后

43、,使用單位所應(yīng)具備的計(jì)算機(jī)設(shè)備及其有關(guān)的外圍設(shè)備。對硬件資源進(jìn)行可行性分析時主要考慮計(jì)算機(jī)的主機(jī)內(nèi)存、類型、功能、聯(lián)網(wǎng)能力、安全保護(hù)措施以及輸入/輸出設(shè)備,外存儲器和聯(lián)網(wǎng)數(shù)據(jù)通信設(shè)備的配置、功能、效率等指標(biāo)是否符合系統(tǒng)方案設(shè)計(jì)要求,同時還要考慮計(jì)算機(jī)的性能/價格比。</p><p><b>  (3)軟件資源</b></p><p>  軟件資源的可行性分析主要考慮以

44、下幾點(diǎn)是否滿足用戶的要求:</p><p><b> ?、俨僮飨到y(tǒng)的選擇;</b></p><p><b> ?、诰幾g系統(tǒng)的選擇;</b></p><p> ?、蹟?shù)據(jù)庫管理系統(tǒng)的選擇;</p><p> ?、芨呒壘幊陶Z言的選擇;</p><p> ?、轁h字處理系統(tǒng)的選擇;&l

45、t;/p><p>  ⑥應(yīng)用軟件包的選擇。</p><p>  本系統(tǒng)在開發(fā)前,與中心的領(lǐng)導(dǎo)和有關(guān)的操作人員密切溝通,認(rèn)真聽取他們的意見,并吸收他們的積極觀點(diǎn),使本系統(tǒng)的開發(fā)在相當(dāng)大的程度上具有一定的先進(jìn)性和合理性。</p><p><b>  第四章 系統(tǒng)分析</b></p><p>  4.1 系統(tǒng)需求分析</

46、p><p>  系統(tǒng)分析是開發(fā)管理信息系統(tǒng)的關(guān)鍵性階段,是一個從不斷認(rèn)識和逐步細(xì)化的過程,是下一階段的工作基礎(chǔ),是為下一階段進(jìn)行物理方案設(shè)計(jì)、解決“怎么做”提供依據(jù),基關(guān)鍵性主要體現(xiàn)在“理解需求”和“表達(dá)需求”兩方面。</p><p>  通過對現(xiàn)行系統(tǒng)的詳細(xì)調(diào)研,主要是從系統(tǒng)的角度理解用戶的需要,確定新系統(tǒng)的綜合要求,并提出這些需求的實(shí)現(xiàn)條件以及需求應(yīng)達(dá)到的標(biāo)準(zhǔn),也就是確定新系統(tǒng)要做什么,做

47、到什么程度。這些需求包括:</p><p> ?。?)功能需求。確定新系統(tǒng)應(yīng)做什么,這是最主要的需求。</p><p> ?。?)性能需求。給出所開發(fā)的新系統(tǒng)的技術(shù)性能指標(biāo),包括存儲容量限制、運(yùn)行時間限制、安全保密性等。</p><p> ?。?)環(huán)境需求。這是對系統(tǒng)運(yùn)行以及所處環(huán)境的要求。例如,在硬件方面采用什么機(jī)型、有什么硬件設(shè)備等;在軟件方面,采用什么支持系統(tǒng)

48、運(yùn)行的系統(tǒng)軟件(指操作系統(tǒng)、數(shù)據(jù)庫管理系統(tǒng))。</p><p> ?。?)未來需求。這類要求是指目前不屬于系統(tǒng)開發(fā)的范圍,但將來隨著外界環(huán)境的變化以及系統(tǒng)的發(fā)展可能會提出的要求。了解這類要求的目的是在開發(fā)過程中,可對系統(tǒng)將來可能的擴(kuò)展與修改做準(zhǔn)備。一旦需要時,就比較容易進(jìn)行補(bǔ)充和修改了。</p><p>  4.2 數(shù)據(jù)流程圖</p><p>  數(shù)據(jù)流程圖是描述

49、系統(tǒng)邏輯模型的主要工具,通過幾個特定的符號,可以綜合地反映出信息在系統(tǒng)中的使用、加工處理、傳遞、存儲的整體情況。</p><p>  數(shù)據(jù)流程圖是系統(tǒng)結(jié)構(gòu)化分析行之有效的工具,它抽象地描述了系統(tǒng)數(shù)據(jù)處理的情況,但卻無法表達(dá)各個處理的詳細(xì)內(nèi)容,因此還要對數(shù)據(jù)流程圖中出現(xiàn)的數(shù)據(jù)流和處理等做進(jìn)一步的補(bǔ)充說明,這就是數(shù)據(jù)字典和變換邏輯說明。</p><p><b>  數(shù)據(jù)流圖 <

50、;/b></p><p>  圖4。1 系統(tǒng)數(shù)據(jù)流圖</p><p>  第五章 系統(tǒng)總體設(shè)計(jì)</p><p><b>  5.1.功能描述:</b></p><p>  該信息管理系統(tǒng)可以在Windows 2000 Server平臺上運(yùn)行,開發(fā)工具采用Visual Basic語言開發(fā)。其工作流程為:用戶登錄通過

51、權(quán)限判斷,普通用戶不能瀏覽、閱讀和查詢信息,指定用戶可以操作,可以進(jìn)行信息錄入、修改和刪除的操作。</p><p>  系統(tǒng)的主要功能特點(diǎn)有:</p><p><b>  (1)系統(tǒng)登錄表單</b></p><p>  該表單的功能是在系統(tǒng)被訪問之前,要對進(jìn)入系統(tǒng)的用戶進(jìn)行安全性檢查,防止非法用戶進(jìn)行系統(tǒng)破壞數(shù)據(jù)及威脅系統(tǒng)安全,避免不必要的損失

52、。只有合法的用戶在輸入正確的密碼后方可進(jìn)入系統(tǒng)。</p><p><b>  (2)主界面</b></p><p>  在該界面窗口中,共有文件、數(shù)據(jù)、關(guān)于等所有系統(tǒng)功能,用戶可以操作菜單的方式快捷地使用系統(tǒng)。</p><p><b>  (3)更改密碼:</b></p><p>  使用本表單可以

53、方便地修改用戶的密碼,以防密碼泄露后對數(shù)據(jù)的安全性造成威脅。</p><p>  5.1.2系統(tǒng)操作流程圖:</p><p>  圖 5-1系統(tǒng)操作流程圖</p><p>  第六章 系統(tǒng)詳細(xì)設(shè)計(jì)</p><p><b>  1 數(shù)據(jù)庫設(shè)計(jì)</b></p><p> ?。?)職工信息數(shù)據(jù)表:&

54、lt;/p><p> ?。?)請假信息數(shù)據(jù)表:</p><p>  (3)員工工資數(shù)據(jù)表:</p><p>  6.2 系統(tǒng)主要界面設(shè)計(jì)</p><p>  因?yàn)槿耸沦Y料管理牽涉到個人隱私及公司密秘等多方面因素,所以一定要保</p><p>  密,并有專人管理,使用前身份確認(rèn)就顯得非常重要,故在運(yùn)行前要進(jìn)行管理權(quán)限確認(rèn)

55、. 以防止他人無意或惡意篡改.(圖 6-1)</p><p>  圖 6-1 主界面圖</p><p>  其中登記表的界面如下:</p><p>  圖 6-2 登記表的界面</p><p><b>  密碼的修改:</b></p><p>  圖 6-3 密碼的修改界面</p>

56、<p><b>  登陸成功界面:</b></p><p>  圖 6-4登陸成功界面</p><p><b>  查詢界面:</b></p><p>  圖 6-5 查詢界面</p><p><b>  第七章 系統(tǒng)測試</b></p><p

57、>  為了確保本系統(tǒng)能夠正常運(yùn)行,需要在發(fā)布之后做一次較全面的測試。現(xiàn)將具體操作及過程舉例說明如下:</p><p><b>  7.1測試舉例</b></p><p> ?。?).測試用戶登陸是否成功:</p><p>  打開人事管理系統(tǒng),在“用戶名”里填入root,“密碼”框里我們填入root作為用戶登錄密碼。填寫完成點(diǎn)擊“確定”按

58、鈕,將會出現(xiàn)操作程序頁面,即該用戶已經(jīng)登陸成功了。再運(yùn)行程序,會有提示頁面出現(xiàn):程序已經(jīng)運(yùn)行,不能再次裝載! </p><p> ?。?).測試其他用戶是否能夠登錄:</p><p>  打開人事管理系統(tǒng)登錄頁面,輸入任意密碼,點(diǎn)擊“登錄”按鈕。將出現(xiàn)密碼出錯提示頁面。然后點(diǎn)“確定”返回人事管理系統(tǒng)登錄頁面。</p><p>  (3).測試編輯功能是否成功:<

59、;/p><p>  編輯功能:在登錄成功之后,即可進(jìn)入相應(yīng)的管理頁面,點(diǎn)擊“編輯”,即出現(xiàn)編輯頁面,即可以修改和刪除員工的個人信息資料。最后保存。 </p><p> ?。?).測試查詢功能是否成功:</p><p>  查詢功能:在登錄成功之后,點(diǎn)擊“查詢”,在彈出的文本框,在里面輸入想要查找的資料,點(diǎn)擊“查詢”按鈕,成功即可出現(xiàn)結(jié)果頁面,頁面內(nèi)顯示查詢出來的員工資料

60、內(nèi)容,表示測試成功。</p><p> ?。?).用戶登出系統(tǒng)的測試:</p><p>  在管理操作已全部完成,需要退出程序的時候,在系統(tǒng)頁面“系統(tǒng)設(shè)置”下拉菜單的有一個“退出”的選項(xiàng),點(diǎn)擊之后便可退出。也可以點(diǎn)“關(guān)閉”退出。</p><p> ?。?).測試密碼更改:</p><p>  在以超級用戶登錄的情況下,在程序中打密碼設(shè)置,彈出

61、文本框,顯示用戶列表。可以添加新的普通用戶,也可以刪除和禁止普通用戶使用程序。在以普通用戶登陸情況下,打開密碼設(shè)置選項(xiàng),系統(tǒng)會提示該用戶為普通用戶,只可以修改自己的密碼。</p><p>  經(jīng)過以上各項(xiàng)的測試,證明本系統(tǒng)完全可以正常運(yùn)行,至此測試成功!</p><p><b>  7.2測試項(xiàng)目</b></p><p>  在MIS開發(fā)過程中

62、采用了多種措施保證軟件質(zhì)量,但是實(shí)際開發(fā)過程中還是不可避免地會產(chǎn)生差錯,系統(tǒng)中通??赡茈[藏著錯誤和缺陷,不經(jīng)周密測試的系統(tǒng)投入運(yùn)行,將會造成難以想象的后果,因此系統(tǒng)測試是MIS開發(fā)過程中為保證軟件質(zhì)量必須進(jìn)行的工作。大量統(tǒng)計(jì)資料表明,系統(tǒng)測試的工作量往往占MIS開發(fā)總工作量的40%以上。因此,我們必須重視測試工作。</p><p>  由于程序中隱藏的缺陷只在特定的環(huán)境下才有可靠顯露,系統(tǒng)缺陷通常是由于對某些特定

63、情況考慮不周造成的。因此測試不是為了表明程序正確;成功的測試也不是沒有發(fā)現(xiàn)錯誤的測試。有意義的軟件測試應(yīng)該是從“破壞”軟件系統(tǒng)的角度出發(fā),精心設(shè)計(jì)最有可以暴露程序系統(tǒng)缺陷的測試方案。因此軟件測試的目標(biāo)應(yīng)該是以盡可能少的代價和時間找出軟件系統(tǒng)中潛在的錯誤和缺陷。</p><p>  從產(chǎn)品角度看,測試計(jì)劃中的測試項(xiàng)目包括軟件結(jié)構(gòu)中的分系統(tǒng)層、子系統(tǒng)層、功能模塊層、程序模塊層中的各類模塊,從測試本身看,分為單元測試,

64、組合測試,確認(rèn)測試等。測試對象是隨不同階段而異的,最基本、最初的測試是單元測試,后面的組合測試、確認(rèn)測試都是以被測過的模塊作為測試對象的。</p><p><b>  (1)單元測試:</b></p><p>  單元測試也稱模塊測試或程序測試,單元測試是對每個模塊單獨(dú)進(jìn)行的,驗(yàn)證模塊接口與設(shè)計(jì)說明書是否一致,對模塊的所有主要處理路徑進(jìn)行測試且與預(yù)期的結(jié)構(gòu)進(jìn)行對照,還

65、要對所有錯誤處理路徑進(jìn)行測試。對源碼進(jìn)行審查,對照設(shè)計(jì)說明書,表態(tài)地檢查源程序是否符合功能的邏輯要求,是進(jìn)行單元測試前的重要工作工。單元測試一般是由程序員完成,也稱程序調(diào)試。</p><p><b>  (2)組合測試</b></p><p>  組合測試也稱集成測試或子系統(tǒng)測試,通常采用自頂向下測試和自底向上測試兩種測試方法。組合測試的對象是指已經(jīng)通過單元測試的模塊

66、,不是對零散模塊進(jìn)行單個測試,而是用系統(tǒng)化的方法裝配和測試軟件系統(tǒng),是一個嚴(yán)格的過程,必須認(rèn)真地進(jìn)行,其計(jì)劃的產(chǎn)生和單元模塊測試的完成日期要協(xié)調(diào)起來,這種測試應(yīng)在系統(tǒng)目標(biāo)機(jī)上進(jìn)行,造成系統(tǒng)應(yīng)用的環(huán)境條件,除了開發(fā)部分項(xiàng)目負(fù)責(zé)人參加以外,還應(yīng)該有相應(yīng)系統(tǒng)的用戶參加,給評審員進(jìn)行演示。</p><p><b>  (3)確認(rèn)測試</b></p><p>  確認(rèn)測試是對通

67、過組合測試的軟件進(jìn)行的,這些軟件已經(jīng)存于系統(tǒng)目標(biāo)設(shè)備的介質(zhì)上,確認(rèn)測試的目的是表明軟件是可以工作的,并且符合“軟件需求說明書”中規(guī)定的全部功能和性能要求。確認(rèn)測試是按照這些要求定出的“確認(rèn)測試計(jì)劃”進(jìn)行的。測試工作是由一個獨(dú)立的組織進(jìn)行,而且測試要從用戶的角度出發(fā)。</p><p><b>  (4)系統(tǒng)測試</b></p><p>  系統(tǒng)測試是對整體性能的測試,主

68、要解決各子系統(tǒng)之間的數(shù)據(jù)通信和數(shù)據(jù)共享問題以及檢測系統(tǒng)是否達(dá)到用戶的實(shí)際要求,系統(tǒng)測試的依據(jù)是系統(tǒng)分析報告。系統(tǒng)測試應(yīng)在系統(tǒng)的整個范圍內(nèi)進(jìn)行,這種測試不只對軟件進(jìn)行,而是對構(gòu)成系統(tǒng)的硬、軟件一起進(jìn)行。系統(tǒng)測試與建構(gòu)同時進(jìn)行或略慢。系統(tǒng)測試需要確認(rèn)從頭到尾的功能正常才算完成,應(yīng)當(dāng)盡量避免系統(tǒng)測試延到項(xiàng)目末尾進(jìn)行。</p><p><b>  (5)用戶驗(yàn)收測試</b></p>&

69、lt;p>  在系統(tǒng)測試完成后,進(jìn)行用戶的驗(yàn)收測試,它是用戶在實(shí)際應(yīng)用環(huán)境中所進(jìn)行的真實(shí)數(shù)據(jù)測試。</p><p>  在具體的測試中,一般應(yīng)遵循以下原則:由程序設(shè)計(jì)者之外的人進(jìn)行測試;測試用例應(yīng)由兩部分組成:輸入數(shù)據(jù)和預(yù)期輸出結(jié)果;應(yīng)選用不合理的輸入數(shù)據(jù)與非法輸入測試;不僅要檢驗(yàn)程序是否實(shí)現(xiàn)預(yù)期功能,還應(yīng)檢查程序是否做了不應(yīng)該做的工作;集中測試容易出錯的程序模塊;對程序修改以后,必須重新進(jìn)行測試。<

70、/p><p><b>  7.3測試方法</b></p><p>  一般來說,對程序測試有兩種測試方法:如果已經(jīng)知道了軟件系統(tǒng)應(yīng)具有的功能,可通過測試來對每個功能是否都能正常使用;如果知道程序的內(nèi)部工作過程,可以通過測試來檢測程序內(nèi)部是否按照規(guī)格說明書的規(guī)定正常進(jìn)行。前一種方法稱為黑盒測試,后一種方法稱為白盒子測試。黑盒測試又稱為功能測試,白盒子測試又稱為結(jié)構(gòu)測試。&l

71、t;/p><p>  經(jīng)過幾個月的畢業(yè)設(shè)計(jì),因?yàn)闀r間和任務(wù)的性質(zhì)的關(guān)系,沒有完全按照上述的測試方法進(jìn)行系統(tǒng)的測試,但經(jīng)過一些簡單的步驟的測試,證明本系統(tǒng)具有相當(dāng)程序的穩(wěn)定性。</p><p>  致 謝</p><p>  經(jīng)過四個多月的構(gòu)思與設(shè)計(jì),在指導(dǎo)老師的精心指導(dǎo)和安排下,本系統(tǒng)已經(jīng)設(shè)計(jì)完畢。其使用功能基本符合公司在實(shí)際工作的需要,具有一定的實(shí)

72、用性。但是由于時間比較倉促,加上本人軟件設(shè)計(jì)經(jīng)驗(yàn)的不足。因此,在分析問題、解決問題時顯得不夠嚴(yán)密、完善,還需要在以后的工作中不斷地改進(jìn)和完善。</p><p>  在這次的畢業(yè)設(shè)計(jì)中,讓我深深地體現(xiàn)到進(jìn)行軟件開發(fā)不是一件簡單的事情,它需要設(shè)計(jì)者具有全面的專業(yè)知識、縝密的思維、嚴(yán)謹(jǐn)?shù)墓ぷ鲬B(tài)度以及較高的分析問題、解決問題的能力,而我在很多方面還有欠缺。最后,我要衷心感謝老師在我的設(shè)計(jì)過程中給予我的極大幫助,使我能夠及

73、時、順利地完成此次的畢業(yè)設(shè)計(jì)。同時,也要感謝我的老師和同學(xué)們及實(shí)習(xí)企業(yè)在本系統(tǒng)的設(shè)計(jì)過程中給予我的支持和幫助。</p><p><b>  參考文獻(xiàn)</b></p><p>  [1]王福成等: <<Visual Basic 6.0數(shù)據(jù)庫開發(fā)指南>>, 清華大學(xué)出版社 2002年6月</p><p>  [2]郭振波編著

74、: << 深入淺出Visual Basic 6.0中文版>>, 人民郵電出版社2003年3月</p><p>  [3]林永等編著: <<Visual Basic 6.0用戶編程手冊>>, 人民郵電出版社2002年11月</p><p>  [4]劉炳文等編著: <<Visual Basic 6.0 程序設(shè)計(jì)教程>>

75、; ,清華大學(xué)出版社 2000年7月</p><p>  Option Explicit</p><p>  Dim Bupdata As Boolean</p><p>  Dim i As Integer</p><p>  Private Sub Cmbdegree_Click()</p><p>  If Cm

76、bdegree.Text = "定制" Then</p><p>  FrmTable.Show</p><p>  Cmbdegree.ListIndex = 0</p><p><b>  End If</b></p><p><b>  End Sub</b></p&

77、gt;<p>  Private Sub Cmbdepart_Click()</p><p>  If Cmbdepart.Text = "定制" Then</p><p>  FrmTable.Show</p><p>  Cmbdepart.ListIndex = 0</p><p><b> 

78、 End If</b></p><p><b>  End Sub</b></p><p>  Private Sub CmdAddNew_Click()</p><p>  If CmdAddNew.Caption = "添加" Then</p><p>  CmdAddNew.Capt

79、ion = "確認(rèn)"</p><p>  CmdDel.Enabled = False</p><p>  CmdOK.Enabled = False</p><p>  DataA.ReadOnly = False</p><p>  For i = 1 To 12</p><p>  If Tx

80、t(i).Text = "" Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0</p><p><b>  Next i</b></p><p>  DataA.Recordset.AddNew</p><p>  Txt(0).Locked = False<

81、;/p><p>  If FrmMain.cutable = "employee" Then</p><p>  DataA.Recordset.Fields(13) = frmLogin.EmploID</p><p>  DataA.Recordset.Fields(14) = Now</p><p>  If Opsex

82、(0) Then</p><p>  DataA.Recordset.Fields(4) = "男"</p><p><b>  Else</b></p><p>  DataA.Recordset.Fields(4) = "女"</p><p><b>  End If

83、</b></p><p>  DataA.Recordset.Fields(7) = Cmbdegree.Text</p><p>  DataA.Recordset.Fields(8) = Cmbdepart.Text</p><p>  ElseIf FrmMain.cutable = "leave" Then</p>

84、<p>  DataA.Recordset.Fields(8) = frmLogin.EmploID</p><p>  DataA.Recordset.Fields(9) = Now</p><p><b>  Else</b></p><p>  DataA.Recordset.Fields(13) = frmLogin.Em

85、ploID</p><p>  DataA.Recordset.Fields(14) = Now</p><p><b>  End If</b></p><p>  Txt(0).SetFocus</p><p><b>  Else 'OK</b></p><p>

86、;  If Txt(0).Text = "" Then</p><p>  MsgBox "不可以為空"</p><p>  Txt(0).SetFocus</p><p><b>  Exit Sub</b></p><p><b>  End If</b>

87、</p><p>  For i = 1 To 12</p><p>  If Txt(i).Text = "" Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0</p><p><b>  Next i</b></p><p>  If

88、FrmMain.cutable = "employee" Then</p><p>  DataB.Recordset.FindFirst "職工編號=" + Txt(0).Text</p><p>  If Not DataB.Recordset.NoMatch Then</p><p>  MsgBox "職員編

89、號重復(fù)"</p><p>  Txt(0).Text = ""</p><p>  Txt(0).SetFocus</p><p><b>  Exit Sub</b></p><p><b>  End If</b></p><p>  Els

90、eIf FrmMain.cutable = "leave" Then</p><p>  DataB.Recordset.FindFirst "假條編號=" + Txt(0).Text</p><p>  If Not DataB.Recordset.NoMatch Then</p><p>  MsgBox "假條

91、編號重復(fù)"</p><p>  Txt(0).Text = ""</p><p>  Txt(0).SetFocus</p><p><b>  Exit Sub</b></p><p><b>  End If</b></p><p><

92、b>  Else</b></p><p>  For i = 4 To 10</p><p>  If Not IsNumeric(Txt(i).Text) Then</p><p>  MsgBox "not a number"</p><p>  Txt(i).SetFocus</p>

93、<p><b>  Exit Sub</b></p><p><b>  End If</b></p><p><b>  Next i</b></p><p>  DataB.Recordset.FindFirst "工資編號=" + Txt(0).Text</p

94、><p>  If Not DataB.Recordset.NoMatch Then</p><p>  MsgBox "工資編號重復(fù)"</p><p>  Txt(0).Text = ""</p><p>  Txt(0).SetFocus</p><p><b>  E

95、xit Sub</b></p><p><b>  End If</b></p><p><b>  End If</b></p><p>  DataA.Recordset.Update</p><p>  DataA.Recordset.MoveLast</p><

96、;p>  FrmMain.DataA.Refresh</p><p>  FrmMain.DataB.Refresh</p><p>  DataB.Refresh</p><p>  CmdAddNew.Caption = "添加"</p><p>  CmdDel.Enabled = True</p>

97、<p>  CmdOK.Enabled = True</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub CmdCacel_Click()</p><p>  If CmdAddNew.Cap

98、tion = "確認(rèn)" Then</p><p>  DataA.Recordset.CancelUpdate</p><p><b>  End If</b></p><p>  FrmMain.Enabled = True</p><p>  FrmMain.SetFocus</p>

99、<p><b>  Unload Me</b></p><p>  FrmMain.DataA.Refresh</p><p>  If FrmMain.cutable = "employee" Then</p><p>  FrmMain.DBGA.Columns("性別").Button

100、= True</p><p>  FrmMain.DBGA.Columns("學(xué)歷").Button = True</p><p>  FrmMain.DBGA.Columns("部門").Button = True</p><p><b>  End If</b></p><p>

101、;<b>  End Sub</b></p><p>  Private Sub CmdDel_Click()</p><p>  DataA.ReadOnly = False</p><p>  DataA.Recordset.Delete</p><p>  DataA.Recordset.MoveNext</

102、p><p>  If DataA.Recordset.EOF Then</p><p>  DataA.Recordset.MoveLast</p><p><b>  End If</b></p><p>  FrmMain.DataA.Refresh</p><p><b>  End

103、Sub</b></p><p>  Private Sub cmdOK_Click()</p><p>  If Txt(0).Text = "" Then</p><p>  MsgBox "不可以為空"</p><p>  Txt(0).SetFocus</p><p

104、><b>  Exit Sub</b></p><p><b>  End If</b></p><p>  Bupdata = False</p><p>  DataA.Recordset.Edit</p><p>  If FrmMain.cutable = "leave&qu

105、ot; Then</p><p>  DataA.Recordset.Fields(8) = frmLogin.EmploID</p><p>  DataA.Recordset.Fields(9) = Now</p><p>  ElseIf FrmMain.cutable = "employee" Then</p><p&

106、gt;  DataA.Recordset.Fields(13) = frmLogin.EmploID</p><p>  DataA.Recordset.Fields(14) = Now</p><p>  If Opsex(0) Then</p><p>  DataA.Recordset.Fields(4) = "男"</p>

107、<p><b>  Else</b></p><p>  DataA.Recordset.Fields(4) = "女"</p><p><b>  End If</b></p><p>  DataA.Recordset.Fields(7) = Cmbdegree.Text</p>

108、;<p>  DataA.Recordset.Fields(8) = Cmbdepart.Text</p><p>  DataA.Recordset.Fields(13) = frmLogin.EmploID</p><p>  DataA.Recordset.Fields(14) = Now</p><p><b>  Else</

109、b></p><p>  For i = 4 To 10</p><p>  If Not IsNumeric(Txt(i).Text) Then</p><p>  MsgBox "not a number"</p><p>  Txt(i).SetFocus</p><p><b&g

110、t;  Exit Sub</b></p><p><b>  End If</b></p><p><b>  Next i</b></p><p>  DataA.Recordset.Fields(13) = frmLogin.EmploID</p><p>  DataA.Recor

111、dset.Fields(14) = Now</p><p><b>  End If</b></p><p>  For i = 1 To 12</p><p>  If Txt(i).Text = "" Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0</

112、p><p><b>  Next i</b></p><p>  DataA.Recordset.Update</p><p>  FrmMain.DataA.Refresh</p><p>  DataB.Refresh</p><p><b>  End Sub</b><

113、;/p><p>  Private Sub DataA_Validate(Action As Integer, Save As Integer)</p><p>  If Action = 11 And Bupdata Then</p><p><b>  Save = 0</b></p><p><b>  En

114、d If</b></p><p><b>  End Sub</b></p><p>  Private Sub Lab_Click(Index As Integer)</p><p><b>  End Sub</b></p><p>  Private Sub Txt_KeyPres

115、s(Index As Integer, KeyAscii As Integer)</p><p>  If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack And Index = 0 Then</p><p>  KeyAscii = 0</p><p><b>

116、  Exit Sub</b></p><p><b>  End If</b></p><p>  If FrmMain.cutable = "leave" And Index = 1 Then</p><p>  If (KeyAscii < 48 Or KeyAscii > 57) And Key

117、Ascii <> vbKeyBack Then</p><p>  KeyAscii = 0</p><p><b>  Exit Sub</b></p><p><b>  End If</b></p><p><b>  End If</b></p>

118、<p>  If FrmMain.cutable = "salary" Then</p><p>  If Index <= 3 Then</p><p>  If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack Then</p><p&

119、gt;  KeyAscii = 0</p><p><b>  Exit Sub</b></p><p><b>  End If</b></p><p><b>  End If</b></p><p>  If Index = 13 Then Exit Sub</p&

120、gt;<p>  If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack And KeyAscii <> 46 Then</p><p>  KeyAscii = 0</p><p><b>  Exit Sub</b></p><

121、p><b>  End If</b></p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub Txt_change(Index As Integer)</p><p>  If Bu

122、pdata = False Then Bupdata = True</p><p>  If FrmMain.cutable = "salary" Then</p><p>  If Txt(Index).Text = "" Then Exit Sub</p><p>  If Index >= 4 And Index

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論