工資管理系統(tǒng)實驗報告

1、精選優(yōu)質(zhì)文檔-傾情為你奉上信息系統(tǒng)設(shè)計與開發(fā) 系統(tǒng)名稱：工資管理系統(tǒng) 開發(fā)人員：薛靖峰 學(xué)號： 專業(yè)：信息管理與信息系統(tǒng) （1）編寫目的 隨著社會的發(fā)展，中國的中小型企業(yè)越來越多，而對企業(yè)而言，人力資源是企業(yè)最寶貴的資源,也是企業(yè)的“生命線”。工資管理又是人力資源管理的重中之重。實行電子化智能化的工資管理，可以讓人力資源管理人員從繁重瑣碎的案頭工作解脫出來,去完成更重要的工作 。實現(xiàn)企業(yè)更大的工作效益和利潤。提高工作效率，減少人力；節(jié)省開支；先前人工勞動的自動化；針對使用企業(yè)與人群為中小型的管理者。 （2）背景借助現(xiàn)代信息技術(shù)和管理理論,建立企業(yè)管理信息系統(tǒng)是當(dāng)今社會的重要趨勢，企業(yè)要在當(dāng)今激

2、烈的社會競爭中生存并發(fā)展，單靠人工或九十年代的手動，機械化操作是不夠的，社會的發(fā)展，要求企業(yè)要跟上時代的步伐，抓住新時代的新科技的機遇，運用自動化，智能化的電腦管理，實現(xiàn)企業(yè)的高效益發(fā)展，這其中，企業(yè)員工的工資管理，對一個企業(yè)起著很關(guān)鍵的作用。因此開發(fā)一個能自動化的管理企業(yè)員工工資的發(fā)放，員工內(nèi)部信息的管理，企業(yè)招聘的管理等功能的系統(tǒng)，對一個企業(yè)的發(fā)展鋪上了一條奔向高速發(fā)展的道路。在一個企業(yè)中，工資管理是一項瑣碎、復(fù)雜而又十分細致的工作，工資計算、發(fā)放、核算的工作量很大，一般不允許出錯，如果實行手工操作，每月發(fā)放工資須手工填制大量的表格，這就會耗費工作人員大量的時間和精力，計算機進行工資發(fā)放工

3、作，不僅能夠保證工資核算準(zhǔn)確無誤、快速輸出，而且還可以利用計算機對有關(guān)工資的各種信息進行統(tǒng)計，服務(wù)于財務(wù)部門其他方面的核算和財務(wù)處理，同時計算機具有著手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高人事工資資管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。2、可行性研究的前提（1）要求主要功能：為企業(yè)提供工資管理的軟件，方便公司進行準(zhǔn)確的工資管理。性能要求：可以準(zhǔn)確登記出勤率以及一些特殊的影響工資的因素，工資的計算及發(fā)放等，可以以不同的方式查詢工資情況。最重要的是準(zhǔn)確。輸入要求：數(shù)據(jù)完整 、準(zhǔn)確，真實。輸

4、出要求：簡潔、快速、實時、可以打印相關(guān)的報表，提供一定的視圖。安全與保密要求：本系統(tǒng)的管理員要對該管理系統(tǒng)的安全負責(zé)，系統(tǒng)由特定人員修改及進行更新，計算等功能實現(xiàn)。職工只有查詢的權(quán)利，不能對其中的數(shù)據(jù)進行修改。上級管理者可以利用視圖進行查看，或是打印報表。（2）目標(biāo)系統(tǒng)實現(xiàn)后，大大地提高職工工資 管理系統(tǒng)的運行效率，可以減少由人為而導(dǎo)致的紀(jì)錄及運算錯誤?？梢詫δ承┨厥夤べY的界定條件進行設(shè)定保護，使公司更好的運行。（3）評價尺度：成本效益分析結(jié)果，效益大于成本，技術(shù)可行，效益小于成本，技術(shù)不可行，現(xiàn)有技術(shù)可完全承擔(dān)開發(fā)任務(wù)，操作可行，軟件可被原工作人員快速接受。(4)1、 管理上的可行性分析 隨

