人事管理系統(tǒng)畢業(yè)論文

1、<p><b>　　摘要</b></p><p>　　隨著計算機技術(shù)的飛速發(fā)展，計算機在企業(yè)管理中應(yīng)用的普及，利用計算機實現(xiàn)企業(yè)人事管理勢在必行。本系統(tǒng)結(jié)合公司實際的人事管理制度，經(jīng)過實際的需求分析，采用功能強大的Visual Basic6.0作為開發(fā)工具而開發(fā)出來的單機版人事管理系統(tǒng)。</p><p>　　整個系統(tǒng)從符合操作簡便、界面友好、靈活、實用、安全

2、的要求出發(fā)，完成人事管理的全過程，包括新進員工加入時人事檔案的建立、老員工的轉(zhuǎn)出、職位等的變動引起職工信息的修改、員工信息查詢、統(tǒng)計等人事管理工作以及新進員的新增、老員工修改等管理工作。經(jīng)過實際使用證明，本文所設(shè)計的人事管理系統(tǒng)可以滿足公司人事管理方面的需要。</p><p><b>　　關(guān)鍵詞： </b></p><p>　　VB、數(shù)據(jù)庫、窗體、測試、</p

3、><p><b>　　目 錄</b></p><p>　　第一章 概述………………………………………………………………………4</p><p>　　1.1、本課題的來源………………………………………………………………4</p><p>　　1.2、本論文的目的、內(nèi)容及作者主要貢獻……………………………………4<

4、/p><p>　　第二章 開好發(fā)工具的選擇………………………………………………………4</p><p>　　第三章 系統(tǒng)調(diào)研及可行性分析…………………………………………………7</p><p>　　3.1、 系統(tǒng)調(diào)研………………………………………………………………….7</p><p>　　3.2、 可靠性分析概述……………………………………

5、………………………8</p><p>　　3.3、 技術(shù)可行性分析……………………………………………………………8</p><p>　　第四章 系統(tǒng)分析…………………………………………………………………9</p><p>　　4.1、系統(tǒng)需求分析………………………………………………………………9</p><p>　　4.2、數(shù)據(jù)流程圖………

6、…………………………………………………………10</p><p>　　第五章 系統(tǒng)總體設(shè)計……………………………………………………………10</p><p>　　5.1、功能描述……………………………………………………………………10</p><p>　　5.2、系統(tǒng)操作流程圖……………………………………………………………11</p><p&g

7、t;　　第六章 系統(tǒng)詳細設(shè)計……………………………………………………………12</p><p>　　6.1、數(shù)據(jù)庫設(shè)計…………………………………………………………………12</p><p>　　6.2、系統(tǒng)主要界面………………………………………………………………13</p><p>　　第七章 系統(tǒng)測試…………………………………………………………………16<

8、;/p><p>　　7.1、測試舉例……………………………………………………………………16</p><p>　　7.2、測試項目……………………………………………………………………17</p><p>　　7.3、測試方法……………………………………………………………………18</p><p>　　致 謝……………………………………………………

9、……………………………19</p><p>　　參考文獻………………………………………………………………………………20</p><p>　　附件：源程序…………………………………………………………………………２1</p><p><b>　　第一章 概述</b></p><p><b>　　本課題的來源&l

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

11、的科學化、正規(guī)化管理,與世界接軌的重要條件。不同的企業(yè)具有不同的人事管理制度，這就決定了不同的企業(yè)需要不同的人事管理系統(tǒng)。</p><p>　　2、本論文的目的、內(nèi)容及作者主要貢獻</p><p><b>　　(1)目的：</b></p><p>　　目前市面上流行的人事管理系統(tǒng)不少。但是，對于企、事業(yè)單位的人事管理系統(tǒng)來說，不需要大型的數(shù)據(jù)庫

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

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

14、t;/p><p>　　Microsoft公司的Visual Basic</p><p>　　Microsoft公司的Visual C</p><p>　　Borland公司的Delphi </p><p><b>　　Java等等</b></p><p>　　在目前市場上這些眾多的程序開發(fā)工具中，有些

