第一篇：一個(gè)小公司的工資管理系統(tǒng)

問題的提出：編寫一個(gè)小公司的工資管理系統(tǒng)。該公司主要有4類人員：經(jīng)理、兼職技術(shù)人員、銷售員和銷售經(jīng)理。要求存儲(chǔ)并顯示每類人員的編號(hào)（從100起編號(hào)）、姓名和月薪，月薪計(jì)算方法為：經(jīng)理固定月薪8000元，同時(shí)根據(jù)項(xiàng)目的情況發(fā)放項(xiàng)目獎(jiǎng)金（項(xiàng)目總價(jià)的3%），兼職技術(shù)人員100元/小時(shí)，銷售員為完成當(dāng)月銷售額的4％為基礎(chǔ)，如果完成則發(fā)放底薪3000元，同時(shí)把完成部分的60%作為獎(jiǎng)勵(lì)（例如完成了月銷售額的8%，則把月銷售額8%其中的60%作為獎(jiǎng)金），如果沒有完成，則只發(fā)放底薪2800，銷售經(jīng)理保底工資5000元另加其所管部門銷售額的5％作為獎(jiǎng)金，如果當(dāng)月其部門沒有完成月銷售目標(biāo)，則扣發(fā)獎(jiǎng)金。要求用類和對(duì)象實(shí)現(xiàn)。

第二篇：工資管理系統(tǒng)實(shí)驗(yàn)報(bào)告

信 息 系 統(tǒng) 設(shè) 計(jì) 與 開 發(fā)

系統(tǒng)名稱：工資管理系統(tǒng)

開發(fā)人員：薛靖峰

學(xué)號(hào)：1009034122

專業(yè)：信息管理與信息系統(tǒng)

（1）編寫目的隨著社會(huì)的發(fā)展，中國的中小型企業(yè)越來越多，而對(duì)企業(yè)而言，人力資源是企業(yè)最寶貴的資源,也是企業(yè)的“生命線”。工資管理又是人力資源管理的重中之重。實(shí)行電子化智能化的工資管理，可以讓人力資源管理人員從繁重瑣碎的案頭工作解脫出來,去完成更重要的工作。實(shí)現(xiàn)企業(yè)更大的工作效益和利潤。提高工作效率，減少人力；節(jié)省開支；先前人工勞動(dòng)的自動(dòng)化；針對(duì)使用企業(yè)與人群為中小型的管理者。

（2）背景

借助現(xiàn)代信息技術(shù)和管理理論,建立企業(yè)管理信息系統(tǒng)是當(dāng)今社會(huì)的重要趨勢(shì)，企業(yè)要在當(dāng)今激烈的社會(huì)競(jìng)爭(zhēng)中生存并發(fā)展，單靠人工或九十年代的手動(dòng)，機(jī)械化操作是不夠的，社會(huì)的發(fā)展，要求企業(yè)要跟上時(shí)代的步伐，抓住新時(shí)代的新科技的機(jī)遇，運(yùn)用自動(dòng)化，智能化的電腦管理，實(shí)現(xiàn)企業(yè)的高效益發(fā)展，這其中，企業(yè)員工的工資管理，對(duì)一個(gè)企業(yè)起著很關(guān)鍵的作用。因此開發(fā)一個(gè)能自動(dòng)化的管理企業(yè)員工工資的發(fā)放，員工內(nèi)部信息的管理，企業(yè)招聘的管理等功能的系統(tǒng)，對(duì)一個(gè)企業(yè)的發(fā)展鋪上了一條奔向高速發(fā)展的道路。在一個(gè)企業(yè)中，工資管理是一項(xiàng)瑣碎、復(fù)雜而又十分細(xì)致的工作，工資計(jì)算、發(fā)放、核算的工作量很大，一般不允許出錯(cuò)，如果實(shí)行手工操作，每月發(fā)放工資須手工填制大量的表格，這就會(huì)耗費(fèi)工作人員大量的時(shí)間和精力，計(jì)算機(jī)進(jìn)行工資發(fā)放工作，不僅能夠保證工資核算準(zhǔn)確無誤、快速輸出，而且還可以利用計(jì)算機(jī)對(duì)有關(guān)工資的各種信息進(jìn)行統(tǒng)計(jì)，服務(wù)于財(cái)務(wù)部門其他方面的核算和財(cái)務(wù)處理，同時(shí)計(jì)算機(jī)具有著手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高人事工資資管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。

2、可行性研究的前提

（1）要求

①主要功能：為企業(yè)提供工資管理的軟件，方便公司進(jìn)行準(zhǔn)確的工資管理。

②性能要求：可以準(zhǔn)確登記出勤率以及一些特殊的影響工資的因素，工資的計(jì)算及發(fā)放等，可以以不同的方式查詢工資情況。最重要的是準(zhǔn)確。

