工資管理系統(tǒng)實(shí)驗(yàn)報(bào)告(共22頁(yè))

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

2、烈的社會(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ā)放工

3、作，不僅能夠保證工資核算準(zhǔn)確無(wú)誤、快速輸出，而且還可以利用計(jì)算機(jī)對(duì)有關(guān)工資的各種信息進(jìn)行統(tǒng)計(jì)，服務(wù)于財(cái)務(wù)部門其他方面的核算和財(cái)務(wù)處理，同時(shí)計(jì)算機(jī)具有著手工管理所無(wú)法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(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í)。輸

4、出要求：簡(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、 管理上的可行性分析 隨

5、著市場(chǎng)近幾年的發(fā)展，公司規(guī)模的不斷擴(kuò)大，業(yè)務(wù)的擴(kuò)張，為了提高企業(yè)的業(yè)務(wù)水平，為企業(yè)簡(jiǎn)化人事管理，提高商品庫(kù)存效率，增加公司的業(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ù)庫(kù)技術(shù)的發(fā)展，在軟件開發(fā)方面，可以采用現(xiàn)行主流的開發(fā)技術(shù)；硬

6、件技術(shù)方面則可以充分利用日益增強(qiáng)的存儲(chǔ)能力、通訊能力和處理速度來(lái)保證系統(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)出來(lái)的，并且可以令公司比其他競(jìng)爭(zhēng)對(duì)手更加具有競(jìng)爭(zhēng)優(yōu)勢(shì)，對(duì)企業(yè)長(zhǎng)遠(yuǎn)的發(fā)展有不可忽視的作用。所以，經(jīng)濟(jì)上的可行性是肯定的。 4、 可行

7、性分析結(jié)論 在對(duì)系統(tǒng)目標(biāo)和環(huán)境進(jìn)行分析的基礎(chǔ)上，更進(jìn)一步對(duì)系統(tǒng)的技術(shù)可行性、經(jīng)濟(jì)可行性、營(yíng)運(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ù)流來(lái)源：人事部 數(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ǔ)來(lái)源：工資核算處

8、理 數(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ù)流：基本工資，來(lái)自“工資信息設(shè)置”處理邏輯 其他項(xiàng)目，來(lái)自“工資信息設(shè)置”處理邏輯 效益工資，來(lái)自“工資信息設(shè)置”處理邏輯 出勤情況，來(lái)自“工資信息設(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ǔ) （

9、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)部信息的管理，企

10、業(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)確無(wú)誤、快速輸出，而且還可以利用計(jì)算機(jī)對(duì)有關(guān)工資的各種信息進(jìn)行統(tǒng)計(jì)，服務(wù)于財(cái)務(wù)部門其他方面的核算和財(cái)務(wù)處理，同時(shí)計(jì)算機(jī)具有著手工管理所無(wú)法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高人事工資資管理的效率,也是企業(yè)的科學(xué)化、

11、正規(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ù)語(yǔ)和中文信息的界面；針對(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ī)硬件、軟件。所有這些都要符合主流國(guó)際、國(guó)家和行業(yè)標(biāo)準(zhǔn)。例

12、如在開發(fā)中使用的操作系統(tǒng)、網(wǎng)絡(luò)系統(tǒng)、開發(fā)工具都必須符合通用標(biāo)準(zhǔn)。如規(guī)范的數(shù)據(jù)庫(kù)操縱界面、作為業(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)且

13、有良好發(fā)展前途的產(chǎn)品。代碼設(shè)計(jì)：添加用戶：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 "請(qǐng)輸入用戶名稱", 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 "這個(gè)用戶已經(jīng)存在，請(qǐng)重新輸入用戶名", vbOKOnly + vbExclamation, "提示" username.SetFocus username.Text = "" password.Text = "

15、" 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.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 "請(qǐng)選擇員工編號(hào)"

24、, 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 =

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 "請(qǐng)輸入職務(wù)", vbOKOnly + vbExclamation, "提示" ElseIf IsEmpty(Me.textmoney) = True Then MsgBox "請(qǐng)輸入基本工資", vbOKOnly + vbExclamation, &qu

28、ot;提示" 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 ='" & 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 "請(qǐng)輸入舊密碼", vbOKOnly + vbExclamation, "提示" oldpwd.SetFocus Exit Sub Else If Trim(oldpwd.Text) <> Trim(userpassword) Then MsgBox "舊密碼與登錄的密碼不同，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "提示" old

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

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 "請(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 =