工資管理系統(tǒng)設(shè)計(jì)與開(kāi)發(fā)-VB畢業(yè)設(shè)計(jì)

1、XXXXX大學(xué)開(kāi)放教育計(jì)算機(jī)科學(xué)與技術(shù)本科畢業(yè)論文-XX市計(jì)量測(cè)試所工資管理系統(tǒng)XXXXX大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)專業(yè)(本科)畢業(yè)設(shè)計(jì)論文設(shè)計(jì)題目 XX市計(jì)量測(cè)試所工資管理系統(tǒng) 所在班級(jí): 2002春計(jì)本 學(xué)生姓名: 學(xué) 號(hào): 指導(dǎo)教師: 完成日期: 目 錄第一章 引 言41.1 概述41.2系統(tǒng)意義41.3系統(tǒng)目標(biāo)41.4 工資管理系統(tǒng)將達(dá)到的 效果51.5 使用軟件的 介紹51應(yīng)用程序開(kāi)發(fā)工具52關(guān)系型數(shù)據(jù)庫(kù)的 選擇5第二章 鐵嶺市計(jì)量測(cè)試所工資管理系統(tǒng)系統(tǒng)分析72.1可行性分析72.1.1經(jīng)濟(jì)可行性72.1.2技術(shù)可行性72.1.3法律可行性822系統(tǒng)需求分析82.2.1問(wèn)題識(shí)別82.2.2

2、系統(tǒng)功能分析8第三章 工資管理系統(tǒng)設(shè)計(jì)103.1數(shù)據(jù)庫(kù)分析103.2應(yīng)用程序設(shè)計(jì)123.2.1登錄模塊133.2.2職工信息管理模塊153.2.3職工信息查詢模塊193.2.4職工信息刪除213.2.5職工工資信息管理模塊223.2.6職工工資信息查詢模塊263.2.7操作員管理模塊283.2.8退出功能模塊30第四章 系統(tǒng)測(cè)試314.1軟件測(cè)試的 目的 314.2測(cè)試條件及要求314.3軟件測(cè)試的 步驟314.4單元測(cè)試324.5集成測(cè)試32第五章 總結(jié)34致 謝35參考文獻(xiàn)36摘 要工資管理系統(tǒng)是典型的 管理信息系統(tǒng),采用計(jì)算機(jī)管理企業(yè)的 工資發(fā)放是當(dāng)前不可缺少的 一種管理手段.其開(kāi)發(fā)主要

3、包括后臺(tái)數(shù)據(jù)庫(kù)的 建立和維護(hù)以及前端應(yīng)用程序的 開(kāi)發(fā)兩個(gè)方面.對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng),數(shù)據(jù)安全性好的 數(shù)據(jù)庫(kù).而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn).本系統(tǒng)著眼于工資管理制度的 業(yè)務(wù)實(shí)際,經(jīng)過(guò)實(shí)際的 需求分析,采用功能強(qiáng)大的 VB6.0做為開(kāi)發(fā)工具、ACCESS 2000做為數(shù)據(jù)庫(kù)開(kāi)發(fā)出來(lái)的 系統(tǒng).本系統(tǒng)可管理職工基本信息的 記錄,進(jìn)行修改,增加,查詢,刪除一些功能.并可以進(jìn)行工資的 修改,增加,查詢,刪除.主要用于電腦城員工工資的 統(tǒng)一管理,同時(shí)方便統(tǒng)計(jì)部分?jǐn)?shù)據(jù).論文主要介紹了 本課題的 開(kāi)發(fā)背景,所要完成的 功能和開(kāi)發(fā)的 過(guò)程.重點(diǎn)的 說(shuō)明了 系統(tǒng)設(shè)計(jì)的 重點(diǎn)、設(shè)計(jì)

4、思想、難點(diǎn)技術(shù)和解決方案.關(guān)鍵詞:工資管理系統(tǒng) VB6.0 數(shù)據(jù)庫(kù) ACCESS 2000AbstractIt is syste米 of typical 米anage米ent infor米ation, using co米puter to 米anage and give business laborage to the people that is the powerful 米anage米ent way and it cannot be cancel. its develop米ent that wages 米anages pri米arily includes the establishing o

5、f backstage database with support and the head apply two aspects of the procedures develop米ents. Request to establish to rise the data consistency with the database that the latter applied the procedure function is co米plete, easy usageetc. characteristics.This syste米 for taking laborage 米anage米ent r

6、ule access fact, after actuality needs checking. choosing powerful software that is VB6.0 for the basic tools, choosing Access 2000 for database syste米.This Owen syste米 base on laborage 米anage米ent infor米ation history. Then 米ake changing, adding, reserching, deleting, and lots of functions else! 米ain

7、 function is 米anage the staff laborage of Co米puter-City, and accessing the a part of database at the sa米e ti米e.The 米o(hù)st part of assign米ent are introducing the basic, and the functions, which will be finish, and the steps of 米aking the syste米. Lots of things explan about syste米 design, food ideas of

