公司員工工資管理系統(tǒng)畢業(yè)論文(2)(共61頁)

1、哈爾濱工業(yè)大學(xué)工學(xué)碩士學(xué)位論文- PAGE II - PAGE I -課程名稱：管理系統(tǒng)中計算機應(yīng)用(yngyng)題目(tm)名稱：員工工資管理系統(tǒng)專業(yè)(zhuny)班級：海大專接本學(xué)號：1521120130學(xué)生姓名：張瑞指導(dǎo)教師：王業(yè)統(tǒng)摘要公司員工工資管理是公司管理的一項重要內(nèi)容。隨著公司員工數(shù)量增加，企業(yè)的工資管理工作也變得越來越復(fù)雜。工資管理既涉及到企業(yè)的人事管理，同時也是企業(yè)財務(wù)管理的重要組成部分。工資管理需要和人事管理相聯(lián)系，同時連接工時考勤和醫(yī)療保險等等，來生成企業(yè)每個職工的基本工資、津貼、醫(yī)療保險、保險費、實際發(fā)放工資等。資金是企業(yè)生存的主要元素，資金的流動影響到企業(yè)的整體運作

2、，企業(yè)員工的工資是企業(yè)資金管理的一個重要的組成部分。早期的工資統(tǒng)計和發(fā)放都是使用人工方式處理紙質(zhì)材料，不僅花費財務(wù)人員大量的時間且不易保存和查詢，往往由于個人的因素抄寫不慎或計算疏忽，出現(xiàn)工資發(fā)放錯誤的現(xiàn)象?；谝陨显?，公司員工工資管理系統(tǒng)使用電腦安全保存、快速計算、全面統(tǒng)計，實現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、自動化。公司員工工資管理系統(tǒng)是典型的信息管理系統(tǒng)（MIS），前臺程序開發(fā)工具采用(ciyng)微軟的VB6，后臺數(shù)據(jù)庫采用Access數(shù)據(jù)庫。VB6是一種面向?qū)ο蟮拈_發(fā)工具，具有組件豐富、語言簡單、功能強大的優(yōu)點。 Access數(shù)據(jù)庫具有與VB6無縫連接、操作簡單、易于使用的優(yōu)點。運行結(jié)果

3、證明，本公司員工工資管理系統(tǒng)可以極大地提高工作效率，節(jié)省了人力和物力，最終滿足企業(yè)財務(wù)管理、員工工資發(fā)放的需要，同時也成為現(xiàn)代化企業(yè)管理的標(biāo)志。關(guān)鍵詞：工資管理 信息管理 數(shù)據(jù)(shj)查詢 數(shù)據(jù)庫不要(byo)刪除行尾的分節(jié)符，此行不會被打印PAGE II- - PAGE II -目 錄 TOC o 1-3 h z u HYPERLINK l _Toc255733682 摘 要 PAGEREF _Toc255733682 h I HYPERLINK l _Toc255733683 第1章 緒論(xln) PAGEREF _Toc255733683 h 1 HYPERLINK l _Toc25

4、5733684 1.1數(shù)據(jù)庫管理系統(tǒng) PAGEREF _Toc255733684 h 1 HYPERLINK l _Toc255733685 1.2公司(n s)員工工資管理系統(tǒng) PAGEREF _Toc255733685 h 1 HYPERLINK l _Toc255733686 第2章 企業(yè)(qy)工資管理系統(tǒng)設(shè)計分析 PAGEREF _Toc255733686 h 2 HYPERLINK l _Toc255733687 第3章 開發(fā)環(huán)境及實現(xiàn)技術(shù) PAGEREF _Toc255733687 h 3 HYPERLINK l _Toc255733688 3.1 開發(fā)環(huán)境 PAGEREF _T

5、oc255733688 h 3 HYPERLINK l _Toc255733689 3.1.1本系統(tǒng)開發(fā)需求的軟件環(huán)境： PAGEREF _Toc255733689 h 3 HYPERLINK l _Toc255733690 3.1.2本系統(tǒng)開發(fā)需求的硬件環(huán)境： PAGEREF _Toc255733690 h 3 HYPERLINK l _Toc255733691 3.2 開發(fā)工具 PAGEREF _Toc255733691 h 4 HYPERLINK l _Toc255733692 3.2.1開發(fā)工具簡介 PAGEREF _Toc255733692 h 4 HYPERLINK l _Toc2

6、55733693 3.2.2 Visual Basic特點 PAGEREF _Toc255733693 h 5 HYPERLINK l _Toc255733694 3.2.3 Visual Basic 系統(tǒng)在程序應(yīng)用中的常用名詞 PAGEREF _Toc255733694 h 8 HYPERLINK l _Toc255733695 3.2.3 數(shù)據(jù)庫介紹 PAGEREF _Toc255733695 h 9 HYPERLINK l _Toc255733696 第4章 系統(tǒng)設(shè)計 PAGEREF _Toc255733696 h 12 HYPERLINK l _Toc255733697 4.1 系統(tǒng)設(shè)