5、著市場近幾年的發(fā)展，公司規(guī)模的不斷擴大，業(yè)務(wù)的擴張，為了提高企業(yè)的業(yè)務(wù)水平，為企業(yè)簡化人事管理，提高商品庫存效率，增加公司的業(yè)績。在管理方面已經(jīng)積累了豐富的管理經(jīng)驗與方法，并建立的成熟的管理制度、齊全的規(guī)章制度匯集了正確的原始數(shù)據(jù)，使管理工作有了制度支持與信息支持。 特別是，能夠改進企業(yè)管理機制，改善決策方式，減少管理成本，提高工作效率。領(lǐng)導(dǎo)的支持對于信息系統(tǒng)的開發(fā)和實施有很大作用，也能保證系統(tǒng)在開發(fā)過程中妥善解決矛盾，在企業(yè)上下順利實施信息系統(tǒng)，實現(xiàn)信息系統(tǒng)最初的目標(biāo)。 2、 技術(shù)上的可行性 隨著IT技術(shù)的發(fā)展，特別是網(wǎng)絡(luò)技術(shù)和數(shù)據(jù)庫技術(shù)的發(fā)展，在軟件開發(fā)方面，可以采用現(xiàn)行主流的開發(fā)技術(shù)；硬

6、件技術(shù)方面則可以充分利用日益增強的存儲能力、通訊能力和處理速度來保證系統(tǒng)開發(fā)技術(shù)的準(zhǔn)備。由此可見，該系統(tǒng)在技術(shù)上具有可行性。 3、 經(jīng)濟上的可行性 對于信息系統(tǒng)的初期投資，都是為了以后獲得更大的經(jīng)濟效益。通過一定的成本、效益分析，我認為開發(fā)這個系統(tǒng)在經(jīng)濟上是可行的。因為雖然系統(tǒng)開發(fā)需要初始成本和日后的維護費用，但是，信息系統(tǒng)可以提供比以前更加準(zhǔn)確和及時的信息，可以改善領(lǐng)導(dǎo)層的決策方式，促進故那里體制改革和提高工作效率，減少人員費用，這些都是可以在以后的管理過程中體現(xiàn)出來的，并且可以令公司比其他競爭對手更加具有競爭優(yōu)勢，對企業(yè)長遠的發(fā)展有不可忽視的作用。所以，經(jīng)濟上的可行性是肯定的。 4、 可行

7、性分析結(jié)論 在對系統(tǒng)目標(biāo)和環(huán)境進行分析的基礎(chǔ)上，更進一步對系統(tǒng)的技術(shù)可行性、經(jīng)濟可行性、營運可行性等方面進行系統(tǒng)的可行性分析研究： 二、組織機構(gòu)圖 三、業(yè)務(wù)流程圖四、功能結(jié)構(gòu)圖 五、數(shù)據(jù)流程圖1.第一層數(shù)據(jù)流程圖2.第二層數(shù)據(jù)流程圖 六、數(shù)據(jù)字典（1）數(shù)據(jù)流 數(shù)據(jù)流編號：D01-03 數(shù)據(jù)流名：出勤情況 簡要說明：每月員工出勤統(tǒng)計情況 數(shù)據(jù)流來源：人事部 數(shù)據(jù)流去向：工資信息設(shè)置處理 數(shù)據(jù)流組成：考勤統(tǒng)計時間+出勤天數(shù)+遲到早退次數(shù)+曠工次數(shù)+正常加班次數(shù)+特殊加班次數(shù)+出差次數(shù) （2）數(shù)據(jù)存儲 數(shù)據(jù)存儲編號：F1 數(shù)據(jù)存儲名稱：月工資表 簡要說明：每月按部門的工資表 數(shù)據(jù)存儲來源：工資核算處