8、design, difficult technolagys and how to solve the米.Key words: the syste米 of wages 米anage米ent, Visual basic 6.0, database , ACCESS 2000 第一章 引 言1.1 概述隨著我國(guó)國(guó)民經(jīng)濟(jì)建設(shè)的 蓬勃發(fā)展,信息化深入到社會(huì)的 各個(gè)行業(yè),企事業(yè)單位也面臨著更大的 機(jī)遇與挑戰(zhàn),如何融入信息化進(jìn)程是每一個(gè)企事業(yè)單位必須解決的 問(wèn)題,利用計(jì)算機(jī)實(shí)現(xiàn)企事業(yè)工資的 管理已是當(dāng)前不可缺少的 一種管理手段.工資管理是一項(xiàng)瑣碎的 、復(fù)雜而又十分細(xì)致的 工作,工資計(jì)算、發(fā)放、核算的 工作量

9、很大,一般不允許出錯(cuò),如果實(shí)行手工操作,每月發(fā)放工資必須手工填制大量的 表格,這樣會(huì)浪費(fèi)工作人員大量的 時(shí)間和精力,如果沒(méi)有一個(gè)完整的 管理系統(tǒng)來(lái)進(jìn)行管理,那么勢(shì)必會(huì)給管理人員帶來(lái)種種麻煩.面對(duì)目前的 情況,鐵嶺市計(jì)量測(cè)試所迫切要求開(kāi)發(fā)一個(gè)新的 工資管理系統(tǒng)來(lái)適應(yīng)這項(xiàng)工作.1.2系統(tǒng)意義以前,有關(guān)工資的 所有相關(guān)操作的 程序都是由手工來(lái)完成的 ,利用這種方式當(dāng)企業(yè)規(guī)模較小 ,業(yè)務(wù)不是很多,需要管理的 數(shù)據(jù)量也很少時(shí),用人工方式處理或許還可以接受,但隨著企業(yè)規(guī)模的 逐漸增大,經(jīng)營(yíng)時(shí)間的 增長(zhǎng),其工資各種補(bǔ)帖的 不斷增加,以往的 那種靠手工記錄各類信息,單據(jù)等的 辦法已遠(yuǎn)遠(yuǎn)不能滿足財(cái)務(wù)人員的 發(fā)展

10、要求,而且,手工操作的 方式極易產(chǎn)生誤差且不易檢查出錯(cuò)誤,易給該部門造成不可避免的 物質(zhì)和經(jīng)濟(jì)損失.還有,其管理的 范圍的 不斷擴(kuò)大,大量的 數(shù)據(jù)需要錄入,大量的 信息需要修改、更新、查詢與維護(hù),且費(fèi)時(shí)費(fèi)力,造成工作效率低,準(zhǔn)確率差,這樣時(shí)間久了 ,會(huì)給查找、更新、維護(hù)帶來(lái)不少的 困難,從而使該管理系統(tǒng)管理不完善,這樣久而久之,最終導(dǎo)致該部門被現(xiàn)行市場(chǎng)所淘汰.所以開(kāi)發(fā)一個(gè)有關(guān)工資管理的 軟件是非常必要的 . 1.3系統(tǒng)目標(biāo)采用計(jì)量所現(xiàn)有的 軟硬件及科學(xué)的 管理系統(tǒng)開(kāi)發(fā)方案,建立鐵嶺市計(jì)量測(cè)試所工資管理系統(tǒng),實(shí)現(xiàn)鐵嶺市計(jì)量測(cè)試所工資管理的 計(jì)算機(jī)自動(dòng)化.要求系統(tǒng)符合計(jì)量所的 工資管理制度,并達(dá)到

11、操作直觀、方便、實(shí)用、安全等要求.能夠提供詳細(xì)的 員工基礎(chǔ)信息,包括自然條件信息、工資情況、來(lái)源、去向、崗位變動(dòng)情況.能夠隨時(shí)查閱在職、非在職人員信息,提供出職工花名冊(cè),同時(shí)為財(cái)務(wù)部提供人員變動(dòng)單及月基本工資匯總情況等.針對(duì)這些要求,系統(tǒng)建立了 職工信息查詢、職工信息刪除、職工工資信息管理、職工工資信息查詢4個(gè)主要信息庫(kù).系統(tǒng)根據(jù)增減人員、工資變動(dòng)操作自動(dòng)生成記錄記載變動(dòng)內(nèi)容,以便用戶查詢其變動(dòng)過(guò)程.實(shí)現(xiàn)了 對(duì)員工信息的 查詢、統(tǒng)計(jì)、增減、變動(dòng)記錄、打印相關(guān)報(bào)表等功能.1.4 工資管理系統(tǒng)將達(dá)到的 效果該系統(tǒng)著眼于員工工資業(yè)務(wù)的 實(shí)際,對(duì)發(fā)放工資業(yè)務(wù)進(jìn)行了 細(xì)致的 分析、研究,認(rèn)真分析其業(yè)務(wù)流

12、程,采用靈活方便的 計(jì)算處理方式,改變手工操作的 繁雜、低效、不宜操作、靈活性差的 特點(diǎn),提高其工作效率和效益.實(shí)現(xiàn)鐵嶺市計(jì)量測(cè)試所工資管理業(yè)務(wù)的 制度化、現(xiàn)代化的 管理.工資管理系統(tǒng)是為了 能夠迅速、準(zhǔn)確地反映出用戶需要的 各種信息,及時(shí)方便的 進(jìn)行各種檢索,從而為決策者做出準(zhǔn)確的 判斷提供強(qiáng)有力的 支持.計(jì)算機(jī)的 使用使得企業(yè)管理變得更加合理,更加規(guī)范,更加科學(xué).1.5 使用軟件的 介紹1應(yīng)用程序開(kāi)發(fā)工具微軟公司的 Visual Basic 6.0是Windows應(yīng)用程序開(kāi)發(fā)工具,是目前最為廣泛的 、易學(xué)易用的 面向?qū)ο蟮?開(kāi)發(fā)工具.Visual Basic提供了 大量的 控件,這些控件可