7、計分析 PAGEREF _Toc255733697 h 12 HYPERLINK l _Toc255733698 4.1.1業(yè)務(wù)流程圖 PAGEREF _Toc255733698 h 12 HYPERLINK l _Toc255733699 4.1.2 數(shù)據(jù)流程圖 PAGEREF _Toc255733699 h 13 HYPERLINK l _Toc255733700 4.1.3 功能結(jié)構(gòu)圖 PAGEREF _Toc255733700 h 14 HYPERLINK l _Toc255733701 4.2 系統(tǒng)數(shù)據(jù)庫設(shè)計 PAGEREF _Toc255733701 h 15 HYPERLINK

8、l _Toc255733702 4.3 系統(tǒng)的設(shè)計與實現(xiàn) PAGEREF _Toc255733702 h 22 HYPERLINK l _Toc255733703 4.3.1用戶登錄窗體 PAGEREF _Toc255733703 h 22 HYPERLINK l _Toc255733704 4.3.2添加用戶窗體 PAGEREF _Toc255733704 h 27 HYPERLINK l _Toc255733705 4.3.3刪除用戶窗體 PAGEREF _Toc255733705 h 31 HYPERLINK l _Toc255733706 4.3.4系統(tǒng)的主界面的設(shè)計與實現(xiàn) PAGER

9、EF _Toc255733706 h 34 HYPERLINK l _Toc255733707 4.3.5員工基本信息窗體 PAGEREF _Toc255733707 h 37 HYPERLINK l _Toc255733708 4.3.6 報表打印窗體 PAGEREF _Toc255733708 h 49 HYPERLINK l _Toc255733709 4.3.7工資發(fā)放信息查詢窗體 PAGEREF _Toc255733709 h 51 HYPERLINK l _Toc255733710 4.3.7 其它窗體 PAGEREF _Toc255733710 h 55 HYPERLINK l

10、_Toc255733711 結(jié) 論 PAGEREF _Toc255733711 h 56千萬不要刪除行尾的分節(jié)符，此行不會被打印。在目錄上點右鍵“更新域”，然后“更新整個目錄”。打印前，不要忘記把上面“Abstract”這一行后加一空行- PAGE 10 - PAGE 58 -緒論(xln)1.1數(shù)據(jù)庫管理系統(tǒng)數(shù)據(jù)庫管理系統(tǒng)（DBMS）是指數(shù)據(jù)庫系統(tǒng)中管理數(shù)據(jù)的軟件系統(tǒng)。DBMS是數(shù)據(jù)庫系統(tǒng)的核心組成部分。對數(shù)據(jù)庫的一切操作，包括定義、更新及各種控制,都是通過DBMS進行的。DBMS總是基于某種數(shù)據(jù)模型，可以把DBMS看成是某種數(shù)據(jù)模型在計算機系統(tǒng)上的具體實現(xiàn)。根據(jù)數(shù)據(jù)模型的不同，DBMS可以

11、分成層次型、網(wǎng)狀型、關(guān)系型、面向?qū)ο笮偷?。MS Access 2000就是(jish)一種關(guān)系型數(shù)據(jù)庫管理系統(tǒng)。 關(guān)系模型主要是用二維表格結(jié)構(gòu)表達實體集，用外鍵表示實體間聯(lián)系。關(guān)系模型是由若干個關(guān)系模式組成的集合。關(guān)系模式相當(dāng)于前面提到的記錄類型，每個關(guān)系實際上是一張二維表格。關(guān)系模型和層次、網(wǎng)狀模型的最大判別是用關(guān)鍵碼而不是用指針導(dǎo)航數(shù)據(jù)，表格簡單用戶易懂，編程時并不涉及存儲結(jié)構(gòu)，訪問技術(shù)等細節(jié)，已得到(d do)了比較廣泛的應(yīng)用。 1.2公司員工工資管理系統(tǒng)公司工資管理是一項瑣碎、復(fù)雜而又十分細致的工作，一般不允許發(fā)生差錯。最初的工資統(tǒng)計和發(fā)放都是使用人工方式處理，工作量大的時候，出現(xiàn)錯誤

12、的機率也隨之升高，不僅花費財務(wù)人員大量的時間，而且往往由于抄寫不慎，或者由于計算的疏忽，出現(xiàn)工資發(fā)放錯誤的現(xiàn)象。同時工資的發(fā)放具有較強的時間限制，必須嚴格按照單位規(guī)定的時間完成計算和發(fā)放工作。正是企業(yè)工資管理的這種重復(fù)性、規(guī)律性、時間性，使得企業(yè)工資管理計算機化成為可能。企業(yè)工資管理系統(tǒng)就是使用電腦代替大量的人工統(tǒng)計和計算，完成眾多企業(yè)工資信息的處理，同時使用電腦還可以安全地、完整地保存大量的企業(yè)工資記錄。 企業(yè)工資管理系統(tǒng)設(shè)計(shj)分析需求分析的過程可以說是一個對具體問題的反復(fù)理解和抽象的過程。理解就是對現(xiàn)實問題的理解，要弄清楚究竟需要解決什么問題。抽象就是除去問題的表面，提取問題的本質(zhì)

