企業(yè)人事管理是企業(yè)管理的一個重要內(nèi)容

1、1 緒論企業(yè)人事管理是企業(yè)管理的一個重要內(nèi)容，隨著時代的進(jìn)步，企業(yè)也逐漸變的龐大起來。如何管理好企業(yè)內(nèi)部員工的信息，成為企業(yè)管理中的一個大問題。在這種情況下，一個可以規(guī)范化，自動化的企業(yè)人事管理系統(tǒng)就顯得非常必要。最初的人事管理，都是靠人力來完成的。當(dāng)企業(yè)規(guī)模比較小的時候，人力可以完成，隨著企業(yè)的規(guī)模越來越大，企業(yè)的員工人數(shù)也越來越多，依然維持著人力進(jìn)行人事管理，必然會造成工作效率低，工作錯誤增高的問題。人事管理系統(tǒng)就是把分散的企事業(yè)單位的職工信息實(shí)行統(tǒng)一，集中，規(guī)范的收集管理，建立分類編號管理，電腦存儲查詢以及防火，防潮，防蛀，防盜等現(xiàn)代化，專業(yè)化的管理系統(tǒng)，為企事業(yè)單位和職工解除后顧之憂。

2、企業(yè)人事管理系統(tǒng)為企事業(yè)單位提供信息咨詢，信息檢索，信息存取等服務(wù)。2 企業(yè)人事管理系統(tǒng)的應(yīng)用背景2.1 企業(yè)人事管理系統(tǒng)的發(fā)展歷史現(xiàn)代人事管理源于傳統(tǒng)人事管理，又在某種程度上取代后者。傳統(tǒng)的人事管理以“工作”為核心，抑制了人的能動性，不利于工作質(zhì)量的改進(jìn)和工作效率的提高，它往往注重事務(wù)性操作，不利于人員潛在能力的開發(fā)。而現(xiàn)代人事管理就充分認(rèn)識到人力資源具有能動性和可激勵性，其人力資源開發(fā)及管理是以“人”為中心，尋求“人”與“工作”相互適應(yīng)的契合點(diǎn)，將“人”的發(fā)展與企業(yè)的發(fā)展有機(jī)地聯(lián)系起來。管理領(lǐng)域這種人性回歸思想，是現(xiàn)代人事管理最突出的標(biāo)志之一。傳統(tǒng)的人事管理強(qiáng)調(diào)控制，將員工看作是被管理和控

3、制的對象，將人事制度看作是進(jìn)行控制的工具；而現(xiàn)代企業(yè)人力資源管理則將人視為一種資源，它不僅本身具有價值而且能夠創(chuàng)造價值。因此，現(xiàn)代人事管理能夠切實(shí)做好人力資源規(guī)劃,確保組織在生存發(fā)展過程中對人力資源的需求?，F(xiàn)代人事管理系統(tǒng)最早誕生于20世紀(jì)70年代末，當(dāng)時僅在少數(shù)企業(yè)中用于最簡單、最基礎(chǔ)的工作。隨著科學(xué)技術(shù)的不斷進(jìn)步，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識，它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對人事信息進(jìn)行管理，具有手工管理所無法比擬的優(yōu)點(diǎn)，例如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提

4、高人事管理的效率，也是企事業(yè)單位科學(xué)化、正規(guī)化管理以及與世界接軌的重要條件。與此同時，人事管理系統(tǒng)也不斷地更新?lián)Q代，功能也日趨強(qiáng)大和完善。特別是近來年Internet的飛速發(fā)展，Intranet技術(shù)得到應(yīng)用，為企事業(yè)人事管理信息系統(tǒng)提供了良好的支持環(huán)境，使其在計(jì)算機(jī)網(wǎng)絡(luò)和分布式數(shù)據(jù)庫管理系統(tǒng)的支持下與企事業(yè)單位的其他系統(tǒng)，實(shí)現(xiàn)了辦公、管理、計(jì)算、設(shè)計(jì)、控制、監(jiān)測以及決策等多功能綜合。2.2 國內(nèi)信息系統(tǒng)的發(fā)展現(xiàn)狀企業(yè)是國民經(jīng)濟(jì)的基本單元，而企業(yè)信息系統(tǒng)建設(shè)是我國企業(yè)走向現(xiàn)代化的必由之路。我國目前共有各類企業(yè)800萬家，這些企業(yè)在近20年來，在不同程度上都遇到了企業(yè)信息系統(tǒng)建設(shè)的問題。80年代以

5、來，國家有關(guān)部門就一直非常重視企業(yè)信息化的推進(jìn)。國家有關(guān)部門曾重點(diǎn)扶持過一批國有大企業(yè)的信息化工程，并以它們?yōu)闃影逶谌珖圃鞓I(yè)企業(yè)中推廣過CIMS(Computer Integrated Manufacturing Systems)。沈陽鼓風(fēng)機(jī)廠、成都飛機(jī)制造廠、北京第一機(jī)床廠等，都是這一時期涌現(xiàn)出來的企業(yè)信息化樣板企業(yè)。90年代以后，隨著微型計(jì)算機(jī)、互連網(wǎng)等迅速普及，計(jì)算機(jī)技術(shù)對企業(yè)的影響越來越大，企業(yè)信息化進(jìn)一步為人們所重視。有關(guān)部門領(lǐng)導(dǎo)曾明確提出：到2000年，全國一千個大型骨干企業(yè)基本實(shí)現(xiàn)企業(yè)信息化，全國大型產(chǎn)業(yè)企業(yè)80%(含零售業(yè)、批發(fā)業(yè)、倉儲業(yè)、飲食業(yè)和工業(yè)企業(yè))全面應(yīng)用計(jì)算機(jī)管理

6、，初步實(shí)現(xiàn)管理現(xiàn)代化。3040%的中小企業(yè)普及計(jì)算機(jī)管理。1995年以后，我國企業(yè)信息化走向了以ERP(Enterprise Resource Planning)為主的道路，許多外國ERP廠商如SAP、BAAN、ORACLE、FOUTH SHIFT等紛紛進(jìn)入中國，國內(nèi)目前也已有數(shù)十家ERP軟件供應(yīng)商，不少已經(jīng)形成商品化且有幾百家用戶。一些調(diào)查說明，我國企業(yè)購買MRPII、ERP軟件的費(fèi)用在90年代以后迅速增長。例如在機(jī)械行業(yè)，購買了國外軟件公司MRPII(Material Requirement Planning)系統(tǒng)的企業(yè)高達(dá)66%，企業(yè)平均用于硬件的投資費(fèi)用約為604萬元，軟件費(fèi)171萬元