13、用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能,減少了 編程人員的 工作量,也簡(jiǎn)化了 界面設(shè)計(jì)過(guò)程,從而有效的 提高了 應(yīng)用程序的 運(yùn)行效率和可靠性.故而,實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)相對(duì)較好的 選擇.在目前市場(chǎng)上這些眾多的 程序開(kāi)發(fā)工具中,有些強(qiáng)調(diào)程語(yǔ)言的 彈性與執(zhí)行效率;有些則偏重于可視化程序開(kāi)發(fā)工具所帶來(lái)的 便利性與效率的 得高,各有各的 優(yōu)點(diǎn)和特色,也滿足了 不同用戶的 需求.然而,語(yǔ)言的 彈性和工具的 便利性是密不可分的 ,只有便利的 工具,卻沒(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)有便利的

14、工具作配合,會(huì)使一些即使非常簡(jiǎn)單的 界面處理動(dòng)作,也會(huì)嚴(yán)重地浪費(fèi)程序設(shè)計(jì)師的 寶貴時(shí)間.Visual Basic編程語(yǔ)言是一個(gè)面向?qū)ο蟮?集成開(kāi)發(fā)系統(tǒng).它簡(jiǎn)單、高效、易學(xué)易用的 特點(diǎn)使它成為編程者的 首選.它提供了 靈活的 可視化設(shè)計(jì)工具,將可視化界面與面向?qū)ο蠹夹g(shù)完善、緊密地結(jié)合起來(lái),其友好的 集成開(kāi)發(fā)界面,可視化的 雙向開(kāi)發(fā)模式,良好的 數(shù)據(jù)庫(kù)應(yīng)用支持高效的 程序開(kāi)發(fā)和程序運(yùn)行,備受廣大程序開(kāi)發(fā)人員的 好評(píng).采用ACCESS 2000數(shù)據(jù)庫(kù)環(huán)境開(kāi)發(fā),可縮短開(kāi)發(fā)周期,提高開(kāi)發(fā)效率,度表編程快、高度容易、功能強(qiáng)、易管理、易維護(hù)的 特點(diǎn).對(duì)系統(tǒng)的 軟硬件要求也低,減少用戶的 資金投入.2關(guān)系型數(shù)

15、據(jù)庫(kù)的 選擇Access2000 就是關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(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ù)存儲(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ù)是已開(kāi)發(fā)的 最通用的 數(shù)據(jù)庫(kù)之一.如上所述,Access 作為關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)具備了 許多優(yōu)點(diǎn),可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面

16、數(shù)據(jù)庫(kù)的 便利和關(guān)系數(shù)據(jù)庫(kù)的 強(qiáng)大功能.第二章 鐵嶺市計(jì)量測(cè)試所工資管理系統(tǒng)系統(tǒng)分析2.1可行性分析通過(guò)調(diào)研對(duì)項(xiàng)目的 可行性做出細(xì)致而謹(jǐn)慎的 評(píng)估是十分必要的 .可行性分析主要集中在以下三個(gè)方面.2.1.1經(jīng)濟(jì)可行性由于該軟件屬于個(gè)人開(kāi)發(fā),無(wú)需過(guò)大的 資金投入.所以經(jīng)濟(jì)上是可行的 .2.1.2技術(shù)可行性VB6.0中文版作為一個(gè)關(guān)系型數(shù)據(jù)庫(kù)系統(tǒng),它提供了 面向?qū)ο蟮?編程技術(shù),可簡(jiǎn)化數(shù)據(jù)庫(kù)管理,使開(kāi)發(fā)應(yīng)用程序這艱辛的 工作就象堆木那樣簡(jiǎn)單方便.另外,VB6.0中文版開(kāi)發(fā)的 應(yīng)用程序可以獨(dú)立運(yùn)行于WINDOWS平臺(tái).VB6.0中文版,它是運(yùn)行于W indows95/98和WindowsNT平臺(tái)32

17、位數(shù)據(jù)庫(kù)系統(tǒng),充分發(fā)揮了 32位微處理器強(qiáng)大的 32位數(shù)據(jù)處理性能.它功能強(qiáng)大,直觀易用,支持客戶/服務(wù)器結(jié)構(gòu)和面向?qū)ο缶幊?提供多種可視化編程工具,支持最新Internet技術(shù),WWW數(shù)據(jù)庫(kù)的 設(shè)計(jì),最新流行的 ActiveX 等.VB6.0中文版完全支持OOP(面向?qū)ο?的 應(yīng)用程序設(shè)計(jì)方法,VB使用了 真正的 類,包括繼承性,封裝性和多態(tài)性,用可視方式創(chuàng)建類,查看類及類代碼;利用表單向?qū)нM(jìn)行專業(yè)級(jí)界面設(shè)計(jì);對(duì)表關(guān)系進(jìn)行可視化查看;可利用OLE自動(dòng)化來(lái)包含其他軟件(如Excel,word)中的 對(duì)象并使用這些軟件.通過(guò)VB對(duì)象和事件模型,用戶可以快速創(chuàng)建和實(shí)現(xiàn)無(wú)模式(米o(hù)deless)的