13、，建立問題的邏輯模型，以便于以后階段的系統(tǒng)的設(shè)計實現(xiàn)。需求分析階段是軟件產(chǎn)品生存命期中的一個重要階段，其根本任務(wù)是確定用戶對軟件系統(tǒng)的需求。所謂需求是指用戶對軟件的功能和性能的要求，就是用戶希望軟件能什么事情，完成什么樣的功能，達到什么性能。通常需求分為兩種類型：一種是功能性需求，一種是非功能性需求，這一點也需要有一種清楚的認識。功能性需求是指需要計算機系統(tǒng)解決的問題，也就是對數(shù)據(jù)的處理要求，這是一類最主要的需求。非功能性需求是指實際使用環(huán)境所要求的需求，往往是一些限制(xinzh)要求，例如：性能要求，可靠性要求，安全保密要求，等等。 軟件(run jin)需求一般包含三個層次業(yè)務(wù)需求、用戶

14、需求和功能需求，還包括非功能需求。業(yè)務(wù)需求：反映了組織機構(gòu)或客戶對系統(tǒng)、產(chǎn)品高層次的目標(biāo)要求，它們在項目視圖與范圍文檔中予以說明。用戶需求：描述了用戶使用產(chǎn)品必須要完成的任務(wù)和具備的功能，這在使用實例文檔或方案腳本說明中予以說明。功能需求：定義了開發(fā)人員必須實現(xiàn)的軟件功能，使得用戶能完成他們的任務(wù)，從而滿足其業(yè)務(wù)需求。開發(fā)(kif)環(huán)境及實現(xiàn)技術(shù)開發(fā)(kif)環(huán)境衡量是否具備使用新系統(tǒng)所需的條件，一般可從軟硬件的性能要求、環(huán)境條件、技術(shù)人員水平(shupng)和數(shù)量等方面去考慮和分析，其中開發(fā)人員的技術(shù)水平應(yīng)首先考慮近期內(nèi)可以培養(yǎng)和發(fā)展的技術(shù)人員。近些年計算機技術(shù)飛速發(fā)展，硬件條件可以說是日新

15、月異，其發(fā)展速度已令人驚訝的成倍比例發(fā)展。軟件方面同樣進展神速，無論任何系統(tǒng)都難不到如今的計算機。本系統(tǒng)就是由VB與access數(shù)據(jù)庫相結(jié)合而設(shè)計出來的。以下為本系統(tǒng)開發(fā)需求。3.1.1本系統(tǒng)開發(fā)需求的軟件環(huán)境：（1）Windows 2000 操作系統(tǒng)。（2）VB 6.0（3）ACCESS 數(shù)據(jù)庫3.1.2本系統(tǒng)開發(fā)需求的硬件環(huán)境：CPU為400MHZ以上；硬盤數(shù)據(jù)量最小配置為20G；計算機內(nèi)存要求為128M以上；對于公司員工工資管理信息系統(tǒng)應(yīng)著重分析其經(jīng)濟效益，整合現(xiàn)有資源,提高工作效率。經(jīng)濟上的可行性首先要估算新系統(tǒng)的開發(fā)費用和運行、維護費用，再與所估計的將獲得的效益進行比較，看是否有利。

16、開發(fā)、運行和維護費用主要包括：購買和安裝設(shè)備的費用：計算機硬件、系統(tǒng)軟件、機房、電源、空調(diào)等；軟件開發(fā)費用：若由本單位的技術(shù)人員開發(fā)，則該項費用可以計入下面的人員費用一項；人員費用：系統(tǒng)開發(fā)人員、操作人員和維護人員的工資、培訓(xùn)費用等；消耗品費用：系統(tǒng)開發(fā)所用材料、系統(tǒng)正常運行所用消耗品，例如水、電費，打印紙、可移動磁盤等開支；其它費用：系統(tǒng)的效益可以從經(jīng)濟效益和社會效益兩方面考慮。本系統(tǒng)是由內(nèi)部人員開發(fā)，開發(fā)費用(fi yong)較低。系統(tǒng)維護費用也相對較低。所以本系統(tǒng)在經(jīng)濟上是可行的。開發(fā)工具3.2.1開發(fā)工具簡介(jin ji)現(xiàn)在(xinzi)，市場上可以選購的應(yīng)用開發(fā)產(chǎn)品很多，流行的也

17、有數(shù)十種。目前在我國市場上最為流行、使用最多、最為先進的可用作企業(yè)級開發(fā)工具的產(chǎn)品有：Microsoft公司的Visual BasicMicrosoft公司的Visual CBorland公司的Delphi Powersoft公司的PowerBuliderJava等等在目前市場上這些眾多的程序開發(fā)工具中，有些強調(diào)編程語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高，各有各的優(yōu)點和特色，也滿足了不同用戶的需求。然而，語言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動作必需要耗費數(shù)倍的工夫來處理，使得原來所標(biāo)榜的效率提高的

18、優(yōu)點失去了作用；相反，如果只強調(diào)程語言的彈性，卻沒有便利的工具作配合，會使一些即使非常簡單的界面處理動作，也會嚴重地浪費程序設(shè)計師的寶貴時間。作為數(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ā)工具具有很多長處：Visual Basic是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā)Windows環(huán)

19、境下的種類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且(r qi)程序開發(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)、對象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。3.2.2 Visual Basic特點(tdin)1、可視化編程：用傳統(tǒng)程序設(shè)計語言設(shè)計程序時，都是通過編寫程序代碼