③輸入要求：數(shù)據(jù)完整、準(zhǔn)確，真實(shí)。

④輸出要求：簡(jiǎn)潔、快速、實(shí)時(shí)、可以打印相關(guān)的報(bào)表，提供一定的視圖。

⑤安全與保密要求：本系統(tǒng)的管理員要對(duì)該管理系統(tǒng)的安全負(fù)責(zé)，系統(tǒng)由特定人員修改及進(jìn)行更新，計(jì)算等功能實(shí)現(xiàn)。職工只有查詢的權(quán)利，不能對(duì)其中的數(shù)據(jù)進(jìn)行修改。上級(jí)管理者可以利用視圖進(jìn)行查看，或是打印報(bào)表。（2）目標(biāo)

系統(tǒng)實(shí)現(xiàn)后，大大地提高職工工資 管理系統(tǒng)的運(yùn)行效率，可以減少由人為而導(dǎo)致的紀(jì)錄及運(yùn)算錯(cuò)誤。可以對(duì)某些特殊工資的界定條件進(jìn)行設(shè)定保護(hù)，使公司更好的運(yùn)行。（3）評(píng)價(jià)尺度：

成本效益分析結(jié)果，效益大于成本，技術(shù)可行，效益小于成本，技術(shù)不可行，現(xiàn)有技術(shù)可完全承擔(dān)開發(fā)任務(wù)，操作可行，軟件可被原工作人員快速接受。(4)

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

2、技術(shù)上的可行性

隨著IT技術(shù)的發(fā)展，特別是網(wǎng)絡(luò)技術(shù)和數(shù)據(jù)庫技術(shù)的發(fā)展，在軟件開發(fā)方面，可以采用現(xiàn)行主流的開發(fā)技術(shù)；硬件技術(shù)方面則可以充分利用日益增強(qiáng)的存儲(chǔ)能力、通訊能力和處理速度來保證系統(tǒng)開發(fā)技術(shù)的準(zhǔn)備。由此可見，該系統(tǒng)在技術(shù)上具有可行性。

3、經(jīng)濟(jì)上的可行性

對(duì)于信息系統(tǒng)的初期投資，都是為了以后獲得更大的經(jīng)濟(jì)效益。通過一定的成本、效益分析，我認(rèn)為開發(fā)這個(gè)系統(tǒng)在經(jīng)濟(jì)上是可行的。因?yàn)殡m然系統(tǒng)開發(fā)需要初始成本和日后的維護(hù)費(fèi)用，但是，信息系統(tǒng)可以提供比以前更加準(zhǔn)確和及時(shí)的信息，可以改善領(lǐng)導(dǎo)層的決策方式，促進(jìn)故那里體制改革和提高工作效率，減少人員費(fèi)用，這些都是可以在以后的管理過程中體現(xiàn)出來的，并且可以令公司比其他競(jìng)爭(zhēng)對(duì)手更加具有競(jìng)爭(zhēng)優(yōu)勢(shì)，對(duì)企業(yè)長遠(yuǎn)的發(fā)展有不可忽視的作用。所以，經(jīng)濟(jì)上的可行性是肯定的。

4、可行性分析結(jié)論

在對(duì)系統(tǒng)目標(biāo)和環(huán)境進(jìn)行分析的基礎(chǔ)上，更進(jìn)一步對(duì)系統(tǒng)的技術(shù)可行性、經(jīng)濟(jì)可行性、營運(yùn)可行性等方面進(jìn)行系統(tǒng)的可行性分析研究：

二、組織機(jī)構(gòu)圖

三、業(yè)務(wù)流程圖

四、功能結(jié)構(gòu)圖

五、數(shù)據(jù)流程圖

1.第一層數(shù)據(jù)流程圖

2.第二層數(shù)據(jù)流程圖

六、數(shù)據(jù)字典

（1）數(shù)據(jù)流 數(shù)據(jù)流編號(hào)：D01-03 數(shù)據(jù)流名：出勤情況

簡(jiǎn)要說明：每月員工出勤統(tǒng)計(jì)情況 數(shù)據(jù)流來源：人事部

數(shù)據(jù)流去向：工資信息設(shè)置處理

