企業人事工資管理系統計算機(論文)(編輯修改稿)

　

【文章內容簡介】 （主鍵）文本型6不能為空基本工資數字型（單精度）6不能為空崗位工資數字型（單精度）6不能為空加班津貼數字型（單精度）6不能為空考勤工資數字型（單精度）6不能為空行政性扣款數字型（單精度）6不能為空個人所得稅數字型（單精度）6不能為空實發工資數字型（單精度）6不能為空年月文本型6不能為空表34員工工資信息表（5）加班表(jbinfo)：該表記錄員工的加班信息列名數據類型寬度可否為空員工編號（主鍵）文本型6不能為空加班天數數字型2不能為空加班類別文本型1不能為空年月文本型6不能為空備注備注型Meno不能為空表35員工的加班信息表（6）xsinfo表：該表記錄工資系數列名數據類型寬度可否為空行政性扣款數字型（單精度）6不能為空遲到數字型（單精度）6不能為空早退數字型（單精度）6不能為空離崗數字型（單精度）6不能為空缺席數字型（單精度）6不能為空平時加班數字型（單精度）6不能為空雙休加班數字型（單精度）6不能為空節日加班數字型（單精度）6不能為空表36員工工資系數表（7）gwinfo表：崗位工資表 列名數據類型寬度可否為空崗位編號文本型6不能為空崗位名稱文本型10不能為空崗位工資數字型（單精度）6不能為空職責備注型Meno可為空表37員工崗位工資表（8）user表：改變記錄系統用戶列名數據類型寬度可否為空用戶名文本型20不能為空密碼文本型20不能為空級別文本型6不能為空聯系電話文本型11可為空表38系統用戶記錄表 數據庫結構的實現本系統的后臺數據庫選擇為ACCESS，在以上的數據庫概念結構設計和邏輯結構設計完成后，就可以實現為ACCESS數據庫了。在實現之前，這里簡介一下該數據庫：Access是Office辦公套件中一個極為重要的組成部分。剛開始時微軟公司是將Access單獨作為一個產品進行銷售的，后來微軟發現如果將Access捆綁在OFFICE中一起發售，將帶來更加可觀的利潤，于是第一次將Access捆綁到OFFICE97中，成為OFFICE套件中的一個重要成員。現在它已經成為Office辦公套件中不可缺少的部件了。自從1992年開始銷售以來，已經成為世界上最流行的桌面數據庫管理系統。Access的新版本功能變得更加強大。不管是處理公司的客戶訂單數據，管理自己的個人通訊錄，還是大量科研數據的記錄和處理，人們都可以利用它來解決大量數據的管理工作。 ● ACCESS具有三大功能： 建立數據庫。數據庫操作。數據通訊。 ● ACCESS的內部結構 ACCESS數據庫是關系型數據庫，具有表的特性，在ACCESS數據庫中，包括表、查詢、窗體、報表、頁、宏和模塊七個對象，這些對象用于收集、存儲和操作各種不同的信息。它們功能如下 :(1)利用表對象存儲信息；(2)利用查詢對象搜索信息；(3)利用窗體對象查看信息；(4)利用報表對象顯示信息；(5)利用頁對象顯示數據訪問頁信息；(6)利用宏對象完成自動化工作；(7)利用嵌入模塊實現復雜功能。 ● ACCESS數據庫的構成 ACCESS數據庫是一系列數據基本表、表與表之間的關系、查詢、窗體、報表、頁、宏和模塊的集合。 這里重點介紹一下表與表之間的關系： 表是保存數據或信息的主要場所，它是一個二維表，二維表的行稱為一個記錄，存儲某個實體的整體信息，是表的基本單位。表的一列稱為一個字段，存儲實體的一個屬性的信息，是表的可訪問的最小邏輯單位。表都應有至少一個關鍵字，它可使表中的記錄惟一。 在需求分析、概念結構設計的基礎上得到數據庫的邏輯結構設計之后，我們就可以在Visual 。實現方法和步驟如下：以英文版本為例：通過菜單欄：AddIns→Visual Data Manager…點擊出現VisData界面，點擊菜單File→New→Microsoft Access→Vision MDB…彈出保存數據庫文件的存放位置和數據庫的文件名的對話框。這時出現Database Windows設計界面，鼠標右鍵選擇新建表。所設計的表的字段就是邏輯結構表中的列名。第四章 系統的詳細設計數據庫中的數據被用戶利用的方式可以通過數據管理系統提供的操作功能來使用，也可通過應用程序操作數據庫。 應用程序是利用數據管理，為解決某個具體的管理或數據處理的任務而編制的一系列命令的有序集合。圖41應用程序操作數據庫圖在本系統的后臺數據庫已經設計完成后，現在就可以對系統分析階段設計的功能模塊通過編碼設計成一個應用程序，最終來完成對數據庫中數據的管理和應用的目的。 Visual Basic 是一個可視化的、面向對象的、采用事件驅動的結構化高級程序設計語言，它具有強大的數據庫操作功能，提供了數據管理器（Data Manager）、數據控件（Data Control）、以及ADO（Activex數據對象）等強大工具，利用它能夠建立多種類型的數據庫并可以管理維護和使用這些數據。當設計好系統的數據庫結構后，就可以開始在Visual 。設計窗體就是將前面分析得到系統的功能模塊通過在Visual ，通過窗體的操作來實現預訂的模塊的功能。由于Visual ，設計窗體和控件可以輕松通過系統得到，所以編程的時可以集中精力來設計控件的事件。面向對象的編程軟件就是通過控件這種對象，發出不同的消息，去觸發相應事件的發生。在Visual 。圖42 Project界面功能圖即選擇菜單：File→New Project從而彈出如圖所示的界面，選擇Standard EXE，單擊OK，系統此時創建了一個工程文件Project1和一個窗體Form1。通過菜單File→Save Project。接下來就可以開始設計第一個窗體Form1了。 系統界面的設計圖43系統主界面圖系統主界面主要有系統菜單和運行界面。系統用戶通過菜單的操作來完成系統設計的各項功能。該界面提供的菜單如下表所示：員工基本信息檔案管理評價管理出勤管理工資管理系統管理基本信息錄入檔案錄入評價初始化月考勤表月工資表系數設置基本信息維護檔案維護評價維護考勤維護工資查詢添加操作員基本信息查詢檔案查詢考勤查詢崗位工資維護基本信息統計檔案統計加班維護退出表41系統界面提供的菜單表菜單的設計是本窗體的重點，菜單設計的過程通過系統的菜單欄Tools→Menu Editor進入菜單編輯器。添加如上圖所示的菜單后，關閉菜單。回到該界面窗體的。可以看到該窗體的上面已經有了這些設計的菜單，通過點擊設計的菜單欄，即可進入源代碼設計環境，通過添加clcik事件源代碼后，即完成了該窗體的設計。本功能實現了人事管理過程, 的VB內置對象，其主要作用是實現了數據庫連接及SQL查詢語言的使用。該功能使用Connection對象以下相關屬性：Attributes屬性可讀寫Long類型，通過兩個常數之和指定是否使用保留事務（retainning transactions）。常數adXactCommitRetaining表示調用CommitTrans方法時啟動一個新事務；常數adXactAbortRetaning表示調用 RollbackTrans方法時啟動一個新事務。默認值為0，表示不使用保留事務。 CommandTimeout 可讀寫Long類型，指定中止某個相關Command對象的Execute調用之前必須等待的時間。默認值為30秒。 ConnectionString 可讀寫String類型，提供數據提供者或服務提供者打開到數據源的連接所需要的特定信息 ConnectionTimeout 可讀寫Long類型，默認值為15秒。 CursorLocation 可讀寫Long類型，確定是使用客戶端(adUseClient)游標引擎，還是使用服務器端(adUseServer)游標引擎。默認值是adUseServer。 DefaultDatabase 可讀寫String類型，如果ConnectString中未指定數據庫名稱，就使用這里所指定的名稱，對SQL Server而言，其值通常是pubs IsolationLevel 可讀寫Long類型，指定和其他并發事務交互時的行為或事務。見Mode Long類型，指定對Connection的讀寫權限。見Mode常數Provider 可讀寫String類型，如果ConnectionString中未指定OLE DB數據或服務提供者的名稱，就使用這時指定的名稱。默認值是MSDASQL(Microsoft OLE DB Provider for ODBC)。 State 可讀寫Long類型，指定連接是處于打開狀態，還是處于關閉狀態或中間狀態。見State常數 Version 只讀String類型，返回ADO版本號。 員工檔案信息錄入功能如下圖：圖44員工檔案信息錄入功能界面圖通過以上相關技術的引用，員工基本信息錄入功能編寫很快就可以完成了。該窗體設計包括13個文本框控件、5個組合框控件、2個按鈕控件。文本框控件和組合框控件用來輸入員工基本信息。其中的記錄個人情況等的文本框對應的字段是備注型，所以將該文本框的Multiline屬性設置為True。開該屬性的設置可以使文本框多行顯示，Scrollbars的值設定為2，該值的設定可以使組合框的有上下的滾動下拉條。其它的幾個備注型的文本框屬性值設定一樣。其中組合框的值不用用戶輸入，只需用戶選擇，選擇值的設定可以通過設定組合框的list屬性值來完成，比如設置性別對應的組合框的list值為：男，女。按鈕控件用來觸發它們相應的事件的發生。其中記載按鈕的click事件：當單擊該按鈕時，首先檢查文本框輸入的是否為空，接著連接數據庫，建立記錄集，并利用記錄集打開查詢，最后對該查詢記錄集增加一條記錄，語句：。并設置增加的記錄的相應字段值為文本框和組合框的輸入值，記錄集更新記錄。語句：。更新語句是很重要的，如果沒有更新語句，最后數據庫中的記錄不能得到修改和添加。這樣就完成了對員工基本信息表的添加記錄。退出按鈕的click事件是關閉該窗體，語句是：unload me。該窗體的源代碼具體如下:Dim WithEvents adoPrimaryRS As RecordsetPrivate Sub Command1_Click() If = Then MsgBox 員工編號不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 姓名不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 性別不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 部門不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 民族不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 出生年月不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not IsDate() Then MsgBox 生日應輸入日期（yyyymmdd）！, vbOKOnly + vbExclamation, 警告 Exit Sub Else = Format(, yyyymmdd) End If If = Then MsgBox 政治面貌不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 家庭住址不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 聯系電話不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 畢業學校不能為空！, vbOKOnly + vbExclamation, 警告