1、 工資管理信息系統摘 要工資管理系統用計算機管理企事業單位員工工資發放的一種計算機應用技術的創新,在計算機還未普及之前企事業單位的員工工資發放都是由財務管理人員來承擔操作的.現在一般的企業都采用了信息化管理的方式即采用計算機作為工具的電子信息化的員工工資計算發放進行更有效的財務管理。工資管理系統是典型的信息管理系統(mis),其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面。對于前者要求建立起數據一致性和完整性強、數據安全性好的庫。而對于后者則要求應用程序功能完備,易使用等特點。 經過分析,我們使用 microsoft公司的 visual basic開發工具,利用其提供的各種

2、面向對象的開發工具,尤其是數據窗口這一能方便而簡潔操縱數據庫的智能化對象,首先在短時間內建立系統應用原型,然后,對初始原型系統進行需求迭代,不斷修正和改進,直到形成用戶滿意的可行系統。關鍵字:物資管理信息系統,mis,visual basic ,數據庫abstractwage management system using computer management units staff salaries a computer application technology innovation, yet popular in the computer before the units staff

3、 salaries are borne by the financial managers to operate. now enterprises have adopted the general management of information using the computer as a tool that is the way electronic information technology staff wage payment for more effective financial management. wage management system is a typical

4、management information system (mis), including its main development background to the establishment and maintenance of the database and front-end application development 2. the request for the establishment of strong data consistency and integrity, good for the security of the data. for the latter r

5、equest applications functions, such as easy to use features. after analysis, we use microsoft visual basic development tool companies, the use of its various object-oriented development tools, especially data that can be easily accessible and concise window manipulation database intelligent objects,

6、 the first prototype application system in a short time and then, computation of the initial prototype system needs to constantly revise and improve until the formation of a viable system of user satisfaction. keyword : material management information system, mis,visual basic database第一章 引言11 課題背景工資

7、管理系統用計算機管理企事業單位員工工資發放的一種計算機應用技術的創新,在計算機還未普及之前企事業單位的員工工資發放都是由財務管理人員來承擔操作的.現在一般的企業都采用了信息化管理的方式即采用計算機作為工具的電子信息化的員工工資計算發放進行更有效的財務管理。工資管理系統是典型的信息管理系統(mis),其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面。對于前者要求建立起數據一致性和完整性強、數據安全性好的庫。而對于后者則要求應用程序功能完備,易使用等特點。12 系統簡介本系統服務于企事業單位財務部門,負責管理本部門員工的財務工資信息.主要由以下幾大功能模塊構成:一:數據錄入(錄入

8、部門,錄固定向)二:數據整理(改固定項,改流動項,人員管理,部門管理)三:打印報表(打工資條,打工資表,打匯總表,提款方案)四:系統維護(系統初始,系統備份,數據恢復,權限管理,設置背景)五:退出系統1. 3 開發工具簡介visual basic 6.0是micrsoft公司出品的開發工具，visual basic是一種可視化的，面向對象的windows開發語言，它具有易用，通用和開發效率高的特點。隨著微軟對它不斷地改進以及計算機本身性能的提高，使得visual basic越來越適合一般的應用程序開發。正如bill gate所說，世界上絕大多數的windows應用程序是用visual basi

9、c編寫的。在眾多的開發工具中，我們為什么要選擇visual basic6.0呢？因為vb具有眾多其它開發工具所沒有的優點！具體介紹如下：u 開發的高效u 語言的高效u 編譯的高效u 執行的高效u 維護的高效基于以上理由，我們毫不憂郁的選擇了vb6.0做為我們的開發工具！1.1.1 主要的控件及其基本屬性，事件簡介u 命令按鈕類的控件：1) caption屬性：用來顯示在控件上的標題。2) enable屬性：控制控件的激活狀態灰色或可用。3) appearance屬性：值為1時,則以3d效果顯示該控件,0則不然。4) backcolor屬性：用來改變在按鈕上顯示圖像的背景色。5) cancel屬

