企業(yè)工資管理系統(tǒng)文檔

1、工資管理系統(tǒng)摘 要 本系統(tǒng)基本上能夠滿足現(xiàn)代化企業(yè)工資管理的需求。 現(xiàn)代化工資管理系統(tǒng)中 使用了各種表格，保存相關(guān)的工資信息，方便查詢，瀏覽，修改等操作。本系統(tǒng)的前 提條件是必須有員工的考勤信息作為基礎(chǔ)， 因?yàn)楸鞠到y(tǒng)是使用員工考勤信息來(lái)計(jì)算員 工的工資 ，在使用的時(shí)候必須要保證員工的人事信息數(shù)據(jù)庫(kù)和工資數(shù)據(jù)庫(kù)在同一個(gè) 文件夾中。本系統(tǒng)結(jié)合實(shí)際的人事、財(cái)務(wù)制度，經(jīng)過(guò)實(shí)際的需求分析，采用功能強(qiáng)大的 VB 作為開(kāi)發(fā)工具、 Access 作為數(shù)據(jù)庫(kù)開(kāi)發(fā)出來(lái)的企業(yè)工資管理系統(tǒng)。本文首先分析了 企業(yè)工資管理系統(tǒng)的應(yīng)用現(xiàn)狀， 闡述了本工資管理系統(tǒng)的開(kāi)發(fā)目的。 通過(guò)對(duì)數(shù)據(jù)庫(kù)技 術(shù)的現(xiàn)狀與發(fā)展、數(shù)據(jù)庫(kù)系統(tǒng)的選擇

2、原則、系統(tǒng)開(kāi)發(fā)工具的選擇一系列問(wèn)題的分析 , 確定了系統(tǒng)的開(kāi)發(fā)平臺(tái)。 接著詳細(xì)給出了從工資管理系統(tǒng)分析到總體設(shè)計(jì)詳細(xì)設(shè)計(jì)與 實(shí)現(xiàn)及測(cè)試的各個(gè)環(huán)節(jié)， 最后對(duì)本系統(tǒng)作出了客觀評(píng)價(jià)， 指明了系統(tǒng)的現(xiàn)實(shí)意義、 缺 點(diǎn)以及系統(tǒng)的升級(jí)方向。1、 引 言隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展， 計(jì)算機(jī)在企業(yè)管理中的應(yīng)用越來(lái)越普及， 利用計(jì)算 機(jī)實(shí)現(xiàn)企業(yè)工資的管理顯得越來(lái)越重要。 對(duì)于大中型企業(yè)來(lái)說(shuō)， 利用計(jì)算機(jī)支持企業(yè) 高效率完成勞動(dòng)人事管理的日常事務(wù)， 是適應(yīng)現(xiàn)代企業(yè)制度要求、 推動(dòng)企業(yè)勞動(dòng)人事 管理走向科學(xué)化、 規(guī)范化的必要條件； 而工資管理是一項(xiàng)瑣碎、 復(fù)雜而又十分細(xì)致的 工作，工資計(jì)算、發(fā)放、核算的工作量很大，一

3、般不允許出錯(cuò)，如果實(shí)行手工操作， 每月發(fā)放工資須手工填制大量的表格， 這就會(huì)耗費(fèi)工作人員大量的時(shí)間和精力， 計(jì)算 機(jī)進(jìn)行工資發(fā)放工作， 不僅能夠保證工資核算準(zhǔn)確無(wú)誤、 快速輸出，而且還可以利用 計(jì)算機(jī)對(duì)有關(guān)工資的各種信息進(jìn)行統(tǒng)計(jì)，服務(wù)于財(cái)務(wù)部門(mén)其他方面的核算和財(cái)務(wù)處 理，同時(shí)計(jì)算機(jī)具有手工管理所無(wú)法比擬的優(yōu)點(diǎn) . 例如: 檢索迅速、查找方便、可靠性 高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高人事工資管 理的效率 , 也是企業(yè)的科學(xué)化、正規(guī)化管理，與世界接軌的重要條件。企業(yè)的工資管理是公司管理的一個(gè)重要內(nèi)容。 隨著當(dāng)今企業(yè)人員數(shù)量增加， 企業(yè) 的工資計(jì)算也變得越來(lái)越復(fù)雜。

4、如果能夠?qū)崿F(xiàn)工資管理的自動(dòng)化， 無(wú)疑是給企業(yè)管理部門(mén)帶來(lái)很大的方便。資金是企業(yè)生存的主要元素。 資金的流動(dòng)影響到企業(yè)的整體運(yùn)作， 企業(yè)員工的工 資是企業(yè)資金管理的一個(gè)重要的組成部分， 因?yàn)槠髽I(yè)每個(gè)月都要涉及發(fā)放企業(yè)員工工 資的問(wèn)題。企業(yè)員工的人數(shù)越多，工資的統(tǒng)計(jì)工作就越多，工資的發(fā)放困難就越大。 最初的工資統(tǒng)計(jì)和發(fā)放都是使用人工方式處理， 工作的時(shí)候， 出現(xiàn)錯(cuò)誤的機(jī)率也隨之 升高。工資管理系統(tǒng)就是使用電腦代替大量的人工統(tǒng)計(jì)和計(jì)算， 完成眾多工資信息的 處理，同時(shí)使用電腦還可以安全地保存大量的工資記錄。企業(yè)工資管理系統(tǒng)， 為個(gè)人提供工資查詢服務(wù)， 為企業(yè)提供工資計(jì)算， 工資統(tǒng)計(jì) 等服務(wù)。傳統(tǒng)的紙

5、張材料的數(shù)據(jù)信息管理已經(jīng)不適合現(xiàn)代企業(yè)公司的發(fā)展了， 實(shí)現(xiàn)工 資管理的系統(tǒng)化、規(guī)范化、自動(dòng)化，將成為現(xiàn)在公司管理工資的首選。本系統(tǒng)實(shí)現(xiàn)的 工資管理系統(tǒng)基本上能夠滿足現(xiàn)代化企業(yè)工資管理的需求。2、企業(yè)工資管理系統(tǒng)概述2.1 系統(tǒng)的主要功能企業(yè)工資管理系統(tǒng)的主要任務(wù)是用計(jì)算機(jī)對(duì)各種工資信息進(jìn)行日常的管理， 如查 詢、修改、增加、刪除以及存儲(chǔ)等，迅速準(zhǔn)確地完成各種工資信息的統(tǒng)計(jì)計(jì)算和匯總 工作，快速打印出工資報(bào)表， 針對(duì)系統(tǒng)服務(wù)對(duì)象的具體要求， 設(shè)計(jì)了企業(yè)工資管理系 統(tǒng)。企業(yè)工資管理系統(tǒng)主要有以下幾大功能：(1) 對(duì)單位人員的變動(dòng)進(jìn)行處理。 一個(gè)單位的職工不會(huì)是一成不變的， 總是在不 斷的變化：有調(diào)