20、來設(shè)計用戶界面，在設(shè)計過程中看不到界面的實際顯示效果，必須編譯后運行程序才能觀察。如果對界面的效果不滿意，還要回到程序中修改(xigi)。有時候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。Visual Basic提供了可視化設(shè)計工具，把Windows界面設(shè)計的復(fù)雜性“封裝”起來，開發(fā)人員不必為界面設(shè)計而編寫大量程序代碼。只需要按設(shè)計要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對象，并設(shè)置這些圖形對象的屬性。Visual Basic自動產(chǎn)生界面設(shè)計代碼，程序設(shè)計人員只需要編寫實現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計的效率。2、面向?qū)ο蟮某绦?/p>

21、設(shè)計4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計(chn x sh j)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計語言(C+)不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計語言中，對象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法(OOP)，把程序和數(shù)據(jù)封裝起來作為一個對象，并為每個對象賦予應(yīng)有的屬性，使對象成為實在的東西。在設(shè)計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，Visual Basic自動生成對象的程序代碼并封裝起來。每個對象以圖形方式顯示在界面上，都是可視的。3、結(jié)構(gòu)化程序設(shè)計(shj)語言Visual Basic

22、是在BASIC語言的基礎(chǔ)上發(fā)展起來的，具有高級程序設(shè)計語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。Visual Basic語句簡單易懂，其編輯器支持彩色代碼，可自動進行語法錯誤檢查，同時具有功能強大且使用(shyng)靈活的調(diào)試器和編譯器。Visual Basic是解釋型語言，在輸入代碼的同時，解釋系統(tǒng)將高級語言分解翻譯成計算機可以識別的機器指令，并判斷每個語句的語法錯誤。在設(shè)計Visual Basic程序的過程中，隨時可以運行程序，而在整個程序設(shè)計好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運行。4、事件驅(qū)動編程機制Visu

23、al Basic通過事件來執(zhí)行對象的操作。一個對象可能會產(chǎn)生多個事件，每個事件都可以通過一段程序來響應(yīng)。例如，命令按鈕是一個對象，當(dāng)用戶單擊該按鈕時，將產(chǎn)生一個“單擊“(CLICK)事件，而在產(chǎn)生該事件時將執(zhí)行一段程序，用來實現(xiàn)指定的操作。在用Visual Basic設(shè)計大型應(yīng)用軟件時，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個微小的子程序，即過程。這些過程分別面向不同的對象，由用戶操作引發(fā)(yn f)某個事件來驅(qū)動完成某種特定的功能，或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。5、訪問(fngwn)數(shù)據(jù)庫Visual Basic具有強大的數(shù)據(jù)庫管理功

24、能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫，并提供了強大的數(shù)據(jù)存儲和檢索功能。同時，Visual Basic還能直接編輯和訪問(fngwn)其他外部數(shù)據(jù)庫，如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫格式都可以用Visual Basic編輯和處理。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ù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫

25、訪問的加鎖機制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編程技術(shù)，為單機上運行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實現(xiàn)客戶/服務(wù)器(client/server)方案。6、動態(tài)數(shù)據(jù)交換(DDE)利用動態(tài)數(shù)據(jù)交換(Dynamic Data Exchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動態(tài)地鏈接到另一種應(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)用程序之間進行通信。7、對象(duxing)的鏈接與嵌入(OLE

26、)對象的鏈接與嵌入(OLE)將每個應(yīng)用程序都看做是一個(y )對象(object)，將不同的對象鏈接(link)起來，再嵌入(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)用程序完全相同的操作。8、動態(tài)鏈接庫(DLL)V

27、isual Basic是一種高級程序設(shè)計語言，不具備低級語言的功能，對訪問機器硬件(yn jin)的操作不太容易實現(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)函數(shù)，實現(xiàn)SDK所具有的功能。微軟公司的Visual Basic 6.0是Windows應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面

28、設(shè)計過程，從而有效的提高了應(yīng)用程序的運行效率和可靠性。故而，實現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。3.2.3 Visual Basic 系統(tǒng)在程序應(yīng)用中的常用(chn yn)名詞Visual Basic 系統(tǒng)除了一般高級語言所具有的一些(yxi)名詞術(shù)語外，還有幾個系統(tǒng)常用的名詞。其基本含義如下：視窗（Form）視窗是進行人機交互的界面或接口(ji ku)，也叫窗體。VB系統(tǒng)的人機交互界面或接口，無論是在設(shè)計時或是在運行時，都是Windows 系統(tǒng)的標(biāo)準(zhǔn)視窗。對象 (Object)對象是VB系統(tǒng)內(nèi)部提供給設(shè)計者可以直接使用的處理輸出的控制工具。本程序所應(yīng)用到的對象類型有標(biāo)簽框 (Label Bo

29、x)，文本框 (Text Box)，命令按扭 (Command Button)，網(wǎng)格 (Data Grid)，ADO控件 (Adodc1)等。當(dāng)把這些工具放置到用戶界面對應(yīng)的窗體上時，被稱為對象或控件。用戶可以通過設(shè)置對象的“屬性”和“方法”，便于對象適應(yīng)自己所設(shè)計應(yīng)用程序的輸入輸出內(nèi)容，對象的生成過程及結(jié)構(gòu)都被封裝起來。正確使用對象可以減少程序和開發(fā)時間，提高程序設(shè)計者的工作效率。屬性 (Properties)屬性是VB系統(tǒng)提供的有關(guān)對象的參數(shù)或數(shù)據(jù)接口。用戶通過適當(dāng)?shù)卦O(shè)置或改變對象的屬性來確定對象的外觀及性能特征，從而有效地使用系統(tǒng)提供的對象。比如，對象的名稱、在屏幕上顯示的位置、大小、顏