8、理 數(shù)據(jù)存儲去向：工資查詢處理 數(shù)據(jù)存儲組成：工資統(tǒng)計時間+基本工資+職務(wù)津貼+獎金+福利+加班費+出差費+遲到早退扣發(fā)+曠工扣發(fā)+其他 （3）處理邏輯 編號：P 01-1.2 處理邏輯的名稱：工資計算 簡述：計算本月所有部門員工工資 輸入數(shù)據(jù)流：基本工資，來自“工資信息設(shè)置”處理邏輯 其他項目，來自“工資信息設(shè)置”處理邏輯 效益工資，來自“工資信息設(shè)置”處理邏輯 出勤情況，來自“工資信息設(shè)置”處理邏輯 數(shù)據(jù)存儲組成：工資統(tǒng)計時間+基本工資+職務(wù)津貼+獎金+福利+加班費+出差費+遲到早退扣發(fā)+曠工扣發(fā)+其他 輸出的數(shù)據(jù)流：部門工資，去“月工資表”數(shù)據(jù)存儲 員工個人工資，去“工資單”數(shù)據(jù)存儲 （

9、4）外部實體 編號：S04 名稱：員工 簡述：本單位的員工 輸入的數(shù)據(jù)流：工資單 輸出的數(shù)據(jù)流：確認 七、E-R圖 八、對象關(guān)系圖 九、數(shù)據(jù)表詳情1、工資表2、職工表3、財務(wù)表 十、系統(tǒng)截圖 系統(tǒng)分析報告借助現(xiàn)代信息技術(shù)和管理理論,建立企業(yè)管理信息系統(tǒng)是當(dāng)今社會的重要趨勢，企業(yè)要在當(dāng)今激烈的社會競爭中生存并發(fā)展，單靠人工或九十年代的手動，機械化操作是不夠的，社會的發(fā)展，要求企業(yè)要跟上時代的步伐，抓住新時代的新科技的機遇，運用自動化，智能化的電腦管理，實現(xiàn)企業(yè)的高效益發(fā)展，這其中，企業(yè)員工的工資管理，對一個企業(yè)起著很關(guān)鍵的作用。因此開發(fā)一個能自動化的管理企業(yè)員工工資的發(fā)放，員工內(nèi)部信息的管理，企

10、業(yè)招聘的管理等功能的系統(tǒng)，對一個企業(yè)的發(fā)展鋪上了一條奔向高速發(fā)展的道路。在一個企業(yè)中，工資管理是一項瑣碎、復(fù)雜而又十分細致的工作，工資計算、發(fā)放、核算的工作量很大，一般不允許出錯，如果實行手工操作，每月發(fā)放工資須手工填制大量的表格，這就會耗費工作人員大量的時間和精力，計算機進行工資發(fā)放工作，不僅能夠保證工資核算準(zhǔn)確無誤、快速輸出，而且還可以利用計算機對有關(guān)工資的各種信息進行統(tǒng)計，服務(wù)于財務(wù)部門其他方面的核算和財務(wù)處理，同時計算機具有著手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高人事工資資管理的效率,也是企業(yè)的科學(xué)化、

11、正規(guī)化管理,與世界接軌的重要條件。1、系統(tǒng)的易用性和易維護性工資信息管理系統(tǒng)是直接面對使用人員的，而使用人員往往對計算機并不時非常熟悉。這就要求系統(tǒng)能夠提供良好的用戶接口，易用的人機交互界面。要實現(xiàn)這一點，就要求系統(tǒng)應(yīng)該盡量使用用戶熟悉的術(shù)語和中文信息的界面；針對用戶可能出現(xiàn)的使用問題，要提供足夠的在線幫助，縮短用戶對系統(tǒng)熟悉的過程。工資信息管理系統(tǒng)中涉及到的數(shù)據(jù)是企業(yè)的相當(dāng)重要的信息，系統(tǒng)要提供方便的手段供系統(tǒng)維護人員進行數(shù)據(jù)的備份，日常的安全管理，系統(tǒng)意外崩潰時數(shù)據(jù)的恢復(fù)等工作。系統(tǒng)的標(biāo)準(zhǔn)性系統(tǒng)在設(shè)計開發(fā)使用過程中都要涉及到很多計算機硬件、軟件。所有這些都要符合主流國際、國家和行業(yè)標(biāo)準(zhǔn)。例