6、出、有調(diào)入、也有職工在本單位內(nèi)部調(diào)動(dòng)。因此，設(shè)計(jì)系統(tǒng)是應(yīng)考慮 到這些情況。(2) 對(duì)職工的工資進(jìn)行計(jì)算、 修改。能對(duì)各職工的工資進(jìn)行計(jì)算， 即計(jì)算應(yīng)發(fā)金 額、應(yīng)扣金額及實(shí)發(fā)金額等。(3) 查詢統(tǒng)計(jì)功能。 要求即可以單項(xiàng)查詢， 比如查看某個(gè)職工的工資情況等； 也 可以查詢?nèi)俊?4) 報(bào)表打印功能。每月發(fā)放工資時(shí)，要求能夠打印本月的工資表、隨工資發(fā)給 每個(gè)職工的工資條以及工資統(tǒng)計(jì)表。2.2 企業(yè)工資管理系統(tǒng)的應(yīng)用現(xiàn)狀2.2.1 開(kāi)發(fā)背景隨著我國(guó)國(guó)民經(jīng)濟(jì)建設(shè)的蓬勃發(fā)展和具有中國(guó)特色的社會(huì)主義市場(chǎng)經(jīng)濟(jì)體制的 迅速完善，各個(gè)行業(yè)都在積極使用現(xiàn)代化的手段， 不斷改善服務(wù)質(zhì)量， 提高工作效率， 這些都在很

7、大程度上給企業(yè)提出越來(lái)越嚴(yán)峻的挑戰(zhàn)，對(duì)企業(yè)體系無(wú)論是在行政職能、 企業(yè)管理水平以及優(yōu)質(zhì)服務(wù)上都提出更高的要求。 建設(shè)一個(gè)科學(xué)高效的信息管理系統(tǒng) 是解決這一問(wèn)題的必由之路。 企業(yè)內(nèi)部財(cái)務(wù)管理是該企業(yè)運(yùn)用現(xiàn)代化技術(shù)創(chuàng)造更多更 高的經(jīng)濟(jì)效益的主要因素之一。 工資管理作為企業(yè)內(nèi)部的一種財(cái)務(wù)管理也是如此， 由 于企業(yè)職工人數(shù)較多， 每一位職工的具體實(shí)際情況也不盡相同， 各項(xiàng)工資條款的發(fā)放， 如果沒(méi)有一個(gè)完整的管理系統(tǒng)， 僅憑手工操作來(lái)實(shí)現(xiàn)不僅容易出錯(cuò)， 而且也造成資源 的不必要浪費(fèi)，因此開(kāi)發(fā)這個(gè)工資管理系統(tǒng)是很有必要的。2.2.2 開(kāi)發(fā)環(huán)境（1）系統(tǒng)運(yùn)行環(huán)境1）騰 II 或以上2）64MB內(nèi)存或以上3）

8、Windows 95 或以上4）裝了 Visual Basic 6.0（2）開(kāi)發(fā)工具1、VB的選用和簡(jiǎn)介現(xiàn)在，市場(chǎng)上可以選購(gòu)的應(yīng)用開(kāi)發(fā)產(chǎn)品很多，流行的也有數(shù)十種。目前在我國(guó)市場(chǎng) 上最為流行、使用最多、最為先進(jìn)的可用作企業(yè)級(jí)開(kāi)發(fā)工具的產(chǎn)品有：Microsoft 公司的 Visual BasicMicrosoft 公司的 Visual CBorland 公司的 DelphiSun 公司的 Java 等等 在目前市場(chǎng)上這些眾多的程序開(kāi)發(fā)工具中，有些強(qiáng)調(diào)程序語(yǔ)言的彈性與執(zhí)行效率； 有些則偏重于可視化程序開(kāi)發(fā)工具所帶來(lái)的便利性與效率的提高， 各有各的優(yōu)點(diǎn)和特色， 也滿足了不同用戶的需求。然而，語(yǔ)言的彈性

9、和工具的便利性是密不可分的，只有便利 的工具，卻沒(méi)有彈性的語(yǔ)言作支持，許多特殊化的處理動(dòng)作必需要耗費(fèi)數(shù)倍的工夫來(lái)處 理，使得原來(lái)所標(biāo)榜的效率提高的優(yōu)點(diǎn)失去了作用； 相反，如果只強(qiáng)調(diào)程序語(yǔ)言的彈性， 卻沒(méi)有便利的工具作配合，會(huì)使一些即使非常簡(jiǎn)單的界面處理動(dòng)作，也會(huì)嚴(yán)重地浪費(fèi)程 序設(shè)計(jì)師的寶貴時(shí)間。作為數(shù)據(jù)庫(kù)系統(tǒng)的開(kāi)發(fā)，VB是一個(gè)非常理想選擇。VB因簡(jiǎn)單易學(xué)、功能強(qiáng)大、編 譯速度快而從眾多的軟件開(kāi)發(fā)工具中脫穎而出。它提供了靈活的可視化設(shè)計(jì)工具，將可 視化界面與面向?qū)ο蠹夹g(shù)完善、緊密地結(jié)合起來(lái)，并封裝了Win dows編程的復(fù)雜性。程序的規(guī)模小到簡(jiǎn)單的個(gè)人數(shù)據(jù)庫(kù)應(yīng)用，大到復(fù)雜的企業(yè)的多層次分布式系統(tǒng)

10、，都可以使 用VB進(jìn)行開(kāi)發(fā)，其友好的集成開(kāi)發(fā)界面，可視化的雙向開(kāi)發(fā)模式，良好的數(shù)據(jù)庫(kù)應(yīng)用支 持高效的程序開(kāi)發(fā)和程序運(yùn)行，備受廣大程序開(kāi)發(fā)人員的好評(píng)。尤其是VB對(duì)數(shù)據(jù)庫(kù)應(yīng)用 的強(qiáng)大支持，大大提高了數(shù)據(jù)庫(kù)應(yīng)用軟件開(kāi)發(fā)的效率，縮短了開(kāi)發(fā)周期，深受廣大數(shù)據(jù) 庫(kù)應(yīng)用程序設(shè)計(jì)人員的喜愛(ài)。VB為數(shù)據(jù)庫(kù)應(yīng)用開(kāi)發(fā)人員提供了豐富的數(shù)據(jù)庫(kù)開(kāi)發(fā)組件， 使數(shù)據(jù)庫(kù)應(yīng)用開(kāi)發(fā)功能更強(qiáng)大，控制更靈活，編譯后的程序運(yùn)行速度更快，VB是微軟公司出品的一個(gè)快速可視化程序開(kāi)發(fā)工具軟件，借助微軟在操作系統(tǒng)和辦公軟件的壟斷地 位，VB在短短的幾年內(nèi)風(fēng)靡全球。VB是極有和功能強(qiáng)大的軟件，主要表現(xiàn)在：所見(jiàn)即所 得的界面設(shè)計(jì)，基于對(duì)象的設(shè)計(jì)方法