7、，實(shí)施及咨詢費(fèi)143萬元，合計(jì)約800萬元。與之類似，其他行業(yè)對于信息化的投資，在近幾年來也有較大的增長。 國內(nèi)信息系統(tǒng)存在的問題在企業(yè)信息化快速發(fā)展的時代，我們在充分肯定這些已經(jīng)取得的成果的同時也不能忽視一些普遍性的問題。首先是過去10年左右，我國企業(yè)信息系統(tǒng)建設(shè)雖然轟轟烈烈地發(fā)展，但其成功率究竟如何？根據(jù)廣東省信息中心和信息協(xié)會對335家已經(jīng)實(shí)現(xiàn)了信息化的企業(yè)的調(diào)查,有52.24%的企業(yè)認(rèn)為本企業(yè)進(jìn)行信息化建設(shè)的成效一般;認(rèn)為不理想的有9%；認(rèn)為效果非常好的只有9.55%。根據(jù)研究還發(fā)現(xiàn)：一些企業(yè)已經(jīng)投入使用的模塊，實(shí)際中并未發(fā)揮作用，它只是針對若干局部系統(tǒng)，或者特定類型的產(chǎn)品的試運(yùn)行。運(yùn)

8、行最好的為庫存管理模塊，原因主要是庫存與其它部門間的相互影響較小。其次，物料單、銷售、采購及財務(wù)統(tǒng)計(jì)模塊也在部分企業(yè)得到較好的應(yīng)用。但成本管理及預(yù)測模塊等使用情況較差。根據(jù)另一次對300名來自不同行業(yè)、不同企業(yè)的中層管理者的調(diào)查發(fā)現(xiàn)，這些管理者工作的科室中，人均微機(jī)數(shù)量0.41臺的占33%，其中人均微機(jī)數(shù)量達(dá)到1臺以上的企業(yè)占37%。但是，這些企業(yè)中的計(jì)算機(jī)的97%是用來做文字處理工作，有1/2是用于瀏覽網(wǎng)頁，甚至有1/5的計(jì)算機(jī)是經(jīng)常用來玩游戲的。而大多數(shù)被調(diào)查者都認(rèn)為：他們企業(yè)并沒有實(shí)現(xiàn)信息化。這些調(diào)查和結(jié)果分析都說明了：我國企業(yè)目前雖然使用計(jì)算機(jī)已經(jīng)比較普遍，但許多信息系統(tǒng)的應(yīng)用情況卻并

9、沒有達(dá)到預(yù)想的效果。2.4信息系統(tǒng)開發(fā)的緊迫性近幾年以上狀況已經(jīng)有了明顯好轉(zhuǎn)。隨著企業(yè)規(guī)模的擴(kuò)大和市場競爭的更加激烈，各類企業(yè)都愈來愈認(rèn)識到人力資源管理的重要性及提升企業(yè)自身人力資源管理水平的迫切性，而人力資源管理水平的提升不僅需要高素質(zhì)的管理人員，而且也需要信息化工具進(jìn)行輔助，人力資源管理軟件也就應(yīng)運(yùn)而生了。目前，無論是機(jī)關(guān)單位、事業(yè)單位，還是企業(yè)單位，人力資源管理對于組織生存與長遠(yuǎn)發(fā)展所具備的重要性都已經(jīng)有了明確的認(rèn)識，對于加強(qiáng)組織本身人力資源管理水平的需求已經(jīng)產(chǎn)生。隨著中國企業(yè)管理水平的提高及中國加入WTO的事實(shí)，人才的爭奪與管理已成為中國企業(yè)乃至各級事業(yè)、機(jī)關(guān)單位所面臨的嚴(yán)重問題。要應(yīng)

10、對高強(qiáng)度的競爭無疑是需要優(yōu)秀的管理人才，而科學(xué)管理的實(shí)施在信息化的今天是離不開數(shù)字化的工具做輔助的。特別在組織規(guī)模不斷擴(kuò)大的今天，作為管理人員和組織領(lǐng)導(dǎo)者要想對組織進(jìn)行有效的管理和正確的決策就必須借助于數(shù)字化工具的幫助。在近5年內(nèi)人力資源管理軟件已經(jīng)迅速發(fā)展成為一個巨大的市場，但現(xiàn)在國內(nèi)一些人力資源開發(fā)廠家而言，在人力資源管理軟件的深層次開發(fā)方面，只能說剛剛啟動，現(xiàn)有人力資源系統(tǒng)的廠商的開發(fā)層面幾乎只停留在人事操作的層面上。國外成熟的產(chǎn)品雖然在理論性和先進(jìn)性上優(yōu)于國內(nèi)產(chǎn)品，但在中國現(xiàn)今人力資源管理制度不規(guī)范的現(xiàn)狀下，其功能的實(shí)用性及有效性已大打折扣，同時其高昂的價格也使得大多數(shù)企業(yè)望而生畏。同

11、時，中國企業(yè)受中華民族深遠(yuǎn)文化的影響有其與西方企業(yè)所不同的管理文化底蘊(yùn)。而國外軟件開發(fā)商則很難將產(chǎn)品與中國國情相結(jié)合，使得產(chǎn)品無法真正為廣大中國企業(yè)所受用。因此，結(jié)合我國企業(yè)情況，開發(fā)出適合我們自己的管理軟件是很重要。2.5任務(wù)的提出及意義管理信息系統(tǒng)就是我們常說的MIS(Management Information System)，在強(qiáng)調(diào)管理，強(qiáng)調(diào)信息的現(xiàn)代社會中它變的越來越普及。而將信息管理系統(tǒng)與企業(yè)自動化設(shè)備相結(jié)合，則是當(dāng)今社會現(xiàn)代企業(yè)的發(fā)展趨勢。通過這樣的管理方式，企業(yè)的管理人員、技術(shù)人員、統(tǒng)計(jì)人員等各部門員工就能從大量煩瑣的資料和數(shù)據(jù)中解脫出來，只需對自己需要的數(shù)據(jù)和內(nèi)容進(jìn)行必須的處