數(shù)據(jù)流組成：考勤統(tǒng)計(jì)時(shí)間+出勤天數(shù)+遲到早退次數(shù)+曠工次數(shù)+正常加班次數(shù)+特殊加班次數(shù)+出差次數(shù)（2）數(shù)據(jù)存儲(chǔ) 數(shù)據(jù)存儲(chǔ)編號(hào)：F1 數(shù)據(jù)存儲(chǔ)名稱：月工資表 簡(jiǎn)要說明：每月按部門的工資表 數(shù)據(jù)存儲(chǔ)來源：工資核算處理 數(shù)據(jù)存儲(chǔ)去向：工資查詢處理 數(shù)據(jù)存儲(chǔ)組成：工資統(tǒng)計(jì)時(shí)間+基本工資+職務(wù)津貼+獎(jiǎng)金+福利+加班費(fèi)+出差費(fèi)+遲到早退扣發(fā)+曠工扣發(fā)+其他（3）處理邏輯 編號(hào)：P 01-1.2 處理邏輯的名稱：工資計(jì)算 簡(jiǎn)述：計(jì)算本月所有部門員工工資

輸入數(shù)據(jù)流：基本工資，來自“工資信息設(shè)置”處理邏輯 其他項(xiàng)目，來自“工資信息設(shè)置”處理邏輯 效益工資，來自“工資信息設(shè)置”處理邏輯 出勤情況，來自“工資信息設(shè)置”處理邏輯

數(shù)據(jù)存儲(chǔ)組成：工資統(tǒng)計(jì)時(shí)間+基本工資+職務(wù)津貼+獎(jiǎng)金+福利+加班費(fèi)+出差費(fèi)+遲到早退扣發(fā)+曠工扣發(fā)+其他

輸出的數(shù)據(jù)流：部門工資，去“月工資表”數(shù)據(jù)存儲(chǔ) 員工個(gè)人工資，去“工資單”數(shù)據(jù)存儲(chǔ)（4）外部實(shí)體 編號(hào)：S04 名稱：?jiǎn)T工 簡(jiǎn)述：本單位的員工 輸入的數(shù)據(jù)流：工資單 輸出的數(shù)據(jù)流：確認(rèn)

七、E-R圖

八、對(duì)象關(guān)系圖

九、數(shù)據(jù)表詳情

1、工資表

2、職工表

3、財(cái)務(wù)表

十、系統(tǒng)截圖

系統(tǒng)分析報(bào)告

借助現(xiàn)代信息技術(shù)和管理理論,建立企業(yè)管理信息系統(tǒng)是當(dāng)今社會(huì)的重要趨勢(shì)，企業(yè)要在當(dāng)今激烈的社會(huì)競(jìng)爭(zhēng)中生存并發(fā)展，單靠人工或九十年代的手動(dòng)，機(jī)械化操作是不夠的，社會(huì)的發(fā)展，要求企業(yè)要跟上時(shí)代的步伐，抓住新時(shí)代的新科技的機(jī)遇，運(yùn)用自動(dòng)化，智能化的電腦管理，實(shí)現(xiàn)企業(yè)的高效益發(fā)展，這其中，企業(yè)員工的工資管理，對(duì)一個(gè)企業(yè)起著很關(guān)鍵的作用。因此開發(fā)一個(gè)能自動(dòng)化的管理企業(yè)員工工資的發(fā)放，員工內(nèi)部信息的管理，企業(yè)招聘的管理等功能的系統(tǒng)，對(duì)一個(gè)企業(yè)的發(fā)展鋪上了一條奔向高速發(fā)展的道路。在一個(gè)企業(yè)中，工資管理是一項(xiàng)瑣碎、復(fù)雜而又十分細(xì)致的工作，工資計(jì)算、發(fā)放、核算的工作量很大，一般不允許出錯(cuò)，如果實(shí)行手工操作，每月發(fā)放工資須手工填制大量的表格，這就會(huì)耗費(fèi)工作人員大量的時(shí)間和精力，計(jì)算機(jī)進(jìn)行工資發(fā)放工作，不僅能夠保證工資核算準(zhǔn)確無誤、快速輸出，而且還可以利用計(jì)算機(jī)對(duì)有關(guān)工資的各種信息進(jìn)行統(tǒng)計(jì)，服務(wù)于財(cái)務(wù)部門其他方面的核算和財(cái)務(wù)處理，同時(shí)計(jì)算機(jī)具有著手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高人事工資資管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。

1、系統(tǒng)的易用性和易維護(hù)性

工資信息管理系統(tǒng)是直接面對(duì)使用人員的，而使用人員往往對(duì)計(jì)算機(jī)并不時(shí)非常熟悉。這就要求系統(tǒng)能夠提供良好的用戶接口，易用的人機(jī)交互界面。要實(shí)現(xiàn)這一點(diǎn)，就要求系統(tǒng)應(yīng)該盡量使用用戶熟悉的術(shù)語和中文信息的界面；針對(duì)用戶可能出現(xiàn)的使用問題，要提供足夠的在線幫助，縮短用戶對(duì)系統(tǒng)熟悉的過程。工資信息管理系統(tǒng)中涉及到的數(shù)據(jù)是企業(yè)的相當(dāng)重要的信息，系統(tǒng)要提供方便的手段供系統(tǒng)維護(hù)人員進(jìn)行數(shù)據(jù)的備份，日常的安全管理，系統(tǒng)意外崩潰時(shí)數(shù)據(jù)的恢復(fù)等工作。系統(tǒng)的標(biāo)準(zhǔn)性