15、強調(diào)程語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高，各有各的優(yōu)點和特色，也滿足了不同用戶的需求。然而，語言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動作必需要耗費數(shù)倍的工夫來處理，使得原來所標榜的效率提高的優(yōu)點失去了作用；相反，如果只強調(diào)程續(xù)語言的彈性，卻沒有便利的工具作配合，會使一些即使非常簡單的界面處理動作，也會嚴重地浪費程序設(shè)計師的寶貴時間。<

16、/p><p>　　作為數(shù)據(jù)庫系統(tǒng)的開發(fā)，Visual Basic是一個非常理想選擇。數(shù)據(jù)庫是MIS中的重要支持技術(shù)，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點和適用范圍，因此，在選擇數(shù)據(jù)庫時，應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言Visual Basic語言，該開發(fā)工具具有很多長處：</p><p>　　Visual

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

18、接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。</p><p>　　總的來說，Visual Basic具有以下特點：</p><p><b>　　可視化編程：</b></p><p>　　用傳統(tǒng)程序設(shè)計語言設(shè)計程序時，都是通過編寫程序代碼來設(shè)計用戶界面，在設(shè)

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

20、asic自動產(chǎn)生界面設(shè)計代碼，程序設(shè)計人員只需要編寫實現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計的效率。</p><p><b>　　面向?qū)ο蟮某绦蛟O(shè)計</b></p><p>　　4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計語言(C++)不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計語言中，對象由程序代碼和數(shù)據(jù)組成，是抽象

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

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

23、以識別的機器指令，并判斷每個語句的語法錯誤。在設(shè)計Visual Basic程序的過程中，隨時可以運行程序，而在整個程序設(shè)計好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運行。</p><p><b>　　事件驅(qū)動編程機制</b></p><p>　　Visual Basic通過事件來執(zhí)行對象的操作。一個對象可能

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

25、程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。</p><p><b>　　訪問數(shù)據(jù)庫</b></p><p>　　Visual Basic具有強大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫，并提供了強大的數(shù)據(jù)存儲和檢索功能。同時，Visual Basic還能直接編輯和訪問其他外部

26、數(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ù)標準，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)

27、據(jù)庫訪問的加鎖機制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編程技術(shù)，為單機上運行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實現(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)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立

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

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

30、同的操作。</p><p>　　動態(tài)鏈接庫(DLL)</p><p>　　Visual Basic是一種高級程序設(shè)計語言，不具備低級語言的功能，對訪問機器硬件的操作不太容易實現(xiàn)。但它可以通過動態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序加入到Visual Basic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外，通過動態(tài)鏈接庫，還可以調(diào)用Windows應(yīng)用程序接口(API)

31、函數(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)之前進行調(diào)研是非常必要的，其必要性主要表現(xiàn)在以下幾個方面。</p><p>　　（1）明確用戶的要求，以根據(jù)調(diào)查結(jié)果進行可行性分析，確認系統(tǒng)的開

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

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

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

35、否可行。</p><p>　　(1)可行性分析階段的主要工作包括以下幾個方面：</p><p>　　①新系統(tǒng)目標可行性分析：</p><p>　　分析新系統(tǒng)的目標是否符合企業(yè)的現(xiàn)狀和發(fā)展的需要。</p><p><b>　?、谏鐣尚行苑治觯?lt;/b></p><p>　　社會可行性分析主要是指管理

36、信息系統(tǒng)的開發(fā)是否符合國家法律、下策，是否能夠與社會大系統(tǒng)實現(xiàn)良好的對接。</p><p><b>　?、奂夹g(shù)可行性分析：</b></p><p>　　技術(shù)可行性分析是根據(jù)新系統(tǒng)的目標來衡量是否具備所需要的技術(shù)，包括系統(tǒng)開發(fā)人員數(shù)量和水平，硬件方面，軟件方面及其它應(yīng)用技術(shù)。</p><p><b>　　④經(jīng)濟可行性分析</b&g

37、t;</p><p>　　經(jīng)濟可行性分析主要是對開發(fā)新系統(tǒng)所投入的資金與系統(tǒng)投入使用后所帶來的經(jīng)濟效益進行比較，確認新系統(tǒng)是否會給企業(yè)帶來一定的經(jīng)濟效益。</p><p><b>　　⑤管理可行性分析：</b></p><p>　　管理可行性分析主要是分析企業(yè)現(xiàn)行的管理體制和企業(yè)領(lǐng)導(dǎo)是否具有現(xiàn)代化的管理意識和管理水平。</p>&