12、理，而不用對每個環(huán)節(jié)都了如指掌。這在一定程度上能夠節(jié)省人力物力，同時也大大加強(qiáng)了對數(shù)據(jù)處理的及時性和準(zhǔn)確性。本人的畢業(yè)設(shè)計(jì)任務(wù)是開發(fā)一個企業(yè)人事管理系統(tǒng)，即將信息管理與現(xiàn)代化辦公設(shè)備相結(jié)合。開發(fā)本系統(tǒng)希望使人事管理人員可以從年復(fù)一年的輸入、計(jì)算、統(tǒng)計(jì)等工作中解脫出來，由于人事方面的數(shù)據(jù)眾多，輸入、統(tǒng)計(jì)極為不便，輸入量大，計(jì)算量大。這些工作都以人力來完成將費(fèi)時費(fèi)力，而且容易出現(xiàn)錯誤和疏漏。本系統(tǒng)一次錄入信息后，就可以反復(fù)多次在不同的信息庫中使用。所有輸入的信息都將按所屬部門、職位、考勤日期、工資日期等詳細(xì)分類，使客戶可以根據(jù)需要進(jìn)行管理操作。因此，該管理系統(tǒng)的目的就是利用計(jì)算機(jī)對復(fù)雜煩瑣的數(shù)據(jù)進(jìn)

13、行存儲和處理，并利用計(jì)算機(jī)與現(xiàn)代化辦公設(shè)備的連接實(shí)時刷新數(shù)據(jù)，從而提高企業(yè)的工作效率。3 企業(yè)人事管理系統(tǒng)的分析和設(shè)計(jì)3.1 需求分析需求分析的任務(wù)就是解決目標(biāo)系統(tǒng)“做什么”的問題，也就是對目標(biāo)系統(tǒng)提出完整、準(zhǔn)確、清晰、具體的要求。軟件需求分析工作也是一個不斷認(rèn)識和逐步細(xì)化的過程。該過程將軟件計(jì)劃階段所確定的軟件范圍逐步細(xì)化到可詳細(xì)定義的程度，并分析出各種不同的軟件元素，然后為這些元素找到可行的解決方法。這個軟件主要解決了什么問題？本軟件主要針對企業(yè)員工的基本資料以及考勤工資等信息的管理。對于計(jì)算機(jī)不熟練的人員，只要根據(jù)提示輸入漢字就可以方便的操作。其中要強(qiáng)調(diào)的是，各部分之間靠員工編號來連接；

14、在計(jì)算工資時，要根據(jù)員工的考勤，職位等信息進(jìn)行計(jì)算。系統(tǒng)的綜合要求如下： 1、隨著人員的流動要求系統(tǒng)能夠?qū)崿F(xiàn)對其相關(guān)數(shù)據(jù)資料的追加、修改及刪除等功能。2、為了方便工作，要求能夠根據(jù)不同的條件實(shí)現(xiàn)查詢功能。3、在對工資進(jìn)行統(tǒng)計(jì)時，要先進(jìn)行基本工資的設(shè)置，并對其考勤進(jìn)行統(tǒng)計(jì)后，才可實(shí)現(xiàn)工資的統(tǒng)計(jì)。數(shù)據(jù)庫結(jié)果（操作表）表用戶提供數(shù)據(jù)顯示查看登錄執(zhí)行條件調(diào)用從以上3點(diǎn)不難看出，這些要求就是模塊所處理的內(nèi)容。下面是系統(tǒng)實(shí)現(xiàn)的數(shù)據(jù)流圖3.1：圖3.1系統(tǒng)實(shí)現(xiàn)的數(shù)據(jù)流圖概要設(shè)計(jì)在需求分析階段，已經(jīng)從系統(tǒng)開發(fā)的角度出發(fā)，把系統(tǒng)按功能逐次分割成層次結(jié)構(gòu)，使每一部分之間又保持一定的聯(lián)系，這就是所謂的功能設(shè)計(jì)。在設(shè)

15、計(jì)階段，基于這個功能的層次結(jié)構(gòu)把各部分組合起來成為系統(tǒng)。系統(tǒng)主要功能要求按照不同用戶名登錄系統(tǒng)。對人員資料情況進(jìn)行添加、修改、查詢和刪除操作。對人員考勤資料情況進(jìn)行添加、修改、查詢和刪除操作。對人員的工資水平及福利制度、工資的計(jì)算方式進(jìn)行設(shè)置操作。根據(jù)人員的出勤情況、工資發(fā)放數(shù)額進(jìn)行設(shè)置和查詢操作?？商砑有碌挠脩?，修改用戶原有的用戶名、密碼，刪除原有用戶。 系統(tǒng)的功能模塊設(shè)計(jì)1. 員工基本信息管理。2. 員工考勤信息管理。 3. 工資信息設(shè)置。4 工資信息管理。5 系統(tǒng)。各個功能模塊之間關(guān)系參見圖。修改密碼企業(yè)人事管理系統(tǒng)查詢員工基本信息員工基本信息管理添加員工基本信息修改員工基本信息刪除員工

16、基本信息員工考勤信息管理添加員工考勤信息修改員工考勤信息查詢員工考勤信息刪除員工考勤信息工資信息設(shè)置工資信息管理系 統(tǒng)計(jì)算公式設(shè)置基本工資設(shè)置其他項(xiàng)目設(shè)置統(tǒng)計(jì)出勤信息計(jì)算實(shí)發(fā)工資查詢工資添加用戶刪除登錄圖3.2 系統(tǒng)的功能模塊 詳細(xì)設(shè)計(jì)概要設(shè)計(jì)完成了軟件系統(tǒng)的總體設(shè)計(jì)，規(guī)定了各個模塊的功能之間的聯(lián)系，進(jìn)一步就要考慮實(shí)現(xiàn)各個模塊規(guī)定的功能。從軟件開發(fā)的工程化觀點(diǎn)來看，在使用程序設(shè)計(jì)語言編制程序以前，需要對所采用算法的邏輯關(guān)系進(jìn)行分析，設(shè)計(jì)出全部必要的過程細(xì)節(jié)，并給與清晰的表達(dá)，使之成為編碼的依據(jù)。這就是詳細(xì)設(shè)計(jì)的任務(wù)。詳細(xì)設(shè)計(jì)也叫過程設(shè)計(jì)或程序設(shè)計(jì)，它不同于編碼或編程。在詳細(xì)設(shè)計(jì)階段，要決定各個