30、色、接收或容納的數(shù)據(jù)內(nèi)容及數(shù)據(jù)的表現(xiàn)格式等。事件 (Events)事件是指用戶或操作者對計算機進行的某一操作（如擊鍵、單擊或移動鼠標(biāo)等）的行為或系統(tǒng)狀態(tài)發(fā)生的變化。VB系統(tǒng)常用事件來引導(dǎo)計算機執(zhí)行一段程序。程序所用的鍵盤事件有KeyPress（按鍵）事件，KeyDown事件和KeyUp事件；鼠標(biāo)事件有Click（單擊鼠標(biāo)）事件，DbDlicd（雙擊鼠標(biāo)）。方法 (Method)方法(fngf)主要是指對一個對象使用某種作用的過程。它是在程序執(zhí)行的過程中要計算機執(zhí)行的某種操作。其程序的方法有Show（顯示）方法，Hide（隱藏）方法，Refresh（刷新）方法。過程(guchng) (Proce

31、dure)過程是指經(jīng)過定義或說明(shumng)的，或基于某一對象對應(yīng)的事件所引發(fā)的程序段。模塊 (Module)模塊是指一些運算量或過程進行聲明或定義的一個集合。系統(tǒng)程序大體可分成四個模塊：數(shù)據(jù)輸入、根據(jù)查詢、數(shù)據(jù)打印和通訊。 3.2.3 數(shù)據(jù)庫介紹關(guān)系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最流行的數(shù)據(jù)庫，他應(yīng)用數(shù)學(xué)方法來處理數(shù)據(jù)庫數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。20世紀70年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。 關(guān)系數(shù)據(jù)庫系統(tǒng)與非關(guān)系數(shù)據(jù)庫系統(tǒng)的區(qū)別是：關(guān)系系統(tǒng)只有“表“這一種數(shù)據(jù)結(jié)構(gòu)；而非關(guān)系數(shù)據(jù)庫系統(tǒng)還有其他數(shù)據(jù)結(jié)構(gòu)，對這些數(shù)

32、據(jù)結(jié)構(gòu)有其他的操作。結(jié)構(gòu)化查詢語言SQL（Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括查詢、操縱、定義和控制四個方面，是一個通用的、功能極強的關(guān)系數(shù)據(jù)庫語言。目前已成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言MicrosoftAccess介紹:Access2000 就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access 允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)

