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

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

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

3、證明，本公司員工工資管理系統(tǒng)可以極大地提高工作效率，節(jié)省了人力和物力，最終滿足企業(yè)財(cái)務(wù)管理、員工工資發(fā)放的需要，同時(shí)也成為現(xiàn)代化企業(yè)管理的標(biāo)志。關(guān)鍵詞：工資管理 信息管理 數(shù)據(jù)(shj)查詢 數(shù)據(jù)庫(kù)不要(byo)刪除行尾的分節(jié)符，此行不會(huì)被打印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ù)庫(kù)管理系統(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è)計(jì)分析 PAGEREF _Toc255733686 h 2 HYPERLINK l _Toc255733687 第3章 開發(fā)環(huán)境及實(shí)現(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ā)工具簡(jiǎn)介 PAGEREF _Toc255733692 h 4 HYPERLINK l _Toc2

6、55733693 3.2.2 Visual Basic特點(diǎn) 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ù)庫(kù)介紹 PAGEREF _Toc255733695 h 9 HYPERLINK l _Toc255733696 第4章 系統(tǒng)設(shè)計(jì) PAGEREF _Toc255733696 h 12 HYPERLINK l _Toc255733697 4.1 系統(tǒng)設(shè)

7、計(jì)分析 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ù)庫(kù)設(shè)計(jì) PAGEREF _Toc255733701 h 15 HYPERLINK

8、l _Toc255733702 4.3 系統(tǒng)的設(shè)計(jì)與實(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è)計(jì)與實(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 報(bào)表打印窗體 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ǎng)h除行尾的分節(jié)符，此行不會(huì)被打印。在目錄上點(diǎn)右鍵“更新域”，然后“更新整個(gè)目錄”。打印前，不要忘記把上面“Abstract”這一行后加一空行- PAGE 10 - PAGE 58 -緒論(xln)1.1數(shù)據(jù)庫(kù)管理系統(tǒng)數(shù)據(jù)庫(kù)管理系統(tǒng)（DBMS）是指數(shù)據(jù)庫(kù)系統(tǒng)中管理數(shù)據(jù)的軟件系統(tǒng)。DBMS是數(shù)據(jù)庫(kù)系統(tǒng)的核心組成部分。對(duì)數(shù)據(jù)庫(kù)的一切操作，包括定義、更新及各種控制,都是通過DBMS進(jìn)行的。DBMS總是基于某種數(shù)據(jù)模型，可以把DBMS看成是某種數(shù)據(jù)模型在計(jì)算機(jī)系統(tǒng)上的具體實(shí)現(xiàn)。根據(jù)數(shù)據(jù)模型的不同，DBMS可以

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

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

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

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

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

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

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

18、優(yōu)點(diǎn)失去了作用；相反，如果只強(qiáng)調(diào)程語言的彈性，卻沒有便利的工具作配合，會(huì)使一些即使非常簡(jiǎn)單的界面處理動(dòng)作，也會(huì)嚴(yán)重地浪費(fèi)程序設(shè)計(jì)師的寶貴時(shí)間。作為數(shù)據(jù)庫(kù)系統(tǒng)的開發(fā)，Visual Basic是一個(gè)非常理想選擇。數(shù)據(jù)庫(kù)是MIS中的重要支持技術(shù)，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫(kù)管理是一個(gè)重要的問題，目前，數(shù)據(jù)庫(kù)產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在選擇數(shù)據(jù)庫(kù)時(shí)，應(yīng)考慮數(shù)據(jù)庫(kù)應(yīng)用的特點(diǎn)及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫(kù)語言Visual Basic語言，該開發(fā)工具具有很多長(zhǎng)處：Visual Basic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開發(fā)Windows環(huán)

19、境下的種類應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且(r qi)程序開發(fā)人員不必具有C/C+編程基礎(chǔ)。在Visual Basic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動(dòng)態(tài)鏈接庫(kù)(DLL)、動(dòng)態(tài)數(shù)據(jù)交換(DDE)、對(duì)象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。3.2.2 Visual Basic特點(diǎn)(tdin)1、可視化編程：用傳統(tǒng)程序設(shè)計(jì)語言設(shè)計(jì)程序時(shí)，都是通過編寫程序代碼

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

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

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

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

