信息標準管理系統(tǒng)

目錄可行性分析......................................5二、系統(tǒng)分析某些....................................91）業(yè)務流程圖..................................92）數據流程圖..................................93）功能分析圖..................................104）數據字典...................................115）數據加工解決描述...........................116）管理信息系統(tǒng)流程設想圖（新系統(tǒng)模型）.............13三、系統(tǒng)設計某些...................................141）功能構造圖設計...............................142）新系統(tǒng)信息解決流程設計........................14系統(tǒng)實行某些....................................161）程序框圖....................................162）源程序.....................................185）系統(tǒng)使用闡明書...............................31五、附錄或參照資料...................................32工資管理信息系統(tǒng)課程設計引言本課題將設計一種應用與事業(yè)單位工資管理系統(tǒng)。隨著國民經濟急速發(fā)展，事業(yè)單位工資應用體系也變越來越復雜，單位中，部門、職務、工作效益等與工資管理關于信息隨之急劇增長。在這種狀況下單靠人工來解決員工工資不但要消耗大量人力和物力，并且極容易出錯。該系統(tǒng)詳細任務就是設計一種事業(yè)單位工資數據庫管理系統(tǒng)，由計算機來代替人工執(zhí)行一系列工作，諸如增長員工添加刪除、工資設立、修改、查詢、記錄等操作。這樣就使財務人員可以快捷高效地完畢工資管理任務。1.應用背景人類社會正從工業(yè)時代闊步邁向信息時代，人們越來越注重信息技術對老式產業(yè)改造，信息化水平高低已經成為衡量一種單位當代化水平高低。在這種環(huán)境下，老式手工工資管理已經遠遠落后于信息化管理。隨著計算機技術飛速發(fā)展，計算機在信息管理中應用普及，運用計算機實現人事工資管理勢在必行。運用計算機管理工資信息，是適應當代化規(guī)定、推動管理制度走向科學化、規(guī)范化必要條件；工資管理是一項瑣碎、復雜而又十分細致工作，工資計算、發(fā)放、核算工作量很大，普通不容許出錯，如果實行手工操作，每月發(fā)放工資須手工填制大量表格，這就會耗費工作人員大量時間和精力，運用計算機進行工資發(fā)放工作，不但可以保證工資核算精確無誤、迅速輸出，并且還可以運用計算機對關于工資各種信息進行記錄，服務于財務部門其她方面核算和財務解決，同步計算機具備著手工管理所無法比擬長處.例如:檢索迅速、查找以便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些長處可以極大地提高人事工資管理效率,也是管理科學化、正規(guī)化,與世界接軌重要條件。該系統(tǒng)詳細任務就是設計一種工資數據庫管理系統(tǒng)，由計算機來代替人工執(zhí)行一系列工作，諸如增長員工添加刪除、工資設立、記錄、發(fā)放、修改、查詢等操作。這樣就使財務人員可以快捷高效地完畢工資管理任務。設計指引思想是一切為顧客著想，界面簡潔，操作盡量簡樸明了。計算機資源是受到限制，因而充分運用了VisualBasic功能，在盡量地減少對系統(tǒng)資源占用前提下，設計出功能豐富軟件。2.課題研發(fā)目與意義工資管理是一項瑣碎、復雜而又十分細致工作，普通不容許發(fā)生錯誤。手工進行工資發(fā)放工作，需要重復地進行抄寫、計算，不但耗費財務人員大量時間，并且往往由于抄寫不慎，浮現張冠李戴，或者由于計算疏忽，浮現工資發(fā)放錯誤現象。同步工資發(fā)放具備較強時間限制，必要嚴格按照單位規(guī)定期間完畢計算和發(fā)放工作。正是工資管理這種重復性、規(guī)律性、時間性，使得工資管理計算機化成為也許。計算機進行工資發(fā)放工作，不但可以保證工資核算對的無誤、迅速輸出，并且還可以運用工資數據庫對關于工資各種信息進行記錄，服務于財務部門其她方面核算和財務解決，使會計人員從繁重手工制作中解脫出來,提高了會計信息及時性、對的性、全面性。大大提高了管理水平和管理效率，產生了巨大經濟效益和社會效益。信息時代計算機技術發(fā)展給整個社會生活、工作方式帶來了一次革命。老式意義上工資管理形式和內涵都在發(fā)生著本質變化。此前那種一種會計、一種賬本工資管理形式已經可以被計算機及財務軟件所代替。計算機以及有關軟件介入使得工資管理變得科學化、透明化、簡樸化。因而，依照不同單位自身特點開發(fā)適合自己工資管理軟件是顯得十分必要。工資管理軟件從屬于財務軟件（又稱會計軟件）。中華人民共和國財務軟件起步于70年代末，經歷了從自主開發(fā)、委托定點開發(fā)向原則化、通用化、商品化、專業(yè)化發(fā)展幾種階段。三十年來財務軟件市場規(guī)?；?、產業(yè)化發(fā)展迅速。近年來隨著市場競爭日趨激烈，財務軟件模式轉向集中式管理；某些行政單位為適應財政預算管理變革，開始對財務實行集中式管理?？梢哉f集中式財務管理在某些單位來說是一種管理發(fā)展趨勢。這種管理模式在此前因網絡、通訊技術限制而無法實行，隨著互聯(lián)網技術發(fā)展，基于網絡計算，支持集中管理模式財務軟件開始出當前市場，并越來越受到但愿采用集中財務管理模式單位所愛慕。因此，在國內各級事業(yè)單位中她們更需要有一種以便、快捷、安全、透明工資管理軟件。3.信息系統(tǒng)簡介管理信息系統(tǒng)就是咱們常說MIS（ManagementInformationSystem），在強調管理，強調信息當代社會中它越來越得到普及。MIS是一門新學科，它跨越了若干個領域，例如管理科學、系統(tǒng)科學，運籌學、記錄學以及計算機科學。在這些學科基本上，形成信息收集和加工辦法，從而形成一種縱橫交織系統(tǒng)。它是一種不斷發(fā)展新型學科。管理信息系統(tǒng)定義隨著計算機技術和通訊技術進步也在不斷更新。在現階段普遍以為，管理信息系統(tǒng)是一種由人和計算機或其她信息解決手段構成并用于管理信息系統(tǒng)。管理信息系統(tǒng)能進行信息收集、傳播、加工、保存、維護和使用。它能實測國民經濟部門或不同單位各種運營狀況，能運用過去數據預測將來，能從全局出發(fā)輔助決策，能運用信息控制國民經濟部門或不同單位活動，并協(xié)助實現其規(guī)劃目的。管理信息系統(tǒng)是一門綜合了管理科學、系統(tǒng)理論、計算機科學系統(tǒng)性邊沿學科。

