1、 數(shù)據(jù)庫(kù)原理課程設(shè)計(jì)任務(wù)書題目： 工資管理系統(tǒng) 學(xué)生姓名: 學(xué) 號(hào)： 1348 班 級(jí)：物聯(lián)網(wǎng)工程一班 題目類型： 軟件工程（R） 指導(dǎo)教師： 一、數(shù)據(jù)庫(kù)課程設(shè)計(jì)題目簡(jiǎn)介該設(shè)計(jì)要求學(xué)生以工資管理系統(tǒng)為背景，設(shè)計(jì)并開發(fā)一套“工資管理系統(tǒng)”軟件。通過(guò)該題目的設(shè)計(jì)、開發(fā)，使學(xué)生初步得到數(shù)據(jù)庫(kù)開發(fā)的訓(xùn)練，全面培養(yǎng)軟件開發(fā)過(guò)程中的分析、設(shè)計(jì)、編碼、測(cè)試及文檔規(guī)范書寫的能力，得到軟件開發(fā)的綜合訓(xùn)練，提高解決實(shí)際問(wèn)題的能力。二、數(shù)據(jù)庫(kù)課程設(shè)計(jì)的任務(wù)1、查閱文獻(xiàn)資料，一般在10篇以上；2、以工資管理系統(tǒng)為背景，通過(guò)調(diào)研、分析現(xiàn)有的管理模式和已有的管理軟件，建立系統(tǒng)模型；3、完成軟件結(jié)構(gòu)設(shè)計(jì)、數(shù)據(jù)庫(kù)設(shè)計(jì)和算法設(shè)

2、計(jì)；4、完成工資管理系統(tǒng)的軟件開發(fā)和測(cè)試工作。5、撰寫設(shè)計(jì)說(shuō)明書；6、做好答辯工作。三、數(shù)據(jù)庫(kù)課程設(shè)計(jì)的主要內(nèi)容、功能及技術(shù)指標(biāo)1、系統(tǒng)功能的基本要求：（1） 員工每個(gè)工種基本工資的設(shè)定；（2） 加班津貼管理，根據(jù)加班時(shí)間和類型給予不同的加班津貼；（3） 按照不同工種的基本工資情況、員工的考勤情況產(chǎn)生員工的每月的月工資；（4） 員工年終獎(jiǎng)金的生成，員工的年終獎(jiǎng)金計(jì)算公式（員工本年度的工資總和津貼的總和）/12；（5） 企業(yè)工資報(bào)表。能夠查詢單個(gè)員工的工資情況、每個(gè)部門的工資情況、按月的工資統(tǒng)計(jì)，并能夠打印。2、數(shù)據(jù)庫(kù)要求：（在數(shù)據(jù)庫(kù)中至少應(yīng)該包含下列數(shù)據(jù)表）（1） 員工考勤情況表；（2） 員工

3、工種情況表，反映員工的工種、等級(jí)，基本工資等信息；（3） 員工津貼信息表，反映員工的加班時(shí)間，加班類別、加班天數(shù)、津貼情況等；（4） 員工基本信息表；（5） 員工月工資表。3、其它要求：（1）系統(tǒng)要實(shí)現(xiàn)滿足多種條件的統(tǒng)計(jì)分析功能，有些統(tǒng)計(jì)數(shù)據(jù)要采用圖表的格式呈現(xiàn)；（2）系統(tǒng)要有一定的安全控制策略；（3）系統(tǒng)要采用實(shí)際數(shù)據(jù)進(jìn)行測(cè)試。四、數(shù)據(jù)庫(kù)課程設(shè)計(jì)提交的成果1. 課程設(shè)計(jì)說(shuō)明書一份， A4打印稿，正文部分要求不少于20 頁(yè)，所有英文字體采用Arial。正文及目錄格式參考（畢業(yè)設(shè)計(jì)論文格式要求）正文內(nèi)容包括：(1) 需求分析； (2) 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)； (3) 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)； (4)

