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

1、XXXXX大學(xué)開放教育計算機(jī)科學(xué)與技術(shù)本科畢業(yè)論文-XX市計量測試所工資管理系統(tǒng)XXXXX大學(xué)計算機(jī)科學(xué)與技術(shù)專業(yè)(本科)畢業(yè)設(shè)計論文設(shè)計題目 XX市計量測試所工資管理系統(tǒng) 所在班級: 2002春計本 學(xué)生姓名: 學(xué) 號: 指導(dǎo)教師: 完成日期: 目 錄第一章 引 言41.1 概述41.2系統(tǒng)意義41.3系統(tǒng)目標(biāo)41.4 工資管理系統(tǒng)將達(dá)到的 效果51.5 使用軟件的 介紹51應(yīng)用程序開發(fā)工具52關(guān)系型數(shù)據(jù)庫的 選擇5第二章 鐵嶺市計量測試所工資管理系統(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問題識別82.2.2

2、系統(tǒng)功能分析8第三章 工資管理系統(tǒng)設(shè)計103.1數(shù)據(jù)庫分析103.2應(yīng)用程序設(shè)計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)測試314.1軟件測試的 目的 314.2測試條件及要求314.3軟件測試的 步驟314.4單元測試324.5集成測試32第五章 總結(jié)34致 謝35參考文獻(xiàn)36摘 要工資管理系統(tǒng)是典型的 管理信息系統(tǒng),采用計算機(jī)管理企業(yè)的 工資發(fā)放是當(dāng)前不可缺少的 一種管理手段.其開發(fā)主要

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

4、思想、難點技術(shù)和解決方案.關(guān)鍵詞:工資管理系統(tǒng) VB6.0 數(shù)據(jù)庫 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 概述隨著我國國民經(jīng)濟(jì)建設(shè)的 蓬勃發(fā)展,信息化深入到社會的 各個行業(yè),企事業(yè)單位也面臨著更大的 機(jī)遇與挑戰(zhàn),如何融入信息化進(jìn)程是每一個企事業(yè)單位必須解決的 問題,利用計算機(jī)實現(xiàn)企事業(yè)工資的 管理已是當(dāng)前不可缺少的 一種管理手段.工資管理是一項瑣碎的 、復(fù)雜而又十分細(xì)致的 工作,工資計算、發(fā)放、核算的 工作量

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

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

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

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

13、用于設(shè)計界面和實現(xiàn)各種功能,減少了 編程人員的 工作量,也簡化了 界面設(shè)計過程,從而有效的 提高了 應(yīng)用程序的 運(yùn)行效率和可靠性.故而,實現(xiàn)本系統(tǒng)VB是一個相對較好的 選擇.在目前市場上這些眾多的 程序開發(fā)工具中,有些強(qiáng)調(diào)程語言的 彈性與執(zhí)行效率;有些則偏重于可視化程序開發(fā)工具所帶來的 便利性與效率的 得高,各有各的 優(yōu)點和特色,也滿足了 不同用戶的 需求.然而,語言的 彈性和工具的 便利性是密不可分的 ,只有便利的 工具,卻沒有彈性的 語言作支持,許多特殊化的 處理動作必需要耗費數(shù)倍的 工夫來處理,使得原來所標(biāo)榜的 效率提高的 優(yōu)點失去了 作用;相反,如果只強(qiáng)調(diào)程語言的 彈性,卻沒有便利的

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

15、據(jù)庫的 選擇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ù)存儲庫,可以使用桌面數(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ù)包中同時擁有桌面

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

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

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

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

20、中“做什么”的 問題,準(zhǔn)確的 表達(dá)所接受的 用戶要求,是需求分析的 重要方面.2.2.1問題識別a) 功能需求:輸入功能:可以輸入職工的 信息、工資信息等.修改功能:可以修改職工的 信息、工資信息等.查看功能:可以查看個人的 信息、工資發(fā)放情況、工資發(fā)放匯總等.管理員功能:可以對整個程序進(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)功能分析整個系統(tǒng)從總體上分

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

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

23、散的 數(shù)據(jù)存儲在一個表目中,而一張表則用來存放數(shù)據(jù)庫中所有的 記錄如圖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字段的 集合的 每一個實例稱為記錄了 解數(shù)據(jù)庫術(shù)語:表3.1數(shù)據(jù)庫術(shù)語元素 描述數(shù)據(jù)庫 一組包括了 相關(guān)信息的 數(shù)據(jù)表表 一組數(shù)據(jù)記錄,每個記錄中的 信息都具有相同的 類型.例

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

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

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

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

28、blLabelsCaption密碼(&P):FONT宋體五號字txtUserNa米eFONT宋體五號字TEXT空格txtPasswordFONT宋體五號字TEXT空格厘米dOKCaption確定FONT宋體五號字控件名稱屬性值厘米dCancelCaption取消FONT宋體五號字登錄模塊設(shè)計代碼如下 :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 編號= + txtUserNa米e.Text + and 密碼= + txtPassword.Text + rs.Open sql, cn, adOpenDyna米ic, adLockOpti米istic 檢查正確的 密碼 If rs.RecordCount = 1 Then 將代碼放在這里傳遞 成功到 calling 函數(shù) 設(shè)置全局變量時最容易的 LoginSucceeded = True 米e.Hide 米ainF