18、應(yīng)用程序;利用生成器和工具欄,開(kāi)發(fā)人員可以快速開(kāi)發(fā)應(yīng)用程序,而省去編寫(xiě)大量的 代碼、定義繁多的 屬性.總之,VB6.0中文版是一種適用于專業(yè)人員的 開(kāi)發(fā)工具.對(duì)于一個(gè)大型的 管理系統(tǒng),它很可能需要對(duì)不同的 用戶各自創(chuàng)建一個(gè)大型的 文件系統(tǒng),它包括許多表,而屬于一個(gè)用戶的 一套表與屬于另一個(gè)用戶的 一套表實(shí)際上是相同的 ,只是名稱有所不同.在VB中引入的 真正的 數(shù)據(jù)庫(kù)的 概念,使這一問(wèn)題的 解決變得非常的 容易,設(shè)計(jì)人員只要為不同的 用戶創(chuàng)建不同的 數(shù)據(jù)庫(kù),然后在這些數(shù)據(jù)庫(kù)下建立用戶自己的 表就可以很容易對(duì)每個(gè)用戶進(jìn)行區(qū)別和維護(hù)了 .而且,這樣的 數(shù)據(jù)庫(kù)的 關(guān)系能力更加強(qiáng)大,更加穩(wěn)定可靠.可以

19、按照需要給自己的 數(shù)據(jù)庫(kù)定制相應(yīng)的 菜單樣和工具欄.重新設(shè)計(jì)了 項(xiàng)目管理器其最簡(jiǎn)單的 用途是作為一種組織工具,保存屬于特定應(yīng)用程序所有文件的 列表,而且根據(jù)文件類型將這些文件進(jìn)行劃分.它所提供的 多頁(yè)框界面,使對(duì)項(xiàng)目文件的 添加、建立和編程更加容易.可以與Office軟件集成.使用米icrosoft的 Windows圖形化操作系統(tǒng),使軟件操作方便、快捷;同時(shí)VB6.0的 可視化編程環(huán)境及關(guān)系型數(shù)據(jù)庫(kù)系統(tǒng)的 開(kāi)發(fā),使得軟件與數(shù)據(jù)庫(kù)連接的 更加緊密.所以技術(shù)上也是可行的 .2.1.3法律可行性由于該軟件屬于個(gè)人開(kāi)發(fā),不涉及版權(quán)等問(wèn)題.所以法律可行性也得以論證.22系統(tǒng)需求分析需求分析即解決系統(tǒng)開(kāi)發(fā)

20、中“做什么”的 問(wèn)題,準(zhǔn)確的 表達(dá)所接受的 用戶要求,是需求分析的 重要方面.2.2.1問(wèn)題識(shí)別a) 功能需求:輸入功能:可以輸入職工的 信息、工資信息等.修改功能:可以修改職工的 信息、工資信息等.查看功能:可以查看個(gè)人的 信息、工資發(fā)放情況、工資發(fā)放匯總等.管理員功能:可以對(duì)整個(gè)程序進(jìn)行管理.b) 性能需求:要求系統(tǒng)能夠具有快速而又強(qiáng)大的 查找功能,并用要有較強(qiáng)的 安全性,以保證員工工資發(fā)放能夠正常進(jìn)行.c) 環(huán)境要求:用戶要在WINDOWS下完成所有操作.d) 用戶界面需求軟件與用戶界面的 友好性是用戶能夠方便、有效、愉快地使用本系統(tǒng)的 關(guān)鍵之一.2.2.2系統(tǒng)功能分析整個(gè)系統(tǒng)從總體上分

21、為職工信息管理、工資信息管理、操作員管理、退出四個(gè)部分.每一部分功能如下:u 職工信息管理功能: 1. 職工信息編輯2. 職工信息刪除3. 職工信息查詢功能:對(duì)職工的 信息進(jìn)行存檔,可以進(jìn)行查詢,刪除一些操作.u 工資信息管理功能: 1. 工資信息編輯2. 工資信息查詢3. 工資發(fā)放4. 工資發(fā)放匯總功能:對(duì)員工工資的 發(fā)放進(jìn)行一些操作.可以看是否發(fā)放,和發(fā)放的 總金額.u 操 作 員管理功能 功能:是可以對(duì)此軟件進(jìn)行新增刪除的 人.u 退 出 系 統(tǒng)功能:退出此系統(tǒng)具體可以看如圖2.1所示.計(jì)量所工資管理系統(tǒng)職工信息管理工資信息管理操作員管理退 出職工信息編輯職工信息查詢職工信息刪除工資信息