38、lt;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)的目標，考慮目前有關(guān)的技術(shù)能否支持所開發(fā)的新系統(tǒng)。這里討論的技術(shù)必

39、須是已經(jīng)普遍使用的，而不是待研究的或正在研究的。</p><p><b>　?。?）硬件資源：</b></p><p>　　開發(fā)管理信息系統(tǒng)所需的硬件資源包含以下兩個方面：</p><p>　　系統(tǒng)開發(fā)人員在管理信息系統(tǒng)的開發(fā)過程中所需要的計算機設(shè)備及其有關(guān)的外部設(shè)備；管理信息系統(tǒng)開發(fā)成功投入使用后，使用單位所應(yīng)具備的計算機設(shè)備及其有關(guān)的外圍設(shè)

40、備。對硬件資源進行可行性分析時主要考慮計算機的主機內(nèi)存、類型、功能、聯(lián)網(wǎng)能力、安全保護措施以及輸入/輸出設(shè)備，外存儲器和聯(lián)網(wǎng)數(shù)據(jù)通信設(shè)備的配置、功能、效率等指標是否符合系統(tǒng)方案設(shè)計要求，同時還要考慮計算機的性能/價格比。</p><p><b>　?。?）軟件資源</b></p><p>　　軟件資源的可行性分析主要考慮以下幾點是否滿足用戶的要求：</p>

41、<p><b>　?、俨僮飨到y(tǒng)的選擇；</b></p><p><b>　?、诰幾g系統(tǒng)的選擇；</b></p><p>　?、蹟?shù)據(jù)庫管理系統(tǒng)的選擇；</p><p>　　④高級編程語言的選擇；</p><p>　?、轁h字處理系統(tǒng)的選擇；</p><p>　　⑥應(yīng)

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

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

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

45、</p><p>　?。?）未來需求。這類要求是指目前不屬于系統(tǒng)開發(fā)的范圍，但將來隨著外界環(huán)境的變化以及系統(tǒng)的發(fā)展可能會提出的要求。了解這類要求的目的是在開發(fā)過程中，可對系統(tǒng)將來可能的擴展與修改做準備。一旦需要時，就比較容易進行補充和修改了。</p><p>　　4．2 數(shù)據(jù)流程圖</p><p>　　數(shù)據(jù)流程圖是描述系統(tǒng)邏輯模型的主要工具，通過幾個特定的符號，可

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

47、p>　　圖4。1 系統(tǒng)數(shù)據(jù)流圖</p><p>　　第五章 系統(tǒng)總體設(shè)計</p><p><b>　　5.1.功能描述:</b></p><p>　　該信息管理系統(tǒng)可以在Windows 2000 Server平臺上運行，開發(fā)工具采用Visual Basic語言開發(fā)。其工作流程為：用戶登錄通過權(quán)限判斷，普通用戶不能瀏覽、閱讀和查詢信息，指

48、定用戶可以操作，可以進行信息錄入、修改和刪除的操作。</p><p>　　系統(tǒng)的主要功能特點有:</p><p><b>　　(1)系統(tǒng)登錄表單</b></p><p>　　該表單的功能是在系統(tǒng)被訪問之前，要對進入系統(tǒng)的用戶進行安全性檢查，防止非法用戶進行系統(tǒng)破壞數(shù)據(jù)及威脅系統(tǒng)安全，避免不必要的損失。只有合法的用戶在輸入正確的密碼后方可進入系統(tǒng)

49、。</p><p><b>　　(2)主界面</b></p><p>　　在該界面窗口中，共有文件、數(shù)據(jù)、關(guān)于等所有系統(tǒng)功能，用戶可以操作菜單的方式快捷地使用系統(tǒng)。</p><p><b>　　(3)更改密碼：</b></p><p>　　使用本表單可以方便地修改用戶的密碼，以防密碼泄露后對數(shù)據(jù)的安