11、，極短的軟件開(kāi)發(fā)周期，較易維護(hù)的生成代碼。美國(guó)微軟公司在1991年推出VB1.0至今已經(jīng)經(jīng)歷了 6個(gè)版本，VB6.0運(yùn)行在win9x 或winme, win2000，winxp，windowsNT等操作系統(tǒng)下，是一個(gè) 32位的應(yīng)用程序開(kāi)發(fā)工 具。VB程序語(yǔ)言具有許多優(yōu)秀的特性，用其設(shè)計(jì)應(yīng)用程序時(shí)有兩個(gè)基本特點(diǎn)：可視化設(shè) 計(jì)和事件驅(qū)動(dòng)編程。Visual Basic 系統(tǒng)除了一般高級(jí)語(yǔ)言所具有的一些名詞術(shù)語(yǔ)外， 還有幾個(gè)系統(tǒng)常用的名 詞。其基本含義如下：(1) 視窗( Form)視窗是進(jìn)行人機(jī)交互的界面或接口，也叫窗體。VB系統(tǒng)的人機(jī)交互界面或接口，無(wú)論是在設(shè)計(jì)時(shí)或是在運(yùn)行時(shí)，都是 Windows

12、 系統(tǒng)的標(biāo)準(zhǔn)視窗。(2) 對(duì)象 (Object)對(duì)象是 VB 系統(tǒng)內(nèi)部提供給設(shè)計(jì)者可以直接使用的處理輸出的控制工具。本程序所 應(yīng)用到的對(duì)象類(lèi)型有標(biāo)簽框 (Label Box) ，文本框 (Text Box) ，命令按扭 (Command Butt on)，網(wǎng)格(Data Grid) ，ADO控件(Adodcl)等。當(dāng)把這些工具放置到用戶界面對(duì) 應(yīng)的窗體上時(shí)，被稱(chēng)為對(duì)象或控件。用戶可以通過(guò)設(shè)置對(duì)象的“屬性”和“方法” ，便于 對(duì)象適應(yīng)自己所設(shè)計(jì)應(yīng)用程序的輸入輸出內(nèi)容，對(duì)象的生成過(guò)程及結(jié)構(gòu)都被封裝起來(lái)。 正確使用對(duì)象可以減少程序和開(kāi)發(fā)時(shí)間，提高程序設(shè)計(jì)者的工作效率。(3) 屬性 (Properti

13、es)屬性是VB系統(tǒng)提供的有關(guān)對(duì)象的參數(shù)或數(shù)據(jù)接口。用戶通過(guò)適當(dāng)?shù)卦O(shè)置或改變對(duì) 象的屬性來(lái)確定對(duì)象的外觀及性能特征，從而有效地使用系統(tǒng)提供的對(duì)象。比如，對(duì)象 的名稱(chēng)、在屏幕上顯示的位置、大小、顏色、接收或容納的數(shù)據(jù)內(nèi)容及數(shù)據(jù)的表現(xiàn)格式 等。(4) 事件 (Events) 事件是指用戶或操作者對(duì)計(jì)算機(jī)進(jìn)行的某一操作(如擊鍵、單擊或移動(dòng)鼠標(biāo)等)的行為或系統(tǒng)狀態(tài)發(fā)生的變化。VB系統(tǒng)常用事件來(lái)引導(dǎo)計(jì)算機(jī)執(zhí)行一段程序。程序所用的 鍵盤(pán)事件有 KeyPress (按鍵)事件，KeyDowr事件和KeyUp事件；鼠標(biāo)事件有 Click (單 擊鼠標(biāo))事件， DbDlicd (雙擊鼠標(biāo))。(5) 方法 (Me

14、thod)方法主要是指對(duì)一個(gè)對(duì)象使用某種作用的過(guò)程。 它是在程序執(zhí)行的過(guò)程中要計(jì)算機(jī) 執(zhí)行的某種操作。其程序的方法有 Show(顯示)方法，Hide (隱藏)方法，Refresh (刷 新)方法。(6) 過(guò)程 (Procedure) 過(guò)程是指經(jīng)過(guò)定義或說(shuō)明的，或基于某一對(duì)象對(duì)應(yīng)的事件所引發(fā)的程序段。(7) 模塊 (Module) 模塊是指一些運(yùn)算量或過(guò)程進(jìn)行聲明或定義的一個(gè)集合。 系統(tǒng)程序大體可分成四個(gè)模塊：數(shù)據(jù)輸入、根據(jù)查詢、數(shù)據(jù)打印和通訊。2、可視化設(shè)計(jì)同其他的一些可視化程序開(kāi)發(fā)工具一樣 ,VB 具有可視化設(shè)計(jì)的特點(diǎn) , 微軟的 Word 在 剛剛進(jìn)入市場(chǎng)時(shí),同WPS競(jìng)爭(zhēng)的一個(gè)重要的功能砝

15、碼就是所見(jiàn)即所得的字處理功能,VB 在設(shè)計(jì)應(yīng)用程序界面時(shí)也可以說(shuō)是 所見(jiàn)即所得.在設(shè)計(jì)時(shí),頭腦中所想象的應(yīng)用程序界 面, 完全可以通過(guò)鍵盤(pán)鼠標(biāo)以及徒手畫(huà)出來(lái) , 而不是編制大量的代碼然后再編譯生成 , 如 果需要修改，也是利用鍵盤(pán)鼠標(biāo)和手畫(huà)，而底層的一些程序代碼由 VB自動(dòng)生成或修改。VB為用戶提供大量的界面元素（在VB中稱(chēng)為控件對(duì)象）,這些控件對(duì)象對(duì)于熟悉 Windows應(yīng)用程序的用戶而言是一點(diǎn)也不陌生,女窗體、菜單、命令按鈕、工具 按鈕、 檢查框等等,用戶只需要利用鼠標(biāo)、鍵盤(pán)把這些控件對(duì)象拖動(dòng)到適當(dāng)?shù)奈恢?, 設(shè)置它們的大小、形狀、屬性等 , 就可以設(shè)計(jì)出所需的應(yīng)用程序界面。3、事件驅(qū)動(dòng)編

