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

2、，企業員工的工資是企業資金管理的一個重要的組成部分。早期的工資統計和發放都是使用人工方式處理紙質材料，不僅花費財務人員大量的時間且不易保存和查詢，往往由于個人的因素抄寫不慎或計算疏忽，出現工資發放錯誤的現象。基于以上原因，公司員工工資管理系統使用電腦安全保存、快速計算、全面統計，實現工資管理的系統化、規范化、自動化。公司員工工資管理系統是典型的信息管理系統（MIS），前臺程序開發工具采用(ciyng)微軟的VB6，后臺數據庫采用Access數據庫。VB6是一種面向對象的開發工具，具有組件豐富、語言簡單、功能強大的優點。 Access數據庫具有與VB6無縫連接、操作簡單、易于使用的優點。運行結果

3、證明，本公司員工工資管理系統可以極大地提高工作效率，節省了人力和物力，最終滿足企業財務管理、員工工資發放的需要，同時也成為現代化企業管理的標志。關鍵詞：工資管理 信息管理 數據(shj)查詢 數據庫不要(byo)刪除行尾的分節符，此行不會被打印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數據庫管理系統 PAGEREF _Toc255733684 h 1 HYPERLINK l _Toc255733685 1.2公司(n s)員工工資管理系統 PAGEREF _Toc255733685 h 1 HYPERLINK l _Toc255733686 第2章 企業(qy)工資管理系統設計分析 PAGEREF _Toc255733686 h 2 HYPERLINK l _Toc255733687 第3章 開發環境及實現技術 PAGEREF _Toc255733687 h 3 HYPERLINK l _Toc255733688 3.1 開發環境 PAGEREF _T

5、oc255733688 h 3 HYPERLINK l _Toc255733689 3.1.1本系統開發需求的軟件環境： PAGEREF _Toc255733689 h 3 HYPERLINK l _Toc255733690 3.1.2本系統開發需求的硬件環境： PAGEREF _Toc255733690 h 3 HYPERLINK l _Toc255733691 3.2 開發工具 PAGEREF _Toc255733691 h 4 HYPERLINK l _Toc255733692 3.2.1開發工具簡介 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 系統在程序應用中的常用名詞 PAGEREF _Toc255733694 h 8 HYPERLINK l _Toc255733695 3.2.3 數據庫介紹 PAGEREF _Toc255733695 h 9 HYPERLINK l _Toc255733696 第4章 系統設計 PAGEREF _Toc255733696 h 12 HYPERLINK l _Toc255733697 4.1 系統設

7、計分析 PAGEREF _Toc255733697 h 12 HYPERLINK l _Toc255733698 4.1.1業務流程圖 PAGEREF _Toc255733698 h 12 HYPERLINK l _Toc255733699 4.1.2 數據流程圖 PAGEREF _Toc255733699 h 13 HYPERLINK l _Toc255733700 4.1.3 功能結構圖 PAGEREF _Toc255733700 h 14 HYPERLINK l _Toc255733701 4.2 系統數據庫設計 PAGEREF _Toc255733701 h 15 HYPERLINK

8、l _Toc255733702 4.3 系統的設計與實現 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系統的主界面的設計與實現 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工資發放信息查詢窗體 PAGEREF _Toc255733709 h 51 HYPERLINK l _Toc255733710 4.3.7 其它窗體 PAGEREF _Toc255733710 h 55 HYPERLINK l

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

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

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

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

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

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

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

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

18、優點失去了作用；相反，如果只強調程語言的彈性，卻沒有便利的工具作配合，會使一些即使非常簡單的界面處理動作，也會嚴重地浪費程序設計師的寶貴時間。作為數據庫系統的開發，Visual Basic是一個非常理想選擇。數據庫是MIS中的重要支持技術，在MIS開發過程中，如何選擇數據庫管理是一個重要的問題，目前，數據庫產品較多，每種產品都具有各自的特點和適用范圍，因此，在選擇數據庫時，應考慮數據庫應用的特點及適用范圍，本系統選用的數據庫語言Visual Basic語言，該開發工具具有很多長處：Visual Basic是一種可視化的、面對對象和條用事件驅動方式的結構化高級程序設計，可用于開發Windows環

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

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

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

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

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

24、能，利用數據控件和數據庫管理窗口，可以直接建立或處理Microsoft Access格式的數據庫，并提供了強大的數據存儲和檢索功能。同時，Visual Basic還能直接編輯和訪問(fngwn)其他外部數據庫，如dBASE，FoxPro，Paradox等，這些數據庫格式都可以用Visual Basic編輯和處理。Visual Basic提供開放式數據連接，即ODBC功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網絡數據庫，如SQL Server，Oracle等。在應用程序中，可以使用結構化查詢語言SQL數據標準，直接訪問服務器上的數據庫，并提供了簡單的面向對象的庫操作指令和多用戶數據庫

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

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

27、isual Basic是一種高級程序設計語言，不具備低級語言的功能，對訪問機器硬件(yn jin)的操作不太容易實現。但它可以通過動態鏈接庫技術將C/C+或匯編語言編寫的程序加入到Visual Basic應用程序中，可以像調用內部函數一樣調用其他語言編寫的函數。此外，通過動態鏈接庫，還可以調用Windows應用程序接口(API)函數，實現SDK所具有的功能。微軟公司的Visual Basic 6.0是Windows應用程序開發工具，使目前最為廣泛的、易學易用的面向對象的開發工具。Visual Basic提供了大量的控件，這些控件可用于設計界面和實現各種功能，減少了編程人員的工作量，也簡化了界面

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

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

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

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

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

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

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

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

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

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

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

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

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

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

42、”。因此，簡潔、實用、友好是設計時應當考慮到的風格。系統主畫面屏幕區域設計進行系統的主畫面屏幕區域設計時，是將整個屏幕劃分為三個區域，如下圖所示：主 菜 單 區工 作 區狀 態 信 息 區在屏幕的最上方是主菜單區，顯示本系統(xtng)的功能主菜單。用戶可以有鼠標左鍵來選擇相應的菜單，也可以用快捷鍵進行操作，然后用同樣的方法在相應菜單下拉出該項的二級菜單（如果有的話），如果還有三級菜單，用戶可在二級菜單選擇相應的功能項，系統會自動彈出三級菜單。系統(xtng)的設計與實現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 設置最多登錄(dn l)次數為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 & 數據庫.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(確定要退出系統(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 & 數據庫.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 請填寫(tinxi)完整所有資料！, vbOKOnly, 警告 Text1.SetFocus Exit SubEnd IfmyCn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=數據庫.mdb;myRs.Open select * from 用戶(yngh)資料 where 用戶名= & strName & , myCnIf

51、 Not myRs.EOF Then Text1.SetFocus MsgBox 該用戶名已經存在，請使用(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 循環(xnhun)325次,每朵雪1次,屏幕每行325朵雪花oldx = snow(i, 0): oldy = snow(i, 1) 備份(bi fn)雪花i的坐標snow(i, 1) = snow(i, 1) + snow(i, 2) 雪花(xuhu)i的Y座標變一次If snow(i, 1) Form1.Height Then 如果雪花i落到最底部snow(i, 1) = 0 雪花i的Y座標置0(又從最上出現)snow(i, 2) = 5 + (Rnd * 30) 雪花i重算1個新的Y位移(速度)snow(i, 0) = Int(Rnd * Form1.Width) 雪花i重算1個

55、新的水平位置oldx = 0: oldy = 0 備份坐標置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 & 數據庫.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系統的主界面(jimin)的設計與實

60、現代碼(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