薪酬管理工資管理系統(tǒng)說明

書《數(shù)據(jù)庫原理課程設(shè)計(jì)》任務(wù)書題目：工資管理系統(tǒng)學(xué)生姓名:學(xué)號：1348班級：物聯(lián)網(wǎng)工程一班謝謝閱讀題目類型：軟件工程（R）指導(dǎo)教師：一、數(shù)據(jù)庫課程設(shè)計(jì)題目簡介軟件。謝謝閱讀精品文檔放心下載感謝閱讀練，提高解決實(shí)際問題的能力。二、數(shù)據(jù)庫課程設(shè)計(jì)的任務(wù)1、查閱文獻(xiàn)資料，一般在10篇以上；2精品文檔放心下載建立系統(tǒng)模型；3、完成軟件結(jié)構(gòu)設(shè)計(jì)、數(shù)據(jù)庫設(shè)計(jì)和算法設(shè)計(jì)；4、完成工資管理系統(tǒng)的軟件開發(fā)和測試工作。5、撰寫設(shè)計(jì)說明書；6、做好答辯工作。三、數(shù)據(jù)庫課程設(shè)計(jì)的主要內(nèi)容、功能及技術(shù)指標(biāo)1、系統(tǒng)功能的基本要求：（1）員工每個工種基本工資的設(shè)定；（2）加班津貼管理，根據(jù)加班時間和類型給予不同的加班津貼；感謝閱讀（3）按照不同工種的基本工資情況、員工的考勤情況產(chǎn)生員工的謝謝閱讀每月的月工資；（4）員工年終獎金的生成，員工的年終獎金計(jì)算公式＝（員工本感謝閱讀年度的工資總和＋津貼的總和）/12；（5）企業(yè)工資報(bào)表。能夠查詢單個員工的工資情況、每個部門的感謝閱讀工資情況、按月的工資統(tǒng)計(jì)，并能夠打印。2、數(shù)據(jù)庫要求：（在數(shù)據(jù)庫中至少應(yīng)該包含下列數(shù)據(jù)表）感謝閱讀（1）員工考勤情況表；（2）感謝閱讀（3）員工津貼信息表，反映員工的加班時間，加班類別、加班天精品文檔放心下載數(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)行測試。四、數(shù)據(jù)庫課程設(shè)計(jì)提交的成果1.課程設(shè)計(jì)說明書一份，A4打印稿，正文部分要求不少于20感謝閱讀體采用Arial。正文及目錄格式參考（畢業(yè)設(shè)計(jì)論文格式要求）正文內(nèi)容包括：精品文檔放心下載(1)需求分析；(2)數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)；(3)數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)；(4)數(shù)據(jù)流圖及程序結(jié)構(gòu)框圖；(5)程序源代碼及其說明；(6)總結(jié)；(7)參考文獻(xiàn)。2.刻制光盤一張，把完成的所有電子文檔（設(shè)計(jì)說明書文檔、打包后可運(yùn)行程謝謝閱讀序及源程序）一并交由指導(dǎo)老師處?！?/”謝謝閱讀司人事管理系統(tǒng)/12730101周歡歡/”。五、主要參考文獻(xiàn)[1]王珊、薩師煊著數(shù)據(jù)庫系統(tǒng)概論（第五版）.高等教育出版社,2014.9感謝閱讀[2]劉金嶺等著精品文檔放心下載2010.6[3]錢雪忠等著(感謝閱讀2009.2[4]周屹著數(shù)據(jù)庫原理及開發(fā)應(yīng)用－實(shí)驗(yàn)與課程設(shè)計(jì)指導(dǎo),清華大學(xué)出版社出精品文檔放心下載版，2008.12[5]陸慧娟主編數(shù)據(jù)庫設(shè)計(jì)與應(yīng)用開發(fā)實(shí)踐，清華大學(xué)出版社2014.1謝謝閱讀[6]陶宏才等編著數(shù)據(jù)庫原理及設(shè)計(jì)，清華大學(xué)出版社2014.1感謝閱讀[7]丁忠俊著數(shù)據(jù)庫系統(tǒng)原理及應(yīng)用，清華大學(xué)出版社出版，2012.4感謝閱讀[8]李曉峰等著數(shù)據(jù)庫系統(tǒng)原理及應(yīng)用，水利水電出版社，2011.2感謝閱讀[9]萬常選著數(shù)據(jù)庫系統(tǒng)原理與設(shè)計(jì)(第2版)，清華大學(xué)出版社出版，2012.9謝謝閱讀[10]路游，于玉宗編著數(shù)據(jù)庫系統(tǒng)課程設(shè)計(jì)，清華大學(xué)出版社2009謝謝閱讀[11]《Access2010數(shù)據(jù)庫應(yīng)用從入門到精通》何先軍編,中國鐵道出版精品文檔放心下載社.2013.10[12][印]Singh.S.K感謝閱讀念、設(shè)計(jì)及應(yīng)用》,機(jī)械工業(yè)出版社，2010.1六、各階段時間安排（共2周）周次日期內(nèi)容地點(diǎn)星期一分組、選題、收集與整理資料教室星期二數(shù)據(jù)庫分析與設(shè)計(jì)教室第1周星期三～用戶界面設(shè)計(jì)及系統(tǒng)功能實(shí)現(xiàn)教室星期五星期一～用戶界面設(shè)計(jì)及系統(tǒng)功能實(shí)現(xiàn)教室星期二第2周星期三調(diào)試程序教室星期四撰寫課程設(shè)計(jì)說明書教室星期五答辯教室2015年12月15日摘要隨著信息自動化處理技術(shù)的日益發(fā)展,如何科學(xué),全面,高效的對單位紛繁復(fù)雜的精品文檔放心下載檔案管理事務(wù)進(jìn)行計(jì)算機(jī)的自動化管理是個熱門話題,當(dāng)前企事業(yè)單位為了提升自身感謝閱讀的競爭力,各單位都在定制和購買各項(xiàng)業(yè)務(wù)應(yīng)用軟件,運(yùn)用高科技手段進(jìn)行科學(xué),規(guī)范謝謝閱讀,希望能夠?qū)べY管理系統(tǒng)的整個流程狀態(tài),信息精品文檔放心下載資料的情況了如指掌,”謝謝閱讀的理論基礎(chǔ)和設(shè)計(jì)思想,根據(jù)系統(tǒng)的開發(fā)過程和系統(tǒng)的功能實(shí)現(xiàn)為主線來論述數(shù)據(jù)庫謝謝閱讀,以客戶機(jī)/謝謝閱讀服務(wù)器模式的關(guān)系型數(shù)據(jù)庫作為后臺,以專業(yè)數(shù)據(jù)庫開發(fā)語言作為實(shí)現(xiàn)手段的數(shù)據(jù)庫精品文檔放心下載管理軟件的開發(fā)過程分析和理論研究。VB6.0SQL語言的深入學(xué)感謝閱讀精品文檔放心下載工作。謝謝閱讀感謝閱讀感謝閱讀求。關(guān)鍵詞：工資管理系統(tǒng)；職工信息；數(shù)據(jù)庫目錄1系統(tǒng)簡介..........................................................1感謝閱讀2系統(tǒng)需求分析......................................................2精品文檔放心下載2.1需求調(diào)查....................................................2精品文檔放心下載2.2可行性分析..................................................2感謝閱讀2.2.1技術(shù)可行性............................................2謝謝閱讀2.2.2經(jīng)濟(jì)可行性............................................3謝謝閱讀2.2.3操作可行性............................................3謝謝閱讀2.2數(shù)據(jù)流程圖..................................................3謝謝閱讀2.3數(shù)據(jù)字典....................................................5精品文檔放心下載3概念結(jié)構(gòu)設(shè)........................................................6感謝閱讀4邏輯結(jié)構(gòu)設(shè)計(jì)......................................................9謝謝閱讀5物理結(jié)構(gòu)設(shè)計(jì).....................................................11感謝閱讀6系統(tǒng)主要查詢功能及SQL語句.......................................12感謝閱讀6.1SQL查詢語句...............................................12謝謝閱讀6.2SQL插入語句...............................................13精品文檔放心下載6.3SQL刪除語句...............................................13謝謝閱讀6.4SQL修改語句...............................................13感謝閱讀7系統(tǒng)實(shí)現(xiàn).........................................................15感謝閱讀7.1系統(tǒng)功能模塊圖.............................................15精品文檔放心下載7.2部分程序代碼...............................................16精品文檔放心下載7.2.1登陸模塊代碼.........................................16精品文檔放心下載7.2.2員工管理模塊代碼.....................................17感謝閱讀7.2.3員工工資代碼.........................................19精品文檔放心下載7.2.4部門維護(hù)代碼.........................................22精品文檔放心下載7.2.5按姓名查詢工資代碼...................................23感謝閱讀7.3系統(tǒng)運(yùn)行截圖...............................................25感謝閱讀7.3.1系統(tǒng)登陸界面.........................................25精品文檔放心下載7.3.2系統(tǒng)主界面...........................................25感謝閱讀7.3.3員工管理界面.........................................26謝謝閱讀7.3.4系統(tǒng)維護(hù)界面.........................................26感謝閱讀7.3.5員工工資錄入界面.....................................27謝謝閱讀7.3.6系統(tǒng)查詢界面.........................................28感謝閱讀8設(shè)計(jì)小結(jié).........................................................29精品文檔放心下載8.1心得體會...................................................29感謝閱讀8.2存在的問題及建議...........................................29謝謝閱讀參考文獻(xiàn)...........................................................30謝謝閱讀1系統(tǒng)簡介隨著我國國民經(jīng)濟(jì)建設(shè)的蓬勃發(fā)展和具有中國特色的社會主義市場經(jīng)濟(jì)體制的精品文檔放心下載感謝閱讀這些都在很大程度上給企業(yè)提出越來越嚴(yán)峻的挑戰(zhàn)，對企業(yè)體系無論是在行政職能、精品文檔放心下載謝謝閱讀感謝閱讀務(wù)管理也是如此，由于企業(yè)職工人數(shù)較多，每一位職工的具體實(shí)際情況也不盡相同，精品文檔放心下載精品文檔放心下載理，很難實(shí)現(xiàn)企業(yè)高效運(yùn)轉(zhuǎn)。謝謝閱讀紹了系統(tǒng)開發(fā)采用的過程方法。2系統(tǒng)需求分析2.1需求調(diào)查感謝閱讀謝謝閱讀謝謝閱讀精品文檔放心下載工作，工資計(jì)算、發(fā)放、核算的工作量很大，一般不允許出錯，如果實(shí)行手工操作，謝謝閱讀謝謝閱讀謝謝閱讀謝謝閱讀同時計(jì)算機(jī)具有手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、謝謝閱讀精品文檔放心下載效率,也是企業(yè)的科學(xué)化、正規(guī)化管理，與世界接軌的重要條件。謝謝閱讀2.2可行性分析2.2.1技術(shù)可行性精品文檔放心下載精品文檔放心下載礎(chǔ)。需求分析主要解決兩個問題：精品文檔放心下載感謝閱讀種數(shù)據(jù)之間的關(guān)系。Windows操作系的穩(wěn)定性，安全性可滿足用戶的需求，后臺數(shù)據(jù)庫使用Access，感謝閱讀開發(fā)工具微軟公司的VB6.0，具有良好的升級潛力和可維護(hù)性。這些軟件在大型MIS感謝閱讀開發(fā)中已被大量應(yīng)用，技術(shù)上都比較成熟,可根據(jù)用戶需要，十分方便的增減模塊，謝謝閱讀感謝閱讀上是可行的。2.2.2經(jīng)濟(jì)可行性由于計(jì)算機(jī)技術(shù)的飛速發(fā)展，計(jì)算機(jī)在企業(yè)管理中應(yīng)用的普及，利用計(jì)算機(jī)實(shí)謝謝閱讀精品文檔放心下載感謝閱讀謝謝閱讀謝謝閱讀感謝閱讀期的使用計(jì)算，開發(fā)系統(tǒng)的造價平均到每年與傳統(tǒng)式的管理方式的年耗資本相對比，精品文檔放心下載性價比是可行的。開發(fā)這套系統(tǒng)的經(jīng)濟(jì)可行性是很高的。2.2.3操作可行性在現(xiàn)代企業(yè)的生產(chǎn)和動作過程中,往往需要對企業(yè)員工的工資進(jìn)行管理，企業(yè)的感謝閱讀工資管理活動中操作都包含了以下幾項(xiàng)功能：1謝謝閱讀修改、刪除和查詢等功能；精品文檔放心下載明細(xì)，福利補(bǔ)貼的設(shè)定；3、工資查詢:可根據(jù)條件查詢員工歷史工資數(shù)據(jù)；4、系統(tǒng)維護(hù)：可對數(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)精品文檔放心下載限），對系統(tǒng)當(dāng)前用戶修改密碼。本系統(tǒng)主要功能有：(1)員工基本工資的設(shè)定。(2)工齡工資的設(shè)定。(3)實(shí)發(fā)工資的統(tǒng)計(jì)明細(xì)。2.2數(shù)據(jù)流程圖員工檔案的管理:包括員工基本信息,所在部門,工作信息和工作簡歷的輸入,員精品文檔放心下載工信息的查詢和修改。員工考勤的管理:包括考勤的添加,查詢,修改和刪除。員工工資的管理:包括工資的添加,工資報(bào)表的查詢,修改和刪除。謝謝閱讀員工評價的管理:包括評價的輸入,查詢和修改。人事變動的詳細(xì)記錄,包括崗位和部門的調(diào)整,便于掌握人員的動向,及時調(diào)整人感謝閱讀才的分配。企業(yè)所有部門的查詢與管理。管理員以及其它功能模塊。仔細(xì)分析調(diào)查有關(guān)企業(yè)人事信息需求的基礎(chǔ)上,將得到如圖2.1的數(shù)據(jù)流程。感謝閱讀員工信息人事部門職工工資處理工資統(tǒng)計(jì)工資匯總處理工資費(fèi)用分配處理圖2.1數(shù)據(jù)流程圖2.3數(shù)據(jù)字典DD－DateDictionary精品文檔放心下載處理功能等卡片的集合。數(shù)據(jù)詞典提供一個可定義的不依賴于應(yīng)用程序的存儲區(qū)域，謝謝閱讀用于創(chuàng)建擴(kuò)展的屬性集和描述數(shù)據(jù)的內(nèi)容與外觀。數(shù)據(jù)項(xiàng)包括名稱、含義、類型、取值范圍、長度以及和其他數(shù)據(jù)項(xiàng)之間的邏輯感謝閱讀關(guān)系。如表2.1所示。數(shù)據(jù)項(xiàng)編號數(shù)據(jù)項(xiàng)名數(shù)據(jù)項(xiàng)含義存儲長度別名DI-1ygno員工編號Int（4）工號DI-2res員工部門Char（50）崗位DI-3smeg員工工資Int（4）月薪DI-4ygid員工地址Int（4）精品文檔放心下載精品文檔放心下載數(shù)據(jù)結(jié)構(gòu)表，包括數(shù)據(jù)結(jié)構(gòu)名和其屬性。如表2.2所示。謝謝閱讀數(shù)據(jù)結(jié)構(gòu)編號數(shù)據(jù)結(jié)構(gòu)名數(shù)據(jù)結(jié)構(gòu)含義組成Ygname,ygnoDS—1ygmessage員工信息ygres,ygid，感謝閱讀ygsemg，ygxbDS—2ygmanage員工管理MsgBox,ygname,yg謝謝閱讀noKqname，kqday，DS—3ygkq員工考勤kqwork，kqlate，感謝閱讀kqrest3概念結(jié)構(gòu)設(shè)計(jì)謝謝閱讀E-R圖是描述數(shù)據(jù)實(shí)精品文檔放心下載E-R圖的方法進(jìn)行數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)精品文檔放心下載計(jì)。員工信息實(shí)體E-R圖：性別員工信息員工號崗位圖3.1員工信息實(shí)體E-R圖雇員號姓名圖3.2雇員信息實(shí)體E-R圖津貼加班時間圖3.3員工津貼實(shí)體E-R圖工作號工種圖3.4員工工作類別實(shí)體E-R圖考勤曠班天數(shù)圖3.5員工考勤實(shí)體E-R圖雇員號加班時間電話號碼