系統(tǒng)在設(shè)計(jì)開發(fā)使用過程中都要涉及到很多計(jì)算機(jī)硬件、軟件。所有這些都要符合主流國際、國家和行業(yè)標(biāo)準(zhǔn)。例如在開發(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ī)范等；同時(shí)，在自主開發(fā)本系統(tǒng)時(shí)，要進(jìn)行良好的設(shè)計(jì)工作，制訂行之有效的軟件工程規(guī)范，保證代碼的易讀性、可操作性和可移植性。

3、系統(tǒng)的先進(jìn)性

目前計(jì)算系統(tǒng)的技術(shù)發(fā)展相當(dāng)快，做為員工信息管理系統(tǒng)工程，應(yīng)該保證系統(tǒng)在下個(gè)世紀(jì)仍舊是先進(jìn)的，在系統(tǒng)的生命周期盡量做到系統(tǒng)的先進(jìn)，充分完成企業(yè)信息處理的要求而不至于落后。這一方面通過系統(tǒng)的開放性和可擴(kuò)充性，不斷改善系統(tǒng)的功能完成。另一方面，在系統(tǒng)設(shè)計(jì)和開發(fā)的過程中，應(yīng)在考慮成本的基礎(chǔ)上盡量采用當(dāng)前主流并先進(jìn)且有良好發(fā)展前途的產(chǎn)品。代碼設(shè)計(jì)：

添加用戶：

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 ”請(qǐng)輸入用戶名稱“, 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 ”這個(gè)用戶已經(jīng)存在，請(qǐng)重新輸入用戶名“, vbOKOnly + vbExclamation, ”提示“

username.SetFocus

username.Text = ”“

password.Text = ”“

confirmpwd.Text = ”“

Exit Sub

Else

If Trim(password.Text)<> Trim(confirmpwd.Text)Then

MsgBox ”兩次輸入密碼不一致，請(qǐng)重新輸入密碼“, 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, ”添加結(jié)果“

username.Text = ”“

password.Text = ”“

confirmpwd.Text = ”“

username.SetFocus

End If

End If

End If End Sub

Private Sub Form_Load()End Sub

出勤結(jié)果：

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 基本工資設(shè)置 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 ”請(qǐng)選擇員工編號(hào)“, vbOKOnly + vbExclamation, ”提示“

ElseIf IsEmpty(Me.textmoney)= True Then

MsgBox ”請(qǐng)輸入基本工資“, vbOKOnly + vbExclamation, ”提示“

Me.textmoney.SetFocus

ElseIf IsNumeric(Me.textmoney)= False Then

MsgBox ”請(qǐng)輸入數(shù)字“, 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 ”已經(jīng)設(shè)置基本工資“, vbOKOnly + vbExclamation, ”添加結(jié)果“

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 ”請(qǐng)輸入職務(wù)“, vbOKOnly + vbExclamation, ”提示“

ElseIf IsEmpty(Me.textmoney)= True Then

MsgBox ”請(qǐng)輸入基本工資“, vbOKOnly + vbExclamation, ”提示“

Me.textmoney.SetFocus

ElseIf IsNumeric(Me.textmoney)= False Then