10、性：該屬性決定按鈕是否為一個”取消”按鈕。6) default屬性:決定哪一個命令按鈕控件是窗體的缺省命令按鈕.7) font屬性:控制各種文字字體類型.8) left,top,height,width屬性:設定控件的位置與大小.9) style,picture屬性:決定按鈕的顯示方式是否為圖像形式出現.10) visible屬性:確定控件運行時是否為可見.11) index屬性:當控件為一控件數組時,此屬性值為該控件在數組的下標值.12) downpicture屬性：設置/返回一個對圖片的引用，該圖片在按鈕被單擊處于壓下狀態時顯示。13) disabledpicture屬性：設置/返回一個對

11、圖片的引用，該圖片在控件無效時顯示在控件中。14) maskcolor屬性：設置/返回一個在按鈕的圖片中作為“掩碼“的的顏色15) picture屬性：設置返回commandbutton控件中要顯示的圖片。u 命令按鈕類的事件：1） 單擊事件click事件（1） 觸發與適用此事件是在一個命令按鈕對象上按下然后釋放一個鼠標按鈕時發生。命令按鈕的click事件僅對當單擊鼠標時發生。（2） 事件處理過程按鈕單擊事件的處理過程為： private sub object-click（index as integer）其中object為引發該事件的對象名稱。如果是命令按鈕的控件是數組，則需要使用index

12、參數標識該控件。2） 獲得焦點gotfocus事件（1） 觸發與適用 當命令按鈕獲得焦點產生該事件，獲得焦點可以通過諸如tab切換或單擊對象之類的用戶動作，或在代碼中用setfocus方法改變焦點來實現。（2） 事件處理過程命令按鈕gotfoucs事件處理過程為：private sub object-gotfocus（index as integer）3） lostfocus事件：當一個對象失去焦點時發生4） keydown事件：當命令按鈕具有焦點時按下一個鍵時發生5） keyup事件：當命令按鈕具有焦點時釋放一個鍵時發生。6） keypress事件：當用戶按下或松開一個ansi鍵時發生。7）

13、 mousedown事件：當在命令按鈕上按下鼠標按鈕時發生。8） mousemove事件：當命令按鈕上移動鼠標時發生。9） mouseup事件：當在命令按鈕上釋放鼠標按鈕時發生。 u 標簽框類的控件類的控件：1) caption屬性：在應用程序界面上加入說明。2) autosize屬性：決定控件是否自動改變大小以顯示其全部內容。3) backstyle屬性：用以指示標簽是否透明.4) bordstyle屬性:用以設定控件是否有邊框。u 文本框類的控件：1) text屬性：通過像text屬性賦值的方法來改變該屬性的值。2) maxlength屬性：該屬性設定在文本框控件中能夠輸入的最大字符數。3

14、) multline屬性：該屬性設定text字符串中是否接受換行符。4) scrollbars屬性：該屬性決定是否為文本框加滾動條。5) passwordchar屬性：該屬性設定輸入文本的特殊顯示字符,在設計密碼程序時非常有用。6) change事件屬性：文本框的內容發生改變時,相應的控件之間發生相應的改變,具有即時性。7) keypress：事件由用戶在文本框控件中按任意鍵觸發。8) alignment屬性：設定控件中的文本對其方式9) appearance屬性：設定一個對象在運行時是否可以3d效果顯示。10) backcolor屬性：設置返回背景色11) borderstyle屬性：設置對

15、象的邊框樣式12) datafield屬性：設定數據使用者將被綁定到的字段名13) dataformat屬性：設定dataformat對象，用于數據綁定14) datamember屬性：從數據供應程序提供的幾個數據成員中返回/設定一個特定的數據成員15) datasource屬性：設定控件綁定的一個數據源16) dragicon屬性：設定圖標，它將在拖放操作中作為指針顯示17) dragmode模式：設定一個值，確定在拖放操作中所用方式18) enabled屬性：設置/返回運行時textbox是否相應用戶事件19) font屬性：設置/返回字體屬性20) forecolor屬性：設置/返回文本