4.管理信息系統(tǒng)概述20世紀，隨著全球經濟蓬勃發(fā)展，眾多經濟學家紛紛提出了新管理理論。20世紀50年代，西蒙提出管理依賴于信息和決策思想。同步期維納刊登了控制論，她以為管理是一種控制過程。1958年，蓋爾寫到：“管理將以較低成本得到及時精確信息，做到較好控制?！边@個時期，計算機開始用于會計工作，浮現數據解決一詞。1970年，WalterT.Kennevan給剛剛浮現管理信息系統(tǒng)一詞下了一種定義：“以口頭或書面形式，在適當時間向經理、職工以及外界人員提供過去、當前、預測將來關于公司內部及其環(huán)境信息，以協(xié)助她們進行決策?！痹谶@個定義里強調了用信息支持決策，但并沒有強調應用模型，沒有提到計算機應用。1985年，管理信息系統(tǒng)創(chuàng)始人，明尼蘇達大學管理學專家GordonB.Davis給了管理信息系統(tǒng)一種較完整定義，即“管理信息系統(tǒng)是一種運用計算機軟硬件資源，手工作業(yè)，分析、籌劃、控制和決策模型以及數據庫人-機系統(tǒng)。它能提供信息支持公司或組織運營、管理和決策功能?！边@個定義全面地闡明了管理信息系統(tǒng)目的、功能和構成，并且反映了管理信息系統(tǒng)在當時達到水平。管理信息系統(tǒng)起初應用于最基本工作，如打印報表、計算工資、人事管理等，進而發(fā)展到公司財務管理、庫存管理等單項業(yè)務管理，這屬于電子數據解決（EDP，ElectronicDataProcessing）系統(tǒng)。當建立了公司數據庫，有了計算機網絡從而達到數據共享后，從系統(tǒng)觀點出發(fā)，實行全局規(guī)劃和設計信息系統(tǒng)時，就達到管理信息系統(tǒng)階段。隨著計算機技術進步和人們對系統(tǒng)需求進一步提高，人們更加強調管理信息系統(tǒng)能否支持公司高層領導決策這一功能，更側重于公司外部信息收集、綜合數據庫、模型庫、辦法庫和其她人工智能工具能否直接面向決策者，這是決策支持系統(tǒng)（DSS，DecisionSupportSystem）任務。近間，國外大公司浮現了3種變化：

抓管理著重于建立MIS系統(tǒng)，使管理技術走向成熟。

信息是決策根據，MIS隨時為經理們提供信息服務。