MsgBox ”請(qǐng)輸入數(shù)字“, 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 ”已經(jīng)設(shè)置基本工資“, vbOKOnly + vbExclamation, ”添加結(jié)果“

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 ”已經(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 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 = ”修改基本工資設(shè)置“

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 ”請(qǐng)輸入舊密碼“, vbOKOnly + vbExclamation, ”提示“

oldpwd.SetFocus

Exit Sub

Else

If Trim(oldpwd.Text)<> Trim(userpassword)Then

MsgBox ”舊密碼與登錄的密碼不同，請(qǐng)重新輸入！“, vbOKOnly + vbExclamation, ”提示“

oldpwd.Text = ”“

oldpwd.SetFocus

ElseIf Trim(newpwd.Text)= ”“ Then

MsgBox ”請(qǐng)輸入新密碼“, 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 ”密碼已經(jīng)修改“, vbOKOnly + vbExclamation, ”修改結(jié)果“

Unload Me

End If

End If End Sub

Private Sub oldpwd_Change()End Sub 公式設(shè)置

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 ”請(qǐng)輸入正常加班工資百分比“, vbOKOnly + vbExclamation, ”提示“

Me.textovertimecom = ”“

Me.textovertimecom.SetFocus

ElseIf Me.textovertimespe = ”“ And IsNumeric(Me.textovertimespe)= False Then

MsgBox ”請(qǐng)輸入特殊加班工資百分比“, vbOKOnly + vbExclamation, ”提示“

Me.textovertimespe = ”“

Me.textovertimespe.SetFocus

ElseIf Me.texterrand = ”“ And IsNumeric(Me.texterrand)= False Then

MsgBox ”請(qǐng)輸入出差工資“, vbOKOnly + vbExclamation, ”提示“

Me.texterrand = ”“

Me.texterrand.SetFocus

ElseIf Me.textabsent = ”“ And IsNumeric(Me.textabsent)= False Then

MsgBox ”請(qǐng)輸入曠工扣發(fā)工資“, vbOKOnly + vbExclamation, ”提示“

Me.textabsent = ”“

Me.textabsent.SetFocus

ElseIf Me.textle = ”“ And IsNumeric(Me.textle)= False Then

MsgBox ”請(qǐng)輸入遲到早退扣發(fā)工資“, 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 ”已經(jīng)設(shè)置公式“, vbOKOnly + vbExclamation, ”設(shè)置結(jié)果“ End Sub Private Sub init()

'初始化

Me.textabsent = ”“

Me.texterrand = ”“

Me.textovertimecom = ”“

Me.textovertimespe = ”“

Me.textle = ”"

Me.textovertimecom.SetFocus End Sub

第三篇：ASP2057人事工資管理系統(tǒng)

人事工資管理系統(tǒng)

摘要

人事工資管理系統(tǒng)是企業(yè)內(nèi)部用以管理人事檔案和工資等信息的實(shí)用性軟件。用它代替企業(yè)傳統(tǒng)的手工管理方式，大大提高了工作效率和安全性，提高了信息處理的速度和準(zhǔn)確性，節(jié)省了工作人員的時(shí)間和精力，使企業(yè)人事管理和工資管理系統(tǒng)化、科學(xué)化、規(guī)范化和自動(dòng)化。是現(xiàn)代企業(yè)必不可少的管理工具。

本系統(tǒng)采用ASP語言和Access數(shù)據(jù)庫開發(fā)而成，包括職工管理、檔案管理、考勤管理、工資管理等模塊，并將工資計(jì)算與考勤、獎(jiǎng)懲相關(guān)聯(lián)，生成較合理的薪酬管理體制，以產(chǎn)生有效的激勵(lì)機(jī)制。同時(shí)系統(tǒng)設(shè)置了一些必要的輔助功能，比如對(duì)員工合同到期提醒和生日提醒等功能，有助于鞏固企業(yè)與員工的心理契約，促進(jìn)員工積極向上，向公司靠攏。系統(tǒng)能夠?qū)崿F(xiàn)數(shù)據(jù)的錄入、插入、刪除、查詢、統(tǒng)計(jì)、更新等功能，能滿足企業(yè)職工管理方面的基本要求。

關(guān)鍵詞：ASP；Access；數(shù)據(jù)庫；人事；工資

目錄 引言......................................................錯(cuò)誤！未定義書簽。

1.1 系統(tǒng)開發(fā)背景........................................錯(cuò)誤！未定義書簽。1.2 系統(tǒng)研究意義........................................錯(cuò)誤！未定義書簽。1.3 系統(tǒng)研究方法........................................錯(cuò)誤！未定義書簽。2 系統(tǒng)需求分析..............................................錯(cuò)誤！未定義書簽。

2.1可行性分析..........................................錯(cuò)誤！未定義書簽。

2.1.1可行性分析....................................錯(cuò)誤！未定義書簽。2.1.2 經(jīng)濟(jì)可行性....................................錯(cuò)誤！未定義書簽。2.1.3 操作可行性....................................錯(cuò)誤！未定義書簽。2.2 系統(tǒng)目標(biāo)............................................錯(cuò)誤！未定義書簽。2.3 系統(tǒng)功能需求分析....................................錯(cuò)誤！未定義書簽。3 數(shù)據(jù)庫設(shè)計(jì)................................................錯(cuò)誤！未定義書簽。

3.1 數(shù)據(jù)庫表簡(jiǎn)介........................................錯(cuò)誤！未定義書簽。3.2 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)......................................錯(cuò)誤！未定義書簽。3.3 數(shù)據(jù)庫連接文件......................................錯(cuò)誤！未定義書簽。4 系統(tǒng)功能模塊詳細(xì)設(shè)計(jì)及實(shí)現(xiàn).................................................2 4.1 模塊設(shè)計(jì).............................................................2 4.2 功能模塊的說明.......................................................3 4.3 系統(tǒng)界面的設(shè)計(jì)......................................錯(cuò)誤！未定義書簽。