4、數(shù)據(jù)流圖及程序結(jié)構(gòu)框圖； (5) 程序源代碼及其說(shuō)明； (6) 總結(jié)；(7) 參考文獻(xiàn)。2. 刻制光盤一張，把完成的所有電子文檔（設(shè)計(jì)說(shuō)明書文檔、打包后可運(yùn)行程序及源程序）一并交由指導(dǎo)老師處。注：文檔目錄按照如下統(tǒng)一命名規(guī)則建立，“課設(shè)題目名稱/學(xué)號(hào)姓名/”，比如“公司人事管理系統(tǒng)/12730101周歡歡/”。五、主要參考文獻(xiàn)1 王珊、薩師煊著 數(shù)據(jù)庫(kù)系統(tǒng)概論（第五版）. 高等教育出版社, 2014.92 劉金嶺等著 數(shù)據(jù)庫(kù)原理及應(yīng)用實(shí)驗(yàn)與課程設(shè)計(jì)指導(dǎo)，清華大學(xué)出版社出版，2010.63 錢雪忠等著 數(shù)據(jù)庫(kù)原理及技術(shù)課程設(shè)計(jì)(全新正版），清華大學(xué)出版社出版，2009.24 周屹著 數(shù)據(jù)庫(kù)原理及

5、開發(fā)應(yīng)用實(shí)驗(yàn)與課程設(shè)計(jì)指導(dǎo), 清華大學(xué)出版社出版，2008.125 陸慧娟主編 數(shù)據(jù)庫(kù)設(shè)計(jì)與應(yīng)用開發(fā)實(shí)踐，清華大學(xué)出版社 2014.1 6 陶宏才等編著 數(shù)據(jù)庫(kù)原理及設(shè)計(jì)，清華大學(xué)出版社 2014.1 7 丁忠俊著 數(shù)據(jù)庫(kù)系統(tǒng)原理及應(yīng)用，清華大學(xué)出版社出版，2012.48 李曉峰等著 數(shù)據(jù)庫(kù)系統(tǒng)原理及應(yīng)用，水利水電出版社，2011.29 萬(wàn)常選著 數(shù)據(jù)庫(kù)系統(tǒng)原理與設(shè)計(jì)(第2版)，清華大學(xué)出版社出版，2012.910 路游，于玉宗編著 數(shù)據(jù)庫(kù)系統(tǒng)課程設(shè)計(jì)，清華大學(xué)出版社 2009 11Access 2010數(shù)據(jù)庫(kù)應(yīng)用從入門到精通何先軍編,中國(guó)鐵道出版社.2013.1012 印 辛赫（Singh.

6、S.K）著 何玉潔，王曉波，車?yán)伲茸g數(shù)據(jù)庫(kù)系統(tǒng)概念、設(shè)計(jì)及應(yīng)用,機(jī)械工業(yè)出版社，2010.1六、各階段時(shí)間安排（共2周）周次 日期內(nèi)容地點(diǎn)第1周星期一分組、選題、收集與整理資料教室星期二數(shù)據(jù)庫(kù)分析與設(shè)計(jì)教室星期三星期五用戶界面設(shè)計(jì)及系統(tǒng)功能實(shí)現(xiàn)教室第2周星期一星期二用戶界面設(shè)計(jì)及系統(tǒng)功能實(shí)現(xiàn)教室星期三調(diào)試程序教室星期四撰寫課程設(shè)計(jì)說(shuō)明書教室星期五答辯教室2015年12月15日 摘 要 隨著信息自動(dòng)化處理技術(shù)的日益發(fā)展,如何科學(xué),全面,高效的對(duì)單位紛繁復(fù)雜的檔案管理事務(wù)進(jìn)行計(jì)算機(jī)的自動(dòng)化管理是個(gè)熱門話題,當(dāng)前企事業(yè)單位為了提升自身的競(jìng)爭(zhēng)力,各單位都在定制和購(gòu)買各項(xiàng)業(yè)務(wù)應(yīng)用軟件,運(yùn)用高科技手段進(jìn)

7、行科學(xué),規(guī)范的管理。作為工資管理系統(tǒng)的管理者,希望能夠?qū)べY管理系統(tǒng)的整個(gè)流程狀態(tài),信息資料的情況了如指掌,使其可以做出科學(xué)的決策。 論文主要探討“房產(chǎn)中介管理系統(tǒng)”的理論基礎(chǔ)和設(shè)計(jì)思想,根據(jù)系統(tǒng)的開發(fā)過(guò)程和系統(tǒng)的功能實(shí)現(xiàn)為主線來(lái)論述數(shù)據(jù)庫(kù)管理軟件的開發(fā)過(guò)程。主要闡述以軟件工程理論作為系統(tǒng)開發(fā)的理論基礎(chǔ),以客戶機(jī)/服務(wù)器模式的關(guān)系型數(shù)據(jù)庫(kù)作為后臺(tái),以專業(yè)數(shù)據(jù)庫(kù)開發(fā)語(yǔ)言作為實(shí)現(xiàn)手段的數(shù)據(jù)庫(kù)管理軟件的開發(fā)過(guò)程分析和理論研究。 本系統(tǒng)結(jié)合企業(yè)的實(shí)際需要，通過(guò)對(duì)VB6.0模式、數(shù)據(jù)庫(kù)以及SQL語(yǔ)言的深入學(xué)習(xí)及實(shí)踐，主要完成了工資管理系統(tǒng)的需求分析、數(shù)據(jù)庫(kù)設(shè)計(jì)、應(yīng)用程序設(shè)計(jì)與開發(fā)工作。系統(tǒng)包括工資、部門