16、的前景色21) height屬性：設置/返回textbox的高度22) imemode屬性：設置/返回數值用來確定輸入方法編輯器的狀態23) index屬性：設置/返回唯一的標識控件數組中該控件的編號24) left屬性：設置/返回textbox控件的水平位置25) locked屬性：設置/返回textbox中文本是否可編輯26) linkitem屬性：設置/返回dde與另一個應用程序會話時，傳給接受端的數據27) maxlength屬性：設置/返回一個值，指定在textbox控件中能夠輸入的字符最大值28) mouseicon屬性：設置/返回自定義鼠標的圖標29) top屬性：設置/返回te

17、xtbox控件的垂直位置30) tag屬性：存儲過程所需的附加數據u 文本框類的事件：1） change事件：當改變文本框內容時發生2） click事件：鼠標單擊控件時發生3） dblclick事件：用鼠標左鍵雙擊控件時發生4） dragdrop事件：在一個完整的拖放動作完成或使用drag方法，并將其action參數設置為2時發生5） dragover事件：在拖放操作正在進行時發生6） gotfocus事件：當一個命令按鈕獲得焦點時發生7） linkclose事件：當一個dde對話結束時發生8） linkerror事件：當一個dde對話框過程中出現錯誤時，該事件發生9） keydown事件：當

18、命令按鈕具有焦點時按下一個鍵時發生10） validate事件：在焦點轉換到另一個控件之前發生，此時該控件的causes validation 屬性值設置為true u 單選按鈕類的控件：1) caption屬性：顯示在控件上的文本,是單選按鈕的標題。2) alignment屬性：決定單選按鈕的標題在控件上的位置。3) enable屬性：該控件為灰色時為false,表示運行時不可用。4) index屬性：屬性值表示為單選按鈕組成的控件中某個按鈕的索引值。5) tabindex屬性：建立控件時,vb自動為其分配一個tabindex值,利用tab鍵可以在控件之間切換焦點。6) value屬性：反映

19、控件狀態的屬性,返回true表示已選擇了該按鈕。7) appearance 屬性：設置/返回一個對象在運行時是否以3d效果顯示。8) backcolor 屬性：設置/返回背景色。9) container 屬性：設置/返回form上的控件屬性。10) datafield 屬性：設置/返回數據使用者將被綁定到的字段名。11) dataformat 屬性：設置/返回dataformat對象，一個綁定對象將附加到它。12) disabledpicture 屬性：設置/返回一個對圖像的引用，該圖片在控件無效時顯示在控件中。13) downpicture 屬性：設置/返回一個對圖片的引用，該圖片在控件單擊

20、下處于壓下狀態時顯示。14) dragmode 屬性：設置/返回一個值，確定在拖放操作中所用的方式。15) font 屬性：設置/返回字體屬性。16) fontbold 屬性：設置/返回字體粗體樣式。17) fontitalic 屬性：設置/返回字體斜體樣式。 18) fontstrikethru 屬性：設置/返回字體刪除線樣式。19) fontunderline 屬性：設置/返回字體下劃線樣式。20) fontname 屬性：設置/返回控件中顯示文本所用的字體大小。21) fontsize 屬性：設置/返回控件中顯示文本所用的字體大小22) height 屬性：設置/返回控件的高度。23)

21、maskcolor 屬性：設置/返回一個在控件的圖片中作為掩碼的顏色。24) mousepointer 屬性：設置/返回一個值，該值指示在運行時當鼠標移動到對象上時顯示的指針類型。u 單選按鈕類的常用事件：1） click 事件：鼠標單擊控件時發生。2） dbclick事件： 當在一個對象上按下和釋放鼠標按鈕并再次按下和釋放按鈕時，該事件發生。3） dragdrop事件：在一個完整的拖放動作或使用drag方法，并將其action參數設置位2時，該事件發生。4） dragover事件： 在拖放操作正在進行時發生。5） gotfocus事件： 當獲的對象焦點時發生。6） lostfocus事件：當

22、對象失去焦點時發生。7） keydown事件：當控件具有焦點時按下一個鍵時發生。8） keyup事件： 當控件具有焦點時釋放一個鍵時發生。9） keypress事件：當用戶按下或釋放ansi一個鍵時發生。10） mousedown事件：當在控件上按下鼠標鍵時發生。11） mousemove事件：在控件上移動鼠標時發生。12） mouseup事件：在控件上釋放鼠標時發生。u 復選按鈕類的控件：1) caption屬性：缺省為check1。2) index屬性:該屬性值為復選框控件數組的下標.3) value屬性:value為0表空白,為1表勾號,為2表示灰色勾號.4) container屬性：f