16、程Windows操作系統(tǒng)出現(xiàn)以來(lái)，圖形化的用戶界面和多任務(wù)多進(jìn)程的應(yīng)用程序要求程 序設(shè)計(jì)不能是單一性的 , 在使用 VB 設(shè)計(jì)應(yīng)用程序時(shí) , 必須首先確定應(yīng)用程序如何同用戶 進(jìn)行交互.例如發(fā)生鼠標(biāo)單擊、鍵盤(pán)輸入等事件時(shí) , 由用戶編寫(xiě)的代碼控制這些事件的響 應(yīng), 這就是所謂的事件驅(qū)動(dòng)編程。4、實(shí)現(xiàn)菜單選項(xiàng)菜單是程序最重要的特性之一， 大多數(shù)程序都依賴(lài)一個(gè)定義良好的菜單使程序易于 使用和維護(hù)， Visual Basic 也提供了強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。本系統(tǒng)使用 Visual Basic 的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單，您也 可以使用 Visual Basic 的 Appl

17、ication Wizard 來(lái)操作。5、實(shí)現(xiàn)工具欄CoolBar 控件與 Office2000 中看到的 CoolBar 是類(lèi)似的。 CoolBar 就是一個(gè)可以在 窗體上浮動(dòng)的工具，同時(shí)也是其他 ActiveX 的容器。通過(guò)在 CoolBar 中遷入其他空間你 也可以向用戶提供更好的靈活性和義用性。選擇“工程”下拉菜單中的“部件”選項(xiàng)，顯示“部件”對(duì)話框。在“控件”選項(xiàng) 卡列表中選擇“ Microsoft Windows Common Controls 6.0 ”后工具相中增加改控件。本系統(tǒng)就用了 Cool 工具中的 Statubar 控件，在系統(tǒng)這一界面中，添加了狀態(tài)欄， 在第一個(gè)欄中，

18、在樣式這一欄中選擇了文本，在第二個(gè)欄中，選擇了系統(tǒng)日期，第三個(gè) 欄中選擇了系統(tǒng)時(shí)間，這樣，任何時(shí)候操作本系統(tǒng)，都可以看到當(dāng)前的時(shí)間和日期。使用 Access2000 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù)的概念 數(shù)據(jù)庫(kù)是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫(kù)的作用在于組織和表達(dá)信 息，簡(jiǎn)而言之，數(shù)據(jù)庫(kù)就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫(kù)可以分為兩類(lèi)：非關(guān)系數(shù)據(jù)庫(kù) (flat-file )和關(guān)系數(shù)據(jù)庫(kù)( relational )。關(guān)系數(shù)據(jù)庫(kù)中包含了多個(gè)數(shù)據(jù)表的信息， 數(shù)據(jù)庫(kù)含有各個(gè)不同部分的術(shù)語(yǔ)，對(duì)象記錄、域等。新建一個(gè)數(shù)據(jù)庫(kù)創(chuàng)建任何一個(gè)數(shù)據(jù)庫(kù)的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫(kù)， 設(shè)計(jì)必須是靈活的、 有邏輯的。 創(chuàng)建一個(gè)

19、數(shù)據(jù)庫(kù)結(jié)構(gòu)的過(guò)程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。1標(biāo)識(shí)需要的數(shù)據(jù)；2收集被標(biāo)識(shí)的字段到表中；3標(biāo)識(shí)主關(guān)鍵字字段；4繪制一個(gè)簡(jiǎn)單的數(shù)據(jù)圖表；5規(guī)范數(shù)據(jù)；6標(biāo)識(shí)指定字段的信息；7創(chuàng)建物理表。修改已建的數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù)的修改分為：添加、編輯和刪除記錄。這三種操作均可由Visual Basic 創(chuàng)建的程序來(lái)完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。6、實(shí)現(xiàn)數(shù)據(jù)庫(kù)之間的聯(lián)系數(shù)據(jù)庫(kù)之間的關(guān)系指明兩個(gè)庫(kù)之間共享一個(gè)共同的關(guān)鍵字值。 一個(gè)連接是指一種虛 擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵 字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級(jí)的連接形式稱(chēng)為自連接。 這種連接是指一個(gè)

20、表被連接到它自己的一個(gè)字段，或在不同的記錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫(kù)中有三種不同類(lèi)型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中 使用的關(guān)鍵字類(lèi)型用于描述庫(kù)表示什么以及在數(shù)據(jù)庫(kù)中如何與其它的庫(kù)建立關(guān)系。2.2.3 數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù)是通過(guò)數(shù)據(jù)庫(kù)管理系統(tǒng)（DBMS-DATBASEMANAGEMESYSTEM）件來(lái)實(shí)現(xiàn) 數(shù)據(jù)的存儲(chǔ)、管理與使用的DBASEL就是一種數(shù)據(jù)庫(kù)管理系統(tǒng)軟件。（1）數(shù)據(jù)庫(kù)的概念數(shù)據(jù)庫(kù)是存儲(chǔ)在一起的相關(guān)數(shù)據(jù)的集合， 這些數(shù)據(jù)是結(jié)構(gòu)化的， 無(wú)有害的或不必 要的冗余， 并為多種應(yīng)用服務(wù)； 數(shù)據(jù)的存儲(chǔ)獨(dú)立于使用它的程序； 對(duì)數(shù)據(jù)庫(kù)插入新數(shù) 據(jù)，修改和檢索原有數(shù)據(jù)均能按一種公用的，

21、 和可控制的方式進(jìn)行。 當(dāng)某個(gè)系統(tǒng)中存 在結(jié)構(gòu)上完全分開(kāi)的若干個(gè)數(shù)據(jù)庫(kù)時(shí)，則該系統(tǒng)包含一個(gè) 數(shù)據(jù)庫(kù)集合 。（2）數(shù)據(jù)庫(kù)的優(yōu)點(diǎn)使用數(shù)據(jù)庫(kù)可以帶來(lái)許多好處： 如減少了數(shù)據(jù)的冗余度， 從而大大地節(jié)省了數(shù)據(jù) 的存儲(chǔ)空間； 實(shí)現(xiàn)數(shù)據(jù)資源的充分共享等等。 此外，數(shù)據(jù)庫(kù)技術(shù)還為用戶提供了非常 簡(jiǎn)便的使用手段使用戶易于編寫(xiě)有關(guān)數(shù)據(jù)庫(kù)應(yīng)用程序。（3）數(shù)據(jù)庫(kù)文件的特征無(wú)論使用哪一種數(shù)據(jù)庫(kù)管理系統(tǒng)， 由它們所建立的數(shù)據(jù)庫(kù)文件都可以看成是具有 相同性質(zhì)的記錄的集合，因而這些數(shù)據(jù)庫(kù)文件都有相同的特性：1）文件的記錄格式相同，長(zhǎng)度相等。2）不同的行是不同的記錄，因而具有不同的內(nèi)容。3）不同的列表示不同的字段名，同一列中的