8、、單位和人員等數(shù)據(jù)庫(kù)文件，并設(shè)有數(shù)據(jù)庫(kù)管理、部門管理、人員管理等功能，通過(guò)對(duì)數(shù)據(jù)庫(kù)的控制和管理，可實(shí)現(xiàn)查詢、增加、刪除、修改等功能。該設(shè)計(jì)基本合理，功能比較完備，經(jīng)過(guò)測(cè)試運(yùn)行穩(wěn)定，能夠滿足工作中的基本需求。關(guān)鍵詞：工資管理系統(tǒng)；職工信息；數(shù)據(jù)庫(kù)目 錄1 系統(tǒng)簡(jiǎn)介12 系統(tǒng)需求分析22.1需求調(diào)查22.2可行性分析22.2.1技術(shù)可行性22.2.2經(jīng)濟(jì)可行性32.2.3操作可行性32.2數(shù)據(jù)流程圖32.3數(shù)據(jù)字典53 概念結(jié)構(gòu)設(shè)64 邏輯結(jié)構(gòu)設(shè)計(jì)95 物理結(jié)構(gòu)設(shè)計(jì)116 系統(tǒng)主要查詢功能及SQL語(yǔ)句126.1 SQL查詢語(yǔ)句126.2 SQL插入語(yǔ)句136.3 SQL刪除語(yǔ)句136.4 SQL修

9、改語(yǔ)句13 7 系統(tǒng)實(shí)現(xiàn)157.1系統(tǒng)功能模塊圖157.2部分程序代碼167.2.1登陸模塊代碼167.2.2員工管理模塊代碼177.2.3員工工資代碼197.2.4部門維護(hù)代碼227.2.5按姓名查詢工資代碼237.3系統(tǒng)運(yùn)行截圖257.3.1系統(tǒng)登陸界面257.3.2系統(tǒng)主界面257.3.3員工管理界面267.3.4系統(tǒng)維護(hù)界面267.3.5員工工資錄入界面277.3.6系統(tǒng)查詢界面288 設(shè)計(jì)小結(jié)298.1心得體會(huì)298.2存在的問(wèn)題及建議29參考文獻(xiàn)301 系統(tǒng)簡(jiǎn)介隨著我國(guó)國(guó)民經(jīng)濟(jì)建設(shè)的蓬勃發(fā)展和具有中國(guó)特色的社會(huì)主義市場(chǎng)經(jīng)濟(jì)體制的迅速完善，各個(gè)行業(yè)都在積極使用現(xiàn)代化的手段，不斷改善服

10、務(wù)質(zhì)量，提高工作效率，這些都在很大程度上給企業(yè)提出越來(lái)越嚴(yán)峻的挑戰(zhàn)，對(duì)企業(yè)體系無(wú)論是在行政職能、企業(yè)管理水平以及優(yōu)質(zhì)服務(wù)上都提出更高的要求。企業(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ā)放，如果沒有一個(gè)完整的工資管理系統(tǒng)對(duì)員工工資等進(jìn)行系統(tǒng)的管理，很難實(shí)現(xiàn)企業(yè)高效運(yùn)轉(zhuǎn)。本文詳細(xì)介紹了職工工資管理系統(tǒng)的功能需求，系統(tǒng)設(shè)計(jì)和具體實(shí)現(xiàn)。并簡(jiǎn)要介紹了系統(tǒng)開發(fā)采用的過(guò)程方法。 2 系統(tǒng)需求分析2.1需求調(diào)查隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展，計(jì)算機(jī)在企業(yè)管理中的應(yīng)用越

11、來(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ā)放、核算的工作量很大，一般不允許出錯(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ù)部門其他方面的核算和財(cái)務(wù)處理，同時(shí)計(jì)算機(jī)具有手工管理所無(wú)法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方

12、便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高人事工資管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理，與世界接軌的重要條件。2.2可行性分析2.2.1技術(shù)可行性數(shù)據(jù)庫(kù)需求分析是數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)的第一個(gè)階段，也是非常重要的一個(gè)階段。在這個(gè)階段主要工作是收集基本數(shù)據(jù)以及數(shù)據(jù)處理的流程，為以后進(jìn)一步設(shè)計(jì)一打下基礎(chǔ)。需求分析主要解決兩個(gè)問(wèn)題：內(nèi)容要求。調(diào)查應(yīng)用系統(tǒng)用戶所需要操作的數(shù)據(jù)，決定在數(shù)據(jù)庫(kù)中存儲(chǔ)什么數(shù)據(jù)。處理要求。調(diào)查應(yīng)用系統(tǒng)用戶要求對(duì)數(shù)據(jù)庫(kù)進(jìn)行什么樣的處理，理清數(shù)據(jù)庫(kù)中各種數(shù)據(jù)之間的關(guān)系。Windows操作系的穩(wěn)定性，安全性可滿足用戶的需求，后臺(tái)數(shù)據(jù)庫(kù)使用Access，開