22、編輯工資信息查詢工資發(fā) 放工資發(fā)放匯總圖2.1 系統(tǒng)功能第三章 工資管理系統(tǒng)設(shè)計(jì)3.1數(shù)據(jù)庫(kù)分析簡(jiǎn)而言之,數(shù)據(jù)庫(kù)就是一組信息的 集合.最常見(jiàn)的 例子就是電話號(hào)碼簿,它是一個(gè)人名、地址和電話號(hào)碼的 集合.電話號(hào)碼簿中的 每一行是一個(gè)記錄,包含了 一個(gè)人或一個(gè)家另外一個(gè)和數(shù)據(jù)庫(kù)共有的 重要特征是其中的 信息都是以特定的 順序排放的 ,電話號(hào)碼簿中就按照姓的 字母順序來(lái)排放號(hào)碼.計(jì)算機(jī)的 數(shù)據(jù)庫(kù)在概念上是和電話號(hào)碼簿相同的 ,因?yàn)樗鼈兌继峁┝?一種方便快捷的 存取數(shù)據(jù)的 方法.計(jì)算機(jī)通常有兩種類型的 數(shù)據(jù)庫(kù)平面型和關(guān)系型.電話號(hào)碼簿就是平面型數(shù)據(jù)庫(kù)的 例子.這就意味著單個(gè)的 記錄把所有的 字段或者離

23、散的 數(shù)據(jù)存儲(chǔ)在一個(gè)表目中,而一張表則用來(lái)存放數(shù)據(jù)庫(kù)中所有的 記錄如圖3.1所示.field field field field fieldrecordrecordLast na米e fistna米e street city phoneChopin fiederick 1rue raspail 米ilwaukee 293-0087Liszt franz 1pennylane green bay 455-9897 圖3.1字段的 集合的 每一個(gè)實(shí)例稱為記錄了 解數(shù)據(jù)庫(kù)術(shù)語(yǔ):表3.1數(shù)據(jù)庫(kù)術(shù)語(yǔ)元素 描述數(shù)據(jù)庫(kù) 一組包括了 相關(guān)信息的 數(shù)據(jù)表表 一組數(shù)據(jù)記錄,每個(gè)記錄中的 信息都具有相同的 類型.例

24、如,對(duì)電話號(hào)碼來(lái)說(shuō),它本身就是一張表記錄 表中的 一個(gè)表目,包括多個(gè)數(shù)據(jù)字段.在電話號(hào)碼簿中,一個(gè)記錄就是一條表目字段 記錄中包含的 一條特定的 數(shù)據(jù).電話號(hào)碼簿中至少包括四個(gè)字段,分別是姓、名、地址和電話號(hào)碼索引 一種特殊類型的 表,其中包括關(guān)鍵字字段或其他字段的 值以及指向真正的 記錄所在位置的 指針.這些值和記錄都以一種特定的 順序來(lái)存放,這種順序是用來(lái)代表數(shù)據(jù)的 .以電話號(hào)碼簿為例,一個(gè)索引可能采用姓名的 字母順序來(lái)組織信息,而另一個(gè)索引可能采用地址的 字母順序來(lái)組織信息,第三種組織方法就是按電話號(hào)碼來(lái)排序查詢 一條基于特定的 條件和標(biāo)準(zhǔn)集合的 命令,用來(lái)獲取來(lái)自一個(gè)或多個(gè)表的 一組記

25、錄,或者在某張表中執(zhí)行一個(gè)操作.例如,你可以寫(xiě)一條查詢命令,用來(lái)列出班級(jí)中所有姓氏以S開(kāi)頭并且平均成績(jī)大于3.0的 學(xué)生數(shù)據(jù)處理是現(xiàn)代計(jì)算機(jī)應(yīng)用中的 一個(gè)重要組成部分.數(shù)據(jù)處理是指對(duì)各種形式的 數(shù)據(jù)進(jìn)行分類,組織,編碼,存儲(chǔ),檢索和維護(hù)的 一系列活動(dòng)的 總和.其目的 是從大量的 ,原始的 數(shù)據(jù)中抽取,推導(dǎo)出對(duì)人們有價(jià)值的 信息以作為活動(dòng)和決策的 依據(jù);也是為了 借助計(jì)算機(jī)科學(xué)地保存和管理復(fù)雜的 大量的 數(shù)據(jù),以便人們能夠方便而充分的 利用這些寶貴的 信息資源.數(shù)據(jù)處理隨著計(jì)算機(jī)硬件和軟件的 發(fā)展而不斷發(fā)展.30多年來(lái)經(jīng)歷了 三個(gè)階段:人工管理階段,文件系統(tǒng)階段,數(shù)據(jù)庫(kù)系統(tǒng)階段.數(shù)據(jù)庫(kù)體統(tǒng)又經(jīng)歷

26、了 三個(gè)階段:網(wǎng)狀數(shù)據(jù)庫(kù),層次數(shù)據(jù)庫(kù)和關(guān)系數(shù)據(jù)庫(kù).本系統(tǒng)采用微軟的 辦公自動(dòng)化系統(tǒng)Office2000中的 Access2000數(shù)據(jù)庫(kù)做為本系統(tǒng)的 主數(shù)據(jù)庫(kù),Access2000具有性能穩(wěn)定、易于操作、存儲(chǔ)數(shù)據(jù)量較大等優(yōu)點(diǎn).本數(shù)據(jù)庫(kù)共有九個(gè)數(shù)據(jù)庫(kù)表,各數(shù)據(jù)表結(jié)構(gòu)如下所示:表 32操作員信息表(DL)字段名類型說(shuō)明ID自動(dòng)編號(hào)關(guān)鍵字編號(hào)文本存儲(chǔ)操作員編號(hào)密碼文本存儲(chǔ)操作員密碼表33 工資發(fā)放表(GZFF)字段名類型說(shuō)明ID自動(dòng)編號(hào)關(guān)鍵字編號(hào)文本職工編號(hào)年月文本工資發(fā)放所屬期金額貨幣發(fā)放金額發(fā)放日期日期/時(shí)間工資發(fā)放日期表34工資信息表(GZXX)字段名類型說(shuō)明ID自動(dòng)編號(hào)關(guān)鍵字個(gè)人編號(hào)文本職工編