22、數(shù)據(jù)的性質(zhì) （屬性）相同。4）每一行各列的內(nèi)容是不能分割的，但行的順序和列的順序不影響文件內(nèi)容的表達(dá)。3 系統(tǒng)分析3.1 系統(tǒng)需求分析本系統(tǒng)的開(kāi)發(fā)宗旨以及總體任務(wù)就是幫助企業(yè)的財(cái)務(wù)主管部門(mén)提高工作效率， 實(shí) 現(xiàn)企業(yè)工資信息管理的自動(dòng)化、 規(guī)范化和系統(tǒng)化。 所以為了能夠?qū)崿F(xiàn)編制這個(gè)系統(tǒng)所 設(shè)定的目標(biāo)，在程序的開(kāi)發(fā)之前，需求分析是必不可少的。需求分析的第一步描述工資管理系統(tǒng)的功能， 即定義用例， 以此確定系統(tǒng)的功能 需求。工資管理系統(tǒng)的用例分析主要是找出系統(tǒng)中所有的用例， 因此要和工資管理系 統(tǒng)的潛在用戶進(jìn)行討論。系統(tǒng)最終實(shí)現(xiàn)的主要功能如下。工資管理系統(tǒng)的用例包括：(1) 系統(tǒng)管理 (2) 工資設(shè)

23、置 (3) 工資統(tǒng)計(jì)(4) 工資查詢 (5) 工資表導(dǎo)出 (6) 打印報(bào)表 系統(tǒng)管理用例包括添加用戶和修改密碼。都通過(guò)其相應(yīng)的窗口來(lái)實(shí)現(xiàn)。 工資設(shè)置用例包括基本工資設(shè)置和其它項(xiàng)目設(shè)置。其它項(xiàng)目設(shè)置有獎(jiǎng)金、津貼、 福利、扣發(fā)等項(xiàng)目。工資統(tǒng)計(jì)用例可以根據(jù)不同的月份對(duì)其進(jìn)行相應(yīng)地統(tǒng)計(jì)。 工資查詢用例包括單人查詢和查詢所有， 可以顯示員工基本工資、 員工其它項(xiàng)目 情況，以及員工工資具體統(tǒng)計(jì)情況。工資表導(dǎo)出用例可根據(jù)所需的月份把工資表導(dǎo)出并可直接顯示在 Excel 表格中， 而且可以加以保存。打印報(bào)表用例是一個(gè)很重要的一個(gè)用例，它提供給用戶生成報(bào)表和報(bào)印的功能， 能夠很方便地將員工的工資情況表打印出來(lái)。

24、3.1.1 系統(tǒng)目標(biāo)采用公司現(xiàn)有的軟硬件及科學(xué)的管理系統(tǒng)開(kāi)發(fā)方案， 建立工資管理系統(tǒng)， 實(shí)現(xiàn)企 業(yè)工資管理的計(jì)算機(jī)自動(dòng)化。 系統(tǒng)應(yīng)符合公司人事、 工資管理制度， 并達(dá)到操作直觀、 方便、實(shí)用、安全等要求。3.1.2 數(shù)據(jù)流程圖3.2系統(tǒng)功能調(diào)查系統(tǒng)從總體上可以分為系統(tǒng)管理、工資信息設(shè)置、工資信息管理、打印報(bào)表等功 能。系統(tǒng)管理功能（1）添加用戶：使用這個(gè)用戶登錄后，可以添加其他用戶（2）修改密碼：每一個(gè)用戶都可以更改自己的密碼工資信息設(shè)置功能（1）基本工資設(shè)置：按照員工編號(hào)或職務(wù)設(shè)置員工的基本工資信息。（2）其他項(xiàng)目設(shè)置：設(shè)置單個(gè)員工的獎(jiǎng)金，福利、津貼、出差費(fèi)、加班費(fèi)等 信息。（3）工資計(jì)算公

25、式設(shè)置：設(shè)置員工實(shí)發(fā)工資的計(jì)算公式信息。工資信息管理功能（1）出勤統(tǒng)計(jì)：按照月份統(tǒng)計(jì)員工的當(dāng)月出勤信息。（2）計(jì)算實(shí)發(fā)工資：計(jì)算當(dāng)月員工實(shí)發(fā)工資的金額。（3）查詢工資：可以按月查詢所有員工工資信息或查詢個(gè)人工資信息（4） 導(dǎo)出工資表：把數(shù)據(jù)庫(kù)中員工的工資信息導(dǎo)出到Excel 2000中。打印報(bào)表功能(1) 基本工資列表打?。捍蛴〕龌竟べY列表(2) 其他項(xiàng)目打?。捍蛴∑渌?xiàng)目列表(3) 工資統(tǒng)計(jì)列表打?。捍蛴」べY統(tǒng)計(jì)列表3.3系統(tǒng)功能模塊圖企業(yè)工資管理系統(tǒng)系統(tǒng)管理工 資 信 息 設(shè) 置工 資 信 息 管 理工 資 信 息 管 理打 印 報(bào) 表員基苴丿、計(jì)工本他算資工項(xiàng)公料資目式設(shè)設(shè)設(shè)設(shè)置置置置

26、圖3-2系統(tǒng)功能模塊圖出 勤 統(tǒng) 計(jì)計(jì) 算 實(shí) 發(fā) 工 資查 詢 工 資基苴丿、工本他資工項(xiàng)表資目導(dǎo)打打出印印工 資 統(tǒng) 計(jì) 打 印4系統(tǒng)概要設(shè)計(jì)4.1系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)設(shè)計(jì)基礎(chǔ)是完成需求分析后提供的需求說(shuō)明書(shū)，用概念數(shù)據(jù)模型表示數(shù)據(jù)及其相 互間的關(guān)系，這種數(shù)據(jù)模型是與 DBMSc關(guān)的、面向現(xiàn)實(shí)世界的、易如理解的數(shù)據(jù)模 型，其獨(dú)立于計(jì)算機(jī)的數(shù)據(jù)模型，獨(dú)立于計(jì)算機(jī)的軟硬件系統(tǒng)，與用戶進(jìn)行交流十分 方便。概念性數(shù)據(jù)模型關(guān)心的是如何完整、正確地反映客觀實(shí)際情況，不關(guān)心在數(shù)據(jù)庫(kù) 中如何實(shí)現(xiàn)。這種數(shù)據(jù)模式能真實(shí)地反應(yīng)用戶要求的實(shí)際情況，是一種容易被人們理 解的直觀的數(shù)據(jù)庫(kù)結(jié)構(gòu)模式。同時(shí)也是一種相對(duì)穩(wěn)定統(tǒng)一