13、發(fā)工具微軟公司的VB6.0，具有良好的升級(jí)潛力和可維護(hù)性。這些軟件在大型MIS開發(fā)中已被大量應(yīng)用，技術(shù)上都比較成熟,可根據(jù)用戶需要，十分方便的增減模塊，直觀的圖形用戶界面，簡(jiǎn)潔的操作流程，無(wú)須專業(yè)電腦知識(shí)即可迅速上手。因此技術(shù)上是可行的。2.2.2經(jīng)濟(jì)可行性 由于計(jì)算機(jī)技術(shù)的飛速發(fā)展，計(jì)算機(jī)在企業(yè)管理中應(yīng)用的普及，利用計(jì)算機(jī)實(shí)現(xiàn)企業(yè)工資管理勢(shì)在必行。在現(xiàn)代社會(huì)中，高效化、系統(tǒng)化、規(guī)范化、自動(dòng)化已成為時(shí)代的代名詞。做為我國(guó)文化產(chǎn)業(yè)之一的報(bào)刊業(yè)在當(dāng)今智能化的發(fā)展的驅(qū)動(dòng)下，在當(dāng)今信息時(shí)代的推動(dòng)下，擁有自己的一套特色的員工工資管理系統(tǒng)是非常必要的，傳統(tǒng)的手工式的管理方式已經(jīng)無(wú)法適合當(dāng)今的龐大的數(shù)據(jù)處理

14、和精確的運(yùn)算需求，所以一套精美完善的員工工資管理喜用是提高工作效率節(jié)省人力物力的有效解決方案。按長(zhǎng)期的使用計(jì)算，開發(fā)系統(tǒng)的造價(jià)平均到每年與傳統(tǒng)式的管理方式的年耗資本相對(duì)比，性價(jià)比是可行的。開發(fā)這套系統(tǒng)的經(jīng)濟(jì)可行性是很高的。 2.2.3操作可行性 在現(xiàn)代企業(yè)的生產(chǎn)和動(dòng)作過(guò)程中,往往需要對(duì)企業(yè)員工的工資進(jìn)行管理，企業(yè)的工資管理活動(dòng)中操作都包含了以下幾項(xiàng)功能：1、員工信息管理：實(shí)現(xiàn)對(duì)員工基本信息的管理操作，包括員工基本數(shù)據(jù)信息的添加、修改、刪除和查詢等功能；工資管理：完成對(duì)基礎(chǔ)數(shù)據(jù)設(shè)定（如工齡工資、工資等級(jí)、工齡工資金額等），工資明細(xì)，福利補(bǔ)貼的設(shè)定；3、工資查詢:可根據(jù)條件查詢員工歷史工資數(shù)據(jù)；4

15、、系統(tǒng)維護(hù)：可對(duì)數(shù)據(jù)進(jìn)行備份和恢復(fù)，并可實(shí)現(xiàn)數(shù)據(jù)導(dǎo)入導(dǎo)出功能。5、管理員設(shè)置：實(shí)現(xiàn)系統(tǒng)用戶及密碼的設(shè)置操作，可以增加和刪除系統(tǒng)用戶（僅系統(tǒng)管理員才有權(quán)限），對(duì)系統(tǒng)當(dāng)前用戶修改密碼。本系統(tǒng)主要功能有：(1) 員工基本工資的設(shè)定。(2) 工齡工資的設(shè)定。(3) 實(shí)發(fā)工資的統(tǒng)計(jì)明細(xì)。2.2數(shù)據(jù)流程圖員工檔案的管理:包括員工基本信息,所在部門,工作信息和工作簡(jiǎn)歷的輸入,員工信息的查詢和修改。員工考勤的管理:包括考勤的添加,查詢,修改和刪除。員工工資的管理:包括工資的添加,工資報(bào)表的查詢,修改和刪除。員工評(píng)價(jià)的管理:包括評(píng)價(jià)的輸入,查詢和修改。人事變動(dòng)的詳細(xì)記錄,包括崗位和部門的調(diào)整,便于掌握人員的動(dòng)向

16、,及時(shí)調(diào)整人才的分配。企業(yè)所有部門的查詢與管理。管理員以及其它功能模塊。員工信息 仔細(xì)分析調(diào)查有關(guān)企業(yè)人事信息需求的基礎(chǔ)上,將得到如圖2.1的數(shù)據(jù)流程。職工工資處理工資查詢基礎(chǔ)數(shù)據(jù)處理人事部門工資統(tǒng)計(jì)單工資信息單工資計(jì)算單工資統(tǒng)計(jì)單工資合計(jì)表 職工工資表工資統(tǒng)計(jì)工資信息單工資單工資匯總處理工資匯總單工資匯總單 賬務(wù)處理系統(tǒng)工資匯總表工資費(fèi)用分配處理圖2.1數(shù)據(jù)流程圖2.3數(shù)據(jù)字典 數(shù)據(jù)詞典（DDDate Dictionary）是描述數(shù)據(jù)流程圖中所有數(shù)據(jù)流、數(shù)據(jù)存儲(chǔ)、處理功能等卡片的集合。數(shù)據(jù)詞典提供一個(gè)可定義的不依賴于應(yīng)用程序的存儲(chǔ)區(qū)域，用于創(chuàng)建擴(kuò)展的屬性集和描述數(shù)據(jù)的內(nèi)容與外觀。 數(shù)據(jù)項(xiàng)包括