17、模塊的實(shí)現(xiàn)算法，并精確地表達(dá)這些算法。前者涉及所開發(fā)項(xiàng)目的具體要求和對每個模塊規(guī)定的功能，以及算法的設(shè)計(jì)和評價。后者需要給出適當(dāng)?shù)乃惴枋?，為此?yīng)提供過程設(shè)計(jì)的表達(dá)工具。在理想情況下，算法過程描述應(yīng)當(dāng)采用自然語言表達(dá)，這樣不熟悉軟件的人要理解這些規(guī)格說明就比較容易，不需要重新學(xué)習(xí)。以下是系統(tǒng)的數(shù)據(jù)流程圖，如圖NYYYY開始管理員登錄是否修改密碼修改密碼選擇員工基本信息實(shí)現(xiàn)員工基本信息的添加、刪除、修改、查詢等操作實(shí)現(xiàn)員工考勤信息的添加、刪除、修改、查詢等操作實(shí)現(xiàn)員工基本工資、其他項(xiàng)目及計(jì)算公式的設(shè)置統(tǒng)計(jì)出勤、計(jì)算工資、查詢結(jié)果選擇員工考勤信息選擇員工工資設(shè)置選擇員工工資信息管理是否進(jìn)行其他操作

18、結(jié)束NNNNNY圖3.3系統(tǒng)數(shù)據(jù)流程圖 數(shù)據(jù)庫設(shè)計(jì)根據(jù)詳細(xì)設(shè)計(jì)要求，在Access 2003中創(chuàng)建一個新的數(shù)據(jù)庫，命名為，保存在要存放系統(tǒng)的所有工程文件的文件夾中。然后使用設(shè)計(jì)器創(chuàng)建這個系統(tǒng)需要的所有表格，主要包括用戶信息表、員工編號統(tǒng)計(jì)表、員工考勤信息表、上下班時間表、員工基本信息表、請假信息表、加班信息表、出差信息表、設(shè)定員工工資信息表、設(shè)定獎金福利等其他項(xiàng)目信息表、工資計(jì)算公式信息表、員工工資統(tǒng)計(jì)表、員工出勤統(tǒng)計(jì)信息表，這13個數(shù)據(jù)表的結(jié)構(gòu)設(shè)計(jì)如下圖3.4圖6所示：圖3.4 用戶信息表UserInfo圖3.5 員工編號計(jì)數(shù)表PersonNum圖3.6員工考勤信息表AttendanceIn

19、fo圖3.7 上下班時間表 TimeSetting圖3.8 員工基本信息表StuffInfo圖3.9 請假信息表LeaveInfo 圖3.10 加班信息表OvertimeInfo圖1 出差信息表ErrandInfo圖2員工工資設(shè)定表 SalarySetting圖3 獎金福利等其他項(xiàng)目信息表SalaryOther圖4 工資計(jì)算公式信息表FormulaSetting圖5 員工工資統(tǒng)計(jì)表 SalaryStatistics圖6員工出勤統(tǒng)計(jì)信息表AttendanceStatistics以上是數(shù)據(jù)庫中所有表的設(shè)計(jì)，系統(tǒng)運(yùn)行時，所需的數(shù)據(jù)都是通過調(diào)用這些表里的數(shù)據(jù)得到的。特別注意的是，無論是添加、修改、查詢

20、還是刪除，都應(yīng)保證數(shù)據(jù)庫的一致性，比如刪除，就應(yīng)將所有相關(guān)信息全部刪除，這樣才能保證數(shù)據(jù)庫中每一個表內(nèi)的數(shù)據(jù)始終保持一致。4 企業(yè)人事管理應(yīng)用程序設(shè)計(jì)的具體實(shí)現(xiàn)4.1 系統(tǒng)實(shí)現(xiàn)方法主要利用ADO技術(shù)，界面友好。能自動生產(chǎn)編號，根據(jù)用戶輸入的數(shù)據(jù)檢查其合法性，確保數(shù)據(jù)正確輸入。登陸系統(tǒng)時對用戶的請求進(jìn)行身份驗(yàn)證，經(jīng)驗(yàn)證合法后允許用戶登陸系統(tǒng)，進(jìn)入系統(tǒng)的信息管理界面。本次設(shè)計(jì)選擇了Access 2000作為后臺數(shù)據(jù)庫，利用Visual Basic 6.0提供的數(shù)據(jù)庫開發(fā)平臺開發(fā)前臺部分。4.2 VB對數(shù)據(jù)庫的操作方法ActiveX Data Objects (ADO) 是微軟最新的數(shù)據(jù)訪問技術(shù)。它

21、被設(shè)計(jì)用來同新的數(shù)據(jù)訪問層OLE DB Provider一起協(xié)同工作，以提供通用數(shù)據(jù)訪問（Universal Data Access）。OLE DB是一個低層的數(shù)據(jù)訪問接口，用它可以訪問各種數(shù)據(jù)源，包括傳統(tǒng)的關(guān)系型數(shù)據(jù)庫，以及電子郵件系統(tǒng)及自定義的商業(yè)對象。 ADO向我們提供了一個熟悉的，高層的對OLE DB的Automation封裝接口。對那些熟悉RDO的程序員來說，你可以把OLE DB比作是ODBC驅(qū)動程序。如同RDO對象是ODBC驅(qū)動程序接口一樣，ADO對象是OLE DB的接口；如同不同的數(shù)據(jù)庫系統(tǒng)需要它們自己的ODBC驅(qū)動程序一樣，不同的數(shù)據(jù)源要求它們自己的OLE DB提供者（OLE

22、DB provider）。目前，雖然OLE DB提供者比較少，但微軟正積極推廣該技術(shù)，并打算用OLE DB取代ODBC。 ADO向VB程序員提供了很多好處。包括易于使用，熟悉的界面，高速度以及較低的內(nèi)存占用（已實(shí)現(xiàn)ADO 的需要占用342K內(nèi)存，比RDO的的368K略小，大約是的Da所占內(nèi)存的60）。同傳統(tǒng)的數(shù)據(jù)對象層次（DAO和RDO）不同，ADO可以獨(dú)立創(chuàng)建。因此你可以只創(chuàng)建一個Connection對象，但是可以有多個，獨(dú)立的Recordset對象來使用它。ADO針對客戶服務(wù)器以及WEB應(yīng)用程序作了優(yōu)化。最重要的三個ADO對象是Connection、 Recordset和Command。本