經理通過MIS使其經營籌劃和詳細業(yè)務活動聯(lián)系在一起。由于以上變化，MIS應用得到了迅速發(fā)展。不但大中型公司普遍建立了自己MIS，某些中小公司也不例外，普遍建立了公用數據網絡，特別是近年來Internet飛速發(fā)展，Intranet技術得到廣泛應用，為公司MIS提供了良好支持環(huán)境。從國際技術發(fā)展趨勢看，20世紀90年代浮現了幾種全新管理技術，相應MIS開發(fā)技術在20世紀90年代也有了新發(fā)展。1.信息綜合集成MIS在計算機網絡和分布式數據庫管理系統(tǒng)支持下，與公司其她系統(tǒng)，如OA、CAD、CAM、CAPP、在線數據采集系統(tǒng)集成，形成制造業(yè)計算機集成制造系統(tǒng)，或者普通企事業(yè)單位綜合信息系統(tǒng)（CIIS，ComputerIntegratedInformationSystem），實現辦公、管理、計算、設計、控制、監(jiān)測，以及決策等多功能綜合。2.Internet/Intranet因特網（Internet）已經被廣大顧客所熟悉，而以因特網技術為基本公司內部信息系統(tǒng)——Intranet既可以通過接入方式成為因特網一某些，也可以自成體系，實現公司內部管理。它可以克服老式MIS存在系統(tǒng)封閉、顧客界面形式不統(tǒng)一、各種軟件版本并存、維護移植困難等問題，為新一代公司MIS開發(fā)注入了強勁活力。3.先進軟件開發(fā)工具為了縮短軟件開發(fā)周期，提高軟件質量和原則化水平以及軟件可維護性，越來越多軟件開發(fā)公司使用先進軟件開發(fā)工具或計算機輔助軟件工程工具（CASE，Computer-AidedSoftwareEngineering），如各種可視化建模工具、系統(tǒng)分析和設計工具、軟件質量測試工具、軟件文檔建立和管理工具等。尚有各種MIS開發(fā)平臺和代碼生成工具，這些工具極大地以便了MIS開發(fā)。4.多媒體技術隨著計算機性能提高，MIS采用越來越多多媒體技術，用圖形、圖像、聲音代替本來單調字符形式，給顧客提供了一種更加生動真實應用環(huán)境。會計信息系統(tǒng)也稱為電算化會計系統(tǒng)，它是以提供會計信息為目信息系統(tǒng)。會計信息系統(tǒng)重要由帳務解決、報表解決、工資核算、固定資產核算、應收應付核算、材料核算、銷售核算、成本核算等子系統(tǒng)構成。工資核算信息系統(tǒng)是會計信息系統(tǒng)中重要構成某些。5.工資管理信息系統(tǒng)最后目工資管理信息系統(tǒng)最后目是為管理、決策服務，達到這個目的手段無外乎如下幾種方面：一是運用計算機可迅速整頓、傳播、解決各種數據特點，解決會計業(yè)務，從而更為全面、更為精確提供管理、決策所需財務信息；二是運用計算機解決數據速度快特點，解決會計業(yè)務，從而更為快捷地提供各種管理、決策所需地財務信息；三是運用計算機對數據分類整頓長處，按管理規(guī)定，對會計核算數據進行各種加工、解決，從而篩選出管理所需信息；四是會計人員從繁雜手工核算工作中解脫出來，運用她們懂財務、理解狀況優(yōu)勢，參加分析、參加管理、參加決策。一、可行性分析可行性分析任務是明確開發(fā)應用項目必要性和可行性。必要性來自實現開發(fā)任務迫切性，而可行性則取決于實現應用系統(tǒng)資源和條件。這項工作建立在初步調查基本上。系統(tǒng)可行性研究在系統(tǒng)整個過程中占有很重要地位，它決定所選項目是不是也許實現或值得去實現?？尚行匝芯磕烤褪怯米钚〈鷥r在盡量短時間內擬定問題與否可以解決。它重要涉及技術、經濟、運營、法律等方面可行性：既有技術與否可以實現本系統(tǒng)設計開發(fā)；經濟上與否值得去實現；與否可以在普通平臺下運營等。技術可行性是指開發(fā)一種新系統(tǒng)所需要技術與否具備，如支持新系統(tǒng)軟硬件功能以及技術人員數量和水平。本系統(tǒng)是進行職工工資解決。結合實際需要，通過仔細斟酌，我選取了MicrosoftVisualBasic6.0作為開發(fā)顧客界面軟件，它綜合了可視化開發(fā)環(huán)境易用性、32位優(yōu)化編譯技術迅速和強大、有數據引擎提供可伸縮性等特點；選MicrosoftOfficeAccess用來開發(fā)后臺數據庫，它具備較好安全性與兼容性；并且本系統(tǒng)對硬件規(guī)定不高，在既有技術基本上一定能實現本系統(tǒng)。經濟可行性是評價一種計算機信息系統(tǒng)與否可行最基本一種辦法，是對信息系統(tǒng)解決方案成本有效性量度。信息系統(tǒng)開發(fā)是一種投資，因而對于顧客來說，她一方面關懷是：與否值得開發(fā)一種信息系統(tǒng)。而在效益方面，她們一方面關懷是：當她們使用了這套管理信息系統(tǒng)后，工資解決效率與否提高了，人力資源與否節(jié)約了。而本系統(tǒng)設計和開發(fā)事實上正好能滿足她們這些規(guī)定。尚有該系統(tǒng)對硬件規(guī)定不高，裝有win98系統(tǒng)以上計算機普通就能運營系統(tǒng)，因此在系統(tǒng)運營方面也不存在問題。1.開發(fā)辦法在開發(fā)辦法選取上，我選取了自頂向下開發(fā)方略：自頂向下開發(fā)方略是從工資管理整體進行設計，逐漸從抽象到詳細，從概要設計到詳細設計，體現構造化設計思想。自頂向下是強調由全局到局部、由長遠到近期、由上層到下層，從摸索、研制一種合理信息流模型出發(fā)，設計出適合于這種信息流信息系統(tǒng)。子模塊通過信息流擬定，并且盡量規(guī)定每個局部模塊優(yōu)化建立在全局優(yōu)化指引下。第一層一方面分析工資管理信息系統(tǒng)系統(tǒng)環(huán)境、系統(tǒng)邊界、系統(tǒng)總目的，然后分析系統(tǒng)完畢總目的所應具備功能以及實現這些功能信息需求。第二層是模塊級。依照系統(tǒng)目的、功能以及需求，導出各個模塊目的、功能以及信息需求。同理，逐級地推演更下一層地模塊，即由上而下、由粗而細、逐級分解、逐級細化?！白皂斚蛳隆笔且环N演繹式分析辦法，是一種整體性、系統(tǒng)性強分析辦法。其詳細環(huán)節(jié)如下：分析工資核算目的、環(huán)境和系統(tǒng)運營條件；依照總體目的擬定各項詳細功能；擬定需要決策內容；依照每項決策內容擬定所需要信息；為整個系統(tǒng)規(guī)定各個功能模塊；為要研制各個功能模塊和數據庫規(guī)定先后順序。該辦法長處是對整個籌劃來講，邏輯性很強；其缺陷是難以制定這樣大方案。為理解決這一矛盾，我在參照了既有工資管理信息系統(tǒng)基本上，進行總體規(guī)劃。2.開發(fā)環(huán)境簡介(1)數據庫技術簡介數據庫技術作為數據管理技術，是計算機軟件領域一種重要分支，產生于60年代末?，F已形成相稱規(guī)模理論體系和實用技術。先進數據庫設計是應用成功基石。萬萬丈高樓平地起，數據庫設計猶如高樓基石，是開發(fā)高品質應用前提。(2)數據庫體系構造數據體系構造提成三級：內部級（Internal）,概念級(Conceptual)和外部級（External）。這個三級構造有時也稱為“三級模式構造”。外部級：最接近顧客，是單個顧客所能看到數據特性。單個顧客使用數據視圖描述稱為“外模式”。概念級別：涉及到所有顧客數據定義、是全局數據視圖。全局視圖描述稱為“概念模式”。內部級：最接近于物理存儲設備，涉及到實際數據存儲構造物理存儲數據視圖描述稱為“內模式”。數據庫三級模式構造是數據三個抽象級別。它把數據詳細組織留給DBMS去做，顧客只要抽象地解決數據，而不必關懷數據在計算機中表達和存儲，這樣就減輕了顧客使用系統(tǒng)承擔。(3)數據庫管理系統(tǒng)（DBMS）數據庫管理系統(tǒng)（DBMS）是指數據庫系統(tǒng)中管理數據軟件系統(tǒng)。DBMS是數據庫系統(tǒng)核心構成某些。對數據庫一切操作，涉及定義、查詢、更新及各種控制，都是通過DBMS進行。在不同計算機系統(tǒng)中，由于缺少統(tǒng)一原則，雖然同種數據模型DBMS，它們在顧客接口、系統(tǒng)功能方面也經常是不相似。顧客對數據庫進行操作，是由DBMS把操作從應用程序帶到外部級、概念級、再導向內部級，進而操作存儲器中數據。DBMS重要目的，是使數據作為一種可管理資源解決。DBMS重要功能為： 數據庫定義功能：DBMS提供數據定義語言（DDL）定義數據庫三級構造，涉及外模式、概念模式、內模式及基互相之間映象，定義數據完整性、安全控制等約束。因而，在DBMS中應涉及DDL編譯程序。 數據庫操縱功能：DBMS提供數據操縱語言（DML）實現對數據庫中數據操作?；緮祿僮魈岢蓛深愃姆N：檢索（查詢）更新（插入、刪除、修改） 數據庫保護功能：數據庫中數據是信息社會戰(zhàn)略資源，對數據保護是至關重要大事。DBMS對數據庫保護重要通過四個方面實現： 數據庫恢復：數據庫被破壞或數據不對的時，系統(tǒng)有能力把數據庫恢復到對的狀態(tài)。 數據庫并發(fā)控制：DBMS并發(fā)控制子系統(tǒng)能防止錯誤發(fā)生，對的解決好多顧客、多任務環(huán)境下并發(fā)操作。 數據庫完整性控制：保證數據庫中數據及語義對的性和有效性，防止任何對數據導致錯誤操作。 數據庫安全性控制：防止未經授權顧客蓄謀或無意地存取數據庫中數據，以免數據泄露、更改或破壞。 數據庫存儲管理：把各種DML語句轉換成低層文獻系統(tǒng)命令，起到數據存儲、檢索和更新作用。(4)Access數據庫簡介Access數據庫軟件是一種關系型數據庫管理系統(tǒng)，它為顧客提供了數據庫管理工具集和應用程序開發(fā)環(huán)境。MicrosoftOffice應用軟件在辦公自動化方面已得到廣泛應用，而Access是Office系列中重要組件之一，它是關系型數據庫，特別是中小型數據庫應用領域中最通用數據庫軟件。Access是一種數據庫管理系統(tǒng)（DBMS）,它同Oracle、DBASE和Foxpro等數據庫軟件系統(tǒng)同樣，用于構造數據庫應用程序并實行對數據庫統(tǒng)一管理。顧客可以通過Access提供開發(fā)環(huán)境及工具集以便地構建數據庫應用程序，大某些是直觀地可視化地操作，無需編寫程序代碼便可以便地完畢數據庫管理工資它長處是：1.ACCESS是真正關系型數據庫管理系統(tǒng)。ACCESS具備主核心字和外部核心字定義，提供了數據庫完整性應用，避免數據遭到不合理刪除或修改。ACCESS數據庫還具備數據確認規(guī)則，以免輸入數據是非精準數據。它支持字段類型有數字文本、日期、貨幣、備注、是/否及OLE對象和空值等?？梢哉f，ACCESS數據庫軟件提供了真正關系型數據庫管理。2.ACCESS是面向數據庫開發(fā)人員和最后顧客數據庫管理系統(tǒng)。ACCESS提供了VBA(VISUALBASICFORAPPLICATION)語言。對于數據庫開發(fā)人員。運用該語言以及系統(tǒng)提供可視化和向導，便可以設計出具備一定規(guī)模、功能強大數據庫應用系統(tǒng)。對于數據庫最后顧客，并不需要編程，就可運用這些可視化工具和向導進行簡樸數據庫設計和管理。3.ACCESS是開放式數據庫管理系統(tǒng)。4.ACCESS內置了大量內部函數。ACCESS軟件包括了大量內部函數，涉及數據庫、數學、財務、日期、時間、字符串等函數。5．可視化操作工具和以便向導。(5)Visualbasic編程語言簡介VisualBasic簡稱VB，是微軟公司推出一種可視化編程工具，是當今世界上應用最廣泛編程語言之一，它也被公以為是編程效率最高一種編程辦法。它開發(fā)速度快捷，具備語法簡樸易學開發(fā)環(huán)境，是初學者首選。VB提供可視化開發(fā)環(huán)境，使用者可以像搭積木同樣構建出程序界面，并且它提供豐富控件組，省去了自己編寫代碼實現這些效果麻煩，這樣就可以把更多精力放在程序功能方面實現上。本系統(tǒng)中使用是MicrosoftVisualBasic6.0中文公司版。二、系統(tǒng)分析某些工資匯總表工資查詢工資表獎金、加班工資、事假扣除工資等后勤、財會部門人事部門工資管理信息系統(tǒng)管理員職工基本信息1）業(yè)務流程圖工資匯總表工資查詢工資表獎金、加班工資、事假扣除工資等后勤、財會部門人事部門工資管理信息系統(tǒng)管理員職工基本信息 2）數據流程圖數據流程圖是一種能全面地描述信息系統(tǒng)邏輯模型重要工具，它可以用少數幾種符號綜合地反映出信息在系統(tǒng)中流動、解決和存儲狀況。符號闡明如下：