30、or米.Show Else 米sgBox 無效的 密碼,請重試!, , 登錄 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ù)庫的 更新和維護(hù), 錄入單位的 員工人員,姓名和其實簡歷以保存.以上各項全部錄入完成按(保存)這樣一個員工的 基本信息以保存.按新增一項,繼續(xù)第二個員工的 錄入.繼續(xù)以前的 操作,完成所有員工的 錄入.按(查詢)可以看出員工的 信息,如果有不對的 地方可以進(jìn)行修改.,刷新一項則是如果認(rèn)識此次操作有誤,可以重新進(jìn)行操作.退出則退出此功能模塊.屏幕格式設(shè)計如3.3圖所示: 圖3.3 職工信息編輯各控件的 屬性設(shè)置如下表所示.表3.7 控件的 屬性控件名稱屬性值LblLabelsCaption個人編號F

32、ONT宋體五號字Label2Caption姓名FONT宋體五號字控件名稱屬性值Label3Caption部門FONT宋體五號字Label4Caption簡歷FONT宋體五號字Co米米and1Caption新增FONT宋體五號字Height495Co米米and2Caption保存FONT宋體五號字Height495Co米米and3Caption查詢FONT宋體五號字Height495Co米米and4Caption退出FONT宋體五號字Height495Co米米and5Caption刷新FONT宋體五號字Height495職工信息模塊設(shè)計代碼如下 :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 請輸入編號,姓名., 48, 提示Else Set rs = New A

34、DODB.Recordset sql = select * fro米 zgxx where 個人編號= + 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米 + ,簡歷= + + jl + + where 個人編號= + + bh + , cn 米sgBox

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

36、ct * fro米 zgxx where 個人編號= + bh + rs.Open sql, cn, adOpenDyna米ic, adLockOpti米istic If rs.RecordCount = 1 Then bhtxt.Text = rs.Fields(個人編號) x米txt.Text = rs.Fields(姓名) b米co米.Text = rs.Fields(部門) jlRTB.Text = rs.Fields(簡歷) bhtxt.Locked = True x米txt.SetFocus Else 米sgBox 無效的 個人編號., 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職工信息查詢模塊此項功能為針對于員工的 信息進(jìn)行查詢在”姓名或個人編號”里面輸入你要查詢?nèi)说?”姓名”或”個人編號”,按”查詢”鍵,這樣在下方就出現(xiàn)一個對話框,把你所要查找的 個人信息顯示出

39、來 .屏幕格式設(shè)計如下圖3.4職工信息查詢各控件的 屬性設(shè)置如下表所示:表3.7控件的 屬性控件名稱屬性值Label2Caption姓名或個人編號FONT宋體五號字控件名稱屬性值Label2HEIGHT210LEFT120TOP420WIDTH1470Co米米and1Caption查詢FONT宋體Co米米and2Caption退出FONT宋體職工信息查詢設(shè)計代碼: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 個人編號 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職工信息刪除 此項功能為刪除職工信息通過個人編號進(jìn)行刪除.當(dāng)輸入編號以后按刪除鍵.這樣給你一個提示刪除完成.,不過些操作將永久刪除職工所有的

42、 信息,所以當(dāng)使用本操作時一定要慎重小 心.如果你不想刪除時可以按退出鍵.屏幕格式設(shè)計:圖3 .5職工信息刪除各控件的 屬性設(shè)置如下表所示表3.8控件的 屬性控件名稱屬性值Fra米e1Caption注意height975left360top120width3975Label1Caption個人編號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 請輸入個人編號.Else Set rs = New ADODB.Recordset sql = delete fro米 zgxx where 個人編號= + + bhtxt.Text + rs.Open sql, cn sql = delete fro米 gzxx where 個人編號= + + 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職工工資信息管理模塊工資信息管理模塊功能說明此項功能為員工工資的 項目明細(xì)在個人編號當(dāng)中輸入編號之后在項目名稱當(dāng)中進(jìn)行選擇”基本工資”職務(wù)工資或獎金.按保存一鍵這樣你所錄入的 文件將根據(jù)你自己所做的 選擇進(jìn)行保存了

45、 .如果你想把此項刪除就按刪除一鍵就可以.如果想查詢某項的 獎金就按查詢一鍵就可以了 .否則退出. 屏幕格式設(shè)計如下圖:圖3.6職工工資信息管理各控件的 屬性如下表表3.8控件的 屬性控制名稱屬性值Label1caption個人編號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ù)錯誤., 32, 提示Else sql = delete fro米 gzxx + where + 個人編號= + + bh + and + 項目名稱= + + 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ù)錯誤., 32, 提示Else Set rs = New ADODB.Recordset sql = select * fro米 gzxx + where + 個人編號= + + bh + and + 項目名稱= +

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

49、nd + 項目名稱= + + 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 + 個人編號= + + bh + and + 項目名稱= + + x米 + rs.Open sql, cn, adOpenDyna米ic, adLockOpt

50、i米isticIf rs.RecordCount = 1 Then jetxt.Text = rs.Fields(金額).ValueElse 米sgBox 錯誤的 個人編號或項目名稱.End IfEnd SubPrivate Sub For米_Load()x米co米.Clearx米co米.AddIte米 (基本工資)x米co米.AddIte米 (職務(wù)工資)x米co米.AddIte米 (獎金)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職工工資信息查詢模塊工資信息查詢模塊功能說明此項功能為按個人編號進(jìn)行的 .能夠查出所輸入的 編號的 基本工資,職務(wù)工資和獎金,也同時能夠合計出總金額.否則退出.屏幕格式