23、文將主要使用Connection和Recordset這兩個對象。每個Connection的屬性定義了與數(shù)據(jù)源的連接。Recordset對象接收來自數(shù)據(jù)源的數(shù)據(jù)。Recordset可以與Connection一起使用，先建立一個連接，然后獲取數(shù)據(jù)。盡管如此，Recordset也可以被單獨(dú)創(chuàng)建，其Connection參數(shù)可以在Open屬性定義。一旦安裝了ADO，在VB的工程引用對話框中選擇 ActiveX Data Objects 1.5 Library (ADODB)。在其下的 ADO Recordset 1.5 Library是一個客戶端的版本(ADOR),它定義了有聚的數(shù)據(jù)訪問對象。ADOR

24、對于客戶端的數(shù)據(jù)訪問來說是足夠的了，因?yàn)槟悴恍枰狢onnection對象來建立與遠(yuǎn)程數(shù)據(jù)源的聯(lián)系。 如果你想要訪問更多的外部數(shù)據(jù)源，你需要安裝這些外部數(shù)據(jù)源自己的OLE DB Provider，就像你需要為新的數(shù)據(jù)庫系統(tǒng)安裝新的ODBC驅(qū)動程序一樣。如果該外部數(shù)據(jù)源沒有自己的OLE DB Provider,你就得使用OLE DB SDK來自己為這個外部數(shù)據(jù)源創(chuàng)建一個OLE DB Provider了。利用Visual Basic開發(fā)應(yīng)用程序時，常常會遇到這樣的問題：生成的可執(zhí)行文件在開發(fā)的機(jī)器上能夠運(yùn)行，復(fù)制到另一臺機(jī)器上則無法運(yùn)行，這種現(xiàn)象稱之為應(yīng)用程序與機(jī)器環(huán)境相關(guān)。 造成這種現(xiàn)象主要有兩個

25、方面的原因：一是程序在運(yùn)行過程中調(diào)用了一些文件，如數(shù)據(jù)庫文件、文本文件和圖片文件等，由于路徑使用不當(dāng)而無法定位；二是Visual Basic編譯成的.EXE文件并不是實(shí)際意義上的EXE文件，Visual Basic系統(tǒng)中的標(biāo)準(zhǔn)控件和開發(fā)過程中用到的第三方控件，都沒有包含在內(nèi)。而跟隨VB 6.0一起發(fā)布的數(shù)據(jù)環(huán)境（Data Environment）輕松解決了有關(guān)數(shù)據(jù)庫程序的這個問題。為了能和你的數(shù)據(jù)庫相連，在設(shè)計(jì)時，通常需要事先定義數(shù)據(jù)環(huán)境的連接字符串（Connection String）。但在發(fā)布你的應(yīng)用程序時，或在運(yùn)行你的程序過程中，你可能需要改變事先定義好的連接字符串。實(shí)現(xiàn)它的最簡單的方法

26、就是利用數(shù)據(jù)環(huán)境。如果在程序中你用到Access數(shù)據(jù)庫，數(shù)據(jù)環(huán)境將把該數(shù)據(jù)庫的路徑等信息儲存到連接字符串中。當(dāng)你發(fā)布你的應(yīng)用程序時，你可能想改變該數(shù)據(jù)庫的路徑，例如把它放在程序的所在目錄的一個子目錄中，用下面的代碼就能實(shí)現(xiàn)。Sub Main()ath & .mdb 確定數(shù)據(jù)庫位置 DataEnvironment1.Connection1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; Data Source= & App.Path & .mdb; Persist Security Info=FalseEnd Sub4.3 功能模塊的具體

27、實(shí)現(xiàn)4.3.1建立公共模塊為了提高代碼的效率方便維護(hù)，在VB中可以用模塊來存放工程中經(jīng)常使用的函數(shù)、過程和全局變量等。在這個系統(tǒng)中，每個模塊都要使用數(shù)據(jù)庫，因此可以使用一個公用的數(shù)據(jù)操作函數(shù)，來執(zhí)行一系列的SQL語句。在這里，我要論述一下我建立工作模塊的過程：在VB中新建一個工程，工程項(xiàng)目名為Stuff.MIS，將它保存為。該模塊中一些變量定義代碼如下：1、首先以下是添加的變量定義：Public gUserName As String 保存用戶名稱Public flag As Integer 添加和修改的標(biāo)志Public gSQL As String 保存SQL語句Public kqsql A

28、s String 保存查詢考勤結(jié)果SQL語句Public kqsql2 As String 保存查詢其他考勤結(jié)果SQL語句Public ArecordID As Integer 保存上下班記錄編號Public LrecordID As Integer 保存請假記錄編號Public OrecordID As Integer 保存加班記錄編號Public ErecordID As Integer 保存出差記錄編號Public iflag As Integer 數(shù)據(jù)庫是否打開標(biāo)志Public z As Integer 是否刪除的標(biāo)志Public strPublicSQL As String 傳遞SQ

29、L字符串Public ichangeFlag As Integer 修改標(biāo)志2、在公共模塊中還要添加SQL語句 如：添加執(zhí)行SQL語句命令的函數(shù) Dim strConnection As String Dim strArray() As String Set con = New ADODB.Connection 創(chuàng)建連接 Set rs = New ADODB.Recordset 創(chuàng)建記錄集 On Error GoTo TransactSQL_Error strConnection = Provider=Microsoft.jet.oledb.4.0;Data Source= & App.Pat

30、h & Person.mdb strArray = Split(sql) con.Open strConnection 打開連接 End Function 還要添加一個返回記錄集的函數(shù) Set con = New ADODB.Connection 創(chuàng)建連接 Set rs = New ADODB.Recordset 創(chuàng)建記錄集 On Error GoTo getRS_Error strConnection = Provider=Microsoft.jet.oledb.4.0;Data Source= & App.Path & strConnection = strConnection & dat

31、abasename & .mdb strArray = Split(sql) con.Open strConnection 打開連接 rs.Open Trim(sql), con, adOpenKeyset, adLockOptimistic Set getRS = rs 返回記錄集 iflag = 1 End Function4.3.2 用戶登錄界面模塊登錄窗體如下圖4.1所示 圖4.1用戶登錄窗體用戶登錄模塊設(shè)計(jì)思路：每個用戶登錄系統(tǒng)都須經(jīng)過身份驗(yàn)證。只有用戶名和密碼與用戶信息表中對應(yīng)信息相匹配才能進(jìn)入系統(tǒng)。當(dāng)?shù)卿浾哒_的用戶名和密碼登錄時，他可以使用系統(tǒng)提供的所有功能，并能對所有用戶進(jìn)行