50、全性造成威脅。</p><p>　　5.1.2系統(tǒng)操作流程圖:</p><p>　　圖 5-1系統(tǒng)操作流程圖</p><p>　　第六章 系統(tǒng)詳細設(shè)計</p><p><b>　　1 數(shù)據(jù)庫設(shè)計</b></p><p>　?。?）職工信息數(shù)據(jù)表：</p><p>　　（

51、2）請假信息數(shù)據(jù)表：</p><p>　?。?）員工工資數(shù)據(jù)表：</p><p>　　6．2 系統(tǒng)主要界面設(shè)計</p><p>　　因為人事資料管理牽涉到個人隱私及公司密秘等多方面因素,所以一定要保</p><p>　　密,并有專人管理,使用前身份確認就顯得非常重要,故在運行前要進行管理權(quán)限確認. 以防止他人無意或惡意篡改.(圖 6-1)&

52、lt;/p><p>　　圖 6-1 主界面圖</p><p>　　其中登記表的界面如下：</p><p>　　圖 6-2 登記表的界面</p><p><b>　　密碼的修改:</b></p><p>　　圖 6-3 密碼的修改界面</p><p><b>　　查詢

53、界面:</b></p><p>　　圖 6-4 查詢界面</p><p><b>　　第七章 系統(tǒng)測試</b></p><p>　　為了確保本系統(tǒng)能夠正常運行，需要在發(fā)布之后做一次較全面的測試?，F(xiàn)將具體操作及過程舉例說明如下：</p><p><b>　　7．1測試舉例</b><

54、/p><p>　?。?）.測試用戶登陸是否成功：</p><p>　　打開人事管理系統(tǒng)，在“用戶名”里填入root，“密碼”框里我們填入root作為用戶登錄密碼。填寫完成點擊“確定”按鈕，將會出現(xiàn)操作程序頁面，即該用戶已經(jīng)登陸成功了。再運行程序，會有提示頁面出現(xiàn)：程序已經(jīng)運行，不能再次裝載！ </p><p>　?。?）.測試其他用戶是否能夠登錄：</p>

55、<p>　　打開人事管理系統(tǒng)登錄頁面，輸入任意密碼，點擊“登錄”按鈕。將出現(xiàn)密碼出錯提示頁面。然后點“確定”返回人事管理系統(tǒng)登錄頁面。</p><p>　?。?）.測試編輯功能是否成功：</p><p>　　編輯功能：在登錄成功之后，即可進入相應(yīng)的管理頁面，點擊“編輯”，即出現(xiàn)編輯頁面，即可以修改和刪除員工的個人信息資料。最后保存。 </p><p>　

56、?。?）.測試查詢功能是否成功：</p><p>　　查詢功能：在登錄成功之后，點擊“查詢”，在彈出的文本框，在里面輸入想要查找的資料，點擊“查詢”按鈕，成功即可出現(xiàn)結(jié)果頁面，頁面內(nèi)顯示查詢出來的員工資料內(nèi)容，表示測試成功。</p><p>　?。?）.用戶登出系統(tǒng)的測試：</p><p>　　在管理操作已全部完成，需要退出程序的時候，在系統(tǒng)頁面“系統(tǒng)設(shè)置”下拉菜單

57、的有一個“退出”的選項，點擊之后便可退出。也可以點“關(guān)閉”退出。</p><p>　?。?）.測試密碼更改：</p><p>　　在以超級用戶登錄的情況下，在程序中打密碼設(shè)置，彈出文本框，顯示用戶列表?？梢蕴砑有碌钠胀ㄓ脩?，也可以刪除和禁止普通用戶使用程序。在以普通用戶登陸情況下，打開密碼設(shè)置選項，系統(tǒng)會提示該用戶為普通用戶，只可以修改自己的密碼。</p><p>

58、　　經(jīng)過以上各項的測試，證明本系統(tǒng)完全可以正常運行，至此測試成功！</p><p><b>　　7．2測試項目</b></p><p>　　在MIS開發(fā)過程中采用了多種措施保證軟件質(zhì)量，但是實際開發(fā)過程中還是不可避免地會產(chǎn)生差錯，系統(tǒng)中通常可能隱藏著錯誤和缺陷，不經(jīng)周密測試的系統(tǒng)投入運行，將會造成難以想象的后果，因此系統(tǒng)測試是MIS開發(fā)過程中為保證軟件質(zhì)量必須進行的工