17、名稱、含義、類型、取值范圍、長(zhǎng)度以及和其他數(shù)據(jù)項(xiàng)之間的邏輯關(guān)系。如表2.1所示。 數(shù)據(jù)項(xiàng)編號(hào) 數(shù)據(jù)項(xiàng)名 數(shù)據(jù)項(xiàng)含義 存儲(chǔ)長(zhǎng)度別名DI-1ygno 員工編號(hào)Int（4）工號(hào)DI-2res 員工部門 Char（50）崗位DI-3smeg 員工工資Int（4）月薪DI-4ygid 員工地址Int（4） 數(shù)據(jù)結(jié)構(gòu)反映了數(shù)據(jù)之間的組合關(guān)系。一個(gè)數(shù)據(jù)結(jié)構(gòu)可以由若干數(shù)據(jù)項(xiàng)組成，也可以由若干個(gè)數(shù)據(jù)結(jié)構(gòu)組成，或由若干個(gè)數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)混合而成。如下圖所示是數(shù)據(jù)結(jié)構(gòu)表，包括數(shù)據(jù)結(jié)構(gòu)名和其屬性。如表2.2所示。 數(shù)據(jù)結(jié)構(gòu)編號(hào)數(shù)據(jù)結(jié)構(gòu)名 數(shù)據(jù)結(jié)構(gòu)含義 組成DS1 ygmessage員工信息 Ygname,ygno y

18、gres, ygid，ygsemg，ygxbDS2 ygmanage員工管理MsgBox,ygname,ygnoDS3 ygkq員工考勤Kqname，kqday，kqwork，kqlate，kqrest3 概念結(jié)構(gòu)設(shè)計(jì)數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)是在需求分析的基礎(chǔ)上，設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。用E-R圖是描述數(shù)據(jù)實(shí)體關(guān)系的一種直觀描述工具，所以本系統(tǒng)采用了E-R圖的方法進(jìn)行數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)。員工信息實(shí)體E-R圖：姓名 性別工資等級(jí) 員工信息員工號(hào) 工資 崗位 部門圖3.1員工信息實(shí)體E-R圖雇員號(hào)年齡 雇員姓名電話號(hào)碼 圖3.2雇員信息實(shí)體E-

19、R圖津貼津貼號(hào)加班類型加班時(shí)間圖3.3員工津貼實(shí)體E-R圖工作類別工作號(hào)工種工種工資圖3.4員工工作類別實(shí)體E-R圖考勤曠班天數(shù)曠班號(hào) 圖3.5員工考勤實(shí)體E-R圖加班時(shí)間 年齡雇員號(hào)津貼號(hào)加班 津貼 雇員姓名工作電話號(hào)碼加班類型工作號(hào)考勤工作類別工種工資 工種曠班號(hào)工作薪水 曠班曠班人數(shù) 工資 月薪圖3.6總體E-R圖4 邏輯結(jié)構(gòu)設(shè)計(jì) 概念結(jié)構(gòu)是獨(dú)立于實(shí)際數(shù)據(jù)模型的信息結(jié)構(gòu)，必須將其轉(zhuǎn)化為邏輯結(jié)構(gòu)后才能進(jìn)行數(shù)據(jù)庫(kù)應(yīng)用的設(shè)計(jì)。也就是要將概念上的結(jié)構(gòu)轉(zhuǎn)化為BP數(shù)據(jù)庫(kù)系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型。 工資管理系統(tǒng)數(shù)據(jù)庫(kù)中各個(gè)表格的設(shè)計(jì)結(jié)果如下面的幾個(gè)表所示。每個(gè)表表示數(shù)據(jù)中的一個(gè)表。數(shù)據(jù)庫(kù)表的設(shè)計(jì)及表結(jié)