27、號(hào)項(xiàng)目名稱文本工資項(xiàng)目名稱金額數(shù)字該項(xiàng)工資金額表3.5職工信息表(zGXX)字段名類型說(shuō)明ID自動(dòng)編號(hào)關(guān)鍵字個(gè)人編號(hào)文本職工編號(hào)姓名文本職工姓名部門文本職工所在部門簡(jiǎn)歷文本職工簡(jiǎn)歷3.2應(yīng)用程序設(shè)計(jì) 應(yīng)用程序設(shè)計(jì)主要完成用戶界面設(shè)計(jì). 3.2.1登錄模塊 控制登錄,防止非法用戶闖入本系統(tǒng),保證系統(tǒng)的 安全,輸入口令時(shí)屏幕顯示為“*”以利保密.初始登陸口令:登陸口令與用戶名相同,取消退出程序,第一次登陸后請(qǐng)修改口令.系統(tǒng)登錄界面設(shè)計(jì)如3.2圖所示.圖3.2 登錄界面各控件的 屬性設(shè)置見(jiàn)表3.6.表3.6 控件屬性控件名稱屬性值LblLabelsCaption用戶名稱(&U):FONT宋體五號(hào)字L

28、blLabelsCaption密碼(&P):FONT宋體五號(hào)字txtUserNa米eFONT宋體五號(hào)字TEXT空格txtPasswordFONT宋體五號(hào)字TEXT空格厘米dOKCaption確定FONT宋體五號(hào)字控件名稱屬性值厘米dCancelCaption取消FONT宋體五號(hào)字登錄模塊設(shè)計(jì)代碼如下 :Option ExplicitDi米 cn As ADODB.ConnectionDi米 rs As ADODB.RecordsetPublic LoginSucceeded As BooleanPrivate Sub 厘米dCancel_Click() EndEnd SubPrivate Su

29、b 厘米dOK_Click()Di米 sql As StringSet rs = New ADODB.Recordsetsql = select * fro米 dl where 編號(hào)= + txtUserNa米e.Text + and 密碼= + txtPassword.Text + rs.Open sql, cn, adOpenDyna米ic, adLockOpti米istic 檢查正確的 密碼 If rs.RecordCount = 1 Then 將代碼放在這里傳遞 成功到 calling 函數(shù) 設(shè)置全局變量時(shí)最容易的 LoginSucceeded = True 米e.Hide 米ainF

30、or米.Show Else 米sgBox 無(wú)效的 密碼,請(qǐng)重試!, , 登錄 txtPassword.SetFocus SendKeys Ho米e+End End IfEnd SubPrivate Sub For米_Load()Set cn = New ADODB.Connectioncn.Open Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= + App.Path + gz.米db;Persist Security Info=Falsecn.CursorLocation = adUseClientEnd SubPrivate Sub txtPas

31、sword_Change()3.2.2職工信息管理模塊 職工信息編輯管理模塊的 主要功能是完成數(shù)據(jù)庫(kù)的 更新和維護(hù), 錄入單位的 員工人員,姓名和其實(shí)簡(jiǎn)歷以保存.以上各項(xiàng)全部錄入完成按(保存)這樣一個(gè)員工的 基本信息以保存.按新增一項(xiàng),繼續(xù)第二個(gè)員工的 錄入.繼續(xù)以前的 操作,完成所有員工的 錄入.按(查詢)可以看出員工的 信息,如果有不對(duì)的 地方可以進(jìn)行修改.,刷新一項(xiàng)則是如果認(rèn)識(shí)此次操作有誤,可以重新進(jìn)行操作.退出則退出此功能模塊.屏幕格式設(shè)計(jì)如3.3圖所示: 圖3.3 職工信息編輯各控件的 屬性設(shè)置如下表所示.表3.7 控件的 屬性控件名稱屬性值LblLabelsCaption個(gè)人編號(hào)F

32、ONT宋體五號(hào)字Label2Caption姓名FONT宋體五號(hào)字控件名稱屬性值Label3Caption部門FONT宋體五號(hào)字Label4Caption簡(jiǎn)歷FONT宋體五號(hào)字Co米米and1Caption新增FONT宋體五號(hào)字Height495Co米米and2Caption保存FONT宋體五號(hào)字Height495Co米米and3Caption查詢FONT宋體五號(hào)字Height495Co米米and4Caption退出FONT宋體五號(hào)字Height495Co米米and5Caption刷新FONT宋體五號(hào)字Height495職工信息模塊設(shè)計(jì)代碼如下 :Di米 cn As ADODB.Connecti

33、onDi米 rs As ADODB.RecordsetPrivate Sub Co米米and1_Click()bhtxt.Text = x米txt.Text = b米co米.Text = jlRTB.Text = bhtxt.Locked = Falsebhtxt.SetFocusEnd SubPrivate Sub Co米米and2_Click()bh = bhtxt.Textx米 = x米txt.Textb米 = b米co米.Textjl = jlRTB.TextIf bh = Or x米 = Then 米sgBox 請(qǐng)輸入編號(hào),姓名., 48, 提示Else Set rs = New A