4.3.1 系統(tǒng)登錄界面的設(shè)計(jì)............................錯(cuò)誤！未定義書簽。4.3.2 系統(tǒng)主界面的設(shè)計(jì)...............................................3 4.3.3 系統(tǒng)各模塊界面的設(shè)計(jì)...........................................4 5 系統(tǒng)評(píng)價(jià)..................................................錯(cuò)誤！未定義書簽。

5.1 系統(tǒng)的特點(diǎn)..........................................錯(cuò)誤！未定義書簽。5.2 系統(tǒng)的缺點(diǎn)..........................................錯(cuò)誤！未定義書簽。5.3 將來可能提出的要求..................................錯(cuò)誤！未定義書簽。結(jié) 論....................................................錯(cuò)誤！未定義書簽。參考文獻(xiàn)....................................................錯(cuò)誤！未定義書簽。致 謝....................................................錯(cuò)誤！未定義書簽。系統(tǒng)功能模塊詳細(xì)設(shè)計(jì)及實(shí)現(xiàn)

4.1 模塊設(shè)計(jì)

人事工資管理系統(tǒng)共包括以下七個(gè)功能模塊：職工管理模塊、考勤管理模塊、檔案管理模塊、工資管理模塊、事項(xiàng)記錄模塊、其他事記模塊、系統(tǒng)管理模塊。其中每個(gè)模塊又分為若干個(gè)小功能模塊。其系統(tǒng)功能模塊詳細(xì)關(guān)系如圖1所示：

圖1 系統(tǒng)模塊結(jié)構(gòu)圖

4.2 功能模塊的說明

人事工資管理系統(tǒng)的七個(gè)功能模塊的詳細(xì)介紹如下：

1．職工管理模塊：實(shí)現(xiàn)用戶自由的信息錄入。結(jié)合人事變動(dòng)完成本單位各類人員變動(dòng)事宜，實(shí)時(shí)記錄人員進(jìn)入單位后的所有變化信息。實(shí)現(xiàn)對(duì)員工信息靈活的查詢功能。

2．考勤管理模塊：將考勤數(shù)據(jù)按月輸入到系統(tǒng)中，系統(tǒng)將記錄所有請(qǐng)假、礦工、遲到、早退等數(shù)據(jù)，并進(jìn)行自動(dòng)統(tǒng)計(jì)和匯總。

3．檔案管理模塊：提供全部人員記錄，用以記錄和查看人員相關(guān)信息。4．工資管理模塊：實(shí)現(xiàn)對(duì)基本工資的管理，每月可以計(jì)算和修改工資數(shù)據(jù)，記錄工資發(fā)放日期。

5．事項(xiàng)記錄模塊：根據(jù)單位情況設(shè)立培訓(xùn)、獎(jiǎng)懲等事項(xiàng)記錄。

6．其它事記模塊：用于企業(yè)內(nèi)部記錄單位的基本信息和員工生日等，促進(jìn)員工團(tuán)結(jié)一致、積極向上。

7．系統(tǒng)管理模塊：主要包括用戶登陸和安全退出系統(tǒng)。提供有效的用戶認(rèn)證安全機(jī)制。

圖2 系統(tǒng)登錄頁面

打

4.3.2 系統(tǒng)主界面的設(shè)計(jì)

通過用戶驗(yàn)證后，進(jìn)入人事工資管理系統(tǒng)的主頁面。系統(tǒng)的主頁面是由一個(gè)“T”字形結(jié)構(gòu)的框架頁面構(gòu)成，它將該頁面分成頂部系統(tǒng)名稱顯示頁面、下面左側(cè)菜單頁面和右面主顯示頁面。

其中菜單頁是該頁面的主題部分，實(shí)現(xiàn)了菜單的分類分級(jí)顯示，主菜單項(xiàng)從上往下排成一列,平時(shí)子菜單是隱藏的,單擊某一主菜單項(xiàng)時(shí)將展開它的所有子菜單項(xiàng)，同時(shí)其他主菜單項(xiàng)的子菜單項(xiàng)將緊縮回去。其界面如圖3 所示：

圖3 菜單界面。

4.3.3 系統(tǒng)各模塊界面的設(shè)計(jì)

由于系統(tǒng)模塊較多,下面將只介紹部分模塊的詳細(xì)設(shè)計(jì)：

（一）職工管理模塊：本模塊根據(jù)搜索內(nèi)容和方式分為按部門查看員工和離職員工查看兩部分。其中按部門查看員工的界面如圖4所示：

圖4 據(jù)部門查看員工頁面

圖5 新增員工頁面

（三）工資管理模塊：工資管理模塊包括員工工資的計(jì)算、工資按月統(tǒng)計(jì)和發(fā)放領(lǐng)取情況。員工工資計(jì)算頁面如圖6所示：