59、作。大量統(tǒng)計資料表明，系統(tǒng)測試的工作量往往占MIS開發(fā)總工作量的40%以上。因此，我們必須重視測試工作。</p><p>　　由于程序中隱藏的缺陷只在特定的環(huán)境下才有可靠顯露，系統(tǒng)缺陷通常是由于對某些特定情況考慮不周造成的。因此測試不是為了表明程序正確；成功的測試也不是沒有發(fā)現(xiàn)錯誤的測試。有意義的軟件測試應(yīng)該是從“破壞”軟件系統(tǒng)的角度出發(fā)，精心設(shè)計最有可以暴露程序系統(tǒng)缺陷的測試方案。因此軟件測試的目標應(yīng)該是以盡可

60、能少的代價和時間找出軟件系統(tǒng)中潛在的錯誤和缺陷。</p><p>　　從產(chǎn)品角度看，測試計劃中的測試項目包括軟件結(jié)構(gòu)中的分系統(tǒng)層、子系統(tǒng)層、功能模塊層、程序模塊層中的各類模塊，從測試本身看，分為單元測試，組合測試，確認測試等。測試對象是隨不同階段而異的，最基本、最初的測試是單元測試，后面的組合測試、確認測試都是以被測過的模塊作為測試對象的。</p><p><b>　　(1)單元

61、測試：</b></p><p>　　單元測試也稱模塊測試或程序測試，單元測試是對每個模塊單獨進行的，驗證模塊接口與設(shè)計說明書是否一致，對模塊的所有主要處理路徑進行測試且與預(yù)期的結(jié)構(gòu)進行對照，還要對所有錯誤處理路徑進行測試。對源碼進行審查，對照設(shè)計說明書，表態(tài)地檢查源程序是否符合功能的邏輯要求，是進行單元測試前的重要工作工。單元測試一般是由程序員完成，也稱程序調(diào)試。</p><p&g

62、t;<b>　　(2)組合測試</b></p><p>　　組合測試也稱集成測試或子系統(tǒng)測試，通常采用自頂向下測試和自底向上測試兩種測試方法。組合測試的對象是指已經(jīng)通過單元測試的模塊，不是對零散模塊進行單個測試，而是用系統(tǒng)化的方法裝配和測試軟件系統(tǒng)，是一個嚴格的過程，必須認真地進行，其計劃的產(chǎn)生和單元模塊測試的完成日期要協(xié)調(diào)起來，這種測試應(yīng)在系統(tǒng)目標機上進行，造成系統(tǒng)應(yīng)用的環(huán)境條件，除了開發(fā)

63、部分項目負責人參加以外，還應(yīng)該有相應(yīng)系統(tǒng)的用戶參加，給評審員進行演示。</p><p><b>　　(3)確認測試</b></p><p>　　確認測試是對通過組合測試的軟件進行的，這些軟件已經(jīng)存于系統(tǒng)目標設(shè)備的介質(zhì)上，確認測試的目的是表明軟件是可以工作的，并且符合“軟件需求說明書”中規(guī)定的全部功能和性能要求。確認測試是按照這些要求定出的“確認測試計劃”進行的。測試工

64、作是由一個獨立的組織進行，而且測試要從用戶的角度出發(fā)。</p><p><b>　　(4)系統(tǒng)測試</b></p><p>　　系統(tǒng)測試是對整體性能的測試，主要解決各子系統(tǒng)之間的數(shù)據(jù)通信和數(shù)據(jù)共享問題以及檢測系統(tǒng)是否達到用戶的實際要求，系統(tǒng)測試的依據(jù)是系統(tǒng)分析報告。系統(tǒng)測試應(yīng)在系統(tǒng)的整個范圍內(nèi)進行，這種測試不只對軟件進行，而是對構(gòu)成系統(tǒng)的硬、軟件一起進行。系統(tǒng)測試與建