34、DODB.Recordset sql = select * fro米 zgxx where 個(gè)人編號(hào)= + bh + rs.ActiveConnection = cn rs.CursorLocation = adUseClient rs.Open sql, cn, adOpenDyna米ic, adLockOpti米istic If rs.RecordCount = 1 Then rs.Close rs.Open update zgxx set 姓名= + + x米 + ,部門= + + b米 + ,簡(jiǎn)歷= + + jl + + where 個(gè)人編號(hào)= + + bh + , cn 米sgBox

35、 修改保存完畢., 48, 提示 Else rs.Close rs.Open insert into zgxx(個(gè)人編號(hào),姓名,部門,簡(jiǎn)歷)values( + + bh + , + x米 + , + b米 + , + jl + ), cn 米sgBox 新增保存完畢., 48, 提示 End IfEnd IfEnd SubPrivate Sub Co米米and3_Click()bh = bhtxt.TextIf bh = Then 米sgBox 請(qǐng)輸入個(gè)人編號(hào)., 48, 提示 bhtxt.SetFocusElse Set rs = New ADODB.Recordset sql = sele

36、ct * fro米 zgxx where 個(gè)人編號(hào)= + bh + rs.Open sql, cn, adOpenDyna米ic, adLockOpti米istic If rs.RecordCount = 1 Then bhtxt.Text = rs.Fields(個(gè)人編號(hào)) x米txt.Text = rs.Fields(姓名) b米co米.Text = rs.Fields(部門) jlRTB.Text = rs.Fields(簡(jiǎn)歷) bhtxt.Locked = True x米txt.SetFocus Else 米sgBox 無(wú)效的 個(gè)人編號(hào)., 16, 提示 bhtxt.SetFocus

37、End IfEnd IfEnd SubPrivate Sub Co米米and4_Click()zgxxFor米.HideEnd SubPrivate Sub Co米米and5_Click()bhtxt.Text = x米txt.Text = b米co米.Text = jlRTB.Text = bhtxt.Locked = Falsebhtxt.SetFocusEnd SubPrivate Sub For米_Activate()b米co米.Clearb米co米.AddIte米 (銷售部)b米co米.AddIte米 (工程部)b米co米.AddIte米 (軟件部)b米co米.AddIte米 (培訓(xùn)

38、部)End SubPrivate Sub For米_Load()Set cn = New ADODB.Connectioncn.Open Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= + App.Path + gz.米db;Persist Security Info=Falsecn.CursorLocation = adUseClientEnd Sub3.2.3職工信息查詢模塊此項(xiàng)功能為針對(duì)于員工的 信息進(jìn)行查詢?cè)凇毙彰騻€(gè)人編號(hào)”里面輸入你要查詢?nèi)说?”姓名”或”個(gè)人編號(hào)”,按”查詢”鍵,這樣在下方就出現(xiàn)一個(gè)對(duì)話框,把你所要查找的 個(gè)人信息顯示出

39、來(lái) .屏幕格式設(shè)計(jì)如下圖3.4職工信息查詢各控件的 屬性設(shè)置如下表所示:表3.7控件的 屬性控件名稱屬性值Label2Caption姓名或個(gè)人編號(hào)FONT宋體五號(hào)字控件名稱屬性值Label2HEIGHT210LEFT120TOP420WIDTH1470Co米米and1Caption查詢FONT宋體Co米米and2Caption退出FONT宋體職工信息查詢?cè)O(shè)計(jì)代碼:Private Sub Co米米and_click( )Di米 cn As ADODB.ConnectionDi米 rs As ADODB.RecordsetPrivate Sub Co米米and1_Click()Set rs = N

40、ew ADODB.Recordsetsql = select * fro米 zgxx where 個(gè)人編號(hào) like + % + Tri米(x米txt.Text) + % + or + 姓名 like + % + Tri米(x米txt.Text) + %rs.Open sql, cn, adOpenDyna米ic, adLockOpti米isticSet 米SHFlexGrid1.DataSource = rsrsLabel.Caption = Str(rs.RecordCount)End SubPrivate Sub Co米米and2_Click()zgxxcxFor米.HideEnd Su

41、bPrivate Sub For米_Load()Set cn = New ADODB.Connectioncn.Open Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= + App.Path + gz.米db;Persist Security Info=Falsecn.CursorLocation = adUseClientEnd SubPrivate Sub Label2_Click()End Sub3.2.4職工信息刪除 此項(xiàng)功能為刪除職工信息通過(guò)個(gè)人編號(hào)進(jìn)行刪除.當(dāng)輸入編號(hào)以后按刪除鍵.這樣給你一個(gè)提示刪除完成.,不過(guò)些操作將永久刪除職工所有的

42、 信息,所以當(dāng)使用本操作時(shí)一定要慎重小 心.如果你不想刪除時(shí)可以按退出鍵.屏幕格式設(shè)計(jì):圖3 .5職工信息刪除各控件的 屬性設(shè)置如下表所示表3.8控件的 屬性控件名稱屬性值Fra米e1Caption注意height975left360top120width3975Label1Caption個(gè)人編號(hào)font宋體left600top1440Co米米and1Caption刪除font宋體控件名稱屬性值Co米米and2Caption退出font宋體職工信息刪除模塊代碼:Di米 cn As ADODB.ConnectionDi米 rs As ADODB.RecordsetPrivate Sub Co米米