32、管理；如果登錄者未輸入和輸入不存在的用戶名或密碼，則系統(tǒng)會以彈出窗口的形式，進(jìn)行警告提示，直至輸入正確為止。 當(dāng)輸入用戶名和密碼后的判斷情況，以下是部分代碼：Private Sub cmdOK_Click() Dim sql As String If Trim(UserName.Text = ) Then MsgBox 沒有輸入用戶名稱，請從新輸入！, vbOKOnly + vbExclamation, 警告 Else 查詢用戶 sql = select * from UserInfo where UserID= & UserName.Text & Set rs = TransactSQL(s

33、ql) If iflag = 1 Then If rs.EOF = True Then MsgBox 沒有這個用戶，請重新輸入！, vbOKOnly + vbExclamation, 警告 Else If Trim(rs.Fields(2) = Trim(PassWord.Text) Then gUserName = Trim(UserName.Text) 保存用戶名稱 Unload Me Else MsgBox 密碼不正確，請重新輸入！, vbOKOnly + vbExclamation, 警告 PassWord.Text = End If End If Else Unload Me End

34、 IfEnd IfpwdCount = pwdCount + 1 判斷輸入次數(shù)If pwdCount = 3 Then Unload Me Exit SubEnd IfEnd Sub4.3.3 系統(tǒng)主界面用戶登錄后，將進(jìn)入建立系統(tǒng)主界面，參見圖。該界面所有功能一目了然。圖系統(tǒng)主界面 設(shè)置系統(tǒng)主界面的菜單編輯器，將所有主菜單和二級菜單進(jìn)行設(shè)置，設(shè)置界面如圖圖4.3系統(tǒng)主界面菜單編輯器 系統(tǒng)主界面的代碼，主要是對各菜單.frm調(diào)出顯示，具體的顯示基本相同，如下以“添加員工基本信息”為例的代碼：Private Sub Add_Stuff_Click() 添加員工信息 flag = 1 frmStuf

35、f_info.ZOrder 0End Sub4.3.4 員工基本信息模塊 員工基本信息模塊包括添加員工信息、修改員工信息、查詢員工信息、刪除員工信息4個操作。員工基本信息界面如圖圖4.4 員工基本信息界面圖 1添加員工信息界面如下圖圖4.5 添加員工信息界面當(dāng)操作員進(jìn)入系統(tǒng)，根據(jù)設(shè)計(jì)要求，需要添加新的員工信息時，在基本信息界面頁，右鍵點(diǎn)擊進(jìn)入“添加員工基本信息”菜單，員工編號會自動調(diào)用數(shù)據(jù)庫的編號ID,自動生成即將添加的記錄編號；其他文本框全部為空，只需輸入員工名稱和其它信息即可完成員工信息編輯操作，在按窗體上的確定按鈕即可檢查該員工信息是否合法并存入數(shù)據(jù)庫，否則按取消按鈕。在添加上述所有數(shù)據(jù)

36、項(xiàng)后，點(diǎn)擊確定后，系統(tǒng)會判斷所填寫的數(shù)據(jù)項(xiàng)是否為空、或者是格式不符合等條件，如不符合，則會以提示框的形式給予警告，重新填寫。部分代碼實(shí)現(xiàn)如下：Private Sub cmdOK_Click() If checkFormat(Me.ID.Text) = False Then Exit Sub If Trim(Me.StuffName) = Then 判斷員工姓名是否為空 MsgBox 請輸入員工姓名！, vbOKOnly + vbExclamation, 警告！ Exit Sub End If If Trim(Me.Age) = Then 判斷年齡是否為空 MsgBox 請輸入員工年齡！, vb

37、OKOnly + vbExclamation, 警告！ Exit Sub End If If Trim(Me.Birthday) = Then 判斷生日是否為空 MsgBox 請輸入員工生日！, vbOKOnly + vbExclamation, 警告！ Exit Sub End If If Trim(Me.Dept) = Then 判斷部門是否為空 MsgBox 請輸入員工所在部門！, vbOKOnly + vbExclamation, 警告！ Exit Sub End If If Trim(Me.Position) = Then 判斷職務(wù)是否為空 MsgBox 請輸入員工職務(wù)！, vbOK

38、Only + vbExclamation, 警告！ Exit Sub End If If Not IsDate(Me.Birthday) Then 判斷生日的格式MsgBox 生日請按照(yyyy-mm-dd)方式輸入！, vbOKOnly + vbExclamation, 警告！ Exit Sub Else Me.Birthday = Format(Me.Birthday, yyyy-mm-dd) End IfIf Not IsDate(Me.WorkTime) Then 判斷參加工作時間的格MsgBox 參加工作時間請按照(yyyy-mm-dd)方式輸入！, vbOKOnly + vbEx

39、clamation, 警告！ Exit Sub Else Me.WorkTime = Format(Me.WorkTime, yyyy-mm-dd) End If If Not IsDate(Me.InTime) Then 判斷加如本公司時間格式MsgBox 進(jìn)入本公司時間請按照(yyyy-mm-dd)方式輸入！, vbOKOnly + vbExclamation, 警告！ Exit Sub Else Me.InTime = Format(Me.InTime, yyyy-mm-dd) End If If Not IsDate(Me.PayTime) Then 判斷起薪時間格式MsgBox 起薪

40、時間請按照(yyyy-mm-dd)方式輸入！, vbOKOnly + vbExclamation, 警告！ Exit Sub Else Me.PayTime = Format(Me.PayTime, yyyy-mm-dd) End If If flag = 1 Then 添加操作tuffName) sql = sql & and SGender= & Gender.Text & and SBirthday= sql = sql & Trim(Me.Birthday) & and SDept= & Trim(Me.Dept) sql = sql & and SPosition= & Trim(M

41、e.Position) & Set rs = TransactSQL(sql) If rs.EOF = False Then 判斷是否已經(jīng)存在員工記錄 MsgBox 已經(jīng)存在這個員工的記錄！, vbOKOnly + vbExclamation, 警告！ Me.StuffName.SelStart = 0 Else Call AddNewRecord MsgBox 記錄已成功添加!, vbOKOnly + vbExclamation, 添加結(jié)果！ sql = update PersonNum set Num = Num + 1 計(jì)數(shù)器加1 TransactSQL (sql) sql = sece