圖6 工資計(jì)算頁面

圖7 工資統(tǒng)計(jì)頁面

圖8 工資領(lǐng)取頁面

（四）考勤管理模塊：

圖9 考勤記錄頁面

圖10 考勤按月統(tǒng)計(jì)頁面

Powered by 計(jì)算機(jī)畢業(yè)論文網(wǎng)http://004km.cn http:// 004km.cn

第四篇：人事工資管理系統(tǒng)

人事工資管理系統(tǒng)一、登錄界面

登錄界面如圖1所示。

圖1登錄界面

二、主界面

輸入用戶名和密碼，單擊【登錄】按鈕，打開如圖2所示的主界面。

圖2主界面 圖2中的菜單中包含的菜單選項(xiàng)如下： 【人事管理】：檔案管理、獎(jiǎng)罰管理、調(diào)動(dòng)管理、考評(píng)管理。【工資管理】：考勤津貼、工資總結(jié)?！鞠到y(tǒng)管理】：部門管理、數(shù)據(jù)備份?！居脩艄芾怼浚翰僮鲉T管理、修改口令、更改操作員。【退出】不包括任何選項(xiàng)。

三、人事管理菜單

1.選擇圖2中的【人事管理】?【檔案管理】菜單選項(xiàng)，打開如圖3所示的界面。

圖3檔案管理

選擇圖3中的【增加】工具按鈕，打開如圖4所示的界面，以實(shí)現(xiàn)增加員工信息。

圖4增加員工信息

在圖3中選中某員工，單擊【修改】工具按鈕，打開如圖5所示界面，以實(shí)現(xiàn)員工信息修改。

圖5修改員工信息界面

2.選擇圖2中的【人事管理】?【獎(jiǎng)罰管理】菜單選項(xiàng)，打開如圖6所示的界面。

圖6獎(jiǎng)罰管理

選擇圖6中的【增加】工具按鈕，打開如圖7所示的界面，以實(shí)現(xiàn)增加員工獎(jiǎng)罰信息。

圖7增加獎(jiǎng)罰管理

選擇圖6中的某一員工記錄，單擊【修改】工具按鈕，打開如圖8所示的界面，以實(shí)現(xiàn)修改員工獎(jiǎng)罰信息。

圖8修改員工獎(jiǎng)罰信息

在圖6中選中某員工記錄，單擊【刪除】工具按鈕以實(shí)現(xiàn)刪除員工獎(jiǎng)罰信息。

3.選擇圖2中的【人事管理】?【調(diào)動(dòng)管理】菜單選項(xiàng)，打開如圖9所示的界面。

圖9員工調(diào)動(dòng)管理界面

選擇圖9中的【增加】工具按鈕，打開如圖10所示的界面，以實(shí)現(xiàn)增加員工調(diào)動(dòng)信息。

圖10增加員工調(diào)動(dòng)信息

選擇圖9中的某一員工記錄，單擊【修改】工具按鈕，打開如圖11所示的界面，以實(shí)現(xiàn)修改員工調(diào)動(dòng)信息。

圖11修改員工調(diào)動(dòng)信息

在圖9中選中某員工記錄，單擊【刪除】工具按鈕以實(shí)現(xiàn)刪除員工調(diào)動(dòng)信息。

4.選擇圖2中的【考評(píng)管理】?【調(diào)動(dòng)管理】菜單選項(xiàng)，打開如圖12所示的界面。

圖12考評(píng)管理界面 選擇圖12中的【增加】工具按鈕，打開如圖13所示的界面，以實(shí)現(xiàn)增加員工考評(píng)信息。

圖13增加考評(píng)信息

選擇圖12中的某一員工記錄，單擊【修改】工具按鈕，打開如圖14所示的界面，以實(shí)現(xiàn)修改員工考評(píng)信息。

圖14修改考評(píng)信息

在圖12中選中某員工記錄，單擊【刪除】工具按鈕以實(shí)現(xiàn)刪除員工考評(píng)信息。

四、工資管理菜單

1.選擇圖2中的【工資管理】?【考勤津貼】菜單選項(xiàng)，打開如圖15所示的界面。

圖15考勤津貼界面

在圖15中選擇工資月份，選擇員工編號(hào)，輸入全勤獎(jiǎng)金、加班工資，單擊【增加】工具按鈕，以實(shí)現(xiàn)增加員工考勤津貼信息。

2.選擇圖2中的【工資管理】?【考勤津貼】菜單選項(xiàng)，打開如圖16所示的界面。

圖16工資總結(jié)界面

在圖16中選擇月份，顯示對(duì)應(yīng)員工工資信息。

五、系統(tǒng)管理菜單