12、如在開發(fā)中使用的操作系統(tǒng)、網(wǎng)絡(luò)系統(tǒng)、開發(fā)工具都必須符合通用標(biāo)準(zhǔn)。如規(guī)范的數(shù)據(jù)庫操縱界面、作為業(yè)界標(biāo)準(zhǔn)的TCP/IP網(wǎng)絡(luò)協(xié)議及ISO9002標(biāo)準(zhǔn)所要求的質(zhì)量規(guī)范等；同時，在自主開發(fā)本系統(tǒng)時，要進行良好的設(shè)計工作，制訂行之有效的軟件工程規(guī)范，保證代碼的易讀性、可操作性和可移植性。3、系統(tǒng)的先進性目前計算系統(tǒng)的技術(shù)發(fā)展相當(dāng)快，做為員工信息管理系統(tǒng)工程，應(yīng)該保證系統(tǒng)在下個世紀(jì)仍舊是先進的，在系統(tǒng)的生命周期盡量做到系統(tǒng)的先進，充分完成企業(yè)信息處理的要求而不至于落后。這一方面通過系統(tǒng)的開放性和可擴充性，不斷改善系統(tǒng)的功能完成。另一方面，在系統(tǒng)設(shè)計和開發(fā)的過程中，應(yīng)在考慮成本的基礎(chǔ)上盡量采用當(dāng)前主流并先進且

13、有良好發(fā)展前途的產(chǎn)品。代碼設(shè)計：添加用戶：Private Sub cmdcancel_Click() Unload Me Exit SubEnd SubPrivate 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 = &quo

14、t;select * from userinfo where userid='" & username & "'" Set re = getrs(sql, "salary") If re.EOF = False Then MsgBox "這個用戶已經(jīng)存在，請重新輸入用戶名", vbOKOnly + vbExclamation, "提示" username.SetFocus username.Text = "" password.Text = "

15、" 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.Te

16、xt) = "" Then MsgBox "密碼不能為空", vbOKOnly + vbExclamation, "提示" password.Text = "" confirmpwd = "" password.SetFocus Else sql = "insert into userinfo (userid,userpwd) values('" & username sql = sql & "','" &

17、password & "')" Call transactsql(sql, "salary") MsgBox "添加成功", vbOKOnly + vbExclamation, "添加結(jié)果" username.Text = "" password.Text = "" confirmpwd.Text = "" username.SetFocus End If End If End IfEnd SubPrivate Sub Form_Load(

18、)End Sub出勤結(jié)果：Option ExplicitPrivate Sub DataGrid1_Click()End SubPrivate 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 & "'&qu

19、ot; Set rs = getrs(sql, "salary")' sd = rs(0) sql = "select * from attendancestatistics where stuffid='" & sd & "'" Me.Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=工資管理;Data

20、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 Security=SSPI;Persist Security Info=F

21、alse;Initial Catalog=工資管理;Data Source=(local)" Me.Adodc1.RecordSource = sql Me.Adodc1.Refresh Set Me.DataGrid1.DataSource = Me.Adodc1.Recordset Me.DataGrid1.Refresh End IfEnd Sub基本工資設(shè)置Option ExplicitPrivate id As StringPrivate Sub cmdcancel_Click() Unload Me Exit SubEnd SubPrivate Sub init()

22、9; Mposition.ListIndex = 0 Mstuffid.ListIndex = 0 Me.textmoney = "" Me.optionid.Value = TrueEnd SubPrivate 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)

23、= Trim(id) rs.Fields(2) = Trim(Mposition.Text) rs.Fields(3) = Trim(Me.textmoney) rs.Update rs.CloseEnd SubPrivate Sub cmdok_Click() Dim sql As String Dim rs As New ADODB.Recordset If ichangeflag = 1 Then If Me.optionid.Value = True Then If Mstuffid.Text = "" Then MsgBox "請選擇員工編號"

24、, vbOKOnly + vbExclamation, "提示" ElseIf IsEmpty(Me.textmoney) = True Then MsgBox "請輸入基本工資", vbOKOnly + vbExclamation, "提示" Me.textmoney.SetFocus ElseIf IsNumeric(Me.textmoney) = False Then MsgBox "請輸入數(shù)字", vbOKOnly + vbExclamation, "提示" Me.textmoney =