42、ct * from PersonNum 員工編號初始化 Set rs = TransactSQL(sql) num = rs(1) mum = mum + 1 temp = Right(Format(10000000 + num), 7) Me.ID = P & temp Call init Unload frmStuff_info sql = select * from StuffInfo 顯示信息列表 frmResult.createList (sql) frmResult.ZOrder 0 Me.ZOrder 0 顯示窗體繼續(xù)添加 End If Unload Me. End IfEnd

43、Sub 2. 修改員工信息界面 圖4.6 修改員工信息界面當(dāng)操作員點(diǎn)擊菜單的“修改員工基本信息”，或是在顯示員工信息界面點(diǎn)擊右鍵,即可調(diào)出“修改員工信息界面”菜單,由于是修改信息，所以在此將員工編號和員工姓名設(shè)定為不可選，其他信息都可以修改，修改后按確認(rèn)按鈕，就會顯示修改后的信息了，修改后點(diǎn)擊確定，會將修改的信息覆蓋數(shù)據(jù)庫中原來的信息，然后，再從數(shù)據(jù)庫中調(diào)出，顯示在員工基本信息列表里。修改員工的基本信息，通過查詢，選擇所需要修改的用戶，在“添加員工的基本信息”的界面中進(jìn)行修改，修改的代碼實(shí)現(xiàn)如下：ElseIf flag = 2 Then 修改操作 sql = update StuffInfo

44、set SGender= & Gender.Text & ,SPlace= sql = sql & Trim(Me.Place) & ,SAge= & Trim(Me.Age) sql = sql & ,SBirthday= & Trim(Me.Birthday) & , sql = sql & SDegree= & Trim(Me.Degree) & , sql = sql & SSpecial= & Trim(Me.Speciality) & , sql = sql & SAddress= & Trim(Me.Address) & , sql = sql & SCode= & Trim(M

45、e.Code) & , sql = sql & STel= & Trim(Me.Tel) & ,SEmail= & Trim(Me.Email) & , sql = sql & SWorkTime= & Trim(Me.WorkTime) & , sql = sql & SInTime= & Trim(Me.InTime) & ,sql = sql & SDept= & Trim(Me.Dept) & ,SPayTime= & Trim(Me.PayTime) sql = sql & ,SPosition= & Trim(Me.Position) & , sql = sql & SRemark

46、= & Trim(Me.Remark) & where SID= & Trim(Me.ID) & TransactSQL (sql) MsgBox 記錄已經(jīng)成功修改！, vbOKOnly + vbExclamation, 修改結(jié)果！ sql = select * from StuffInfo frmResult.createList (sql) Unload frmStuff_info圖4.7 查詢員工信息界面 操作員可通過三個多選條件進(jìn)行查詢所需要查詢的員工，選擇“員工編號”和“員工姓名”即可實(shí)現(xiàn)的單一查找，而選擇“進(jìn)入本公司時間”的查詢結(jié)果則為范圍查找，會將所有符合此時間段的所有員工在數(shù)據(jù)

47、庫中調(diào)出。 實(shí)現(xiàn)條件判斷的部分代碼如下：Private Sub setSQL() 設(shè)置SQL語句 If IDcheck.Value = vbChecked Then query = select * from StuffInfo where SID= & Trim(Me.SID) & End If If NameCheck.Value = vbChecked Then query = select * from StuffInfo where SName= & Trim(Me.SName) & End If If TimeCheck.Value = vbChecked Then query =

48、 select * from StuffInfo where SInTime between # query = query & fromdate & #and # & todate & # End If If IDcheck.Value = vbChecked And NameCheck.Value = vbChecked Then query = select * from StuffInfo where SID= & Trim(Me.SID) query = query & and SName= & Trim(Me.SName) & End If If NameCheck.Value =

49、 vbChecked And TimeCheck.Value = vbChecked Then query = select * from StuffInfo where SName= & Trim(Me.SName) query = query & and SInTime between# & fromdate query = query & #and# & todate & # End IfEnd Sub4. 刪除操作員點(diǎn)擊“刪除員工信息”,即可調(diào)出如圖的查詢界面,查詢出所需刪除的員工信息,鼠標(biāo)右鍵點(diǎn)擊員工信息,確定是否刪除此條信息，如確定即可刪除。4.3.5 員工考勤信息模塊圖4.8員工

50、考勤信息菜單界面添加考勤信息 此菜單包括“添加上下班信息”、“添加其他考勤信息”兩個菜單。1 圖 4.9 添加員工考勤信息_上下班信息 當(dāng)操作員點(diǎn)擊“添加員工上下班信息”的菜單，可通過下拉菜單對在編的員工的考勤信息進(jìn)行操作，右側(cè)員工姓名會隨員工編號的變化自動更新，當(dāng)前日期為操作員的操作時間，此處設(shè)為不可操作。對員工的上下班時間進(jìn)行設(shè)置，點(diǎn)擊“確定”后，會調(diào)出添加的信息在菜單中顯示。 部分實(shí)現(xiàn)代碼如下：Private Sub cmdOK_Click() If Me.InFlag = True Then 添加上班記錄 aflag = 入 If Me.InTime = Or IsDate(Me.In

51、Time) = False Then MsgBox 請輸入正確的時間！, vbOKOnly + vbExclamation, 警告！ Me.InTime = Else If addflag = False Then Call in_add MsgBox 已經(jīng)添加上班記錄！, vbOKOnly + vbExclamation, 警告！ Call init Me.InFlag = False Else Call init Me.InFlag = False End If End If Unload FrmAttendance End If If Me.OutFlag = True Then 添加下

52、班記錄 aflag = 出 End If End Sub圖 4.10 添加員工其他考勤信息界面圖 4.11 添加員工考勤信息_其他信息 同理，員工的其他考勤信息，包括員工的請假、加班、出差事務(wù)信息的記錄。這里需要說明的是，每次只能添加一項(xiàng)記錄，在“其他考勤信息”處，選擇添加相應(yīng)的考勤信息，添加完成后，點(diǎn)擊確定，同樣會調(diào)出添加的信息在菜單中顯示。修改考勤信息此菜單包括“修改上下班信息”、“修改其他考勤信息”兩個菜單。本處的兩個菜單，是對所有在編人員的操作，操作員點(diǎn)擊菜單的“修改上下班信息”，主菜單界面中會調(diào)出所有數(shù)據(jù)庫的人員信息，操作員只需在所要修改的員工信息處，雙擊鼠標(biāo)，即可彈出“修改上下班信

