第一篇：城院09級 工資管理系統設計概要
目 錄
1、需求及背景分析....................................................................1 1.1 工資管理系統的概述.......................................................................................................1 1.2 A 公司工資管理系統需求調查.......................................................................................2
2、系統分析..................................................................................3 2.1 A 公司工資業務流程圖......................................................................................................3 2.2 A 公司工資管理數據流程圖..............................................................................................4 2.3 A 公司工資管理系統功能分析圖......................................................................................4 2.4 數據字典.............................................................................................................................5 2.6管理信息系統流程設想圖(新系統模型.........................................................................7
3、系統設計部分..........................................................................8 3.1 功能結構圖設計..................................................................................................................8 3.2 新系統信息處理流程設計(ER 圖..............................................................................8 3.3 輸出設計(主要指打印輸出設計..................................................................................9 3.4 存儲文件格式設計(數據庫結構設計..........................................................................9 3.5 輸入設計.............................................................................................................................9 3.6 代碼設計(職工證號和部門代號等............................................................................10 3.7 程序設計說明書................................................................................................................10 3.8 工資管理信息系統數據庫設計........................................................................................10 4.系統實施...................................................................................14
5.課程設計心得...........................................................................14 管理信息系統課程設計任務書 題目 : 工資管理系統設計 1.課程設計教學條件要求
運用現有教學條件,結合所學知識、網絡和圖書館等資料,以團隊小組形式, 團隊協作,保質保量完成課程設計。
2.課程設計任務
課程設計任務的描述應該清晰明確,設計的難度和工作量應符合學生的實際 水平,在規定的時間內能夠完成設計任務。
3.課程設計報告書主要內容 工資管理系統設計
1、需求及背景分析 1.1 工資管理系統的概述
企業工資管理是一個企業單位不可缺少的部分,它的內容對于企業決策者 和管理者來說都是至關重要的,所以企業工資管理系統應該能夠為用戶提供充足 的信息和快捷的查詢手段。但是一直以來人們使用傳統人工的方式管理企業的工 資發放工作,這種管理方式存在許多缺點,例如往往由于抄寫不慎或者由于計算 的疏忽,出現工資發放錯誤的現象。工資管理具有重復性、規律性、時間性,正 是由于這些規律,使得工資管理的計算機化成為可能。
進入 21世紀,計算機已經滲入到社會生活的各個領域,推動著科學技術、社會經濟的發展。計算機用于管理信息處理的突出特點是迅速、準確、可靠并且 具有很大的存儲能力。因此,國內外越來越重視工資管理的效率及其可靠性。目
前,對于工資管理都有著相當普遍和深入的研究,但是工資管理對于社會、企業 和人民生活有著極為重要的影響。
因此在此基礎上對工資管理系統進行分析和設計就非常有必要了。1.2 A 公司工資管理系統需求調查
為了更好的設計企業工資管理系統, 我們對 A 公司的工資管理事項進行調查 和分析,在此基礎上開發設計我們自己的工資管理系統: 對 A 公司的工資管理進行調查,得到工資發放過程及有關數據如下圖:
表 1 上月工資發放清單
表 2 本月人員及工資變動表 表 3 本月扣款清單
根據了解信息: A公司每月月末發放工資,發放前的工資處理過程是每月 25日到 27日由財務科根據已存檔的上月工資發放清單(見表 1和人事科送來的 人員及工資變動表(表 2 填寫本月工資發放清單中的前四項(即姓名、基本工資、附加工資、扣房費。總務科于每月 28日將扣款清單(見表 3送交財務科,由 財務科按扣款清單將扣款數填入本月工資發放清單。最后計算出每位職工的應發 工資數,并填入工資發放清單,為工資發放人員發放工資做好準備。
2、系統分析
2.1 A 公司工資業務流程圖
依據 A 公司調查資料,我們將其工資業務流程繪制出如下業務流程圖:
現行的工資發放體系業務流程圖 上圖中實體的具體功能如下: 財務工資會 :負責匯總人事部遞交的人員及工資變動表和總務處遞交的扣款清單 , 填寫職工工資發放清單 , 交由工資發放人員按時發放職工工資 , 并存 檔工資發放清單。
人 事 部 :負責編寫人員及工資變動表 , 并及時送交財務工資會。總 務 處 :負責編寫扣款清單 , 并及時送交財務工資會。2.2 A 公司工資管理數據流程圖
經過對 A 公司工資業務流程的分析,我們可大致繪出 A 公司工資管理系統中 數據的流程圖:
工資管理數據流程圖
人事科把本月人員工資變動表送去抄寫,同時上月工資發放清單也送去抄寫。抄寫完后把本月工資發放清單送到扣款項進行扣款,同時總務科也將扣款清單送 到扣款項進行扣款。扣款結束后得到的本月工資發放清單進行計算并填寫應得工 資,同時工資發放員把本月工資發放清單進行計算并填寫應得工資。
2.3 A 公司工資管理系統功能分析圖
工資管理信息子系統由建立主文、更新主文、建立扣款文、計算和打印四 個模塊組成。建立主文包括數據的錄入及維護。更新主文包括建立主處理文件及
更新。建立扣款文包括數據錄入和維護。計算和打印包括計算、打印工資單和打
印工資匯總表。2.4 數據字典
數據字典是指對數據的數據項、數據結構、數據流、數據存儲、處理邏輯、外部實體等進行定義和描述,其目的是對數據流程圖中的各個元素做出詳細說明。
:_____1____
:_____2_____
:_____3___
:
______4____
2.6管理信息系統流程設想圖(新系統模型
3、系統設計部分 3.1 功能結構圖設計
工資管理系統功能模塊結構圖 3.2 新系統信息處理流程設計(ER 圖
3.3 輸出設計(主要指打印輸出設計
3.4 存儲文件格式設計(數據庫結構設計
3.5 輸入設計
3.6 代碼設計(職工證號和部門代號等
3.7 程序設計說明書(此部分內容略
3.8 工資管理信息系統數據庫設計 1.數據庫中的表對象
2.表結構設計
2-1本月工資變動表的設計
SQL 語句:select * from gongzi 表內容: 2-2本月扣款清單的設計
SQL 語句:select * from koukuan 表內容:
2-3 本月工資發放清單的設計
select *from 本月扣款清單 select*from 本月工資變動表
select 本月工資變動表,本月扣款清單,扣電費,本月扣款清單,病事假扣 款,本月工資變動表,基本工資 +本月工資變動表,附加工資-本月工資變動表, 房費-本月扣款清單,扣電費-本月扣款清單,病事假扣款 as 應發工資 into 本 月工資發放清單 from
本月工資變動表,本月扣款清單 where 本月工資變動表, 職工代碼 =本月扣款清單,職工代碼
select *from 本月工資發放清單
insert into 本月工資發放清單(職工代碼,姓名,部門,基本工資,附加工 資,房費,備注,扣電費,病事假扣款,應發工資 select 本月工資變動表,本 月工資變動表,基本工資 +本月工資變動表,附加工資-本月工資變動表,房費 as 應發工資 from 本月工資變動表 where 本月工資變動表,職工代碼 not in(select 本月扣款清單.職工代碼 from 本月扣款清單
select*from本月工資發放清單 order by 職工代碼 4.系統實施 此部分內容略 5.課程設計心得
光陰似箭,歲月如梭,不知不覺我即將走完大學生涯,回想這一路走來的日 子,同學的相互扶持,老師的悉心教誨,朋友的支持幫助一直陪伴著我們,讓我 們漸漸長大,也慢慢走向成熟。
在這一課,我們珍惜最后在大學的日子,努力學習,努力實訓,努力運用課 堂教學的知識以更好的完成課程設計。首先,我們在團隊討論后,一致認為要結 合專業知識進行選題,最后定為:工資管理系統設計。根據選好的題目,收集相 關的資料,利用圖書館,網絡等,資料整理完之后,開始可行性分析,程序系統 設計等等,一個環節接著一個環節。在這次的課程設計中,我們認識到在做一個 系統之前,必須要有一個清晰的思路,要明白怎么做,決不能還沒想好就去下手, 那很容易發生半途做不下去的情況的,在做之前必須要對系統進行分析,可行性 分析,需求分析,決不能按著自己的想法,想怎么做就怎么做,要滿足用戶的需 求,要換位思考,程序簡單明了,應注釋的地方要注釋,因為重要的是要讓用戶 明白。雖然這次的課程設計順利完成,但我們清楚的意識
到自身的不足,在以后 的日子里還要繼續學習,而且必須團結同學,學會團隊協作。一個人的力量是渺 小的,但團隊的力量是大的。
我們的選題及進行過程中得到了老師悉心指導。設計過程中，老師多次幫助 我分析思路，開拓視角。團隊成員也在我遇到困難想放棄的時候給予我最大的支 持、鼓勵和幫助。老師嚴謹求實的治學態度，踏實堅韌的工作精神，將使我終生 受益，團隊的友誼使我忠心感激。再多華麗的言語也顯蒼白。在此，謹向老師，所有團隊成員致以誠摯的謝意和崇高的敬意。在此，非常感謝我們的大學認識的最后一位老師--肖科峰老師。肖老師在這 次工資系統設計中給我們很大幫助，還教導我們在實習就業中應注意的方方面面 以及一些為人處事細節。謝謝你！15 課程設計評分表（參考格式）評分標準： 1.學生是否嚴格遵守課程設計紀律，按照規定時間完成設計任務(占 30% 2.課程設計報告書質量：(占 40%(1是否采用了良好的設計方法，獨立完成課程設計。(2課程設計各分段的任務是否按時完成及完成的質量。(3是否完成課程設計任務書指定的全部要求。3.課程設計報告書的撰寫規范(占 30% 課程設計報告書的撰寫規范要求與畢業設計（論文）的要求相同。教師評分： 1.學生出勤得分： _________ 2.內容質量得分： _________ 3.撰寫規范得分： _________ 最終評定成績（以優、良、中、及格、不及格評定）：_________ 教師評語： 簽字： 日期： 年 月 日 16
第二篇：SQL vb課程設計工資管理系統概要（模版）
課程設計報告
課程設計題目： 工資管理系統
學生姓名 ： 專 業 ：
班 級 ： 指導教師 ：
2011年 12 月 17 日
姓名： 學號： 實驗時間：12月14日 實驗地點：
一、課程設計題目：
工資管理系統
二、課程設計目的：
本次課程設計的主要目的是綜合運用所學的數據庫與VB知識解決一個比較實際的簡單問題，側重對數據庫連接、查詢等相關內容的綜合應用，使同學們能進一步熟悉掌握數據庫的基本使用方法，進一步提升自己的編程能力并逐步培養編程思維，進而不斷提高同學們解決問題的能力，并為以后的語言學習打下良好的基礎。
三、課程設計要求： 1.獨立完成；
2.此次課程設計在規定的時間必須在實驗室完成，不得以任何理由在其他地點進行；
3．每個人需按照選題規則確定好自己的題目（注意不是多人完成一題，每人獨立完成一題），不得以任何理由選擇其他的題目，當然在完成自己的題目之后根據個人興趣可以繼續選做其他的題目；
4．課程設計完成后嚴格按照報告格式撰寫課程設計報告，并于結束后的第三天上交到學習委員統一交給老師；
5．課程設計的成績由兩部分組成：程序檢查成績（40％，每個功能占程序分的20%）＋報告檢查成績（40％）＋平時考核（20%）
四、試驗要求 員工基本信息的管理功能。單位員工變動、獎懲情況的管理功能。3 工資的計算、修改功能。4 查詢統計功能。5 報表打印功能。具有數據備份和數據恢復功能。
五、試驗過程
1.數據庫的設計
本系統的數據庫是SQL數據庫，在SQL環境下創建數據庫工資.mdb文件。該數據庫包括員工信息表、工資標準表、其他工資標準表、用戶表用于紀錄員工的基本信息數據庫表結構如下所示： 字段名 類型 varchar
大小 8
允許空 Not null 員工編號
姓名 varchar 10 Not null 性別 varchar 職務 Varchar 出生年月 datetime 員工頭像 image
員工信息表
字段名 類型
員工編號 varchar
月份 int 津貼 money 獎金 Money 扣保險 Money 扣考勤 Money 扣其他 Money 其他工資標準表 Not null 8 Not null Not null
大小
允許空 8 NULL NULL NULL NULL NULL
字段名 類型
大小
職務 varchar
基本工資 money 8
工資標準表
字段名 類型
大小
用戶名 char
口令 char 10
用戶表 2．主要內容 登錄窗體
登錄窗體 設計代碼：
允許空
Not null
Not null
允許空
Not null
Not null
Option Explicit
Private Function Selectsql(SQL As String As ADODB.Recordset '返回ADODB.Recordset對象 Dim ConnStr As String
Dim Conn As ADODB.Connection Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Set Conn = New ADODB.Connection 'On Error GoTo MyErr:
ConnStr = “Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=true;Initial Catalog=工資;Data Source=(local” '這是連接SQL數據庫的語句 Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL, Conn, adOpenDynamic, adLockOptimistic Set Selectsql = rs 'Exit Function 'MyErr: 'Set rs = Nothing
'Set Conn = Nothing '釋放相關的系統資源
'MsgBox Err.Description, vbInformation, “系統提示” '顯示出錯信息 End Function
Private Sub Command3_Click(Unload Me End Sub
Private Sub Form_Load(Dim SQL As String Dim rs As ADODB.Recordset Dim X As Long
On Error GoTo Err_box SQL = “ select * from 用戶表” Set rs = Selectsql(SQL If rs.RecordCount > 0 Then rs.MoveFirst
For X = 1 To rs.RecordCount
Combo1.AddItem rs.Fields(“用戶名”.Value rs.MoveNext Next X
Combo1.ListIndex = 0 End If rs.Close Exit Sub Err_box: End Sub
Private Sub Command1_Click(Dim SQL As String Dim rs As ADODB.Recordset If Text1.Text = “" Then MsgBox ”請輸入口令!“, 16 Text1.SetFocus Exit Sub End If
If Combo1.Text = ”“ Then MsgBox ”請選擇登錄用戶!“, 16 Combo1.SetFocus Exit Sub
End If
SQL = ”SELECT * FROM 用戶表 WHERE 用戶名='“ & Combo1.Text & ”' AND 口令='“ & Text1.Text & ”' “ Set rs = Selectsql(SQL If rs.RecordCount > 0 Then form2.Show '想要打開的主窗體 MsgBox ”登錄成功!“, 64, ”提示“ Unload Me Else
MsgBox ”口令不對,請重新輸入!“, 16, ”提示“ Text1.SetFocus End If End Sub
主控界面
主控界面
設計過程：
所有功能都在菜單中打開來實現，在最下面添加了工具欄，來顯示時間，操作員，狀態等信息。
設計代碼：
Private Sub rechaxun_Click（form3.Show End Sub
Private Sub reluru_Click(form3.Show End Sub
Private Sub cygl2_Click(form5.Show End Sub
Private Sub cyxx_Click(form3.Show End Sub
Private Sub Form_Load(Label2.Caption = Time End Sub
Private Sub gzcx_Click(Form4.Show End Sub
Private Sub Image1_Click(End Sub
Private Sub jcqk_Click(form6.Show End Sub
Private Sub rexiugai_Click(form6.Show End Sub
Private Sub rescbb_Click(Form4.Show
MsgBox ”請先查詢，再點擊生成報表按鈕“, , ”提示窗口“ End Sub
Private Sub sjbf_Click(Form7.Show End Sub
Private Sub sjhf_Click(Form7.Show End Sub
Private Sub tjcy_Click(form5.Show End Sub
成員管理 成員瀏覽
成員瀏覽 設計過程：
用控件可以實現檔案的瀏覽，在此窗體用戶可以瀏覽員工信息，此窗體與數據輪中的員工信息表進行連接。
設計代碼：
Private Sub Command4_Click(Unload Me End Sub 成員管理
成員管理
設計過程：
用于檔案的登記，此窗體和檔案瀏覽窗體中的數據表進行了連接，可以直接進行添加，刪除，修改等。
設計代碼：
Private Sub Command1_Click(Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click(Adodc1.Recordset.Update End Sub Private Sub Command3_Click(Adodc1.Recordset.Delete End Sub
Private Sub Command4_Click(Dim strb(As Byte CommonDialog1.ShowOpen Open CommonDialog1.FileName For Binary As #1 f1 = LOF(1 ReDim strb(f1 Get #1, , strb Adodc1.Recordset.Fields(”員工頭像“.AppendChunk strb Close #1 Image1.Picture = LoadPicture(CommonDialog1.FileName End Sub Private Sub Form_Load(End Sub 獎懲信息：
員工獎懲情況
設計過程：
用戶可以查找各月份的扣除以及獎勵狀況。
設計代碼：
Private Sub Command1_Click(Unload Me End Sub
Private Sub Command2_Click(Adodc1.Recordset.Update End Sub
Private Sub Text1_Change（Adodc1.RecordSource = ” select * from 其他工資標準 where 月份='“ & Text1 & ”'“ Adodc1.Refresh DataGrid1.Refresh End Sub
工資查詢：
工資查詢
設計過程：
通過在姓名欄和月份欄輸入信息，可以快速查找所需查詢人的工資情況；并將查詢結果生成execl表，方便用戶打印及攜帶。
設計代碼：
Private Sub Command1_Click(Dim i As Integer, r As Integer, c As Integer Dim newxls As Excel.Application Dim newbook As Excel.Workbook Dim newsheet As Excel.Worksheet Set newxls = CreateObject(”Excel.Application“ '創建excel應用程序,打開excel Set newbook = newxls.Workbooks.Add '創建工作簿 Set newsheet = newbook.Worksheets(1 '創建工作表 If Adodc1.Recordset.RecordCount > 0 Then For i = 0 To DataGrid1.Columns.Count1 DataGrid1.Col = c newsheet.Cells(r + 1, c + 1 = DataGrid1.Columns(c Next c Adodc1.Recordset.MoveNext Loop Dim myval As Long Dim mystr As String myval = MsgBox(”是否保存該Excel表?“, vbYesNo, ”提示窗口“
If myval = vbYes Then mystr = InputBox(”請輸入文件名稱“, ”輸入窗口“ If Len(mystr = 0 Then MsgBox ”系統不允許文件名稱為空！“, , ”提示窗口“ Exit Sub End If newsheet.SaveAs ”d:“ & mystr & ”.xls“ MsgBox ”Excel文件保存成功，位置：d:“ & mystr & ”.xls“, , ”提示窗口“ newxls.Quit End If End If End Sub Private Sub Command2_Click(Unload Me End Sub Private Sub Form_Load(End Sub Private Sub Text1_Change(Adodc1.RecordSource = ”select a.員工編號,姓名,月份,基本工資,津貼+獎金+扣保險+扣考勤+扣其他 as 獎懲總額,基本工資+津貼+獎金+扣保險+扣考勤+扣其他 as 實發工資 from 員工信息表 a,工資標準 b,其他工資標準 c where a.職務=b.職務 and a.員工編號=c.員工編號 and 姓名 like '“ & Text2 & ”%'and c.月份='“ & Text1 & ”' “ Adodc1.Refresh DataGrid1.Refresh End Sub Private Sub Text2_Change（Adodc1.RecordSource = ”select a.員工編號,姓名,月份,基本工資,津貼+獎金+扣保險+扣考勤+扣其他 as 獎懲總額,基本工資+津貼+獎金+扣保險+扣考勤+扣其他 as 實發工資 from 員工信息表 a,工資標準 b,其他工資標準 c where a.職務=b.職務 and a.員工編號=c.員工編號 and 姓名 like '“ & Text2 & ”%' and c.月份='“ & Text1 & ”'“ Adodc1.Refresh DataGrid1.Refresh End Sub 數據備份及恢復：
數據備份及恢復 設計過程：
用戶可以將數據庫進行完全備份和差異備份，并且在操作不當時可以進行恢復。
設計代碼：
Public Cn As ADODB.Connection Private Sub Command1_Click(Cn.Execute ”backup database 工資 to disk='d:工資完全備份.bak' with name='工資 backup all',description='Full Backup Of pubs'“ MsgBox ”數據完全備份已經完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Command2_Click(Cn.Execute ”backup database 工資 to disk='d:工資差異備份.bak' with differential ,noinit,name='工資 backup dif',description='Differential Backup Of 工資'“
MsgBox ”數據差異備份已經完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Command3_Click(Cn.Execute ”restore database 工資 from disk='d:工資完全備份.bak' with FILE=1“ MsgBox ”數據恢復已經完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Command4_Click(Cn.Execute ”restore database 工資 from disk='d:工資差異備份.bak' with FILE=1“ MsgBox ”數據恢復已經完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Form_Load(Set Cn = New ADODB.Connection strcon = ”Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=true;Initial Catalog=工資;Data Source=(local;“ + _ ”use procedure for prepare=1;auto translate=true;“ + _ ”use encryption for data=false;tag with column collation when possible=false“ Cn.ConnectionString = strcon On Error Resume Next Cn.Open If Cn.Errors.Count > 0 Then For i = 0 To Cn.Errors.Count-1 If Cn.Errors(i.Number =-2147467259 Then MsgBox ”網絡不通或服務器未開，請確認后再試“, vbOKOnly + vbInformation, ”提醒" Unload Me
Exit Sub Exit For End If Next i End If End Sub
3、設計體會
在數據庫課程開課之前我就下決心要學好這一門課，因為這是我的專業課，我一開始就謹慎小心，爭取每一個細節都做得很好。現在終于是完成了，我的設計體會如下：
小心謹慎是關鍵，因為做程序關鍵就是寫代碼，每一個字母都要很小心輸入，若是不小心錯了一個，就會帶來龐大的“查錯工程”，不過從我檢查錯誤當中也學會了一些檢查的方法，比如設置中斷點，可以觀查每一個變量的當前值，很有效的。
小心是一個方面，另一個是怎么樣讓程序最人性化，并且保持較簡潔的程序代碼，通俗說就是事半功倍。有很多時間我是花在了調試程序方面，一部分是在找錯誤，還有就是怎么用最簡練的代碼實現當前的作用。其中絕大多數都是自己寫的代碼，只有在自己不會的時候才借鑒了指導老師發下來的那個示例作品的代碼。
我的程序大多數是我自己寫的，但是自己的知識和水平都十分有限，所以會經常去查看書或者在網上尋找資料，通過看書、看資料，我改進了自己的不足，也學會的很多新的作程序方法，都是十分有用的。
在一個體會就是做程序要有對全局和面的分析能力，老師告訴我好多設計中不曾想到的東西，比如數據表建立的不完美，用戶權限應該分開等。做什么事都是一樣的，具體體現在了這次的數據庫課程設計上來，讓我學到了很多東西。就像要完成一個很大的工作，要先從小的部分做起，不能急于求成，細心謹慎才是關鍵，堅持不懈，最后再把這些小的窗體在連接起來，就構成了一個整體。
只有實踐真正動手做了才會真正了解，在不斷的學習和實踐中體會到更多的經驗。
第三篇：基于VFP職工工資管理系統 王忠概要
山西大學繼續教育學院 畢 業 論 文 類 別 專 科 年 級 2006 級
專 業 計算機與信息管理 姓 名 王 忠 學 號 06418538038 論文題目 基于vfp 的職工 工資管理系統 論 文 評 語 建議成績 指導老師 年 月 日 目 錄
摘要???????????????????????????4 1 本課題的研究意義 1．1目的???????????????????????5 1．2內容???????????????????????5
1．3軟件???????????????????????5 2 編程設計基礎 ?????????????????????6 3 系統設計 ???????????????????????8
3．1系統目標設計 ??????????????????8 3.2面向對象系統開發方法???????????????8 3．3開發設計思想???????????????????8 3．4系統功能分析???????????????????9
3．5系統功能模塊設計?????????????????9 4 軟件的開發??????????????????????10 4、1數據庫需求分析 ?????????????????10 4、2數據庫概念結構設計 ???????????????12 結束語 ?????????????????????????21 參考資料 ????????????????????????22
摘 要
本系統為工資管理系統。采用的開發工具是 MicroSoft Visual Foxpro 6.0。工資管理是公司管理的一個重要內容。隨著企業人員數量增加，企業的工資管理工作也變得越來越復雜。工資管理既涉及到企業勞動人事的管理，同時也是企業財務管理的重要組成部分。系統能夠提供對工資信息進行輸入、查詢、編輯以及對工資發放各明細項目的數據編輯，自動計算出工資發放各項合計數據；增強了對復雜性工資的可維護性, 并可自主設定條件從而達到對工資數據的多角度查詢功能；計算工資結果通過四個基本表格進行關聯包括員工信息、基本工資、崗位工資、工齡工資等，工資項目及工資計算公式可以自由設定，充分發揮它的靈活性和可維戶性，從而擺脫了過去繁重人工計算工資，大大降低了手工作帳的錯誤率，錄入修改方便快捷。提供方便而又強大的工資查詢及工資分析系統，工資打印可以有多種紙張格式提供選擇。實現了財務部門對本單位工資發放系統的集中管理，保證了系統的安全性。支持運行的環境：Microsoft Window98/2000/XP 【關鍵詞】工資管理 查詢 瀏覽 Visual Foxpro
企業部門及工作崗位信息。包括的數據庫項有部門名稱、工作崗位、工資等。工齡的工資金額。包括的數據庫項有工齡及對應工資額。工資信息。包含的數據項有員工號、員工姓名、基礎工資、崗位工資、工齡工資、實得工資。
數據流程圖
通過流程圖我們可以很清晰的看到員工工資的計算及總體情況4、2數據庫概念結構設計
根據上面的設計規劃出的實體有：員工實體、員工工資實體、工資等級實體、部門崗位實體、工齡實體，公司福利實體。E ——R 圖如下：
4.3 有了數據庫的支持，我們就可以進行系統的初步建設了，首先是建立項目管理器，如下圖所示：
在項目管理器中新建一個表單，名稱為人事工資管理系統，如下圖所 示：
只有一個界面是不行的，那么我們看到表單中有2個按鈕，進入系統和退出系統，要實現它們的功能就需要對它們進行設置。首先是進入系統的設置，對它的代碼設置是 “do 菜單1.mpr release thisform”
do 菜單1.mpr 是運行菜單項，具體什么菜單我們下面介紹 release thisform是釋放當前表單，也就是關閉人事工資管理系統
這個表單
退出系統的代碼則是 release thisform 釋放此表單 4.4 建立菜單欄 在項目管理器中建立一個菜單，如下
要求：菜單中包括職工信息，工資設定，工資匯總，工資查詢和退出 職工信息中 還包括瀏覽，編譯，查詢等選項
類似 工資設定中 還包括了基本工資，崗位工資，工齡工資 這樣 程序運行的時候就到了do 菜單1.mpr，此時的系統界面是這樣的
4.5表的建立
任何程序都少不了表的支持，沒有數據庫，添加，刪除等操作幾乎無法實現，我們首先建一個員工信息表，ygxx
其具體設置如上 然后錄入員工的基本信息 再建員工的基本工資表 jbgz 只要設置如下
繼續建立員工的崗位工資表和工齡工資表
到此，程序有了一個很好的開始，也可以說，這個小程序開始顯露生機，下面我們要做的就是完善它的功能。4.6 瀏覽職工信息
工資管理軟件就要知道職工的基本信息，年齡，性別，工齡，在什么崗位工作，是屬于什么工種，這些都為工資的結算提供了很好的幫助。我們需要再建立一個表單，類型如下：
我們可以很清楚的看到職工的基本信息，職工號，崗位，姓名，性別，工齡，工資等級，這些基本信息對于工資的定位和發放有很好的幫助
那怎么實現職工信息的瀏覽呢，我們看到右邊有5個按鈕，這些按鈕就是控制瀏覽職工信息的指揮棒，我們先看以下“首行”里面的代碼 go top
This.enabled=.f.ThisForm.Command2.enabled=.f.ThisForm.Command3.enabled=.t.ThisForm.Command4.enabled=.t.thisform.refresh 在這些代碼中 go top 是控制信息到
山西大學繼續教育學院畢業論文 參考資料： 參考資料： [1] Visual FoxPro 6.0 程序設計指南 清華大學出版社 吳迪 呂蒙著 [2] 高等院校程序設計規劃教材 Visual FoxPro 6.0 實訓清華大學出版社 鄭阿 奇 主編 [3] Visual FoxPro 數據庫與程序設計 北京工業大學出版社 主編 李英杰 劉利 軍 [4] Visual FoxPro 數據庫原理與應用 西安電子科技大學出版社 主編 胡曉燕
第四篇：工資管理系統實驗報告
信 息 系 統 設 計 與 開 發
系統名稱：工資管理系統
開發人員：薛靖峰
學號：1009034122
專業：信息管理與信息系統
（1）編寫目的隨著社會的發展，中國的中小型企業越來越多，而對企業而言，人力資源是企業最寶貴的資源,也是企業的“生命線”。工資管理又是人力資源管理的重中之重。實行電子化智能化的工資管理，可以讓人力資源管理人員從繁重瑣碎的案頭工作解脫出來,去完成更重要的工作。實現企業更大的工作效益和利潤。提高工作效率，減少人力；節省開支；先前人工勞動的自動化；針對使用企業與人群為中小型的管理者。
（2）背景
借助現代信息技術和管理理論,建立企業管理信息系統是當今社會的重要趨勢，企業要在當今激烈的社會競爭中生存并發展，單靠人工或九十年代的手動，機械化操作是不夠的，社會的發展，要求企業要跟上時代的步伐，抓住新時代的新科技的機遇，運用自動化，智能化的電腦管理，實現企業的高效益發展，這其中，企業員工的工資管理，對一個企業起著很關鍵的作用。因此開發一個能自動化的管理企業員工工資的發放，員工內部信息的管理，企業招聘的管理等功能的系統，對一個企業的發展鋪上了一條奔向高速發展的道路。在一個企業中，工資管理是一項瑣碎、復雜而又十分細致的工作，工資計算、發放、核算的工作量很大，一般不允許出錯，如果實行手工操作，每月發放工資須手工填制大量的表格，這就會耗費工作人員大量的時間和精力，計算機進行工資發放工作，不僅能夠保證工資核算準確無誤、快速輸出，而且還可以利用計算機對有關工資的各種信息進行統計，服務于財務部門其他方面的核算和財務處理，同時計算機具有著手工管理所無法比擬的優點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優點能夠極大地提高人事工資資管理的效率,也是企業的科學化、正規化管理,與世界接軌的重要條件。
2、可行性研究的前提
（1）要求
①主要功能：為企業提供工資管理的軟件，方便公司進行準確的工資管理。
②性能要求：可以準確登記出勤率以及一些特殊的影響工資的因素，工資的計算及發放等，可以以不同的方式查詢工資情況。最重要的是準確。
③輸入要求：數據完整、準確，真實。
④輸出要求：簡潔、快速、實時、可以打印相關的報表，提供一定的視圖。
⑤安全與保密要求：本系統的管理員要對該管理系統的安全負責，系統由特定人員修改及進行更新，計算等功能實現。職工只有查詢的權利，不能對其中的數據進行修改。上級管理者可以利用視圖進行查看，或是打印報表。（2）目標
系統實現后，大大地提高職工工資 管理系統的運行效率，可以減少由人為而導致的紀錄及運算錯誤。可以對某些特殊工資的界定條件進行設定保護，使公司更好的運行。（3）評價尺度：
成本效益分析結果，效益大于成本，技術可行，效益小于成本，技術不可行，現有技術可完全承擔開發任務，操作可行，軟件可被原工作人員快速接受。(4)
1、管理上的可行性分析 隨著市場近幾年的發展，公司規模的不斷擴大，業務的擴張，為了提高企業的業務水平，為企業簡化人事管理，提高商品庫存效率，增加公司的業績。在管理方面已經積累了豐富的管理經驗與方法，并建立的成熟的管理制度、齊全的規章制度匯集了正確的原始數據，使管理工作有了制度支持與信息支持。特別是，能夠改進企業管理機制，改善決策方式，減少管理成本，提高工作效率。領導的支持對于信息系統的開發和實施有很大作用，也能保證系統在開發過程中妥善解決矛盾，在企業上下順利實施信息系統，實現信息系統最初的目標。
2、技術上的可行性
隨著IT技術的發展，特別是網絡技術和數據庫技術的發展，在軟件開發方面，可以采用現行主流的開發技術；硬件技術方面則可以充分利用日益增強的存儲能力、通訊能力和處理速度來保證系統開發技術的準備。由此可見，該系統在技術上具有可行性。
3、經濟上的可行性
對于信息系統的初期投資，都是為了以后獲得更大的經濟效益。通過一定的成本、效益分析，我認為開發這個系統在經濟上是可行的。因為雖然系統開發需要初始成本和日后的維護費用，但是，信息系統可以提供比以前更加準確和及時的信息，可以改善領導層的決策方式，促進故那里體制改革和提高工作效率，減少人員費用，這些都是可以在以后的管理過程中體現出來的，并且可以令公司比其他競爭對手更加具有競爭優勢，對企業長遠的發展有不可忽視的作用。所以，經濟上的可行性是肯定的。
4、可行性分析結論
在對系統目標和環境進行分析的基礎上，更進一步對系統的技術可行性、經濟可行性、營運可行性等方面進行系統的可行性分析研究：
二、組織機構圖
三、業務流程圖
四、功能結構圖
五、數據流程圖
1.第一層數據流程圖
2.第二層數據流程圖
六、數據字典
（1）數據流 數據流編號：D01-03 數據流名：出勤情況
簡要說明：每月員工出勤統計情況 數據流來源：人事部
數據流去向：工資信息設置處理
數據流組成：考勤統計時間+出勤天數+遲到早退次數+曠工次數+正常加班次數+特殊加班次數+出差次數（2）數據存儲 數據存儲編號：F1 數據存儲名稱：月工資表 簡要說明：每月按部門的工資表 數據存儲來源：工資核算處理 數據存儲去向：工資查詢處理 數據存儲組成：工資統計時間+基本工資+職務津貼+獎金+福利+加班費+出差費+遲到早退扣發+曠工扣發+其他（3）處理邏輯 編號：P 01-1.2 處理邏輯的名稱：工資計算 簡述：計算本月所有部門員工工資
輸入數據流：基本工資，來自“工資信息設置”處理邏輯 其他項目，來自“工資信息設置”處理邏輯 效益工資，來自“工資信息設置”處理邏輯 出勤情況，來自“工資信息設置”處理邏輯
數據存儲組成：工資統計時間+基本工資+職務津貼+獎金+福利+加班費+出差費+遲到早退扣發+曠工扣發+其他
輸出的數據流：部門工資，去“月工資表”數據存儲 員工個人工資，去“工資單”數據存儲（4）外部實體 編號：S04 名稱：員工 簡述：本單位的員工 輸入的數據流：工資單 輸出的數據流：確認
七、E-R圖
八、對象關系圖
九、數據表詳情
1、工資表
2、職工表
3、財務表
十、系統截圖
系統分析報告
借助現代信息技術和管理理論,建立企業管理信息系統是當今社會的重要趨勢，企業要在當今激烈的社會競爭中生存并發展，單靠人工或九十年代的手動，機械化操作是不夠的，社會的發展，要求企業要跟上時代的步伐，抓住新時代的新科技的機遇，運用自動化，智能化的電腦管理，實現企業的高效益發展，這其中，企業員工的工資管理，對一個企業起著很關鍵的作用。因此開發一個能自動化的管理企業員工工資的發放，員工內部信息的管理，企業招聘的管理等功能的系統，對一個企業的發展鋪上了一條奔向高速發展的道路。在一個企業中，工資管理是一項瑣碎、復雜而又十分細致的工作，工資計算、發放、核算的工作量很大，一般不允許出錯，如果實行手工操作，每月發放工資須手工填制大量的表格，這就會耗費工作人員大量的時間和精力，計算機進行工資發放工作，不僅能夠保證工資核算準確無誤、快速輸出，而且還可以利用計算機對有關工資的各種信息進行統計，服務于財務部門其他方面的核算和財務處理，同時計算機具有著手工管理所無法比擬的優點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優點能夠極大地提高人事工資資管理的效率,也是企業的科學化、正規化管理,與世界接軌的重要條件。
1、系統的易用性和易維護性
工資信息管理系統是直接面對使用人員的，而使用人員往往對計算機并不時非常熟悉。這就要求系統能夠提供良好的用戶接口，易用的人機交互界面。要實現這一點，就要求系統應該盡量使用用戶熟悉的術語和中文信息的界面；針對用戶可能出現的使用問題，要提供足夠的在線幫助，縮短用戶對系統熟悉的過程。工資信息管理系統中涉及到的數據是企業的相當重要的信息，系統要提供方便的手段供系統維護人員進行數據的備份，日常的安全管理，系統意外崩潰時數據的恢復等工作。系統的標準性
系統在設計開發使用過程中都要涉及到很多計算機硬件、軟件。所有這些都要符合主流國際、國家和行業標準。例如在開發中使用的操作系統、網絡系統、開發工具都必須符合通用標準。如規范的數據庫操縱界面、作為業界標準的TCP/IP網絡協議及ISO9002標準所要求的質量規范等；同時，在自主開發本系統時，要進行良好的設計工作，制訂行之有效的軟件工程規范，保證代碼的易讀性、可操作性和可移植性。
3、系統的先進性
目前計算系統的技術發展相當快，做為員工信息管理系統工程，應該保證系統在下個世紀仍舊是先進的，在系統的生命周期盡量做到系統的先進，充分完成企業信息處理的要求而不至于落后。這一方面通過系統的開放性和可擴充性，不斷改善系統的功能完成。另一方面，在系統設計和開發的過程中，應在考慮成本的基礎上盡量采用當前主流并先進且有良好發展前途的產品。代碼設計：
添加用戶：
Private Sub cmdcancel_Click()
Unload Me
Exit Sub End Sub Private Sub cmdok_Click()
Dim sql As String
Dim rs As ADODB.Recordset
If Trim(username.Text)= “" Then
MsgBox ”請輸入用戶名稱“, vbOKOnly + vbExclamation, ”提示“
Exit Sub
username.SetFocus
Else
sql = ”select * from userinfo where userid='“ & username & ”'“
Set re = getrs(sql, ”salary“)
If re.EOF = False Then
MsgBox ”這個用戶已經存在，請重新輸入用戶名“, vbOKOnly + vbExclamation, ”提示“
username.SetFocus
username.Text = ”“
password.Text = ”“
confirmpwd.Text = ”“
Exit Sub
Else
If Trim(password.Text)<> Trim(confirmpwd.Text)Then
MsgBox ”兩次輸入密碼不一致，請重新輸入密碼“, vbOKOnly + vbExclamation, ”提示“
password.Text = ”“
confirmpwd.Text = ”“
password.SetFocus
Exit Sub
ElseIf Trim(password.Text)= ”“ Then
MsgBox ”密碼不能為空“, vbOKOnly + vbExclamation, ”提示“
password.Text = ”“
confirmpwd = ”“
password.SetFocus
Else
sql = ”insert into userinfo(userid,userpwd)values('“ & username
sql = sql & ”','“ & password & ”')“
Call transactsql(sql, ”salary“)
MsgBox ”添加成功“, vbOKOnly + vbExclamation, ”添加結果“
username.Text = ”“
password.Text = ”“
confirmpwd.Text = ”“
username.SetFocus
End If
End If
End If End Sub
Private Sub Form_Load()End Sub
出勤結果：
Option Explicit
Private Sub DataGrid1_Click()End Sub
Private Sub Form_Load()
Dim sql As String
Dim rs As New ADODB.Recordset
Dim sd As String
If strusername <> ”admin“ Then
sql = ”select sid from stuffinfo where sname='“ & strusername & ”'“
Set rs = getrs(sql, ”salary“)' sd = rs(0)
sql = ”select * from attendancestatistics where stuffid='“ & sd & ”'“
Me.Adodc1.ConnectionString =
”Provider=SQLOLEDB.1;Integrated Info=False;Initial Catalog=工資管理;Data Source=(local)“
Me.Adodc1.RecordSource = sql
Me.Adodc1.Refresh
Set Me.DataGrid1.DataSource = Me.Adodc1.Recordset
Me.DataGrid1.Refresh
Else
sql = ”select * from attendancestatistics“
Me.Adodc1.ConnectionString =
”Provider=SQLOLEDB.1;Integrated Info=False;Initial Catalog=工資管理;Data Source=(local)“
Me.Adodc1.RecordSource = sql
Me.Adodc1.Refresh
Set Me.DataGrid1.DataSource = Me.Adodc1.Recordset
Me.DataGrid1.Refresh
End If End Sub
Security=SSPI;Persist
Security=SSPI;Persist
Security
Security 基本工資設置 Option Explicit Private id As String Private Sub cmdcancel_Click()
Unload Me
Exit Sub End Sub Private Sub init()'
Me.composition.ListIndex = 0
Me.comstuffid.ListIndex = 0
Me.textmoney = ”“
Me.optionid.Value = True End Sub Private Sub addrecord()
'添加記錄
Dim sql As String
Dim rs As New ADODB.Recordset
sql = ”select * from salarysetting“
Set rs = getrs(sql, ”salary“)
rs.AddNew
rs.Fields(1)= Trim(id)
rs.Fields(2)= Trim(Me.composition.Text)
rs.Fields(3)= Trim(Me.textmoney)
rs.Update
rs.Close End Sub Private Sub cmdok_Click()
Dim sql As String
Dim rs As New ADODB.Recordset
If ichangeflag = 1 Then
If Me.optionid.Value = True Then
If Me.comstuffid.Text = ”“ Then
MsgBox ”請選擇員工編號“, vbOKOnly + vbExclamation, ”提示“
ElseIf IsEmpty(Me.textmoney)= True Then
MsgBox ”請輸入基本工資“, vbOKOnly + vbExclamation, ”提示“
Me.textmoney.SetFocus
ElseIf IsNumeric(Me.textmoney)= False Then
MsgBox ”請輸入數字“, vbOKOnly + vbExclamation, ”提示“
Me.textmoney = ”“
Me.textmoney.SetFocus
Else
sql = ”select * from salarysetting where stuffid='“ & Me.comstuffid.Text & ”'“
Set rs = getrs(sql, ”salary“)
If rs.EOF = False Then
sql = ”delete from salarysetting where stuffid='“ & Me.comstuffid.Text & ”'“
Call transactsql(sql, ”salary“)
End If
rs.Close
id = Me.comstuffid.Text
Call addrecord
MsgBox ”已經設置基本工資“, vbOKOnly + vbExclamation, ”添加結果“
Call init
sql = ”select * from salarysetting“
Call frmresult.basictopic
Call frmresult.showbasic(sql)
frmresult.Show
frmresult.ZOrder 0
Me.ZOrder 0
End If
End If
If Me.optionposition.Value = True Then
If Me.composition.Text = ”“ Then
MsgBox ”請輸入職務“, vbOKOnly + vbExclamation, ”提示“
ElseIf IsEmpty(Me.textmoney)= True Then
MsgBox ”請輸入基本工資“, vbOKOnly + vbExclamation, ”提示“
Me.textmoney.SetFocus
ElseIf IsNumeric(Me.textmoney)= False Then
MsgBox ”請輸入數字“, vbOKOnly + vbExclamation, ”提示“
Me.textmoney = ”“
Me.textmoney.SetFocus
Else
sql = ”select * from salarysetting where sposition ='“ & Me.composition.Text & ”'“
Set rs = getrs(sql, ”salary“)
If rs.EOF = False Then
sql = ”delete from salarysetting where sposition ='“ & Me.composition.Text & ”'“
Call transactsql(sql, ”salary“)
End If
rs.Close
sql = ”select * from salarysetting where sposition ='“ & Me.composition.Text & ”'“
Set rs = getrs(sql, ”salary“)
While Not rs.EOF
id = rs(0)
Call addrecord
rs.MoveNext
Wend
rs.Close
MsgBox ”已經設置基本工資“, vbOKOnly + vbExclamation, ”添加結果“
Call init
sql = ”select * from salarysetting“
Call frmresult.basictopic
Call frmresult.showbasic(sql)
frmresult.Show
frmresult.ZOrder 0
Me.ZOrder 0
End If
End If
Else
sql = ”update salarysetting set salary=“ & Me.textmoney & ” where stuffid='“
sql = sql & Me.comstuffid & ”'“
Call transactsql(sql, ”salary“)
MsgBox ”已經修改基本工資設置“, vbOKOnly + vbExclamation, ”提示“
Unload Me
sql = ”select * from salarysetting“
Call frmresult.basictopic
Call frmresult.showbasic(sql)
frmresult.Show
frmresult.ZOrder 0
Call frmsumsalary.resumsalary(Date)
End If End Sub
Private Sub Form_Load()
Dim sql As String
Dim rs As New ADODB.Recordset
If ichangeflag = 1 Then
'添加信息
sql = ”select sid from stuffinfo order by sid“
Set rs = getrs(sql, ”salary“)
If rs.EOF = False Then
While Not rs.EOF
Me.comstuffid.AddItem rs(0)
rs.MoveNext
Wend
rs.Close
Me.comstuffid.ListIndex = 0
End If
sql = ”select distinct sposition from salarysetting“
Set rs = getrs(sql, ”salary“)If rs.EOF = False Then
While Not rs.EOF
Me.composition.AddItem rs(0)
rs.MoveNext
Wend
rs.Close
Me.composition.ListIndex = 0 End If
Me.optionid.Value = True
Else
'修改信息
Me.Caption = ”修改基本工資設置“
Set rs = getrs(strpublicsql, ”salary“)
Me.comstuffid.Text = rs(1)
Me.composition.Text = rs(2)
Me.textmoney = rs(3)
Me.comstuffid.Enabled = False
Me.composition.Enabled = False
rs.Close
End If End Sub
修改密碼：
Private Sub cmdcancel_Click()
Unload Me
Exit Sub End Sub Private Sub cmdok_Click()
Dim sql As String
Dim rs As ADODB.Recordset
If Trim(oldpwd.Text)= ”“ Then
MsgBox ”請輸入舊密碼“, vbOKOnly + vbExclamation, ”提示“
oldpwd.SetFocus
Exit Sub
Else
If Trim(oldpwd.Text)<> Trim(userpassword)Then
MsgBox ”舊密碼與登錄的密碼不同，請重新輸入！“, vbOKOnly + vbExclamation, ”提示“
oldpwd.Text = ”“
oldpwd.SetFocus
ElseIf Trim(newpwd.Text)= ”“ Then
MsgBox ”請輸入新密碼“, vbOKOnly + vbExclamation, ”提示“
newpwd.SetFocus
Exit Sub
ElseIf Trim(newpwd.Text)<> Trim(confirmpwd.Text)Then
MsgBox ”兩次密碼不同“, vbOKOnly + vbExclamation, ”警告“
newpwd.Text = ”“
confirmpwd.Text = ”“
newpwd.SetFocus
Else
userpassword = newpwd
sql = ”update userinfo set userpwd='“ & newpwd & ”'where userid='“ & strusername & ”'“
Call transactsql(sql, ”salary“)
MsgBox ”密碼已經修改“, vbOKOnly + vbExclamation, ”修改結果“
Unload Me
End If
End If End Sub
Private Sub oldpwd_Change()End Sub 公式設置
Private Sub cmdcancel_Click()
Unload Me
Exit Sub End Sub Private Sub cmddefault_Click()
Me.textovertimecom = 200
Me.textovertimespe = 400
Me.texterrand = 200
Me.textabsent = 50
Me.textle = 20
Call setvalue End Sub Private Sub cmdok_Click()
If Me.textovertimecom = ”“ And IsNumeric(Me.textovertimecom)= True Then
MsgBox ”請輸入正常加班工資百分比“, vbOKOnly + vbExclamation, ”提示“
Me.textovertimecom = ”“
Me.textovertimecom.SetFocus
ElseIf Me.textovertimespe = ”“ And IsNumeric(Me.textovertimespe)= False Then
MsgBox ”請輸入特殊加班工資百分比“, vbOKOnly + vbExclamation, ”提示“
Me.textovertimespe = ”“
Me.textovertimespe.SetFocus
ElseIf Me.texterrand = ”“ And IsNumeric(Me.texterrand)= False Then
MsgBox ”請輸入出差工資“, vbOKOnly + vbExclamation, ”提示“
Me.texterrand = ”“
Me.texterrand.SetFocus
ElseIf Me.textabsent = ”“ And IsNumeric(Me.textabsent)= False Then
MsgBox ”請輸入曠工扣發工資“, vbOKOnly + vbExclamation, ”提示“
Me.textabsent = ”“
Me.textabsent.SetFocus
ElseIf Me.textle = ”“ And IsNumeric(Me.textle)= False Then
MsgBox ”請輸入遲到早退扣發工資“, vbOKOnly + vbExclamation, ”提示“
Me.textle = ”“
Me.textle.SetFocus
Else
Call setvalue
Call init
End If End Sub Private Sub setvalue()
Dim sql As String
Dim rs As New ADODB.Recordset
sql = ”select * from formulasetting“
Set rs = getrs(sql, ”salary“)
If rs.EOF = False Then
sql = ”delete from formulasetting“
Call transactsql(sql, ”salary“)
End If
rs.AddNew
rs.Fields(0)= Me.textovertimecom
rs.Fields(1)= Me.textovertimespe
rs.Fields(2)= Me.texterrand
rs.Fields(3)= Me.textabsent
rs.Fields(4)= Me.textle
rs.Update
rs.Close
MsgBox ”已經設置公式“, vbOKOnly + vbExclamation, ”設置結果“ End Sub Private Sub init()
'初始化
Me.textabsent = ”“
Me.texterrand = ”“
Me.textovertimecom = ”“
Me.textovertimespe = ”“
Me.textle = ”"
Me.textovertimecom.SetFocus End Sub
第五篇：ASP2057人事工資管理系統
人事工資管理系統
摘要
人事工資管理系統是企業內部用以管理人事檔案和工資等信息的實用性軟件。用它代替企業傳統的手工管理方式，大大提高了工作效率和安全性，提高了信息處理的速度和準確性，節省了工作人員的時間和精力，使企業人事管理和工資管理系統化、科學化、規范化和自動化。是現代企業必不可少的管理工具。
本系統采用ASP語言和Access數據庫開發而成，包括職工管理、檔案管理、考勤管理、工資管理等模塊，并將工資計算與考勤、獎懲相關聯，生成較合理的薪酬管理體制，以產生有效的激勵機制。同時系統設置了一些必要的輔助功能，比如對員工合同到期提醒和生日提醒等功能，有助于鞏固企業與員工的心理契約，促進員工積極向上，向公司靠攏。系統能夠實現數據的錄入、插入、刪除、查詢、統計、更新等功能，能滿足企業職工管理方面的基本要求。
關鍵詞：ASP；Access；數據庫；人事；工資
目錄 引言......................................................錯誤！未定義書簽。
1.1 系統開發背景........................................錯誤！未定義書簽。1.2 系統研究意義........................................錯誤！未定義書簽。1.3 系統研究方法........................................錯誤！未定義書簽。2 系統需求分析..............................................錯誤！未定義書簽。
2.1可行性分析..........................................錯誤！未定義書簽。
2.1.1可行性分析....................................錯誤！未定義書簽。2.1.2 經濟可行性....................................錯誤！未定義書簽。2.1.3 操作可行性....................................錯誤！未定義書簽。2.2 系統目標............................................錯誤！未定義書簽。2.3 系統功能需求分析....................................錯誤！未定義書簽。3 數據庫設計................................................錯誤！未定義書簽。
3.1 數據庫表簡介........................................錯誤！未定義書簽。3.2 數據庫結構設計......................................錯誤！未定義書簽。3.3 數據庫連接文件......................................錯誤！未定義書簽。4 系統功能模塊詳細設計及實現.................................................2 4.1 模塊設計.............................................................2 4.2 功能模塊的說明.......................................................3 4.3 系統界面的設計......................................錯誤！未定義書簽。
4.3.1 系統登錄界面的設計............................錯誤！未定義書簽。4.3.2 系統主界面的設計...............................................3 4.3.3 系統各模塊界面的設計...........................................4 5 系統評價..................................................錯誤！未定義書簽。
5.1 系統的特點..........................................錯誤！未定義書簽。5.2 系統的缺點..........................................錯誤！未定義書簽。5.3 將來可能提出的要求..................................錯誤！未定義書簽。結 論....................................................錯誤！未定義書簽。參考文獻....................................................錯誤！未定義書簽。致 謝....................................................錯誤！未定義書簽。系統功能模塊詳細設計及實現
4.1 模塊設計
人事工資管理系統共包括以下七個功能模塊：職工管理模塊、考勤管理模塊、檔案管理模塊、工資管理模塊、事項記錄模塊、其他事記模塊、系統管理模塊。其中每個模塊又分為若干個小功能模塊。其系統功能模塊詳細關系如圖1所示：
圖1 系統模塊結構圖
4.2 功能模塊的說明
人事工資管理系統的七個功能模塊的詳細介紹如下：
1．職工管理模塊：實現用戶自由的信息錄入。結合人事變動完成本單位各類人員變動事宜，實時記錄人員進入單位后的所有變化信息。實現對員工信息靈活的查詢功能。
2．考勤管理模塊：將考勤數據按月輸入到系統中，系統將記錄所有請假、礦工、遲到、早退等數據，并進行自動統計和匯總。
3．檔案管理模塊：提供全部人員記錄，用以記錄和查看人員相關信息。4．工資管理模塊：實現對基本工資的管理，每月可以計算和修改工資數據，記錄工資發放日期。
5．事項記錄模塊：根據單位情況設立培訓、獎懲等事項記錄。
6．其它事記模塊：用于企業內部記錄單位的基本信息和員工生日等，促進員工團結一致、積極向上。
7．系統管理模塊：主要包括用戶登陸和安全退出系統。提供有效的用戶認證安全機制。
圖2 系統登錄頁面
打
4.3.2 系統主界面的設計
通過用戶驗證后，進入人事工資管理系統的主頁面。系統的主頁面是由一個“T”字形結構的框架頁面構成，它將該頁面分成頂部系統名稱顯示頁面、下面左側菜單頁面和右面主顯示頁面。
其中菜單頁是該頁面的主題部分，實現了菜單的分類分級顯示，主菜單項從上往下排成一列,平時子菜單是隱藏的,單擊某一主菜單項時將展開它的所有子菜單項，同時其他主菜單項的子菜單項將緊縮回去。其界面如圖3 所示：
圖3 菜單界面。
4.3.3 系統各模塊界面的設計
由于系統模塊較多,下面將只介紹部分模塊的詳細設計：
（一）職工管理模塊：本模塊根據搜索內容和方式分為按部門查看員工和離職員工查看兩部分。其中按部門查看員工的界面如圖4所示：
圖4 據部門查看員工頁面
圖5 新增員工頁面
（三）工資管理模塊：工資管理模塊包括員工工資的計算、工資按月統計和發放領取情況。員工工資計算頁面如圖6所示：
圖6 工資計算頁面
圖7 工資統計頁面
圖8 工資領取頁面
（四）考勤管理模塊：
圖9 考勤記錄頁面
圖10 考勤按月統計頁面
Powered by 計算機畢業論文網http://www.tmdps.cn http:// www.tmdps.cn
點擊咨詢 