25、 "" Me.textmoney.SetFocus Else sql = "select * from salarysetting where stuffid='" & Mstuffid.Text & "'" Set rs = getrs(sql, "salary") If rs.EOF = False Then sql = "delete from salarysetting where stuffid='" & Mstuffid.Text &a

26、mp; "'" Call transactsql(sql, "salary") End If rs.Close id = Mstuffid.Text Call addrecord MsgBox "已經(jīng)設(shè)置基本工資", vbOKOnly + vbExclamation, "添加結(jié)果" Call init sql = "select * from salarysetting" Call frmresult.basictopic Call frmresult.showbasic(sql) fr

27、mresult.Show frmresult.ZOrder 0 Me.ZOrder 0 End If End If If Me.optionposition.Value = True Then If Mposition.Text = "" Then MsgBox "請輸入職務(wù)", vbOKOnly + vbExclamation, "提示" ElseIf IsEmpty(Me.textmoney) = True Then MsgBox "請輸入基本工資", vbOKOnly + vbExclamation, &qu

28、ot;提示" Me.textmoney.SetFocus ElseIf IsNumeric(Me.textmoney) = False Then MsgBox "請輸入數(shù)字", vbOKOnly + vbExclamation, "提示" Me.textmoney = "" Me.textmoney.SetFocus Else sql = "select * from salarysetting where sposition ='" & Mposition.Text & &quo

29、t;'" Set rs = getrs(sql, "salary") If rs.EOF = False Then sql = "delete from salarysetting where sposition ='" & Mposition.Text & "'" Call transactsql(sql, "salary") End If rs.Close sql = "select * from salarysetting where spositi

30、on ='" & Mposition.Text & "'" Set rs = getrs(sql, "salary") While Not rs.EOF id = rs(0) Call addrecord rs.MoveNext Wend rs.Close MsgBox "已經(jīng)設(shè)置基本工資", vbOKOnly + vbExclamation, "添加結(jié)果" Call init sql = "select * from salarysetting" Ca

31、ll 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 & Mstuffid & "'" Call transactsql(sql, &

32、quot;salary") MsgBox "已經(jīng)修改基本工資設(shè)置", 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 IfEnd SubPrivate Sub Fo

33、rm_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 Mstuffid.AddItem rs(0) rs.MoveNext Wend rs.Close Mstuffid.ListIndex = 0

34、 End If sql = "select distinct sposition from salarysetting" Set rs = getrs(sql, "salary") If rs.EOF = False Then While Not rs.EOF Mposition.AddItem rs(0) rs.MoveNext Wend rs.Close Mposition.ListIndex = 0 End If Me.optionid.Value = True Else '修改信息 Me.Caption = "修改基本工資設(shè)置&

35、quot; Set rs = getrs(strpublicsql, "salary") Mstuffid.Text = rs(1) Mposition.Text = rs(2) Me.textmoney = rs(3) Mstuffid.Enabled = False Mposition.Enabled = False rs.Close End IfEnd Sub修改密碼：Private Sub cmdcancel_Click() Unload Me Exit SubEnd SubPrivate Sub cmdok_Click() Dim sql As String Di

36、m 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, "提示" old

37、pwd.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, "警告

38、" newpwd.Text = "" confirmpwd.Text = "" newpwd.SetFocus Else userpassword = newpwd sql = "update userinfo set userpwd='" & newpwd & "'where userid='" & strusername & "'" Call transactsql(sql, "salary") M

39、sgBox "密碼已經(jīng)修改", vbOKOnly + vbExclamation, "修改結(jié)果" Unload Me End If End IfEnd SubPrivate Sub oldpwd_Change()End Sub公式設(shè)置Private Sub cmdcancel_Click() Unload Me Exit SubEnd SubPrivate Sub cmddefault_Click() Me.textovertimecom = 200 Me.textovertimespe = 400 Me.texterrand = 200 Me.text

40、absent = 50 Me.textle = 20 Call setvalueEnd SubPrivate 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 =