23、orm控件上的容器。5) datachangeed屬性：設置/返回一個值，指出被綁定的控件中的數據已經被某進程修改。6) datafield屬性：設置或返回數據使用者將被綁定到的字段名。7) dataformat 屬性：設置或返回dataformat對象，用于數據綁定。8) datasource屬性：設置或返回控件綁定的一個數據源。9) disabledpicture屬性：設置或返回一個對圖片的引用，該圖片在控件無效時顯示在控件中。10) downpicture 屬性：設置或返回一個對圖片的引用，該圖片在控件被單擊處于壓下狀態時顯示。11) dragicon屬性：設置或返回圖標，它將在拖放操作

24、中做為指針顯示。12) dragmode屬性：設置返回一個值，確定在拖放操作中所用方式。13) font屬性：設置或返回字體的屬性。14) name屬性：設置或返回控件的標識名。15) value屬性：設置或返回控件的狀態。u 復選按鈕類的控件的基本事件：1） click事件：鼠標單擊控件時發生。2） dragdrop事件：在一個完整的拖放動作完成或使用drag方法，并將其action參數設置為2時發生。3） dragover事件：在拖放操作正在進行時發生。4） gotfocus事件：在對象獲的焦點時發生。，5） olecompletedrag事件：當源部件被放到目標時發生，并通知源部件拖放操

25、作被執行或取消。6） oledragdrag事件：當源部件決定放操作能發生，卻源部件被放到目標部件時，此事件發生。u 框架類的控件：1) list屬性：列表框控件的表項是使用數組的方式保存,數組的每一個元素存儲列表控件的一個表項1) listcount屬性:控件列表部分項目的個數。2) mutselect屬性:可以設置列表框為單選或允許多選屬性.3) selectd屬性:標示一個數組,數組各元素為:4) selected(0),selected(1)u 滾動條類的控件：1) value屬性：滾動條上滑塊所在位置由value值所決定。2) max和min屬性：對value值的最大,最小進行限制。