20、構(gòu)：（1） 員工信息表表4.1員工信息表（2） 基礎(chǔ)工資設(shè)置表表4.2基礎(chǔ)工資設(shè)置表 (3)崗位工資設(shè)置表 表4.3崗位工資設(shè)置表（4） 工齡工資設(shè)置表表4.4工齡工資設(shè)置表（5） 管理員注冊(cè)表表4.5 管理員注冊(cè)表5 物理結(jié)構(gòu)設(shè)計(jì)數(shù)據(jù)庫(kù)在物理設(shè)備上的存儲(chǔ)結(jié)構(gòu)與存取方法稱為數(shù)據(jù)庫(kù)的物理結(jié)構(gòu)，它依賴于選定的數(shù)據(jù)庫(kù)管理系統(tǒng)。為一個(gè)給定的邏輯數(shù)據(jù)模型選取一個(gè)在最適合應(yīng)用要求的物理結(jié)構(gòu)的過(guò)程，就是數(shù)據(jù)庫(kù)的物理結(jié)構(gòu)設(shè)計(jì)。數(shù)據(jù)庫(kù)的物理結(jié)構(gòu)設(shè)計(jì)通常分為兩步： (1)確定數(shù)據(jù)庫(kù)的物理結(jié)構(gòu)，在關(guān)系數(shù)據(jù)庫(kù)中主要指存取方法和存儲(chǔ)結(jié)構(gòu)； (2)對(duì)物理結(jié)構(gòu)進(jìn)行評(píng)價(jià)，評(píng)價(jià)的重點(diǎn)是時(shí)間和空間效率。 數(shù)據(jù)

21、庫(kù)物理設(shè)計(jì)過(guò)程中需要對(duì)時(shí)間效率、空間效率、維護(hù)代價(jià)和各種用戶要求進(jìn)行權(quán)衡，選擇一個(gè)優(yōu)化方案作為數(shù)據(jù)庫(kù)物理結(jié)構(gòu)。在數(shù)據(jù)庫(kù)物理設(shè)計(jì)中，最有效的方式是集中地存儲(chǔ)和檢索對(duì)象。 在數(shù)據(jù)庫(kù)設(shè)計(jì)初始階段，為了對(duì)以后的數(shù)據(jù)庫(kù)進(jìn)行物理優(yōu)化，提供了一些系統(tǒng)配置變量、存儲(chǔ)分配系數(shù)，并對(duì)這些變量賦予合理的缺省值。但這些值不一定適合每一種應(yīng)用環(huán)境，在進(jìn)行物理設(shè)計(jì)時(shí)，對(duì)這些變量重新賦值，以改善系統(tǒng)的性能。在選擇硬件設(shè)備、服務(wù)器操作系統(tǒng)、數(shù)據(jù)庫(kù)時(shí)應(yīng)該考慮能夠逐步增加和擴(kuò)展。6 系統(tǒng)主要查詢功能及SQL語(yǔ)句 該員工工資查詢管理系統(tǒng)的主要查詢功能是員工信息的查詢，例如員工的姓名、編號(hào)等。本系統(tǒng)的查詢功能由SQL語(yǔ)言編寫，以下是