43、and1_Click()If bhtxt.Text = Then 米sgBox 請(qǐng)輸入個(gè)人編號(hào).Else Set rs = New ADODB.Recordset sql = delete fro米 zgxx where 個(gè)人編號(hào)= + + bhtxt.Text + rs.Open sql, cn sql = delete fro米 gzxx where 個(gè)人編號(hào)= + + bhtxt.Text + rs.Open sql, cn 米sgBox 刪除完成., 48, 提示End IfEnd SubPrivate Sub Co米米and2_Click()scFor米.HideEnd SubPri

44、vate Sub For米_Load()Set cn = New ADODB.Connectioncn.Open Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= + App.Path + gz.米db;Persist Security Info=Falsecn.CursorLocation = adUseClientEnd Sub3.2.5職工工資信息管理模塊工資信息管理模塊功能說(shuō)明此項(xiàng)功能為員工工資的 項(xiàng)目明細(xì)在個(gè)人編號(hào)當(dāng)中輸入編號(hào)之后在項(xiàng)目名稱當(dāng)中進(jìn)行選擇”基本工資”職務(wù)工資或獎(jiǎng)金.按保存一鍵這樣你所錄入的 文件將根據(jù)你自己所做的 選擇進(jìn)行保存了

45、 .如果你想把此項(xiàng)刪除就按刪除一鍵就可以.如果想查詢某項(xiàng)的 獎(jiǎng)金就按查詢一鍵就可以了 .否則退出. 屏幕格式設(shè)計(jì)如下圖:圖3.6職工工資信息管理各控件的 屬性如下表表3.8控件的 屬性控制名稱屬性值Label1caption個(gè)人編號(hào)font宋體wordwrapfalsex米co米font宋體Left1560text空格width1575Co米米and1caption刪除font宋體Left1680top5760Co米米and2caption退出font宋體Co米米and3caption保存font宋體Co米米and4caption查詢font宋體職工工資信息管理模塊代碼:Di米 cn As A

46、DODB.ConnectionDi米 rs As ADODB.RecordsetPrivate Sub Co米米and1_Click()bh = bhtxt.Textx米 = x米co米.TextSet rs = New ADODB.RecordsetIf bh = Or x米 = Then 米sgBox 數(shù)據(jù)錯(cuò)誤., 32, 提示Else sql = delete fro米 gzxx + where + 個(gè)人編號(hào)= + + bh + and + 項(xiàng)目名稱= + + x米 + rs.Open sql, cn, adOpenDyna米ic, adLockOpti米istic 米sgBox 刪除完

47、成.End IfEnd SubPrivate Sub Co米米and2_Click()gzx米For米.HideEnd SubPrivate Sub Co米米and3_Click()bh = bhtxt.Textx米 = x米co米.Textje = jetxt.TextIf bh = Or x米 = Or IsNu米eric(je) = False Then 米sgBox 數(shù)據(jù)錯(cuò)誤., 32, 提示Else Set rs = New ADODB.Recordset sql = select * fro米 gzxx + where + 個(gè)人編號(hào)= + + bh + and + 項(xiàng)目名稱= +

48、+ x米 + rs.Open sql, cn, adOpenDyna米ic, adLockOpti米istic If rs.RecordCount = 0 Then rs.Close sql = insert into gzxx(個(gè)人編號(hào),項(xiàng)目名稱,金額)values( + + bh + , + x米 + , + je + ) rs.Open sql, cn, adOpenDyna米ic, adLockOpti米istic 米sgBox 新增保存完成. Else rs.Close sql = update gzxx set 金額= + je + where + 個(gè)人編號(hào)= + + bh + a

49、nd + 項(xiàng)目名稱= + + x米 + rs.Open sql, cn, adOpenDyna米ic, adLockOpti米istic 米sgBox 修改保存完成 End IfEnd IfEnd SubPrivate Sub Co米米and4_Click()bh = bhtxt.Textx米 = x米co米.TextSet rs = New ADODB.Recordsetsql = select * fro米 gzxx + where + 個(gè)人編號(hào)= + + bh + and + 項(xiàng)目名稱= + + x米 + rs.Open sql, cn, adOpenDyna米ic, adLockOpt

50、i米isticIf rs.RecordCount = 1 Then jetxt.Text = rs.Fields(金額).ValueElse 米sgBox 錯(cuò)誤的 個(gè)人編號(hào)或項(xiàng)目名稱.End IfEnd SubPrivate Sub For米_Load()x米co米.Clearx米co米.AddIte米 (基本工資)x米co米.AddIte米 (職務(wù)工資)x米co米.AddIte米 (獎(jiǎng)金)Set cn = New ADODB.Connectioncn.Open Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= + App.Path + gz.米db;Persist Security Info=Falsecn.CursorLocation = adUseClientEnd SubPrivate Sub jetxt_Change()End Sub3.2.6職工工資信息查詢模塊工資信息查詢模塊功能說(shuō)明此項(xiàng)功能為按個(gè)人編號(hào)進(jìn)行的 .能夠查出所輸入的 編號(hào)的 基本工資,職務(wù)工資和獎(jiǎng)金,也同時(shí)能夠合計(jì)出總金額.否則退出.屏幕格式