33、存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強大功能。數(shù)據(jù)庫連接方式(fngsh)選擇：Visual basic6.0連接數(shù)據(jù)庫的主要方式以下(yxi)幾種方式：一是：用data控件進行(jnxng)數(shù)據(jù)庫鏈接 ，二是利用adodc（ADO Data Control)進行數(shù)據(jù)庫鏈接 。三是: 利用DataEnvironment進行數(shù)據(jù)庫鏈接.四是利用ADO(Act

34、iveX Data Objects)進行編程技術(shù)應(yīng)用介紹：用data控件進行數(shù)據(jù)庫鏈接.第一步：給窗體添加一個Data控件。第二步：用Access建立一個名為Pad的數(shù)據(jù)庫，在庫中建立一個表Myset，給表添加四個字段：backcolor（數(shù)據(jù)），forecolor(文本），fontname(文本）,fontsize（文本）。注意：請將庫文件存入程序所在目錄。如果你的機器沒安裝有Access，可通過VB建庫。利用adodc（ADO Data Control)進行數(shù)據(jù)庫鏈接：使用adodata控件訪問數(shù)據(jù)庫可以完全不用編寫代碼,只需要通過簡單的設(shè)置和操作其屬性就可以實現(xiàn)與數(shù)據(jù)庫的連接,通過綁定數(shù)

35、據(jù)感知控件,就能提供一個訪問數(shù)據(jù)庫的界面,用來實現(xiàn)對數(shù)據(jù)庫的瀏覽,貼加,刪除,修改等操作.三是: 利用(lyng)DataEnvironment進行數(shù)據(jù)庫鏈接利用(lyng)DataEnvironment可以(ky)方便的對數(shù)據(jù)庫進行鏈接，并為報表的建立做準(zhǔn)備。四是：利用ADO(ActiveX Data Objects)進行編程ADO是Mcrosoft提出的第三種數(shù)據(jù)庫訪問對象，是Microsoft數(shù)據(jù)庫訪問技術(shù)的一個主要發(fā)展方向，ADO將OLE DB封裝在一個數(shù)據(jù)對象中，使得VB程序中以方便地實現(xiàn)對數(shù)據(jù)庫的訪問。系統(tǒng)(xtng)設(shè)計系統(tǒng)設(shè)計(shj)分析4.1.1業(yè)務(wù)(yw)流程圖人事部門人

36、員變動單報表人員獎勵單人員懲罰單工資發(fā)放情況單工資發(fā)放人員決策部門財務(wù)部門人事部門人員變動統(tǒng)計員工財務(wù)部門人員獎勵統(tǒng)計人員懲罰統(tǒng)計工資發(fā)放工資臺帳4.1.2 數(shù)據(jù)(shj)流程圖公司員工工資管理系統(tǒng)員工基本信息員工獎勵管理信息查詢員工懲罰管理報表打印工資發(fā)放管理員工基本信息報表員工獎勵信息報表 員工懲罰信息報表工資發(fā)放信息報表添加用戶用戶管理幫助操作說明關(guān)于系統(tǒng)刪除用戶用戶登錄4.1.3 功能(gngnng)結(jié)構(gòu)圖系統(tǒng)(xtng)數(shù)據(jù)庫設(shè)計啟動Access 2000，創(chuàng)建新的數(shù)據(jù)庫，命名為數(shù)據(jù)庫.mdb，保存(bocn)在要存放這個系統(tǒng)所有工程文件的文件夾中。在使用的時，要把應(yīng)用程序和這個數(shù)據(jù)

37、庫保存在同一個文件夾中。 數(shù)據(jù)庫是信息管理系統(tǒng)的后臺，存儲(cn ch)著所有的信息，在信息管理系統(tǒng)中有著很重要的地位。數(shù)據(jù)庫設(shè)計的好與壞，直接影響到這個系統(tǒng)的運行效率。良好的數(shù)據(jù)庫設(shè)計，可以提高數(shù)據(jù)信息的存儲效率，確保數(shù)據(jù)信息的完整性和一致性。設(shè)計數(shù)據(jù)庫系統(tǒng)時首先充分了解用戶各個方面的需求，包括現(xiàn)有的及將來可能增加的要求數(shù)據(jù)庫需求分析用戶的需求具體體現(xiàn)在各種信息的提供，保存，更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入，收集基本數(shù)據(jù)，數(shù)據(jù)結(jié)構(gòu)，以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計打下基礎(chǔ)經(jīng)過系統(tǒng)功能分析和需求總結(jié)及通過對員工工資計算過程的內(nèi)容分析，考慮

38、到將來功能上的擴展，設(shè)計如下面所示的數(shù)據(jù)庫及數(shù)據(jù)表數(shù)據(jù)庫用戶(yngh)信息表（用戶資料）字段名數(shù)據(jù)類型字段大小可否為空默認值說明ID自動編號長整形索引（無重復(fù)）用戶名文本8密碼文本16員工基本(jbn)信息表（XX表）字段名數(shù)據(jù)類型字段大小可否為空默認值說明ID數(shù)字長整形是0索引姓名文本16性別自動編號長整形職務(wù)文本身份證號文本工資數(shù)字部門ID文本員工獎勵(jingl)信息表（獎勵表）字段名數(shù)據(jù)類型字段大小可否為空默認值說明ID數(shù)字長整形是0索引（無重復(fù)）姓名文本16性別文本職務(wù)文本獎勵原因文本獎勵金額數(shù)字獎勵日期日期/時間備注文本員工懲罰(chngf)信息表（懲罰表）字段名數(shù)據(jù)類型字段大小

39、可否為空默認值說明ID數(shù)字長整形是0索引（無重復(fù)）姓名文本16性別文本職務(wù)文本懲罰原因文本懲罰金額數(shù)字懲罰日期日期/時間備注文本數(shù)據(jù)庫的安全性、完整性、并發(fā)控制(kngzh)和恢復(fù)信息數(shù)據(jù)是公司的資源，因此保證數(shù)據(jù)庫的安全可靠、正確有效(yuxio)是非常重要的問題。一般的數(shù)據(jù)庫管理系統(tǒng)（DBMS）都有提供(tgng)了一定的數(shù)據(jù)保護功能。數(shù)據(jù)庫保護也稱為數(shù)據(jù)控制，主要包括數(shù)據(jù)的安全性、完整性、并發(fā)控制和數(shù)據(jù)庫的恢復(fù)等。（1）數(shù)據(jù)庫的安全性 數(shù)據(jù)庫的安全性是指保護數(shù)據(jù)庫以防止不合法的使用所造成的數(shù)據(jù)泄露、更改或破壞。由于數(shù)據(jù)庫系統(tǒng)中存放著大量的數(shù)據(jù)，且為許多用戶所共享，因此安全性問題是必須首先

40、要解決的。一般計算機系統(tǒng)中的安全措施是按照“用戶標(biāo)識和鑒別”、“DBMS存取控制”、“OS級安全控制”、“DB密碼存儲”來一級一級設(shè)置的。在現(xiàn)在流行的數(shù)據(jù)庫系統(tǒng)中一般(ybn)都提供以下兩種控制：用戶標(biāo)識和鑒別、數(shù)據(jù)存取控制。 （2）數(shù)據(jù)完整性為了保證(bozhng)數(shù)據(jù)庫數(shù)據(jù)的正確性和相容性，數(shù)據(jù)庫管理系統(tǒng)（DBMS）都提供了一種機制來檢查(jinch)數(shù)據(jù)庫中的數(shù)據(jù)，看它是否滿足語義的規(guī)定條件，DBMS稱這種機制為“數(shù)據(jù)完整性檢查”。一般的DBMS中是通過完整性約束和數(shù)據(jù)庫觸發(fā)器來實現(xiàn)這一機制的。（3）并發(fā)控制在多用戶數(shù)據(jù)庫環(huán)境中，多個用戶程序可并行存取數(shù)據(jù)庫中的數(shù)據(jù)，為了以正確的方式調(diào)度

41、該并發(fā)操作，避免造成“丟失修改”、“不能重讀”、“讀臟數(shù)據(jù)”等不一致的情況，DBMS引入了“并發(fā)控制”這一機制。并發(fā)控制的主要方法是采用封鎖機制，一般采用兩種封鎖機制：共享機制和排它機制來實現(xiàn)。（4）數(shù)據(jù)庫后備與恢復(fù)主要使用轉(zhuǎn)儲、日志等方法進行數(shù)據(jù)庫的恢復(fù)。用戶界面設(shè)計用戶界面是指軟件系統(tǒng)與用戶之間交互的接口，通常包括輸出，輸入，人機對話的界面與方式等。由于本系統(tǒng)的最終用戶是那些對計算機技術(shù)并不算很精通的管理人員，因此本系統(tǒng)采用了基于菜單選擇，填寫表格和簡單的問答選擇等友好的用戶界面交互方式。系統(tǒng)安全性驗證用戶界面設(shè)計用戶登錄窗口界面是用戶看到的第一幅畫面，也是進入系統(tǒng)之前必須經(jīng)過的一道“關(guān)口

42、”。因此，簡潔、實用、友好是設(shè)計時應(yīng)當(dāng)考慮到的風(fēng)格。系統(tǒng)主畫面屏幕區(qū)域設(shè)計進行系統(tǒng)的主畫面屏幕區(qū)域設(shè)計時，是將整個屏幕劃分為三個區(qū)域，如下圖所示：主 菜 單 區(qū)工 作 區(qū)狀 態(tài) 信 息 區(qū)在屏幕的最上方是主菜單區(qū)，顯示本系統(tǒng)(xtng)的功能主菜單。用戶可以有鼠標(biāo)左鍵來選擇相應(yīng)的菜單，也可以用快捷鍵進行操作，然后用同樣的方法在相應(yīng)菜單下拉出該項的二級菜單（如果有的話），如果還有三級菜單，用戶可在二級菜單選擇相應(yīng)的功能項，系統(tǒng)會自動彈出三級菜單。系統(tǒng)(xtng)的設(shè)計與實現(xiàn)4.3.1用戶(yngh)登錄窗體代碼Option ExplicitDim myCn As adodb.Connection

43、Dim myRs As adodb.RecordsetDim Sum As IntegerPrivate Sub Combo1_Click()Combo1.SetFocusCombo1.SelStart = 0Combo1.SelLength = Len(Combo1.Text)End SubPrivate Sub Command1_Click()Dim str1 As StringIf Sum = 3 Then Unload Me 設(shè)置最多登錄(dn l)次數(shù)為3 Exit SubEnd If Set myCn = New adodb.ConnectionSet myRs = New ado

44、db.RecordsetmyCn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 數(shù)據(jù)庫.mdb;If Trim(Combo1.Text = ) Then MsgBox 用戶名不能為空,請輸入您的用戶名!, vbOKOnly + vbExclamation, 警告(jnggo) Combo1.SetFocus Text2.Text = myCn.Close Sum = Sum + 1 Exit SubEnd Ifstr1 = select * from 用戶(yngh)資料 where 用戶名= & Combo1.

45、Text & myRs.Open str1, myCnIf myRs.EOF = True Then MsgBox 該用戶名不存在,請重新輸入(shr)!, vbOKOnly + vbExclamation, 警告 Combo1.SetFocus Combo1.Text = Text2.Text = myRs.Close myCn.Close Sum = Sum + 1 Exit SubEnd IfIf myRs.Fields(密碼(m m) Trim(Text2.Text) Then MsgBox 密碼不正確,請重新輸入!, vbOKOnly + vbExclamation, 警告 Text

46、2.SetFocus myRs.Close myCn.Close Sum = Sum + 1 Exit SubEnd If myRs.ClosemyCn.CloseUnload MeForm9.ShowEnd SubPrivate Sub Command2_Click()Dim a1 As Integera1 = MsgBox(確定要退出系統(tǒng)(xtng)嗎？, vbYesNo, 請問)If a1 = 6 Then Unload MeElse Combo1.Text = Text2.Text = Combo1.SetFocusEnd IfEnd SubPrivate Sub Form_Load(

47、)Form1.Top = 0Form1.Left = (Screen.Width - Form1.Width) / 2Set myCn = New adodb.ConnectionSet myRs = New adodb.Recordset Sum = 0 Combo1.Text = Text2.Text = myCn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 數(shù)據(jù)庫.mdb;Persist Security Info=FalsemyCn.OpenmyRs.Open select

48、* from 用戶(yngh)資料 order by 用戶名 , myCn, adOpenKeyset, adLockPessimisticmyRs.MoveFirstDo Until myRs.EOFCombo1.AddItem Trim(myRs(用戶名)Combo1.ItemData(Combo1.NewIndex) = myRs(ID)myRs.MoveNextLoopEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then Text2.SetFocusEnd I

49、fEnd SubPrivate Sub Text2_Click()Text2.SetFocusText2.SelStart = 0Text2.SelLength = Len(Text2.Text)End Sub4.3.2添加(tin ji)用戶窗體代碼(di m):Dim myCn As New adodb.ConnectionDim myRs As New adodb.RecordsetPrivate Sub Command1_Click()Dim strName, strPass, strPassAgain As String strName = Trim(Text1.Text) strP

50、ass = Trim(Text2.Text) strPassAgain = Trim(Text3.Text)If strName = Or strPass = Or strPassAgain = Then MsgBox 請?zhí)顚?tinxi)完整所有資料！, vbOKOnly, 警告 Text1.SetFocus Exit SubEnd IfmyCn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=數(shù)據(jù)庫.mdb;myRs.Open select * from 用戶(yngh)資料 where 用戶名= & strName & , myCnIf

51、 Not myRs.EOF Then Text1.SetFocus MsgBox 該用戶名已經(jīng)存在，請使用(shyng)其他用戶名！, vbOKOnly, 警告 myRs.Close myCn.Close Exit SubEnd IfIf strPass strPassAgain Then MsgBox 兩次輸入(shr)的密碼不同！, vbOKOnly, 警告 Text3.SetFocus myRs.Close myCn.Close Exit SubEnd IfmyRs.ClosemyRs.CursorType = adOpenKeysetmyRs.LockType = adLockOpti

52、misticmyRs.Open 用戶資料, myCn, 3, 2myRs.AddNewmyRs!用戶名 = Text1.TextmyRs!密碼(m m) = Text2.TextmyRs.UpdatemyRs.ClosemyCn.CloseMsgBox 注冊成功(chnggng)！, vbOKOnly, 提示Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command2_Click()Form11.HideEnd SubPrivate Sub Form_Load()Form11.Top = 0Form11.Left = (S

53、creen.Width - Form11.Width) / 2Dim snow(1 To 325, 0 To 2)Me.BackColor = 0Me.ShowDoEventsRandomize: amounty = 325For j = 1 To amountysnow(j, 0) = Int(Rnd * Form1.Width) Xsnow(j, 1) = Int(Rnd * Form1.Height) Ysnow(j, 2) = 10 + (Rnd * 20) 位移(wiy)量1030波動(用于控制速度)Next jDo While DoEvents 0For i = 1 To amou

54、nty 循環(huán)(xnhun)325次,每朵雪1次,屏幕每行325朵雪花oldx = snow(i, 0): oldy = snow(i, 1) 備份(bi fn)雪花i的坐標(biāo)snow(i, 1) = snow(i, 1) + snow(i, 2) 雪花(xuhu)i的Y座標(biāo)變一次If snow(i, 1) Form1.Height Then 如果雪花i落到最底部snow(i, 1) = 0 雪花i的Y座標(biāo)置0(又從最上出現(xiàn))snow(i, 2) = 5 + (Rnd * 30) 雪花i重算1個新的Y位移(速度)snow(i, 0) = Int(Rnd * Form1.Width) 雪花i重算1個

55、新的水平位置oldx = 0: oldy = 0 備份坐標(biāo)置0End IfColoury = 8 * (snow(i, 2) - 10) + 60 計算顏色，值為60220或60260PSet (oldx, oldy), QBColor(0) 在舊位置擦除雪花iPSet (snow(i, 0), snow(i, 1), RGB(Coloury, Coloury, Coloury) 在新位置畫雪花，顏色為灰白Next iLoopEnd SubPrivate Sub Text2_Click()Text2.SetFocusText2.SelStart = 0Text2.SelLength = Len

56、(Text2.Text)End SubPrivate Sub Text3_Click()Text3.SetFocusText3.SelStart = 0Text3.SelLength = Len(Text3.Text)End SubPrivate Sub Text1_Click()Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub4.3.3刪除(shnch)用戶窗體代碼(di m)Option ExplicitDim cn As adodb.ConnectionDim rs As adodb.Reco

57、rdsetPrivate Sub Command1_Click()rs.Deleters.UpdateEnd SubPrivate Sub Command2_Click()Form12.HideEnd SubPrivate Sub Command3_Click()List1.AddItem 本次(bn c)查看的起始位置：rs.MoveFirstDo Until rs.EOF List1.AddItem Trim(rs(用戶名) List1.ItemData(List1.NewIndex) = rs(ID) rs.MoveNextLoopEnd SubPrivate Sub Form_Load

58、()Form12.Top = 0Form12.Left = (Screen.Width - Form12.Width) / 2Set cn = New adodb.ConnectionSet rs = New adodb.Recordsetcn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 數(shù)據(jù)庫.mdb;Persist Security Info=Falsecn.Openrs.Open select * from 用戶(yngh)資料 order by 用戶名 , cn, adOpe

59、nKeyset, adLockPessimisticrs.MoveFirstDo Until rs.EOF List1.AddItem Trim(rs(用戶名) List1.ItemData(List1.NewIndex) = rs(ID) rs.MoveNextLooprs.MoveFirstEnd SubPrivate Sub List1_Click()Dim tempId As LongtempId = List1.ItemData(List1.ListIndex)rs.MoveFirstrs.Find id= & tempIdEnd Sub4.3.4系統(tǒng)的主界面(jimin)的設(shè)計與實

60、現(xiàn)代碼(di m)Private Sub AddUser_Click()Form11.ShowEnd SubPrivate Sub Command1_Click()Form10.ShowEnd SubPrivate Sub Command2_Click()Form3.ShowEnd SubPrivate Sub Command3_Click()Form4.ShowEnd SubPrivate Sub Command4_Click()Form7.ShowEnd SubPrivate Sub Command5_Click()Form8.ShowEnd SubPrivate Sub Command6