22、主要查詢功能的SQL語(yǔ)言。6.1 SQL查詢語(yǔ)句（1）員工姓名查詢 SELECT cname FROM ygshuju ;（2）員工編號(hào)查詢 SELECT cid FROM ygshuju ;（3）員工登陸查詢 SELECT * FROM denglu WHERE 用戶名 = Text1.Text ;（4）員工工資號(hào)查詢 SELECT ID FROM gzshuju WHERE工資號(hào)= Trim(txtId);（5） 員工部門查詢 SELECT 姓名,員工號(hào),基本工資 FROM ygshuju WHERE 部門 like Trim(cboItem(0);（6）員工考勤查詢 SELECTkqpa

23、y,kqdeduct RROM checkin WHERE kqid = mrc.Fields(0) ;（7）初始化部門名稱查詢SELECTDISTINCT ygdept FROM manrecord;6.2 SQL插入語(yǔ)句（1） 員工姓名添加 INSERE INTO ygshuju (cname) VALUES(曹操);（2） 員工編號(hào)增加 INSERE INTO ygshuju ID VALUES(20060001);6.3 SQL刪除語(yǔ)句（1）員工姓名刪除 DELECT FROM ygshuju WHERE cname=曹操；（2）員工編號(hào)刪除 DELECT FROM ygshuju W

24、HERE ID=20060001；（3） 員工工資刪除 DELETE FROM gzshuju WHERE 工資號(hào)=Trim(txtId) ；6.4 SQL修改語(yǔ)句（1）員工姓名修改 UPDATE ygshuju SET cname=曹操 WHERE cname=劉備；（2）員工編號(hào)修改 UPDATE ygshuju SET ID=20060001；工資管理系統(tǒng)員工資料登記料員工資料查詢個(gè)人工資查詢員工號(hào)部部門姓姓名 崗位工資等級(jí)基本設(shè)定工資用戶密碼修改查詢員工號(hào)新密碼舊密碼用戶名工齡工資工資等級(jí)相應(yīng)工資福利名稱福利費(fèi)用工齡 7 系統(tǒng)實(shí)現(xiàn) 7.1系統(tǒng)功能模塊圖 圖7.1系統(tǒng)功能模塊圖 7.2部

25、分程序代碼7.2.1登陸模塊代碼Private Sub Command1_Click()Dim db As DatabaseDim res As RecordsetDim user As StringDim passw As StringSet db = OpenDatabase(App.Path + "zongbiao.mdb")'res = db.OpenRecordset("denglu") If Trim(Text1.Text = "") Then MsgBox "沒有這個(gè)用戶，請(qǐng)重新輸入用戶名！"

26、, vbOKOnly + vbExclamation, "警告" Text1.SetFocus Else txtSQL = "select * from denglu where 用戶名 = '" & Text1.Text & "'" Set res = db.OpenRecordset(txtSQL) If res.EOF = True Then MsgBox "沒有這個(gè)用戶，請(qǐng)重新輸入用戶名!", vbOKOnly + vbExclamation, "警告"

27、Text1.SetFocus Else If Trim(res.Fields(2) = Trim(Text2.Text) Then OK = True res.Close Me.Hide frmPay.Show 'UserName = Trim(txtUserName.Text) Else MsgBox "輸入密碼不正確，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告" Text2.SetFocus Text2.Text = "" End If End If End IfEnd Sub7.2.2員

28、工管理模塊代碼Private Sub cboItem_Click(Index As Integer) Dim MsgText As String Dim intCount As Integer 'Dim mrcc As ADODB.Recordset 'Dim mrcctxt As String Dim db As Database Dim res As Recordset Dim strsql As String Set db = OpenDatabase(App.Path + "zongbiao.mdb") strsql = "select 姓

29、名,員工號(hào),基本工資 from ygshuju where 部門 like '*" & Trim(cboItem(0) & "*' " Set res = db.OpenRecordset(strsql) ' If gintMode = 1 Then '初始化員工名稱和ID If Index = 0 Then cboItem(1).Clear 'txtSQL = "select ygid,ygname from manrecord where ygdept='" & Tri

30、m(cboItem(0) & "'" 'Set mrc = ExecuteSQL(txtSQL, MsgText) ' Set db = OpenDatabase(App.Path + "zongbiao.mdb") ' Set res = db.OpenRecordset("ygshuju") If Not res.EOF Then With cboItem(1) Do While Not res.EOF .AddItem Trim(res!姓名) res.MoveNext Loop .Lis

31、tIndex = 0 End With ' Else ' MsgBox "請(qǐng)先建立員工檔案！", vbOKOnly + vbExclamation, "警告" ' cmdSave.Enabled = False ' Exit Sub End If End If res.MoveFirst res.Move cboItem(1).ListIndex txtId = res.Fields(1) & Format(Now, "yymm") txtItem(0) = res.Fields(2） '

32、;mrcctxt = "select kqpay,kqdeduct from checkin where kqid='" & mrc.Fields(0) & "'" & " and kqdate >= '" & Format(DateSerial(Year(Now), Month(Now), 1), "yyyy/mm/dd") & "' and kqdate<='" & Format(Now, &

33、quot;yyyy/mm/dd") & "'" ' Set mrcc = ExecuteSQL(mrcctxt, MsgText) ' If Not mrcc.EOF Then ' txtItem(3) = mrcc.Fields(0) ' txtItem(4) = mrcc.Fields(1) ' cmdSave.Enabled = True ' Else 'MsgBox "請(qǐng)先進(jìn)行該員工考勤！", vbOKOnly + vbExclamation, "警告&q

34、uot; ' cmdSave.Enabled = False ' Exit Sub 'End If ' mrcc.Close ' res.Close 'db.CloseEnd Sub7.2.3員工工資代碼Private Sub cmdSave_Click() Dim intCount As Integer Dim txtSQL As String Dim mrc As Recordset Dim MsgText As String Dim db As Database Dim sMeg As String If Trim(txtItem(0) &

35、amp; " ") = "" Then sMeg = "底薪" sMeg = sMeg & "不能為空！" MsgBox sMeg, vbOKOnly + vbExclamation, "警告" txtItem(0).SetFocus Exit Sub End If If Trim(txtItem(13) & " ") <> "" Then If Not IsDate(txtItem(13) Then MsgBox "

36、時(shí)間輸入格式不正確，應(yīng)輸入如下格式（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告" txtItem(13).SetFocus Exit Sub Else txtItem(13) = Format(txtItem(13), "yyyy-mm-dd") End If Else MsgBox "時(shí)間不能為空！", vbOKOnly + vbExclamation, "警告" txtItem(13).SetFocus Exit Sub End If Set db = O

37、penDatabase(App.Path + "zongbiao.mdb") '添加判斷是否有相同的ID記錄 'If gintMode = 1 Then txtSQL = "select * from gzshuju where 工資號(hào)='" & Trim(txtId) & "'" 'txtSQL = txtSQL & Format(Year(Format(txtItem(13), "yyyy-mm-dd") & "-" &

38、amp; Month(Format(txtItem(13), "yyyy-mm-dd") & "-01", "yyyy-mm-dd") & "'" 'txtSQL = txtSQL & " and '" & Format(DateAdd("d", -1, DateAdd("m", 1, DateSerial(CInt(Year(Format(txtItem(13), "yyyy-mm-dd&

39、quot;), CInt(Month(Format(txtItem(13), "yyyy-mm-dd"), 1), "yyyy-mm-dd") & "'" Set mrc = db.OpenRecordset(txtSQL) If mrc.EOF = False Then MsgBox "已經(jīng)存在該員工在該月的工資記錄！", vbOKOnly + vbExclamation, "警告" txtItem(13).SetFocus Exit Sub End If mrc.Close

40、'先刪除已有記錄 'txtSQL = "delete from gzshuju where 工資號(hào)='" & Trim(txtId) & "' and 計(jì)發(fā)時(shí)間='" & Format(txtItem(13), "yyyy-mm-dd") & "'" ' Set mrc = db.OpenRecordset(txtSQL) '再加入新記錄 txtSQL = "select * from gzshuju"

41、; Set mrc = db.OpenRecordset(txtSQL) mrc.AddNew mrc.Fields(0) = Trim(txtId) mrc.Fields(1) = Trim(cboItem(1) mrc.Fields(17) = Trim(cboItem(0) mrc.Fields(15) = Trim(txtItem(13) For intCount = 0 To 12 mrc.Fields(intCount + 2) = txtItem(intCount) Next intCount mrc.Update mrc.Close 'If gintMode = 1 T

42、hen MsgBox "計(jì)發(fā)工資成功！", vbOKOnly + vbExclamation, "警告" For intCount = 0 To 12 txtItem(intCount) = "" Next intCount mblChange = False cmdSave.Enabled = False ' frmPay.txtSQL = "select * from pay" ' frmPay.ShowTitle 'frmPay.ShowData 'frmPay.ZOrder

43、1 ' ElseIf gintMode = 2 Then ' MsgBox "修改工資成功！", vbOKOnly + vbExclamation, "警告" ' Unload Me ' frmPay.txtSQL = "select * from pay" ' frmPay.ShowTitle ' frmPay.ShowData ' frmPay.ZOrder 0 ' End If End Sub7.2.4部門維護(hù)代碼Private Sub Combo1_Click()

44、 Dim MsgText As String Dim intCount As Integer Dim mrcc As ADODB.Recordset 'Dim mrcctxt As String Dim db As Database Dim res As Recordset Dim strsql As String Set db = OpenDatabase(App.Path + "zongbiao.mdb") strsql = "select * from gzshuju where 工資號(hào) like '*" & Trim(Co

45、mbo1) & "*' " Set res = db.OpenRecordset(strsql) cboItem(0).Clear cboItem(1).Clear cboItem(0).AddItem (res!部門) cboItem(0).ListIndex = 0 cboItem(1).AddItem (res!姓名) cboItem(1).ListIndex = 0 txtItem(13) = res.Fields(15) For intCount = 0 To 12 txtItem(intCount) = res.Fields(intCount +

46、 2) Next intCount End Sub7.2.5按姓名查詢工資代碼Private Sub txtItem_GotFocus(Index As Integer) txtItem(Index).SelStart = 0 txtItem(Index).SelLength = Len(txtItem(Index)End SubPrivate Sub txtItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) 'EnterToTab KeyCodeEnd SubPrivate Function Get

47、No() As String GetNo = Format(Now, "yymmddhhmmss") Randomize GetNo = GetNo & Int(99 - 10 + 1) * Rnd + 10)End FunctionPrivate Sub txtItem_KeyPress(Index As Integer, KeyAscii As Integer) If Index >= 0 And Index <= 12 Then 'MsgBox KeyCode '對(duì)鍵入字符進(jìn)行控制 'txtQuantity(Index).L

48、ocked = False '小數(shù)點(diǎn)只允許輸入一次 If KeyAscii = 190 Then If InStr(Trim(txtItem(Index), ".") = 0 Then If Len(Trim(txtItem(Index) > 0 Then txtItem(Index).Locked = False Else txtItem(Index).Locked = True End If Else txtItem(Index).Locked = True End If Exit Sub End If '非數(shù)字不能輸入 If KeyAscii &

49、gt; 57 Or KeyAscii < 48 Then txtItem(Index).Locked = True Else txtItem(Index).Locked = False End If '允許Backspace If KeyAscii = 8 Then txtItem(Index).Locked = False End If 'Delete鍵 If KeyAscii = 46 Then txtItem(Index).Locked = False End If End IfEnd SubPrivate Sub cmdExit_Click()Unload MeEnd Sub7.3系統(tǒng)運(yùn)行截圖7.3.1系統(tǒng)登陸界面 工資管理系統(tǒng)的登陸界面如圖7.2所示，設(shè)置有用戶名和和用戶登陸密碼，輸入正確的用戶名和密碼可進(jìn)入系統(tǒng)主界面。圖7.2系統(tǒng)登陸