65、構(gòu)同時進行或略慢。系統(tǒng)測試需要確認從頭到尾的功能正常才算完成，應(yīng)當盡量避免系統(tǒng)測試延到項目末尾進行。</p><p><b>　　(5)用戶驗收測試</b></p><p>　　在系統(tǒng)測試完成后，進行用戶的驗收測試，它是用戶在實際應(yīng)用環(huán)境中所進行的真實數(shù)據(jù)測試。</p><p>　　在具體的測試中，一般應(yīng)遵循以下原則：由程序設(shè)計者之外的人進行測

66、試；測試用例應(yīng)由兩部分組成：輸入數(shù)據(jù)和預(yù)期輸出結(jié)果；應(yīng)選用不合理的輸入數(shù)據(jù)與非法輸入測試；不僅要檢驗程序是否實現(xiàn)預(yù)期功能，還應(yīng)檢查程序是否做了不應(yīng)該做的工作；集中測試容易出錯的程序模塊；對程序修改以后，必須重新進行測試。</p><p><b>　　7．3測試方法</b></p><p>　　一般來說，對程序測試有兩種測試方法：如果已經(jīng)知道了軟件系統(tǒng)應(yīng)具有的功能，可通

67、過測試來對每個功能是否都能正常使用；如果知道程序的內(nèi)部工作過程，可以通過測試來檢測程序內(nèi)部是否按照規(guī)格說明書的規(guī)定正常進行。前一種方法稱為黑盒測試，后一種方法稱為白盒子測試。黑盒測試又稱為功能測試，白盒子測試又稱為結(jié)構(gòu)測試。</p><p>　　經(jīng)過幾個月的畢業(yè)設(shè)計，因為時間和任務(wù)的性質(zhì)的關(guān)系，沒有完全按照上述的測試方法進行系統(tǒng)的測試，但經(jīng)過一些簡單的步驟的測試，證明本系統(tǒng)具有相當程序的穩(wěn)定性。</p>

68、;<p><b>　　致 謝</b></p><p>　　經(jīng)過四個多月的構(gòu)思與設(shè)計，在指導(dǎo)老師的精心指導(dǎo)和安排下，本系統(tǒng)已經(jīng)設(shè)計完畢。其使用功能基本符合公司在實際工作的需要，具有一定的實用性。但是由于時間比較倉促，加上本人軟件設(shè)計經(jīng)驗的不足。因此，在分析問題、解決問題時顯得不夠嚴密、完善，還需要在以后的工作中不斷地改進和完善。</p><p>　

69、　在這次的畢業(yè)設(shè)計中，讓我深深地體現(xiàn)到進行軟件開發(fā)不是一件簡單的事情，它需要設(shè)計者具有全面的專業(yè)知識、縝密的思維、嚴謹?shù)墓ぷ鲬B(tài)度以及較高的分析問題、解決問題的能力，而我在很多方面還有欠缺。最后，我要衷心感謝老師在我的設(shè)計過程中給予我的極大幫助，使我能夠及時、順利地完成此次的畢業(yè)設(shè)計。同時，也要感謝我的老師和同學們及實習企業(yè)在本系統(tǒng)的設(shè)計過程中給予我的支持和幫助。</p><p><b>　　參考文獻&l

70、t;/b></p><p>　　[1]王福成等：　<<Visual Basic 6.0數(shù)據(jù)庫開發(fā)指南>>，　清華大學出版社　2002年6月</p><p>　　[2]郭振波編著： << 深入淺出Visual Basic 6.0中文版>>， 人民郵電出版社2003年3月</p><p>　　[3]林永等編著：

71、<<Visual Basic 6.0用戶編程手冊>>， 人民郵電出版社2002年11月</p><p>　　[4]劉炳文等編著： <<Visual Basic 6.0 程序設(shè)計教程>> ，清華大學出版社 2000年7月</p><p><b>　　附：程序清單：</b></p><p>　　Opt

72、ion Explicit</p><p>　　Dim Bupdata As Boolean</p><p>　　Dim i As Integer</p><p>　　Private Sub Cmbdegree_Click()</p><p>　　If Cmbdegree.Text = "定制" Then</p>

73、<p>　　FrmTable.Show</p><p>　　Cmbdegree.ListIndex = 0</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Cmbdepart_Click(

74、)</p><p>　　If Cmbdepart.Text = "定制" Then</p><p>　　FrmTable.Show</p><p>　　Cmbdepart.ListIndex = 0</p><p><b>　　End If</b></p><p><b&