26、3) largechange屬性：用戶點擊滾動條與鍵頭之間的區域時,value的改變量。4) onclick事件：用來添加按鈕的單擊事件所執行的程序代碼。u 定時器類類的控件：1) interval屬性：表示定時的時間間隔,以毫秒為單位。2) enable屬性:為true時(缺省值),激活定時器開始計時;為false時處于休眠狀態.visual basic6.0連接數據庫的主要方式以下幾種方式：一是：用data控件進行數據庫鏈接 ，二是利用adodc（ado data control)進行數據庫鏈接 。三是: 利用dataenvironment進行數據庫鏈接.四是利用ado(activex d

27、ata objects)進行編程:現在我們來大致對這幾種技術應用介紹：一、 用data控件進行數據庫鏈接.第一步：給窗體添加一個data控件。第二步：用access建立一個名為pad的數據庫，在庫中建立一個表myset，給表添加四個字段：backcolor（數據），forecolor(文本），fontname(文本）,fontsize（文本）。注意：請將庫文件存入程序所在目錄。 如果你的機器沒安裝有access，可通過vb建庫。二、 利用adodc（ado data control)進行數據庫鏈接：使用adodata控件訪問數據庫可以完全不用編寫代碼,只需要通過簡單的設置和操作其屬性就可以實現

28、與數據庫的連接,通過綁定數據感知控件,就能提供一個訪問數據庫的界面,用來實現對數據庫的瀏覽,貼加,刪除,修改等操作.三、 利用dao對數據庫進行操縱:在visual basic 中提供了兩種與jet數據引擎接口的方法:data控件與數據訪問對象(dao)dao是database object的英文縮寫,要訪問數據庫一方面數據庫要提供訪問接口,另一方面要在編程環境中有對數據庫的支持.dao模型是設計關系數據庫系統結構的對象類的集合.他們提供了管理關系型數據庫系統所需要的全部操作屬性和方法,這其中包括建立數據庫,定義表,字段和建立表間關系,定位和查詢數據庫等.關系數據庫介紹:關系數據庫是目前各類數

29、據庫中最重要、最流行的數據庫，他應用數學方法來處理數據庫數據，是目前使用最廣泛的數據庫系統。20世紀70年代以后開發的數據庫管理系統產品幾乎都是基于關系的。在數據庫發展的歷史上，最重要的成就就是關系模型。 關系數據庫系統與非關系數據庫系統的區別是：關系系統只有“表“這一種數據結構；而非關系數據庫系統還有其他數據結構，對這些數據結構有其他的操作。結構化查詢語言sql（structured query language）是一種介于關系代數與關系演算之間的語言，其功能包括查詢、操縱、定義和控制四個方面，是一個通用的、功能極強的關系數據庫語言。目前已成為關系數據庫的標準語言microsoftacces

30、s介紹:使用microsoftaccess，可以在單一的數據庫文件中管理所有的信息。在這個文件中，用戶可以將自己的數據分別保存在各自獨立的存儲空間中，這些空間稱作表；可以使用聯機窗體來查看、添加及更新表中的數據；使用查詢來查找并檢索所要的數據；也可以使用報表以特定的版面布置來分析及打印數據。 如果要保存數據，請為每一種類型的信息創建一個表。如果要從查詢、窗體或報表中的多個表中將數據合并在一起，就要定義各個表之間的關系。 如果要搜索并檢索符合指定條件的數據，包括來自多個表中的數據，就要創建查詢。查詢的同時也可以更新或刪除多條記錄，并對數據執行內嵌或自定義的計算。 如果要簡單地直接在某個表中查看、

31、輸入及更改數據，請創建一個窗體。在打開一個窗體時，microsoftaccess將從一個或多個表中檢索數據，并使用用戶在“窗體向導”選擇的版面布局或所創建的版面布局，將窗體顯示在屏幕上。 如果要分析數據或將數據以特定的方式打印出來，請創建一個報表。例如，可以打印一份將數據分組并計算數據總和的報表，也可以打印另一份帶有各種數據格式的打印郵件標簽的報表。第二章 系統的分析21 系統開發的目標和思想本系統開發目標是服務于企事業單位財務管理人員,方便工作人員,收集員工工資信息,發布工資發放信息,對本單位部門員工工資分類管理等.同時力求做到界面人性化,功能齊全,數據存儲安全.22 系統的可行性分析技術上

32、:本系統采用visual basic 6.0與微軟的access作為數據庫,技術上開發難度一般.經濟上:本系統服務于企事業單位財務管理人員,提高了工作人員辦事效率,節省了開支.所以具有經濟上的可行性.社會上:本系統同時也方便了企業管理人員者,以及員工.所以具有社會可行性.第三章 系統的設計31 系統的功能結構設計程序登陸主界面數據錄入數據整理打印報表系統維護退出系統32 系統的數據庫設計1:部門表:2:工資信息表:3:用戶登陸表:33 界面設計與代碼設計1:登陸界面設計登陸界面代碼設計:private sub command1_click() if trim(text3.text) = dat

33、a1.recordset.fields(2) then czy = data1.recordset.fields(1) bz = text1.text unload me gzglxt.show else msgbox 密碼不符，請核對后再輸入 text3.text = text3.setfocus end ifend subprivate sub command2_click() endend subprivate sub form_load() data1.databasename = app.path + gzglxt.mdb data1.recordsource = mmk data1

34、.refreshend subprivate sub text1_change() if len(text1.text) = 2 then data1.recordset.findfirst czydm= + + text1.text + if data1.recordset.nomatch = true then msgbox 操作員代碼不存在，請核對后再輸入! text1.text = text1.setfocus else text2.text = data1.recordset.fields(1) text3.setfocus end if end ifend subprivate s

35、ub text3_keypress(keyascii as integer) if keyascii = 13 then command1.setfocus end ifend sub2.數據恢復界面:數據恢復代碼設計:private sub command1_click()data1.recordset.movefirstcall disp4end subsub disp4() text1.text = data1.recordset.fields(0) text2.text = data1.recordset.fields(1) text3.text = data1.recordset.f

36、ields(2)end subprivate sub command10_click()command1.enabled = truecommand2.enabled = truecommand3.enabled = truecommand4.enabled = truecommand5.enabled = truecommand6.enabled = truecommand7.enabled = truecommand8.enabled = truecommand9.enabled = falsecommand1.setfocuscall disp4end subprivate sub co

37、mmand2_click() if data1.recordset.bof = false then data1.recordset.moveprevious if data1.recordset.bof = true then data1.recordset.movenext call disp4end subprivate sub command3_click() if data1.recordset.eof = false then data1.recordset.movenext if data1.recordset.eof = true then data1.recordset.mo

38、veprevious call disp4end subprivate sub command4_click()data1.recordset.movelastcall disp4end subprivate sub command5_click() dm = inputbox(請輸入您要查找的操作員的代碼) data1.recordset.findfirst czydm= + + dm + if data1.recordset.nomatch = true then msgbox 查無此操作員 exit sub else call disp4 end ifend subprivate sub

39、 command6_click() command1.enabled = false command2.enabled = false command3.enabled = false command4.enabled = false command5.enabled = false command6.enabled = false command7.enabled = false command8.enabled = false command9.enabled = true command10.enabled = true text1.locked = false text2.locked

40、 = false text3.locked = false text1.setfocus bz1 = 111end subprivate sub command7_click() command1.enabled = false command2.enabled = false command3.enabled = false command4.enabled = false command5.enabled = false command6.enabled = false command7.enabled = false command8.enabled = false command9.e

41、nabled = true command10.enabled = true text1.locked = false text2.locked = false text3.locked = false text1.text = text2.text = text3.text = text1.setfocus bz1 = 222end subprivate sub command8_click() k = msgbox(您確認要刪除名稱為： & text2.text & 的操作員嗎？, vbyesno + 32) if k = 6 then if text1.text 00 then data

42、1.recordset.delete data1.refresh call disp4 else msgbox 管理員記錄不能刪除 exit sub end if else call disp4 end ifend subprivate sub command9_click()if bz1 = 111 then data1.recordset.edit data1.recordset.fields(0) = text1.text data1.recordset.fields(1) = text2.text data1.recordset.fields(2) = text3.text data1

43、.recordset.updateend ifif bz1 = 222 then data1.recordset.findfirst czydm= + + text1.text + if data1.recordset.nomatch = false then msgbox 操作員代碼重復，請重新輸入 exit sub else data1.recordset.addnew data1.recordset.fields(0) = text1.text data1.recordset.fields(1) = text2.text data1.recordset.fields(2) = text3

44、.text data1.recordset.update end ifend ifcommand1.enabled = truecommand2.enabled = truecommand3.enabled = truecommand4.enabled = truecommand5.enabled = truecommand6.enabled = truecommand7.enabled = truecommand8.enabled = truecommand9.enabled = falsecommand1.setfocusdata1.refreshend subprivate sub fo

45、rm_activate()text1.locked = truetext2.locked = truetext3.locked = truecommand1.setfocuscall disp4command9.enabled = falseend subprivate sub form_load() me.top = 600 me.left = 1100 data1.databasename = app.path + gzglxt.mdb data1.recordsource = mmk data1.refreshend sub3主界面設計:主界面代碼設計:private sub bmgl_

46、click() form6.showend subprivate sub dgzb_click() dr2.showend subprivate sub dgzt_click()dr1.showend subprivate sub dhzb_click() form7.showend subprivate sub ggdx_click() form3.showend subprivate sub gldx_click() form4.showend subprivate sub lgdx_click() form2.showend subprivate sub lrbm_click() for

47、m1.showend subprivate sub mdiform_activate() sb1.panels(2).text = 操作員： + czy if bz 0 and bz 0 then ggdx.enabled = false lgdx.enabled = false qxgl.enabled = false end ifend subprivate sub qxgl_click() form11.showend subprivate sub rygl_click() form5.showend subprivate sub sjbf_click() form9.showend subprivate sub sjhf_click() form10.showend subprivate sub szbj_click()cd1.filename = cd1.showopenme.picture = loadpicture(cd1.filename)end