1.選擇圖2中的【系統(tǒng)管理】?【部門管理】菜單選項(xiàng)，打開如圖17所示的界面。

圖17部門管理

單擊圖17中的【增加】工具按鈕，打開如圖18所示的界面，以實(shí)現(xiàn)增加部門信息。

圖18增加部門

選擇圖17中的某一部門，單擊【修改】工具按鈕，打開如圖19所示的界面，以實(shí)現(xiàn)修改部門信息。

圖19修改部門

在圖17中選中某員工記錄，單擊【刪除】工具按鈕以實(shí)現(xiàn)刪除部門信息。

2.選擇圖2中的【系統(tǒng)管理】?【數(shù)據(jù)備份】菜單選項(xiàng)，打開如圖20所示的界面。

圖20數(shù)據(jù)備份

五、用戶管理菜單

1.選擇圖2中的【用戶管理】?【操作員管理】菜單選項(xiàng)，打開如圖21所示的界面。

圖21操作員管理

在圖21中輸入用戶名和密碼，選擇權(quán)限，單擊【增加】工具按鈕，以實(shí)現(xiàn)增加操作員信息。在圖21中的某一操作員，會(huì)自動(dòng)填寫用戶名和密碼，可以修改用戶名、密碼、權(quán)限，單擊【修改】工具按鈕，以實(shí)現(xiàn)修改操作員信息。

在圖21中的某一操作員，單擊【刪除】工具按鈕，以實(shí)現(xiàn)刪除操作員信息。

2.選擇圖2中的【用戶管理】?【修改口令】菜單選項(xiàng)，打開如圖22所示的界面。

圖22修改密碼

輸入登錄用戶的原始密碼，兩次輸入相同的心密碼，單擊【確定】按鈕，實(shí)現(xiàn)密碼修改。3.選擇圖2中的【用戶管理】?【更改操作員】菜單選項(xiàng)，打開如圖23所示的界面。

圖23更改操作員

選擇用戶名，輸入該用戶的密碼，實(shí)現(xiàn)以所選擇的用戶身份登錄。

第五篇：企業(yè)工資管理系統(tǒng)任務(wù)書

課程設(shè)計(jì)任務(wù)書

2009—2010學(xué)年第二學(xué)期

專業(yè)班級(jí)： 軟件工程08普本軟件學(xué)號(hào)： 080000001姓名： ***課程名稱：數(shù)據(jù)庫系統(tǒng)與應(yīng)用完成期限：自2010 年 6 月 10 日至2010 年 6 月 15 日共 1 周課程設(shè)計(jì)題目

復(fù)雜。這時(shí)，傳統(tǒng)的紙介質(zhì)管理方式就暴露出了無法彌補(bǔ)的缺陷。因此，為了實(shí)現(xiàn)企業(yè)工資信息方便、迅捷的管理，設(shè)計(jì)一個(gè)企業(yè)工資管理系統(tǒng)迫在眉睫。功能要求：系統(tǒng)能夠?qū)崿F(xiàn)身份驗(yàn)證、企業(yè)職工信息添加、查詢、修改、刪除、工資發(fā)放等功能。

一、設(shè)計(jì)的任務(wù)：要求完成企業(yè)工資管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)，主要包括企業(yè)職工信息管理系

統(tǒng)數(shù)據(jù)庫的建立和安全維護(hù)、界面美化、添加信息及對(duì)信息的管理，系統(tǒng)管理員登錄與

安全模塊的實(shí)現(xiàn)。

二、開發(fā)工具：ASP，SQL Server 2000

三、進(jìn)度安排：第18周進(jìn)行系統(tǒng)總體規(guī)劃、數(shù)據(jù)庫設(shè)計(jì)、系統(tǒng)開發(fā)與調(diào)試、課程設(shè)計(jì)說明書的撰寫和課程設(shè)計(jì)答辯。

四、主要參考資料：

[1] 李春葆，曾慧.SQL Server 2000應(yīng)用系統(tǒng)開發(fā)教程（第二版）[M].北京：清華大學(xué)出版社，2008年5月.[2] 劉亞姝,李金萊.ASP網(wǎng)絡(luò)編程技術(shù)與實(shí)踐[M].北京：清華大學(xué)出版社 2008年6月.[3] 明日科技，呂繼迪等.ASP程序開發(fā)范例寶典（第二版）[M].北京：人民郵電出版社，2009年1月.計(jì)劃答辯時(shí)間：2010年6月15日

工作任務(wù)與工作量要求：查閱文獻(xiàn)資料不少于3篇，課程設(shè)計(jì)報(bào)告1篇不少于3000字。指導(dǎo)教師（簽字）：教研室主任（簽字）：批準(zhǔn)日期：年月日