75、gt;　　End Sub</b></p><p>　　Private Sub CmdAddNew_Click()</p><p>　　If CmdAddNew.Caption = "添加" Then</p><p>　　CmdAddNew.Caption = "確認"</p><p>　　C

76、mdDel.Enabled = False</p><p>　　CmdOK.Enabled = False</p><p>　　DataA.ReadOnly = False</p><p>　　For i = 1 To 12</p><p>　　If Txt(i).Text = "" Then Txt(i).Text =

77、0 'DataA.Recordset.Fields(i) = 0</p><p><b>　　Next i</b></p><p>　　DataA.Recordset.AddNew</p><p>　　Txt(0).Locked = False</p><p>　　If FrmMain.cutable = &qu

78、ot;employee" Then</p><p>　　DataA.Recordset.Fields(13) = frmLogin.EmploID</p><p>　　DataA.Recordset.Fields(14) = Now</p><p>　　If Opsex(0) Then</p><p>　　DataA.Records

79、et.Fields(4) = "男"</p><p><b>　　Else</b></p><p>　　DataA.Recordset.Fields(4) = "女"</p><p><b>　　End If</b></p><p>　　DataA.Recor

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

81、Login.EmploID</p><p>　　DataA.Recordset.Fields(9) = Now</p><p><b>　　Else</b></p><p>　　DataA.Recordset.Fields(13) = frmLogin.EmploID</p><p>　　DataA.Recordset.

82、Fields(14) = Now</p><p><b>　　End If</b></p><p>　　Txt(0).SetFocus</p><p><b>　　Else 'OK</b></p><p>　　If Txt(0).Text = "" Then</p&

83、gt;<p>　　MsgBox "不可以為空"</p><p>　　Txt(0).SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　For i = 1 To 12</p

84、><p>　　If Txt(i).Text = "" Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0</p><p><b>　　Next i</b></p><p>　　If FrmMain.cutable = "employee" Then&

85、lt;/p><p>　　DataB.Recordset.FindFirst "職工編號=" + Txt(0).Text</p><p>　　If Not DataB.Recordset.NoMatch Then</p><p>　　MsgBox "職員編號重復(fù)"</p><p>　　Txt(0).Text

86、= ""</p><p>　　Txt(0).SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　ElseIf FrmMain.cutable = "leave" Then

87、</p><p>　　DataB.Recordset.FindFirst "假條編號=" + Txt(0).Text</p><p>　　If Not DataB.Recordset.NoMatch Then</p><p>　　MsgBox "假條編號重復(fù)"</p><p>　　Txt(0).Text

88、 = ""</p><p>　　Txt(0).SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　

89、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>　　Exit Sub</b></p

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

91、tch Then</p><p>　　MsgBox "工資編號重復(fù)"</p><p>　　Txt(0).Text = ""</p><p>　　Txt(0).SetFocus</p><p><b>　　Exit Sub</b></p><p><b&

92、gt;　　End If</b></p><p><b>　　End If</b></p><p>　　DataA.Recordset.Update</p><p>　　DataA.Recordset.MoveLast</p><p>　　FrmMain.DataA.Refresh</p><

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

94、<p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub CmdCacel_Click()</p><p>　　If CmdAddNew.Caption = "確認" Then</p><p&

95、gt;　　DataA.Recordset.CancelUpdate</p><p><b>　　End If</b></p><p>　　FrmMain.Enabled = True</p><p>　　FrmMain.SetFocus</p><p><b>　　Unload Me</b><

96、/p><p>　　FrmMain.DataA.Refresh</p><p>　　If FrmMain.cutable = "employee" Then</p><p>　　FrmMain.DBGA.Columns("性別").Button = True</p><p>　　FrmMain.DBGA.Co

97、lumns("學歷").Button = True</p><p>　　FrmMain.DBGA.Columns("部門").Button = True</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><

98、;p>　　Private Sub CmdDel_Click()</p><p>　　DataA.ReadOnly = False</p><p>　　DataA.Recordset.Delete</p><p>　　DataA.Recordset.MoveNext</p><p>　　If DataA.Recordset.EOF The