27、的數(shù)據(jù)模式， 一般情況下很 少變動(dòng)。概念性數(shù)據(jù)在用戶和設(shè)計(jì)者之間建立了橋梁。是設(shè)計(jì)數(shù)據(jù)庫(kù)結(jié)構(gòu)的基礎(chǔ)。概念設(shè)計(jì)中自頂向下的實(shí)體分析方法， 即常用的實(shí)體聯(lián)系模型（簡(jiǎn)稱(chēng)E-R模型）， 對(duì)具體數(shù)據(jù)進(jìn)行抽象加工，將實(shí)體集合抽象成實(shí)體類(lèi)型。用實(shí)體間聯(lián)系反映現(xiàn)實(shí)世界 事物間的內(nèi)在聯(lián)系。E-R模型是建立概念性數(shù)據(jù)模型的有力工具。通過(guò)對(duì)企業(yè)員工管理內(nèi)容、工資管理內(nèi)容和過(guò)程的分析，本系統(tǒng)設(shè)計(jì)的實(shí)體和屬 性如下及圖4-1和圖4-2 :員工（包括員工編號(hào)、員工姓名、性別、籍貫、年齡、生日、學(xué)歷、專(zhuān)業(yè)、住址、 郵編、電話、Email、參加工作時(shí)間、進(jìn)入公司時(shí)間、起薪時(shí)間、備注）部門(mén)（員工編號(hào)、部門(mén)名稱(chēng)）職務(wù)（員工編號(hào)、

28、職務(wù)名稱(chēng)）職稱(chēng)（員工編號(hào)、職稱(chēng)名稱(chēng)）工資結(jié)構(gòu)（員工編號(hào)、正常加班工資、特殊加班工資、出差工資、曠工工資、遲到早退）工資帳目（工資帳目代號(hào)、工資帳目名稱(chēng)）圖4-1員工信息圖部門(mén)工資賬目代工資賬目 工資賬目名圖4-2工資管理內(nèi)容分析圖4.2實(shí)體和實(shí)體之間的關(guān)系E-R圖圖4-3實(shí)體之間的關(guān)系 E-R圖4.3數(shù)據(jù)庫(kù)設(shè)計(jì)Access在VB中的應(yīng)用非常廣泛， 為此我選用Access 2000數(shù)據(jù)庫(kù)來(lái)進(jìn)行數(shù)據(jù)庫(kù)的邏輯設(shè)計(jì)。 根據(jù)前面定義的實(shí)體及實(shí)休之間的關(guān)系，形成數(shù)據(jù)庫(kù)的表格以及各個(gè)表之間的關(guān)系。431 Person數(shù)據(jù)庫(kù)（員工數(shù)據(jù)庫(kù)）（1） Stufflnfo（員工資料表）:員工基本信息表用于存儲(chǔ)員工基本

29、信息，為保證數(shù)據(jù)的一致和歷史資料的完整，表的記錄在一般的情況不能被刪除。表4-1 Stuffl nfo（員工資料表）序號(hào)字段名字段中文名類(lèi)型1SID員工編號(hào)文本2SName員工姓名文本3SGe nder性別文本4SPlace籍貫文本5SAge年齡長(zhǎng)整型6SBirthday生日日期/時(shí)間7SDegree學(xué)歷文本8SSpecial專(zhuān)業(yè)文本9SAddress住址文本10SCode郵編文本11STel電話文本12SEmailEmail文本13SWorkTime參加工作時(shí)間日期/時(shí)間14SI nTime進(jìn)入公司時(shí)間日期/時(shí)間15SDept部門(mén)文本16SPayTime起薪時(shí)間日期/時(shí)間17SPositio

30、 n職務(wù)文本18SRemark備注文本Userlnfo （用戶口令表）:為了便于多個(gè)用戶管理該系統(tǒng)，建立此表，記錄用戶的 登錄用戶名和口令。表4-2 Userlnfo（用戶口令表）序號(hào)字段名字段中文名類(lèi)型1UserID用戶名稱(chēng)文本2UserPWD用戶密碼文本（3）OverTimelnfo（加班情況表）：用于存儲(chǔ)員工加班的情況，在計(jì)算工資時(shí)便于統(tǒng)計(jì)。表4-5 OverTimelnfo （加班情況表）序號(hào)字段名字段中文名類(lèi)型1OID記錄編號(hào)自動(dòng)編號(hào)2OStuffID員工編號(hào)文本3OSpeciality特殊加班天數(shù)數(shù)字4OCom mon正常加班天數(shù)數(shù)字5OFromday加班日期日期/時(shí)間4.3.2

31、Salary 數(shù)據(jù)庫(kù)（工資數(shù)據(jù)庫(kù)）（1） AttendanceStatistics（員工出勤表）：用于統(tǒng)計(jì)員工的出勤情況，為統(tǒng)計(jì)工資時(shí)提供方便。表 4-7 AttendanceStatistics（員工出勤表）序號(hào)字段名字段中文名類(lèi)型1StuffID員工編號(hào)文本2StuffName員工姓名文本3RecordMo nth統(tǒng)計(jì)時(shí)間日期時(shí)間4Atte ndance出勤天數(shù)日期/時(shí)間5LateEarly遲到早退次數(shù)數(shù)字6Abse nt曠工次數(shù)數(shù)字7OverTimeCom正常加班次數(shù)數(shù)字8OverTimeSpe特殊加班次數(shù)數(shù)字9Errand出差次數(shù)數(shù)字表 4-8 FormulaSetting（工資設(shè)置表

32、）序號(hào)字段名字段中文名類(lèi)型1OvertimeCom正常加班工資百分比數(shù)字2OvertimeSpe特殊加班工資百分比數(shù)字3Errand出差工資數(shù)字4Abse nt曠工工資數(shù)字5Le遲到早退數(shù)字（3） Salaryother （其他工資項(xiàng)目表）：用于存儲(chǔ)不同名稱(chēng)的其他工資，比如獎(jiǎng)金、 津貼、福利等。表4-9 Salaryother （其他工資項(xiàng)目表）序號(hào)字段名字段中文名類(lèi)型1StuffID員工編號(hào)文本2YearMo nth年月日期/時(shí)間3Type類(lèi)型數(shù)字4Name名稱(chēng)文本5Money金額貨幣6Remark備注備注（4）SalarySetting（基本工資設(shè)置）：用于存儲(chǔ)不同職稱(chēng)的員工的基本工資表4