24、能，利用數(shù)據(jù)控件和數(shù)據(jù)庫(kù)管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫(kù)，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí)，Visual Basic還能直接編輯和訪問(fngwn)其他外部數(shù)據(jù)庫(kù)，如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫(kù)格式都可以用Visual Basic編輯和處理。Visual Basic提供開放式數(shù)據(jù)連接，即ODBC功能，可通過直接訪問或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，如SQL Server，Oracle等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫(kù)，并提供了簡(jiǎn)單的面向?qū)ο蟮膸?kù)操作指令和多用戶數(shù)據(jù)庫(kù)

25、訪問的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的SQL的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫(kù)提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶/服務(wù)器(client/server)方案。6、動(dòng)態(tài)數(shù)據(jù)交換(DDE)利用動(dòng)態(tài)數(shù)據(jù)交換(Dynamic Data Exchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動(dòng)態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動(dòng)態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時(shí)，可以自動(dòng)更新鏈接的數(shù)據(jù)。Visual Basic提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他Windows應(yīng)用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。7、對(duì)象(duxing)的鏈接與嵌入(OLE

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

27、isual Basic是一種高級(jí)程序設(shè)計(jì)語言，不具備低級(jí)語言的功能，對(duì)訪問機(jī)器硬件(yn jin)的操作不太容易實(shí)現(xiàn)。但它可以通過動(dòng)態(tài)鏈接庫(kù)技術(shù)將C/C+或匯編語言編寫的程序加入到Visual Basic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外，通過動(dòng)態(tài)鏈接庫(kù)，還可以調(diào)用Windows應(yīng)用程序接口(API)函數(shù)，實(shí)現(xiàn)SDK所具有的功能。微軟公司的Visual Basic 6.0是Windows應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面

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

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

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

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

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

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

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

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

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

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

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

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

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

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

42、”。因此，簡(jiǎn)潔、實(shí)用、友好是設(shè)計(jì)時(shí)應(yīng)當(dāng)考慮到的風(fēng)格。系統(tǒng)主畫面屏幕區(qū)域設(shè)計(jì)進(jìn)行系統(tǒng)的主畫面屏幕區(qū)域設(shè)計(jì)時(shí)，是將整個(gè)屏幕劃分為三個(gè)區(qū)域，如下圖所示：主 菜 單 區(qū)工 作 區(qū)狀 態(tài) 信 息 區(qū)在屏幕的最上方是主菜單區(qū)，顯示本系統(tǒng)(xtng)的功能主菜單。用戶可以有鼠標(biāo)左鍵來選擇相應(yīng)的菜單，也可以用快捷鍵進(jìn)行操作，然后用同樣的方法在相應(yīng)菜單下拉出該項(xiàng)的二級(jí)菜單（如果有的話），如果還有三級(jí)菜單，用戶可在二級(jí)菜單選擇相應(yīng)的功能項(xiàng)，系統(tǒng)會(huì)自動(dòng)彈出三級(jí)菜單。系統(tǒng)(xtng)的設(shè)計(jì)與實(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ù)庫(kù).mdb;If Trim(Combo1.Text = ) Then MsgBox 用戶名不能為空,請(qǐng)輸入您的用戶名!, 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 該用戶名不存在,請(qǐng)重新輸入(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 密碼不正確,請(qǐng)重新輸入!, 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, 請(qǐng)問)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ù)庫(kù).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 請(qǐng)?zhí)顚?tinxi)完整所有資料！, vbOKOnly, 警告 Text1.SetFocus Exit SubEnd IfmyCn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=數(shù)據(jù)庫(kù).mdb;myRs.Open select * from 用戶(yngh)資料 where 用戶名= & strName & , myCnIf

51、 Not myRs.EOF Then Text1.SetFocus MsgBox 該用戶名已經(jīng)存在，請(qǐ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 注冊(cè)成功(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波動(dòng)(用于控制速度)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個(gè)新的Y位移(速度)snow(i, 0) = Int(Rnd * Form1.Width) 雪花i重算1個(gè)

55、新的水平位置oldx = 0: oldy = 0 備份坐標(biāo)置0End IfColoury = 8 * (snow(i, 2) - 10) + 60 計(jì)算顏色，值為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ù)庫(kù).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è)計(jì)與實(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