99、n</p><p>　　DataA.Recordset.MoveLast</p><p><b>　　End If</b></p><p>　　FrmMain.DataA.Refresh</p><p><b>　　End Sub</b></p><p>　　Private

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

101、<p><b>　　End If</b></p><p>　　Bupdata = False</p><p>　　DataA.Recordset.Edit</p><p>　　If FrmMain.cutable = "leave" Then</p><p>　　DataA.Records

102、et.Fields(8) = frmLogin.EmploID</p><p>　　DataA.Recordset.Fields(9) = Now</p><p>　　ElseIf FrmMain.cutable = "employee" Then</p><p>　　DataA.Recordset.Fields(13) = frmLogin.E

103、mploID</p><p>　　DataA.Recordset.Fields(14) = Now</p><p>　　If Opsex(0) Then</p><p>　　DataA.Recordset.Fields(4) = "男"</p><p><b>　　Else</b></p>

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

105、bdepart.Text</p><p>　　DataA.Recordset.Fields(13) = frmLogin.EmploID</p><p>　　DataA.Recordset.Fields(14) = Now</p><p><b>　　Else</b></p><p>　　For i = 4 To 10&

106、lt;/p><p>　　If Not IsNumeric(Txt(i).Text) Then</p><p>　　MsgBox "not a number"</p><p>　　Txt(i).SetFocus</p><p><b>　　Exit Sub</b></p><p>&

107、lt;b>　　End If</b></p><p><b>　　Next i</b></p><p>　　DataA.Recordset.Fields(13) = frmLogin.EmploID</p><p>　　DataA.Recordset.Fields(14) = Now</p><p>&l

108、t;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</p><p><b>　　Next i </b>

109、</p><p>　　DataA.Recordset.Update</p><p>　　FrmMain.DataA.Refresh</p><p>　　DataB.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub DataA_Valid

110、ate(Action As Integer, Save As Integer)</p><p>　　If Action = 11 And Bupdata Then</p><p><b>　　Save = 0</b></p><p><b>　　End If</b></p><p><b>

111、;　　End Sub</b></p><p>　　Private Sub Lab_Click(Index As Integer)</p><p><b>　　End Sub</b></p><p>　　Private Sub Txt_KeyPress(Index As Integer, KeyAscii As Integer)<

112、;/p><p>　　If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack And Index = 0 Then</p><p>　　KeyAscii = 0</p><p><b>　　Exit Sub</b></p><p>&l

113、t;b>　　End If</b></p><p>　　If FrmMain.cutable = "leave" And Index = 1 Then</p><p>　　If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack Then</p>&l

114、t;p>　　KeyAscii = 0</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　If FrmMain.cutable = "sal

115、ary" Then</p><p>　　If Index <= 3 Then</p><p>　　If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack Then</p><p>　　KeyAscii = 0</p><p><b

116、>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　If Index = 13 Then Exit Sub</p><p>　　If (KeyAscii < 48 Or Key

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

118、<p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Txt_change(Index As Integer)</p><p>　　If Bupdata = False Then Bupdata = True</p>

119、<p>　　If FrmMain.cutable = "salary" Then</p><p>　　If Txt(Index).Text = "" Then Exit Sub</p><p>　　If Index >= 4 And Index <= 6 Then</p><p>　　Txt(7).T

120、ext = Val(Txt(4).Text) + Val(Txt(5).Text) + Val(Txt(6).Text)</p><p>　　Txt(12).Text = Val(Txt(7).Text) - Val(Txt(11).Text)</p><p><b>　　End If</b></p><p>　　If Index >=

121、8 And Index <= 10 Then</p><p>　　Txt(11).Text = Val(Txt(8).Text) + Val(Txt(9).Text) + Val(Txt(10).Text)</p><p>　　Txt(12).Text = Val(Txt(7).Text) - Val(Txt(11).Text)</p><p><b&g

122、t;　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　DataA.DatabaseName = App.Path + &q

123、uot;\sm.mdb"</p><p>　　DataB.DatabaseName = App.Path + "\sm.mdb"</p><p>　　DataA.Caption = FrmMain.cutable</p><p>　　DataA.RecordSource = "select * from " + Fr