33、-10 SalarySetting（基本工資設(shè)置）序號(hào)字段名字段中文名類(lèi)型1StuffID員工編號(hào)文本2Spositi on員工職務(wù)文本3Salary基本工資貨幣（5）Userlnfo （用戶表）：用于存儲(chǔ)新添加的用戶，當(dāng)添加完用戶時(shí)，就被存 儲(chǔ)在此表中。表 4-11 Userlnfo （用戶表）序號(hào)字段名字段中文名類(lèi)型1UserID用戶名稱(chēng)文本2UserPWD用戶密碼文本（6）Salarystatistics（工資情況表）：用于存儲(chǔ)員工的工資情況表，便于明確查看。表 4-12 Salarystatistics（工資情況表）序號(hào)字段名字段中文名類(lèi)型1StuffName員工編號(hào)文本2Stuffn

34、ame員工姓名文本3YearMo nth時(shí)間日期/時(shí)間4Basicsalary基本工資貨幣5Bonus獎(jiǎng)金貨幣6Welfare福利貨幣7Allowa nee津貼貨幣8Abateme nt扣發(fā)貨幣9LeSub遲到早退扣發(fā)貨幣10Abse ntSub曠工扣發(fā)貨幣11Overtime加班費(fèi)貨幣12Others其他金額貨幣13Total總額貨幣5詳細(xì)設(shè)計(jì)根據(jù)系統(tǒng)分析、系統(tǒng)概要設(shè)計(jì)的結(jié)果，采用VB作為開(kāi)發(fā)工具，實(shí)現(xiàn)公司工資管理各模塊的功能。系統(tǒng)運(yùn)行時(shí)，首先出現(xiàn)在用戶面前的就是一個(gè)登錄窗口。5.1登錄窗體設(shè)計(jì)功能說(shuō)明它主要是控制員工登錄，防止非法用戶闖入本系統(tǒng)，保證系統(tǒng)的安全，輸入口令 時(shí)屏幕顯示為“*”

35、以利保密。在開(kāi)發(fā)過(guò)程當(dāng)中，我還給系統(tǒng)限制了登錄出錯(cuò)的次數(shù)， 如果用戶名或密碼出錯(cuò)超過(guò)三次，那就自動(dòng)退出系統(tǒng)。系統(tǒng)登陸時(shí)，要求正確輸入用戶名和密碼。成功登陸后顯示如圖4-2所示工資管理 系統(tǒng)主界面。用戶名分為管理員用戶和普通用戶。如圖4-1所示：圖4-1登錄窗口實(shí)現(xiàn)功能的部分主要代碼：Private Sub Comok_Click()On Error GoTo DealerrorDim strSql As StringDim strMsg As Stri ngOn Error GoTo DealerrorDim objC n As New Connectionstrc n = CS()objC

36、n.Conn ectio nStri ng = strc nobjC n.Ope nSet objRs = New RecordsetSet objRs.ActiveC onnection = objCn objRs.CursorLocati on = adUseClie nt strSql = SELECT * FROM 系統(tǒng)用戶 objRs.Open strSql objRs.ActiveConnection = Nothing objCn.CloseSet objCn = NothingIf Logontimes = 3 ThenMsgBox 你已經(jīng)超過(guò)最大登陸次數(shù)！退出系統(tǒng) , vbO

37、KOnly + vbCritical, 系統(tǒng)登錄EndElseobjRs.MoveFirstobjRs.Find 用戶名 = & txtUserName & If objRs.EOF ThenMsgBox 用戶名錯(cuò)誤！ , vbOKOnly + vbCritical, 系統(tǒng)登錄 txtUserName.SetFocus txtUserName.Text = ElseIf objRs!口令 txtPassword ThenMsgBox 密碼錯(cuò)誤 ! 請(qǐng)重新輸入 !, vbOKOnly + vbCritical, 系統(tǒng)登錄 txtPassword.SetFocustxtPassword.Text

38、= ElseMsgBox 歡迎使用工資管理系統(tǒng) , vbOKCancel + vbOKOnly, 系統(tǒng)登錄 strusername = txtUserName userpassword = txtPasswordIf CmbStatus = ThenMsgBox 請(qǐng)選擇登陸身份 !, vbOKOnly + vbCritical, 系統(tǒng)登錄 CmbStatus.SetFocusElseIf CmbStatus.ListIndex = 0 And objRs!admin = True ThenUserAdmin = 1End IfIf CmbStatus.ListIndex = 0 And obj

39、Rs!admin = False ThenX = MsgBox( 你不是管理員，將以普通用戶登陸 , vbOKCancel + vbOKOnly, 系統(tǒng)登錄 )End IfIf X = 2 ThentxtUserName.SetFocus txtUserName.Text = txtPassword.Text = Else 添加操作員登陸時(shí)間strSql = insert into t_login (用戶 , 登錄時(shí)間 ) values( &txtUserName & , & Now & )Set objRs = ExecuteSQL(strSql, strMsg)Unload MeMDIFo

40、rm1.ShowEnd IfEnd IfEnd IfEnd IfEnd IfLogontimes = Logontimes + 1 登陸次數(shù)Exit SubDealerror:msg = 程序執(zhí)行出錯(cuò) , 錯(cuò)誤信息如下 : & vbCrLf & Err.DescriptionShowError msgEnd SubDim objRs As RecordsetDim i As In tegerDim Log on times As In tegerPrivate Sub Comca ncle_Click()n = MsgBox(你選擇了退出系統(tǒng)登陸,退出將不能啟動(dòng)管理系統(tǒng)! & vbCrLf &

41、 是否真 的退出?, vbYesNo,系統(tǒng)驗(yàn)證)If n = vbYes The nUn load MeEnd IfEnd Sub5.2主窗口設(shè)計(jì)功能說(shuō)明界面采用MDI方式，可同時(shí)打開(kāi)幾個(gè)子窗體，在界面上放置了菜單欄，它集中了系統(tǒng)操作的入口，各功能模塊的執(zhí)行從此進(jìn)入。其總體模塊圖如下所示：主菜單系 統(tǒng) 管 理工資信息設(shè)置工 資 信 息 管 理打 印 報(bào) 表圖5-2總體模塊圖5.3 系統(tǒng)管理模塊5.3.1 功能說(shuō)明 系統(tǒng)管理模塊主要實(shí)現(xiàn)的是添加用戶和修改密碼的功能， 當(dāng)想要添加用戶時(shí)， 就 可直接在添加用戶這個(gè)窗體上進(jìn)行錄入； 而用戶想要修改密碼時(shí)則可以在修改密碼這 個(gè)窗口上進(jìn)行操作， 此時(shí)用戶