53、息”或是“修改其他考勤信息”，修改后，確定后，會覆蓋原數(shù)據(jù)庫信息。具體實(shí)現(xiàn)代碼如下：. Else 修改記錄If MsgBox(確定修改編號為 & Me.ASID & 的員工信息？, vbOKCancel, 提示！) = vbOK Then If Me.InFlag = True Then If DateDiff(s, Me.InTime, rsTime(0) 0 Then ieary = 1 End If sql = update AttendanceInfo set AOutTime=# & Me.OutTime & #, sql = sql & AEarly= & iearly & whe

54、re ID= & ArecordID TransactSQL (sql) 修改下班記錄 Call frmAResult.ShowData(sql2) MsgBox 信息已經(jīng)修改！, vbOKOnly + vbExclamation, 修改結(jié)果！ Unload Me End If Else Unload Me End IfEnd If.查詢考勤信息 2圖 4.12 查詢員工考勤信息 根據(jù)查詢條件，如勾選員工編號，查詢出所選擇員工的出勤記錄、請假記錄、加班記錄、出差記錄，如圖 4. 13 圖3查詢某個員工考勤記錄根據(jù)上面的查詢條件，如勾選時間段，則會調(diào)出是某一時間段的所有員工的考勤情況。查詢結(jié)果如

55、圖 4.144 查詢某時間段的員工考勤記錄 上述調(diào)出數(shù)據(jù)庫中的相匹配的數(shù)據(jù)，具體的實(shí)現(xiàn)代碼如下：Public Sub ShowData(query As String) . Set rsAttendance = TransactSQL(query) If rsAttendance.EOF = False Then With recordlist .Rows = 1 .Rows = .Rows + 1 .TextMatrix(.Rows - 1, 0) = rsAttendance(0) .TextMatrix(.Rows - 1, 1) = rsAttendance(1) .TextMatri

56、x(.Rows - 1, 2) = rsAttendance(2) .TextMatrix(.Rows - 1, 3) = rsAttendance(3) .TextMatrix(.Rows - 1, 4) = rsAttendance(4) If IsNull(rsAttendance(5) Then .TextMatrix(.Rows - 1, 5) = Else .TextMatrix(.Rows - 1, 5) = rsAttendance(5) End If If IsNull(rsAttendance(6) Then .TextMatrix(.Rows - 1, 6) = Else

57、 .TextMatrix(.Rows - 1, 6) = rsAttendance(6) End If .TextMatrix(.Rows - 1, 7) = rsAttendance(7) .TextMatrix(.Rows - 1, 8) = rsAttendance(8) Wend End With End IfEnd Sub刪除考勤信息 此菜單包括“刪除上下班信息”、“刪除其他考勤信息”兩個菜單。本處的兩個菜單，是對所有在編人員的操作，操作員點(diǎn)擊菜單的“刪除上下班信息”，主菜單界面中會調(diào)出所有數(shù)據(jù)庫的人員信息，操作員只需在所要修改的員工信息處，雙擊鼠標(biāo)，即可彈出“刪除上下班信息”或是“

58、刪除其他考勤信息”，修改后，確定后，會更新原數(shù)據(jù)庫信息。設(shè)置上下班時間圖 4.13 設(shè)置上下班時間 操作員點(diǎn)擊“設(shè)置上下班時間”菜單，即可對上下班時間進(jìn)行調(diào)整。4.3.6工資信息設(shè)置模塊4 工資信息設(shè)置模塊 該模塊包括工資基本工資設(shè)置、其他項(xiàng)目設(shè)置、工資計(jì)算公式設(shè)置三個子菜單組成。1. 設(shè)置基本工資 如圖4.15圖4.15 設(shè)置員工基本工資 此菜單是對員工的基本工資的設(shè)置，通過下拉菜單可以選擇員工編號及其職務(wù)，輸入相應(yīng)的金額，點(diǎn)擊確定后，儲存至數(shù)據(jù)庫，并打開所有數(shù)據(jù)庫的基本工資表。 2. 其他項(xiàng)目設(shè)置 如圖圖4.16 設(shè)置其他項(xiàng)目 此菜單設(shè)置員工的福利、獎金、津貼、扣發(fā)等項(xiàng)目的費(fèi)用，當(dāng)操作員選

59、擇相應(yīng)的項(xiàng)目添加完成后，點(diǎn)擊確定，會將數(shù)據(jù)信息記錄至數(shù)據(jù)庫，并在前臺的“員工其他項(xiàng)目列表”進(jìn)行顯示。 3. 工資計(jì)算公式設(shè)置 如圖 4.17圖4.17 工資計(jì)算公式設(shè)置操作員添加值之后，系統(tǒng)就會根據(jù)添加的值進(jìn)行工資的統(tǒng)計(jì)了。 4.3.7 工資信息管理模塊 圖4.18 工資信息管理 1. 出勤統(tǒng)計(jì) 如圖圖4.19 統(tǒng)計(jì)出勤記錄 00 員工考勤信息列表 這一部分的內(nèi)容是難點(diǎn)，首先將前邊的添加過的考勤按月統(tǒng)計(jì)，然后根據(jù)添加的工資公式統(tǒng)計(jì)出每個人的工資。下面我用數(shù)據(jù)流圖4.21來表示工資信息管理在統(tǒng)計(jì)考勤的過程中，需要進(jìn)行一系列的統(tǒng)計(jì)，首先判斷是否含有出勤記錄，然后統(tǒng)計(jì)出勤天數(shù)、遲到次數(shù)、早退次數(shù)、正

60、常加班次數(shù)、特殊加班次數(shù)、出差次數(shù)以及曠工次數(shù)，這些都統(tǒng)計(jì)完后，系統(tǒng)提示：統(tǒng)計(jì)完畢。月度員工考勤統(tǒng)計(jì)表 基本工資獎金等表基本工資等設(shè)置計(jì)算工資月度工資表發(fā)放工資圖4.21工資信息管理數(shù)據(jù)流圖以下是部分代碼顯示：Private Sub cmdOK_Click() sql = select AEarly from AttendanceInfo where AEarly=1 and AStuffID= sql = sql & rsPerson(0) & and ADate between # & firstday & # and # sql = sql & lastday & # 統(tǒng)計(jì)天數(shù)按從每月的