外部實體 解決 數據流 數據存儲 數據流程圖分多少層次視實際狀況而定，考慮到工資管理信息系統(tǒng)相對較小，在這里我把數據流程圖分為二層。第一層：人事部門人事部門 員工信息財務部門工資核算系統(tǒng) 財務部門工資核算系統(tǒng) 工資信息后勤部門 匯總分派后勤部門 信息 獎金、扣款等信息 第二層：人事部門人事部門 員工信息 職工工資計算解決基本數據輸入解決 職工工資計算解決基本數據輸入解決 工資登記單 工資查詢表后勤部門 后勤部門 勞務獎金、扣款等信息 工資記錄單 工資計算單工資記錄工資記錄工資匯總解決 職工工資表工資 工資 月工資共計表工資匯總解決 信息單 記錄單 工資信息單 工資單 工資匯總單賬務解決系統(tǒng) 工資匯總單賬務解決系統(tǒng) 工資匯總表功能分析圖系統(tǒng)功能分析是在系統(tǒng)開發(fā)總體任務基本上完畢。該工資管理系統(tǒng)采用是MIS設計辦法，在設計系統(tǒng)之前，需要充分理解系統(tǒng)功能，依照系統(tǒng)所要達到規(guī)定設計詳細模塊。本系統(tǒng)需要完畢功能重要有：個人工資單查詢打印查詢結束員工查詢工資總表扣除工資獎金基本工資員工基本信息員工查詢員工增刪資料輸入工資管理系統(tǒng)個人工資單查詢工資匯總工資設定個人工資單查詢打印查詢結束員工查詢工資總表扣除工資獎金基本工資員工基本信息員工查詢員工增刪資料輸入工資管理系統(tǒng)個人工資單查詢工資匯總工資設定4）數據字典數據項定義：數據項標示符數據項名稱類型及寬度簡述取值范疇I1職工號數字型10I2姓名字符型10I3部門名稱字符型10I4基本工資數字型10數據流定義：數據流標示符數據流名稱數據流來源數據流去向D1員工信息人事部門基本數據輸入解決D2勞務獎金后勤部門基本數據輸入解決D3扣款信息后勤部門基本數據輸入解決數據存儲定義：數據存儲編號數據存儲名稱簡述數據存儲構成有關聯(lián)解決S1職工工資表S2工資匯總表S3月工資共計表S4工資查詢表數據解決定義：解決邏輯編號解決邏輯名稱輸入數據流輸出數據流解決邏輯描述P1基本數據輸入解決員工基本信息、獎金扣款等信息工資登記單基本數據錄入P2職工工資計算解決工資登記單工資計算單對錄入數據進行簡樸計算P3工資記錄工資信息單工資記錄單將信息單數據進行記錄P4工資匯總解決工資信息單工資匯總單對工資信息進行匯總數據加工解決描述解決名稱標示符輸入輸出解決邏輯描述P1基本數據輸入解決員工基本信息、獎金扣款等信息工資登記單將基本數據錄入P2職工工資計算解決工資登記單工資計算單對錄入數據進行簡樸計算P3工資記錄工資信息單工資記錄單將信息單數據進行記錄P4工資匯總解決工資信息單工資匯總單對工資信息進行匯總6）管理信息系統(tǒng)流程設想圖（新系統(tǒng)模型）通過對現行系統(tǒng)需求分析，本系統(tǒng)數據流向是合理，但為了便于計算機化管理，也為了使系統(tǒng)可以提供更多輔助決策信息，本系統(tǒng)應做如下改進設想：1.財務解決系統(tǒng)未對工資分派狀況進行反饋，應增長工資分派反饋環(huán)節(jié)；2.工資記錄與工資匯總重復計算，去除工資記錄環(huán)節(jié)；3.工資查詢在財務解決系統(tǒng)進行查詢，減少不必要環(huán)節(jié)；依照前面分析與評價成果，提出新系統(tǒng)數據流程如圖：人事部門人事部門 員工信息 職工工資計算解決基本數據輸入解決 職工工資計算解決基本數據輸入解決 后勤部門 后勤部門 勞務獎金、扣款等信息 工資計算單工資匯總解決 職工工資表 工資匯總解決 工資信息單 工資查詢表 工資匯總單賬務解決系統(tǒng) 工資匯總單賬務解決系統(tǒng)工資費用分派解決 工資匯總表工資費用分派解決 工資費用分派憑證 工資費用分派單 工資費用分派表三、系統(tǒng)設計某些功能構造圖設計相比本來功能構造圖，咱們對其進行簡化，把獎金、勞務工資等放入“更新主文獻”目錄，罰金、稅金等放入“扣款文獻”目錄，基本工資放入“主文獻”目錄，可以看出來，當前系統(tǒng)較本來更簡潔，更容易讓員工清晰工資發(fā)放機制。工資管理信息系統(tǒng)工資管理信息系統(tǒng)數據維護打印工資匯總表打印工資單數據錄入更新數據維護建立主解決文獻數據錄入計算和打印建立扣款文獻更新主文獻建立主文獻數據維護打印工資匯總表打印工資單數據錄入更新數據維護建立主解決文獻數據錄入計算和打印建立扣款文獻更新主文獻建立主文獻4）新系統(tǒng)信息解決流程設計現行系統(tǒng)需求分析，本系統(tǒng)數據流向是合理，但為了便于計算機化管理，也為了使系統(tǒng)可以提供更多輔助決策信息，本系統(tǒng)應做如下改進設想：1.財務解決系統(tǒng)未對工資分派狀況進行反饋，應增長工資分派反饋環(huán)節(jié)；2.工資記錄與工資匯總重復計算，去除工資記錄環(huán)節(jié)；3.工資查詢在財務解決系統(tǒng)進行查詢，減少不必要環(huán)節(jié)；新系統(tǒng)信息解決流程：人事部門人事部門 員工信息 職工工資計算解決基本數據輸入解決 職工工資計算解決基本數據輸入解決 后勤部門 后勤部門 勞務獎金、扣款等信息 工資計算單工資匯總解決 職工工資表 工資匯總解決 工資信息單 工資查詢表 工資匯總單賬務解決系統(tǒng) 工資匯總單賬務解決系統(tǒng)工資費用分派解決 工資匯總表工資費用分派解決 工資費用分派憑證 工資費用分派單 工資費用分派表四、系統(tǒng)實行某些1）程序框圖登陸界面：賬號與密碼都為1，輸入點擊登錄按鈕：進入主界面：點擊員工信息，跳出如下界面：在員工信息管理界面可以對不同部門員工進行添加、修改、刪除操作，點擊離開后，進入基本工資界面：2）源程序管理員登錄界面：工資管理登錄系統(tǒng)圖登陸窗口，進行密碼驗證，如果顧客輸入對的顧客名和密碼就可正常登陸。如果密碼錯誤則浮現錯誤提示，如果想關閉系統(tǒng)，單擊取消按鈕即可退出系統(tǒng)，其實當代碼如下：Login.frmPublicEN，a，PWAsStringPublicPAsIntegerPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0txtSQL="select*fromaccountswhereaccount='"&Text1(0).Text&"'"&"andpassword='"&Text1(1).Text+"'"Setrs=exesql(txtSQL)Ifrs.EOF=TrueThenMsgBox"沒有這個顧客，請重新輸入!"，vbCritical，"警告"WithText1(0).SelStart=0.SelLength=Len(Text1(0).Text)Text1(0).SetFocusEndWithElseEN=Trim(rs.Fields(0))a=Trim(rs.Fields(1))PW=Trim(rs.Fields(2))P=Trim(rs.Fields(3))UnloadMeSetlogin=NothingMain.ShowEndIfCase1Text1(0).Text=""Text1(1).Text=""Command1(0).Enabled=FalseCommand1(1).Enabled=FalseText1(0).SetFocusCaseElseUnloadMeSetlogin=NothingEndEndSelectEndSubPrivateSubForm_Activate()Text1(0).SetFocusEndSubPrivateSubLabel1_Click(IndexAsInteger)EndSubPrivateSubText1_Change(IndexAsInteger)IfText1(0).Text<>""OrText1(1).Text<>""ThenCommand1(1).Enabled=TrueEndIfIfText1(0).Text<>""AndText1(1).Text<>""ThenCommand1(0).Enabled=TrueElseCommand1(0).Enabled=FalseEndIfEndSub員工信息界面：在員工信息管理界面可以對不同部門員工進行添加、修改、刪除等功能操作，規(guī)定添加工人編號、所在部門、顧客名、職務等。點擊離開后，進入基本工資界面，其功能實當代碼如下：Grengl.frmOptionExplicitDimrs0AsNewADODB.RecordsetDimsql0AsStringDimaAsStringDimbAsStringDimcAsBooleanDimdAsBooleanPrivateSubCommand1_Click()Timer1.Enabled=TrueText1.Enabled=Truec=Falsed=FalseEndSubPrivateSubCommand2_Click()Timer1.Enabled=TrueText1.Enabled=Falsec=Falsed=FalseEndSubPrivateSubCommand3_Click()Dimrs00AsNewADODB.RecordsetDimsql00AsStringsql00="deletefromyuangonwhereid='"&rs0.Fields(0)&"'"DimaAsStringDimbAsStringDimchoosea="信息刪除"b=""&rs0.Fields(0)&"刪除"choose=MsgBox("刪除員工信息會將其其他有關信息也一起刪除,與否刪除?"，vbOKCancel，"系統(tǒng)信息")Ifchoose=vbOKThenCalldata3(sql00，a，b)ElseEndIfSetrs00=data1(rs00，sql0)Setrs0=rs00SetDataGrid1.DataSource=rs0DataGrid1.RefreshEndSubPrivateSubCommand4_Click()UnloadMeEndSubPrivateSubCommand5_Click()Dimrs4AsNewADODB.RecordsetDimsql4AsStringDimrs5AsNewADODB.RecordsetDimsql5AsStringDimsql6AsStringOnErrorGoTok2:IfText1.Text<>""ThenIfText1.Enabled=TrueThensql4="selectjibengonzifrombumengzwherebumen='"&DataCombo2.Text&"'andziwu='"&DataCombo1.Text&"'"Setrs4=data1(rs4，sql4)sql5="insertintoyuangon(id,xinming,nianling,xingbie,bumen,ziwu)values('"&Text1.Text&"','"&Text2.Text&"',"&Text3.Text&",'"&Combo1.Text&"','"&DataCombo2.Text&"','"&DataCombo1.Text&"')"sql6="insertintojibengonzi(id,jibengonzi)values('"&Text1.Text&"',"&rs4.Fields(0)&")"a="信息增長"b=""&Text1.Text&"信息增長"Calldata4(sql5，sql6，a，b)Setrs5=data1(rs5，sql0)Setrs0=rs5Elsesql4="selectjibengonzifrombumengzwherebumen='"&DataCombo2.Text&"'andziwu='"&DataCombo1.Text&"'"Setrs4=data1(rs4，sql4)sql5="updateyuangonsetxinming='"&Text2.Text&"',nianling="&Text3.Text&",xingbie='"&Combo1.Text&"',bumen='"&DataCombo2.Text&"',ziwu='"&DataCombo1.Text&"'whereid='"&Text1.Text&"'"Ifc=TrueOrd=TrueThensql6="updatejibengonzisetjibengonzi="&rs4.Fields(0)&""Elsesql6=""EndIfa="信息修改"b=""&Text1.Text&"信息修改"Ifsql6<>""ThenCalldata4(sql5，sql6，a，b)ElseCalldata3(sql5，a，b)EndIfSetrs5=data1(rs5，sql0)Setrs0=rs5EndIfElseMsgBox"員工編號不能為空"EndIfc=Falsed=FalseText1.Text=""Text2.Text=""Text3.Text=""SetDataGrid1.DataSource=rs0DataGrid1.RefreshExitSubk2:IfErr.Number=3021AndText1.Text=""ThenMsgBox"員工編號不能為空"，vbOKOnly，"錯誤"IfErr.Number=3021AndDataCombo1.Text=""OrDataCombo2.Text=""ThenMsgBox"部門,職位不能為空"，vbOKOnly，"錯誤"IfErr.Number=-ThenMsgBox"年齡必要在16～60周歲"，vbOKOnly，"錯誤"IfErr.Number=-AndText1.Text<>""ThenMsgBox"員工編號重復!"，vbOKOnly，"錯誤"EndSubPrivateSubCommand6_Click()Timer2.Enabled=Truec=Falsed=FalseEndSubPrivateSubDataCombo1_Click(AreaAsInteger)d=TrueEndSubPrivateSubDataCombo2_Change()Dimrs3AsNewADODB.RecordsetDimsql3AsStringsql3="selectziwufrombumengzwherebumen='"&DataCombo2.Text&"'"Setrs3=data1(rs3，sql3)SetDataCombo1.DataSource=rs3SetDataCombo1.RowSource=rs3c=TrueEndSubPrivateSubDataCombo2_Click(AreaAsInteger)Dimrs3AsNewADODB.RecordsetDimsql3AsStringsql3="selectziwufrombumengzwherebumen='"&DataCombo2.Text&"'"Setrs3=data1(rs3，sql3)SetDataCombo1.DataSource=rs3SetDataCombo1.RowSource=rs3c=TrueEndSubPrivateSubDataCombo3_Click(AreaAsInteger)Dimrs2AsNewADODB.RecordsetDimsql2AsStringsql2="select*fromyuangonwherebumen='"&DataCombo3.Text&"'"Setrs2=data1(rs2，sql2)Ifrs2.BOFThenMsgBox"部門內無員工信息"，vbOKOnly，"新部門"ElseSetrs0=rs2EndIfSetDataGrid1.DataSource=rs0DataGrid1.RefreshEndSubPrivateSubDataGrid1_DblClick()OnErrorGoTok1:IfText1.Enabled=FalseThenText1.Text=rs0.Fields(0)Text2.Text=rs0.Fields(1)Text3.Text=rs0.Fields(2)Combo1.Text=rs0.Fields(3)DataCombo2.Text=rs0.Fields(4)DataCombo1.Text=rs0.Fields(5)EndIfExitSubk1:IfErr.Number=3021ThenMsgBox"無記錄,無法修改"，vbOKOnly，"錯誤"EndSubPrivateSubForm_Load()Combo1.ListIndex=0Setrs0=NewADODB.Recordsetsql0="select*fromyuangon"Setrs0=data1(rs0，sql0)SetDataGrid1.DataSource=rs0DataGrid1.RefreshDimrs1AsNewADODB.RecordsetDimsql1AsStringsql1="select*frombumen"Setrs1=data1(rs1，sql1)SetDataCombo3.DataSource=rs1SetDataCombo3.RowSource=rs1SetDataCombo2.DataSource=rs1SetDataCombo2.RowSource=rs1c=Falsed=FalseEndSubPrivateSubText3_KeyPress(KeyAsciiAsInteger)IfNotIsNumeric(Chr(KeyAscii))AndKeyAscii<>8ThenKeyAscii=0EndIfEndSubPrivateSubTimer1_Timer()IfDataGrid1.Height>2655ThenDataGrid1.Height=DataGrid1.Height-16.8IfFrame1.Height<1575ThenFrame1.Height=Frame1.Height+15.6IfFrame1.Top>2880ThenFrame1.Top=Frame1.Top-15.6IfDataGrid1.Height=2655ThenTimer1.Enabled=FalseEndSubPrivateSubTimer2_Timer()Frame1.Visible=FalseIfDataGrid1.Height<4335ThenDataGrid1.Height=DataGrid1.Height+15.6IfDataGrid1.Height=4335ThenFrame1.Top=4440Frame1.Height=15Frame1.Visible=TrueTimer2.Enabled=FalseEndIfEndSub基本工資管理界面：基本工資管理界面可以對各部門不同職務基本工資進行添加、修改和刪除操作，其實當代碼如下：Main.frmPrivateSubForm_Load()StatusBar1.Panels(1)="當前時間:"&""&Date&""&TimeEndSubPrivateSubj1_Click()fuligl.ShowEndSubPrivateSubj2_Click()bumengl.ShowEndSubPrivateSubj3_Click()ziwugl.ShowEndSubPrivateSubk_Click()EndSubPrivateSubk1_Click()gerengl.ShowEndSubPrivateSubk2_Click()fuli.ShowEndSubPrivateSubk3_Click()bmgzgl.ShowEndSubPrivateSubk4_Click()gonzitz.ShowEndSubPrivateSubl1_Click()gonzicx.ShowEndSubPrivateSubl2_Click()gonzidel.ShowEndSubPrivateSubl3_Click()gonzifafang.ShowEndSubPrivateSubq_Click()rizicx.ShowEndSubPrivateSubTimer1_Timer()StatusBar1.Panels(1)="當前時間:"&""&Date&""&TimeEndSubPrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1gerengl.ShowCase2bmgzgl.ShowCase3laowugongzi.ShowCase4jiangjin.ShowCase5koukuan.ShowCase6gongzihuizong.ShowCase7EndEndSelectOptionExplicitDimrs1AsNewADODB.RecordsetDimsql1AsStringDimaAsStringDimbAsStringPrivateSubCommand1_Click()Dimrs4AsNewADODB.RecordsetDimsql4AsStringDimrs41AsNewADODB.RecordsetDimsql41AsStringOnErrorGoToNow1:sql41="select*frombumengzwherebumen='"&DataCombo1.Text&"'andziwu='"&DataCombo2.Text&"'"sql4="updatebumengzsetziwu='"&DataCombo2.Text&"',jibengonzi="&Text2.Text&"wherebumen='"&rs1.Fields(0)&"'andziwu='"&rs1.Fields(1)&"'"a="信息修改"b=""&DataCombo1.Text&""&DataCombo2.Text&""&"基本工資"IfDataCombo2.Text<>rs1.Fields(1)ThenSetrs41=data1(rs41，sql41)Ifrs41.BOF=TrueThenCalldata3(sql4，a，b)Setrs4=data1(rs4，sql1)Setrs1=rs4ElseMsgBox"本部門內存在相似職務工資，無法修改"，vbOKOnly，"錯誤"EndIfElseCalldata3(sql4，a，b)Setrs4=data1(rs4，sql1)Setrs1=rs4EndIfSetDataGrid1.DataSource=rs1DataGrid1.RefreshExitSubNow1:SelectCaseErr.Number:Case-MsgBox"基本工資不能為空"，vbOKOnly，"錯誤"Case3021MsgBox"本部門內暫無職務工資信息"，vbOKOnly，"錯誤"EndSelectEndSubPrivateSubCommand2_Click()EndSubPrivateSubCommand3_Click()DimsrAsNewADODB.RecordsetDimsqlAsStringsql="select*frombumengz"Setsr=data1(sr，sql)EndSubPrivateSubCommand4_Click()UnloadMeEndSubPrivateSubCommand5_Click()Dimrs3AsNewADODB.RecordsetDimsql3AsStringsql3="insertintobumengz(bumen,ziwu,jibengonzi)values('"&DataCombo1.Text&"','"&DataCombo2.Text&"',"&Text2.Text&")"Dimrs31AsNewADODB.RecordsetDimsql31AsStringsql31="select*frombumengzwherebumen='"&DataCombo1.Text&"'andziwu='"&DataCombo2.Text&"'"a="信息增長"b=""&DataCombo1.Text&""&DataCombo2.Text&""&"基本工資"OnErrorGoToNow1:Setrs31=data1(rs31，sql31)Ifrs31.BOFThenCalldata3(sql3，a，b)Setrs3=data1(rs3，sql1)Setrs1=rs3SetDataGrid1.DataSource=rs1DataGrid1.RefreshElseMsgBox"本部門內存在相似職務工資，無法添加"，vbOKOnly，"錯誤"EndIfExitSubNow1:SelectCaseErr.Number:Case-MsgBox"基本工資只能輸入數字"，vbOKOnly，"錯誤"Case-MsgBox"基本工資不能為空"，vbOKOnly，"錯誤"EndSelectEndSubPrivateSubCommand6_Click()Dimrs4AsNewADODB.RecordsetDimrs41AsNewADODB.RecordsetDimsql4AsStringDimsql41AsStringDimchoosesql4="select*fromyuangonwherebumen='"&DataCombo1.Text&"'"sql41="deletefrombumengzwherebumen='"&DataCombo1.Text&"'andziwu='"&DataCombo2.Text&"'"a="信息刪除"b=""&DataCombo1.Text&""&DataCombo2.Text&""&"基本工資"Setrs4=data1(rs4，sql4)Ifrs4.BOFThenchoose=MsgBox("擬定要刪除信息？"，vbOKCancel+vbDefaultButton2+vbQuestion，"警告")Ifchoose=vbOKThenCalldata3(sql41，a，b)ElseMsgBox"相應部門職務存在，信息也許正被使用！刪除失敗"，vbOKOnly，"錯誤"EndIfSetrs41=data1(rs41，sql1)Setrs1=rs41SetDataGrid1.DataSource=rs1DataGrid1.RefreshEndSubPublicSubDataCombo1_Click(AreaAsInteger)Dimrs2AsNewADODB.Recordsetsql1="selectbumen,ziwu,jibengonzifrombumengzwherebumen='"&DataCombo1.Text&"'"Setrs2=data1(rs2，sql