42、必須記得原先的密碼才能進(jìn)行修改， 而且修改密碼時(shí)設(shè) 置了再次確認(rèn)密碼，以免由于誤輸而導(dǎo)致操作無(wú)法完成。添加用戶窗體代碼如下：Private Sub cmdCancel_Click()Unload MeExit SubEnd SubPrivate Sub cmdOK_Click()Dim sql As StringDim rs As ADODB.RecordsetIf Trim(username.Text) = ThenMsgBox 請(qǐng)輸入用戶名稱(chēng) , vbOKOnly + vbExclamation, 警告 Exit Sub username.SetFocusElsesql = select

43、* from 系統(tǒng)用戶 where 用戶名 = & username & Set re = getrs(sql, gzgl)If re.EOF = False ThenMsgBox 這個(gè)用戶已經(jīng)存在， 請(qǐng)重新輸入用戶名 , vbOKOnly+ vbExclamation,II 小 II 警告 username.SetFocus username.Text = password.Text = confirmpwd.Text = Exit SubElseIf Trim(password.Text) Trim(confirmpwd.Text) ThenMsgBox 兩次輸入密碼不一致，請(qǐng)重新輸入密碼

44、 , vbOKOnly+ vbExclamation,II 小 II 警告 password.Text = confirmpwd.Text = password.SetFocusExit SubElseIf Trim(password.Text) = ThenMsgBox 密碼不能為空 , vbOKOnly + vbExclamation, 警告 password.Text = confirmpwd = password.SetFocusElseIf AdminCheck = False Thensql = insert into 系統(tǒng)用戶 ( 用戶名 , 口令 ) values( & use

45、rname sql = sql & , & password & )Call transactsql(sql, gzgl)Elsesql = insert into 系統(tǒng)用戶 ( 用戶名 , 口令 ,admin) values( & username sql = sql & , & passwordsql = sql & , & UserAdmin & )End IfCall transactsql(sql, gzgl)MsgBox 添加成功 , vbOKOnly + vbExclamation, 添加結(jié)果 username.Text = password.Text = confirmpwd.

46、Text = username.SetFocus If Check1 = False ThenUnload MeEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Form_Load()Me.Left = ReadIni( 添加用戶 , left) Me.Top = ReadIni( 添加用戶 , top) End SubPrivate Sub Form_Unload(Cancel As Integer) Call WriteIni( 添加用戶 , left, Me.Left) Call WriteIni(添加用戶 , top, Me.Top)End Sub修

47、改密碼窗體代碼如下：Private Sub cmdCancel_Click()Unload MeExit SubEnd SubPrivate Sub cmdOK_Click()Dim sql As StringDim rs As ADODB.RecordsetIf Trim(oldpwd.Text) = ThenMsgBox 請(qǐng)輸入舊密碼 , vbOKOnly + vbExclamation, 提示 oldpwd.SetFocusExit SubElseIf Trim(oldpwd.Text) Trim(userpassword) ThenMsgBox 舊密碼與登錄的密碼不同， 請(qǐng)重新輸入！

48、, vbOKOnly+ vbExclamation, 提示oldpwd.Text = oldpwd.SetFocusElseIf Trim(newpwd.Text) = ThenMsgBox 請(qǐng)輸入新密碼 , vbOKOnly + vbExclamation, 提示 newpwd.SetFocusExit SubElseIf Trim(newpwd.Text) Trim(confirmpwd.Text) ThenMsgBox 兩次密碼不同 , vbOKOnly + vbExclamation, 警告 newpwd.Text = confirmpwd.Text = newpwd.SetFocus

49、Elseuserpassword = newpwdsql = update 系統(tǒng)用戶 set 口令 = & newpwd & where 用戶名 = & strusername & Call transactsql(sql, gzgl)MsgBox 密碼已經(jīng)修改 , vbOKOnly + vbExclamation, 修改結(jié)果 Unload MeEnd IfEnd IfEnd SubPrivate Sub Form_Load（）Me丄eft = Readlni（修改密碼, left）Me.Top = ReadIni（ 修改密碼, top）End SubPrivate Sub Form_Unl

50、oad（Ca ncel As In teger） Call WriteIni（修改密碼, left, Me丄eft）Call WriteIni（修改密碼, top, Me.Top）End Sub5.4工資信息設(shè)置模塊541功能說(shuō)明此模塊的功能主要是系統(tǒng)管理員根據(jù)本企業(yè)的規(guī)章制度及條例對(duì)工資的各項(xiàng)內(nèi)容進(jìn)行設(shè)置。包括基本工資設(shè)置、其他項(xiàng)目設(shè)置（包括獎(jiǎng)金、福利、津貼、扣發(fā)等項(xiàng)目），以及工資計(jì)算公式設(shè)置。其分解模塊圖如下：圖5-5分解模塊圖員工基本檔案信息的實(shí)現(xiàn)：?jiǎn)T工基本檔案信息管理，在窗體中完成員工基本信息的錄入工作。根據(jù)提示在該窗體中輸入相應(yīng)的信息，最后單擊“保存”按鈕，進(jìn)行信息的保存。如圖4-3

51、所示圖4-3員工基本檔案信息錄入窗口相應(yīng)部分代碼如下:添加員工基本信息Private Sub cmdOK_Click()Dim rs As ADODB.RecordsetDim strSql As Stri ngDim strMsg As Stri ngDim tmpPath As Stri ngDim iStm As ADODB.Stream如果是修改(保存照片-刪除原記錄-保存記錄)If bln Cha nge = True The n如果不要?jiǎng)h除If bln DelPhoto = False The n工號(hào)=& txtGH.Text & ”strSql = select * from t

52、_br whereSet rs = ExecuteSQL(strSql, strMsg)保存到文件tmpPath = App.path & temp.jpgSet iStm = New ADODB.StreamWith iStm.Mode = adModeReadWrite.Type = adTypeBinary.Open.Write rs.Fields(照片).Value.SaveToFile tmpPathblnDel = TrueEnd WithstrFileName = tmpPathpic.Picture = LoadPicture(tmpPath)iStm.CloseElsebln

53、Del = FalseEnd Ifrs.CloseEnd If 刪除記錄strSql = delete * from t_br where工號(hào)= & txtGH.Text & Set rs = ExecuteSQL(strSql, strMsg)ElsestrSql = select * from t_br where工號(hào)= & txtGH.Text & Set rs = ExecuteSQL(strSql, strMsg)If rs.EOF = False ThenMsgBox 已 有 相 同 的 工 號(hào) ， 無(wú) 法 添 加 到 數(shù) 據(jù) 庫(kù) ！ , vbOKOnly vbExclamation, 警告TextFocus txtGHExit SubEnd If rs.CloseEnd Ifs