工作工作號工作類別工種工資工作薪水曠班人數(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ù)庫應(yīng)用的設(shè)計(jì)。也就是要將概念上的結(jié)構(gòu)轉(zhuǎn)化為BP數(shù)據(jù)庫系統(tǒng)所支持的實(shí)精品文檔放心下載際數(shù)據(jù)模型。工資管理系統(tǒng)數(shù)據(jù)庫中各個表格的設(shè)計(jì)結(jié)果如下面的幾個表所示。每個表表示謝謝閱讀數(shù)據(jù)中的一個表。數(shù)據(jù)庫表的設(shè)計(jì)及表結(jié)構(gòu)：（1）員工信息表表4.1員工信息表（2）基礎(chǔ)工資設(shè)置表表4.2基礎(chǔ)工資設(shè)置表(3)崗位工資設(shè)置表表4.3崗位工資設(shè)置表（4）工齡工資設(shè)置表表4.4工齡工資設(shè)置表（5）管理員注冊表表4.5管理員注冊表5物理結(jié)構(gòu)設(shè)計(jì)感謝閱讀精品文檔放心下載結(jié)構(gòu)的過程，就是數(shù)據(jù)庫的物理結(jié)構(gòu)設(shè)計(jì)。數(shù)據(jù)庫的物理結(jié)構(gòu)設(shè)計(jì)通常分為兩步：(1)確定數(shù)據(jù)庫的物理結(jié)構(gòu)，在關(guān)系數(shù)據(jù)庫中主要指存取方法和存儲結(jié)構(gòu)；謝謝閱讀(2)對物理結(jié)構(gòu)進(jìn)行評價，評價的重點(diǎn)是時間和空間效率。感謝閱讀精品文檔放心下載精品文檔放心下載式是集中地存儲和檢索對象。謝謝閱讀謝謝閱讀謝謝閱讀硬件設(shè)備、服務(wù)器操作系統(tǒng)、數(shù)據(jù)庫時應(yīng)該考慮能夠逐步增加和擴(kuò)展。感謝閱讀6系統(tǒng)主要查詢功能及SQL語句感謝閱讀編號等。本系統(tǒng)的查詢功能由SQL語言編寫，以下是主要查詢功能的SQL語言。感謝閱讀6.1SQL查詢語句（1）員工姓名查詢SELECTcnameFROMygshuju;（2）員工編號查詢SELECTcidFROMygshuju;（3）員工登陸查詢SELECT*FROMdengluWHERE用戶名=Text1.Text;（4）員工工資號查詢SELECTIDFROMgzshujuWHERE工資號=Trim(txtId);（5）員工部門查詢SELECT姓名,員工號,基本工資FROMygshujuWHERE部門likeTrim(cboItem(0));謝謝閱讀（6）員工考勤查詢SELECTkqpay,kqdeductRROMcheckinWHEREkqid=mrc.Fields(0);精品文檔放心下載（7）初始化部門名稱查詢SELECTDISTINCTygdeptFROMmanrecord;6.2SQL插入語句（1）員工姓名添加INSEREINTOygshuju(cname)VALUES(‘曹操’);（2）員工編號增加INSEREINTOygshujuIDVALUES(‘20060001’);6.3SQL刪除語句（1）員工姓名刪除DELECTFROMygshujuWHEREcname=’曹操’；（2）員工編號刪除DELECTFROMygshujuWHEREID=’20060001’；（3）員工工資刪除DELETEFROMgzshujuWHERE工資號=Trim(txtId)；6.4SQL修改語句（1）員工姓名修改UPDATEygshujuSETcname=’曹操’WHEREcname=‘劉備’；（2）員工編號修改UPDATEygshujuSETID=’20060001’；7系統(tǒng)實(shí)現(xiàn)7.1系統(tǒng)功能模塊圖圖7.1系統(tǒng)功能模塊圖7.2部分程序代碼7.2.1登陸模塊代碼PrivateSubCommand1_Click()精品文檔放心下載DimdbAsDatabaseDimresAsRecordsetDimuserAsStringDimpasswAsStringSetdb=OpenDatabase(App.Path+"\zongbiao.mdb")謝謝閱讀'res=db.OpenRecordset("denglu")謝謝閱讀IfTrim(Text1.Text="")Then感謝閱讀MsgBox"沒有這個用戶，請重新輸入用戶名！",vbOKOnly+精品文檔放心下載vbExclamation,"警告"Text1.SetFocusElsetxtSQL="select*fromdengluwhere用戶名='"&Text1.Text&感謝閱讀"'"Setres=db.OpenRecordset(txtSQL)謝謝閱讀Ifres.EOF=TrueThenMsgBox"沒有這個用戶，請重新輸入用戶名!",vbOKOnly+感謝閱讀vbExclamation,"警告"Text1.SetFocusElseIfTrim(res.Fields(2))=Trim(Text2.Text)Then精品文檔放心下載OK=Trueres.CloseMe.HidefrmPay.Show'UserName=Trim(txtUserName.Text)精品文檔放心下載ElseMsgBox"輸入密碼不正確，請重新輸入！",vbOKOnly+謝謝閱讀vbExclamation,"警告"Text2.SetFocusText2.Text=""EndIfEndIfEndIfEndSub7.2.2員工管理模塊代碼PrivateSubcboItem_Click(IndexAsInteger)感謝閱讀DimMsgTextAsStringDimintCountAsInteger'DimmrccAsADODB.Recordset感謝閱讀'DimmrcctxtAsStringDimdbAsDatabaseDimresAsRecordsetDimstrsqlAsStringSetdb=OpenDatabase(App.Path+"\zongbiao.mdb")精品文檔放心下載strsql="select姓名,員工號,基本工資fromygshujuwhere部門like精品文檔放心下載'*"&Trim(cboItem(0))&"*'"精品文檔放心下載Setres=db.OpenRecordset(strsql)感謝閱讀'IfgintMode=1Then'初始化員工名稱和IDIfIndex=0ThencboItem(1).Clear'txtSQL="selectygid,ygnamefrommanrecordwhereygdept='"精品文檔放心下載&Trim(cboItem(0))&"'"'Setmrc=ExecuteSQL(txtSQL,MsgText)感謝閱讀'Setdb=OpenDatabase(App.Path+"\zongbiao.mdb")感謝閱讀'Setres=db.OpenRecordset("ygshuju")謝謝閱讀IfNotres.EOFThenWithcboItem(1)DoWhileNotres.EOF.AddItemTrim(res!姓名)res.MoveNextLoop.ListIndex=0EndWith'Else'MsgBox"請先建立員工檔案！",vbOKOnly+vbExclamation,"精品文檔放心下載警告"'cmdSave.Enabled=False'ExitSubEndIfEndIfres.MoveFirstres.MovecboItem(1).ListIndex感謝閱讀txtId=res.Fields(1)&Format(Now,"yymm")精品文檔放心下載txtItem(0)=res.Fields(2）感謝閱讀'mrcctxt="selectkqpay,kqdeductfromcheckinwherekqid='"感謝閱讀&mrc.Fields(0)&"'"&"andkqdate>='"&Format(DateSerial(Year(Now),感謝閱讀Month(Now),1),"yyyy/mm/dd")&"'andkqdate<='"&Format(Now,精品文檔放心下載"yyyy/mm/dd")&"'"'Setmrcc=ExecuteSQL(mrcctxt,MsgText)感謝閱讀'IfNotmrcc.EOFThen'txtItem(3)=mrcc.Fields(0)精品文檔放心下載'txtItem(4)=mrcc.Fields(1)精品文檔放心下載'cmdSave.Enabled=True'Else'MsgBox"請先進(jìn)行該員工考勤！",vbOKOnly+vbExclamation,精品文檔放心下載"警告"'cmdSave.Enabled=False'ExitSub'EndIf'mrcc.Close'res.Close'db.CloseEndSub7.2.3員工工資代碼PrivateSubcmdSave_Click()精品文檔放心下載DimintCountAsIntegerDimtxtSQLAsStringDimmrcAsRecordsetDimMsgTextAsStringDimdbAsDatabaseDimsMegAsStringIfTrim(txtItem(0)&"")=""Then精品文檔放心下載sMeg="底薪"sMeg=sMeg&"不能為空！"MsgBoxsMeg,vbOKOnly+vbExclamation,"警告"精品文檔放心下載txtItem(0).SetFocusExitSubEndIfIfTrim(txtItem(13)&"")<>""Then精品文檔放心下載IfNotIsDate(txtItem(13))Then精品文檔放心下載MsgBox"時間輸入格式不正確，應(yīng)輸入如下格式（yyyy-mm-dd）！",精品文檔放心下載vbOKOnly+vbExclamation,"警告"精品文檔放心下載txtItem(13).SetFocusExitSubElsetxtItem(13)=Format(txtItem(13),"yyyy-mm-dd")感謝閱讀EndIfElseMsgBox"時間不能為空！",vbOKOnly+vbExclamation,"警告"感謝閱讀txtItem(13).SetFocusExitSubEndIfSetdb=OpenDatabase(App.Path+"\zongbiao.mdb")感謝閱讀'添加判斷是否有相同的ID記錄'IfgintMode=1ThentxtSQL="select*fromgzshujuwhere工資號='"&Trim(txtId)&精品文檔放心下載"'"'txtSQL=txtSQL&Format(Year(Format(txtItem(13),"yyyy-mm-dd"))感謝閱讀&"-"&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"))),感謝閱讀CInt(Month(Format(txtItem(13),"yyyy-mm-dd"))),1))),"yyyy-mm-dd")&"'"感謝閱讀Setmrc=db.OpenRecordset(txtSQL)精品文檔放心下載Ifmrc.EOF=FalseThenMsgBox"已經(jīng)存在該員工在該月的工資記錄！",vbOKOnly+謝謝閱讀vbExclamation,"警告"txtItem(13).SetFocusExitSubEndIfmrc.Close'先刪除已有記錄'txtSQL="deletefromgzshujuwhere工資號='"&Trim(txtId)&"'and精品文檔放心下載計(jì)發(fā)時間='"&Format(txtItem(13),"yyyy-mm-dd")&"'"謝謝閱讀'Setmrc=db.OpenRecordset(txtSQL)謝謝閱讀'再加入新記錄txtSQL="select*fromgzshuju"精品文檔放心下載Setmrc=db.OpenRecordset(txtSQL)精品文檔放心下載mrc.AddNewmrc.Fields(0)=Trim(txtId)感謝閱讀mrc.Fields(1)=Trim(cboItem(1))感謝閱讀mrc.Fields(17)=Trim(cboItem(0))感謝閱讀mrc.Fields(15)=Trim(txtItem(13))感謝閱讀ForintCount=0To12mrc.Fields(intCount+2)=txtItem(intCount)謝謝閱讀NextintCountmrc.Updatemrc.Close'IfgintMode=1ThenMsgBox"計(jì)發(fā)工資成功！",vbOKOnly+vbExclamation,"警告"謝謝閱讀ForintCount=0To12txtItem(intCount)=""NextintCountmblChange=FalsecmdSave.Enabled=False'frmPay.txtSQL="select*frompay"感謝閱讀'frmPay.ShowTitle'frmPay.ShowData'frmPay.ZOrder1'ElseIfgintMode=2Then精品文檔放心下載'MsgBox"修改工資成功！",vbOKOnly+vbExclamation,"警告"精品文檔放心下載'UnloadMe'frmPay.txtSQL="select*frompay"謝謝閱讀'frmPay.ShowTitle'frmPay.ShowData'frmPay.ZOrder0'EndIfEndSub7.2.4部門維護(hù)代碼PrivateSubCombo1_Click()謝謝閱讀DimMsgTextAsStringDimintCountAsIntegerDimmrccAsADODB.Recordset謝謝閱讀'DimmrcctxtAsStringDimdbAsDatabaseDimresAsRecordsetDimstrsqlAsStringSetdb=OpenDatabase(App.Path+"\zongbiao.mdb")謝謝閱讀strsql="select*fromgzshujuwhere工資號like'*"&Trim(Combo1)謝謝閱讀&"*'"Setres=db.OpenRecordset(strsql)感謝閱讀cboItem(0).ClearcboItem(1).ClearcboItem(0).AddItem(res!部門)感謝閱讀cboItem(0).ListIndex=0cboItem(1).AddItem(res!姓名)謝謝閱讀cboItem(1).ListIndex=0txtItem(13)=res.Fields(15)感謝閱讀ForintCount=0To12txtItem(intCount)=res.Fields(intCount+2)謝謝閱讀NextintCountEndSub7.2.5按姓名查詢工資代碼PrivateSubtxtItem_GotFocus(IndexAsInteger)感謝閱讀txtItem(Index).SelStart=0感謝閱讀txtItem(Index).SelLength=Len(txtItem(Index))謝謝閱讀EndSubPrivateSubtxtItem_KeyDown(IndexAsInteger,KeyCodeAsInteger,Shift精品文檔放心下載AsInteger)'EnterToTabKeyCodeEndSubPrivateFunctionGetNo()AsString謝謝閱讀GetNo=Format(Now,"yymmddhhmmss")謝謝閱讀RandomizeGetNo=GetNo&Int((99-10+1)*Rnd+10)精品文檔放心下載EndFunctionPrivateSubtxtItem_KeyPress(IndexAsInteger,KeyAsciiAsInteger)謝謝閱讀IfIndex>=0AndIndex<=12Then感謝閱讀'MsgBoxKeyCode'對鍵入字符進(jìn)行控制'txtQuantity(Index).Locked=False感謝閱讀'小數(shù)點(diǎn)只允許輸入一次IfKeyAscii=190ThenIfInStr(Trim(txtItem(Index)),".")=0Then感謝閱讀IfLen(Trim(txtItem(Index)))>0Then精品文檔放心下載txtItem(Index).Locked=False感謝閱讀ElsetxtItem(Index).Locked=True精品文檔放心下載EndIfElsetxtItem(Index).Locked=True感謝閱讀EndIfExitSubEndIf'非數(shù)字不能輸入IfKeyAscii>57OrKeyAscii<48Then精品文檔放心下載txtItem(Index).Locked=True精品文檔放心下載ElsetxtItem(Index).Locked=False