【正文】 tal = 5000 Then dblTotal = dblTotal * 125 ElseIf dblTotal 5000 And dblTotal = 20200 Then dblTotal = dblTotal * 375 Else MsgBox 請(qǐng)手工計(jì)算稅額！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If txtItem(9) = Format(dblTotal, ) End If Exit Sub End Sub Private Sub txtItem_GotFocus(Index As Integer) txtItem(Index).SelStart = 0 txtItem(Index).SelLength = Len(txtItem(Index)) End Sub Private Sub txtItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) 39。稅前小計(jì)變化 dblTotal = CDbl(txtItem(8)) 39。 ) Else txtItem(12) = Format(CDbl(txtItem(8)) CDbl(txtItem(9)), ) End If End If If Index = 8 And Trim(txtItem(8) amp。稅額變化 If Trim(txtItem(9) amp。用于計(jì)算工資 Dim dblTotal As Double 39。 Set mrc = (txtSQL) If = False Then MsgBox 已經(jīng)存在該員工在該月的工資記錄！ , vbOKOnly + vbExclamation, 警告 txtItem(13).SetFocus Exit Sub End If txtSQL = select * from gzshuju Set mrc = (txtSQL) (0) = Trim(txtId) (1) = Trim(cboItem(1)) (17) = Trim(cboItem(0)) (15) = Trim(txtItem(13)) For intCount = 0 To 12 (intCount + 2) = txtItem(intCount) Next intCount MsgBox 計(jì)發(fā)工資成功！ , vbOKOnly + vbExclamation, 警告 For intCount = 0 To 12 txtItem(intCount) = Next intCount mblChange = False = False End Sub （ 4）“離開”按鈕具體編碼如下： Private Sub cmdExit_Click() If mblChange And Then If MsgBox( 保 存 當(dāng) 前 記 錄 的 變 化 嗎 ？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then 39。 Trim(txtId) amp。添加判斷是否有相同的 ID 記錄 txtSQL = select * from gzshuju where 工資號(hào) =39。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If If Trim(txtItem(13) amp。 Format(Now, yymm) txtItem(0) = (2) End Sub （ 3）“添加”按鈕具體編碼如下： Private Sub cmdSave_Click() Dim intCount As Integer Dim txtSQL As String Dim mrc As Recordset Dim MsgText As String Dim db As Database Dim sMeg As String If Trim(txtItem(0) amp。 *39。* amp。員工基本信息可以對(duì)員工信息添加、修改和刪除 ,員 工管理界面如下 : 圖 具體編碼如下： （ 1）“添加”按鈕控件源代碼： Private Sub Command5_Click() If = Or = Or = Or = Or = Then Exit Sub End If End Sub （ 2）“ 刪除 ”按鈕控件源代碼： Private Sub Command6_Click() End Sub （ 3）“離開”按鈕控件代碼： Private Sub Command1_Click() Unload Me End Sub 部門管理 部門管理同樣包括對(duì)部門信息增刪改功能。 數(shù)據(jù)詞典分析 該軟件的數(shù)據(jù)庫(kù)由四個(gè)數(shù)據(jù)表組成： A．員工基本信息表： ygshuju 系統(tǒng)設(shè)定 員工信息管理 員工工資匯總 圖 系統(tǒng)的數(shù)據(jù)流程圖 B．基礎(chǔ)工資設(shè)定表： gzshuju C．部門表： bumen D．管理員密碼表： denglu （ 1）員工基本信息表： ygshuju 字段名 類型 員工號(hào) 數(shù)值型 姓名 字符型 所屬部門 字符型 職位 字符型 基本工資 數(shù)值型 (2)基礎(chǔ)工資設(shè)定表： gzshuju (3)部 門表：bumen 字段名 類型 部門 字符型 管理員注冊(cè)表： denglu 字段名 類型 工資號(hào) 數(shù)值型 姓名 字符型 底薪 數(shù)值型 補(bǔ)貼 數(shù)值型 獎(jiǎng)金 數(shù)值型 加班 數(shù)值型 扣考核 數(shù)值型 房帖 數(shù)值型 房租 數(shù)值型 養(yǎng)老金 數(shù)值型 醫(yī)療保險(xiǎn) 數(shù)值型 住房公積金 數(shù)值型 所得稅 數(shù)值型 計(jì)法時(shí)間 日期型 字段 字段名 類型 1 用戶名 字符型 2 口 令 字符型 第四章 工資管理系統(tǒng)的功能實(shí)現(xiàn) 圖 管理模塊編碼設(shè)計(jì) 此模塊細(xì)分為人員管理和部門管理 。 ACCESS 中一個(gè)庫(kù)可以容納多個(gè)表，通過(guò)庫(kù)我們可明確各表之間的相互關(guān)系，使表文件不在彼此孤立，而成為相互關(guān)聯(lián)的數(shù)據(jù)集 合。 在 ACCESS 中數(shù)據(jù)庫(kù)是一個(gè)邏輯上的概念，通過(guò)一組系統(tǒng)文件將相互關(guān)聯(lián)的數(shù)據(jù)表及其數(shù)據(jù)庫(kù)對(duì)象組織起來(lái)，成為擴(kuò)展名為 .mdb 的數(shù)據(jù)庫(kù)文件。 DBMS 通常由數(shù)據(jù)字典，數(shù)據(jù)描述語(yǔ)言及其編譯程序，數(shù)據(jù)操縱（查詢）語(yǔ)言及其編譯程序，數(shù)據(jù)庫(kù)管理例行程序等部分組成。 選擇微軟平臺(tái)作為主導(dǎo)，一方面考慮目前微軟的飛速發(fā)展，越來(lái)越多的企業(yè)在規(guī)劃內(nèi)部網(wǎng)絡(luò)時(shí)，將微軟平臺(tái)作為首選方案；另一方面從技術(shù)角度來(lái)講，微軟平臺(tái)上的應(yīng)用無(wú)論是在開發(fā)上，還是在軟件的部署上都非常容易，而且性能優(yōu)越。 安全保密性。 可用性。 可維護(hù)性和適應(yīng)性。 可理解性。 可靠性。 目標(biāo)系統(tǒng)應(yīng)該達(dá)到以下要求： 時(shí)間經(jīng)濟(jì)性。 （ 4）工資匯總模塊 用戶在員工信息管理模塊對(duì)該員工的工資信息信息輸入以后，在工資匯總模塊會(huì)自動(dòng)對(duì)員工工資進(jìn)行匯總并打印出工資匯總 表。在此模塊中用戶還可以對(duì)已錄入記錄進(jìn)行修改和刪除。 （ 2） 工資信息模塊 本系統(tǒng)將工資結(jié)構(gòu)分為工資 號(hào) 、 姓名 、底薪、補(bǔ)貼、獎(jiǎng)金、加班費(fèi)、扣考核、房帖、房租、養(yǎng)老金、醫(yī)療保險(xiǎn)、住房公積金、所得稅。員工基本信息包括員工號(hào) 、姓名、部門、職位、基本工資等。該工資管理系統(tǒng)的主要功能如圖 所示： 圖 系統(tǒng)功能模塊圖 （ 1）系統(tǒng)管理模塊 系統(tǒng)管理模塊具有增加與修改員工和部門功能。 系統(tǒng)維護(hù)與評(píng)價(jià)階段是系統(tǒng)生命周期中的最后一個(gè)階段，也是時(shí)間最長(zhǎng)的一個(gè)重要階段。系統(tǒng)外部環(huán)境與內(nèi)部因素的 變化，不斷影響系統(tǒng)的運(yùn)行，這時(shí)就需要不斷地完善系統(tǒng)，以提高系統(tǒng)運(yùn)行的效率與服務(wù)水平，這就需要從始至終地進(jìn)行系統(tǒng)的維護(hù)工作。數(shù)據(jù)準(zhǔn)備與錄入工作要注意數(shù)據(jù)的準(zhǔn)確性，在整理、錄入、校驗(yàn)等各個(gè)環(huán)節(jié)把好關(guān)，為系統(tǒng)的順利轉(zhuǎn)換打好基礎(chǔ)?？梢詰?yīng)用各種項(xiàng)目管理的軟件和方法進(jìn)行管理，實(shí)行項(xiàng)目經(jīng)理負(fù)責(zé)制，保證系統(tǒng)實(shí)施工作的順利進(jìn)行和成功。 系統(tǒng)實(shí)施與轉(zhuǎn)換 系統(tǒng)實(shí)施階段的主要工作包括：系統(tǒng)硬件的購(gòu)置與安裝、程序的編寫 (購(gòu)買 )與調(diào)試、系統(tǒng)操作人員的培訓(xùn)、系統(tǒng)有關(guān)數(shù)據(jù)的準(zhǔn)備和錄入、系統(tǒng)調(diào)試 和轉(zhuǎn)換。這一階段的重點(diǎn)是設(shè)計(jì)好系統(tǒng)的總體結(jié)構(gòu)，選擇最經(jīng)濟(jì)合理的技術(shù)手段。系統(tǒng)設(shè)計(jì)要根據(jù)系統(tǒng)分析報(bào)告中的系統(tǒng)邏輯模型綜合考慮各種約束，利用一切可利用的技術(shù)手段和方法進(jìn)行 各種具體設(shè)計(jì)，確定新系統(tǒng)的實(shí)施方案，解決“系統(tǒng)怎么做”的問(wèn)題。用戶可以對(duì)新系統(tǒng)的邏輯模型提出意見，雙方經(jīng)過(guò)討論、修改，最后達(dá)成共識(shí)，并完成系統(tǒng)分析報(bào)告 (系統(tǒng)邏輯設(shè)計(jì)說(shuō)明書 )，經(jīng)有關(guān)領(lǐng)導(dǎo)審批通過(guò)之后，轉(zhuǎn)入系統(tǒng)設(shè)計(jì) (又稱系統(tǒng)物理設(shè)計(jì) )階段。在系統(tǒng)設(shè)計(jì)階段要做認(rèn)真、細(xì)致的分析、研究工作，避免新系統(tǒng)在功能上存在先天不足或缺陷。最后要完成系統(tǒng)分析報(bào)告 (也稱為系統(tǒng)邏輯設(shè)計(jì)說(shuō)明書 )。 （ 6）新系統(tǒng)的功能和目標(biāo)：了解各級(jí)領(lǐng)導(dǎo)和各類業(yè) 務(wù)工作人員對(duì)新系統(tǒng)功能的要求，系統(tǒng)分析 (又稱邏輯設(shè)計(jì) )是管理信息系統(tǒng)開發(fā)的關(guān)鍵環(huán)節(jié)，要求在系統(tǒng)調(diào)查的基礎(chǔ)上，對(duì)新系統(tǒng)的功能進(jìn)行細(xì)致的分析，并建立一個(gè)新系統(tǒng)的邏輯模型。 （ 5）問(wèn)題：現(xiàn)行系統(tǒng)中存在的主要問(wèn)題和薄弱環(huán)節(jié)，可以按照嚴(yán)重程度分成不同的等級(jí)。調(diào)查中要注意定性與定量相結(jié)合，注意人、財(cái)、物、信息的流向、規(guī)格、頻率、要求以及需要解決的問(wèn)題等。 （ 2）組織機(jī)構(gòu)：畫出組織的組織結(jié)構(gòu)圖，弄清組織的行政關(guān)系、人員編制、工作范圍、地理位置等，發(fā)現(xiàn)不合理問(wèn)題及新系統(tǒng)啟動(dòng)后可能對(duì)現(xiàn)有組織的影響。 調(diào)研的主要內(nèi)容有： （ 1）現(xiàn)行系統(tǒng)概況：該組織的發(fā)展歷史、目前組織的規(guī)模、工作狀況、管理水平、與外界的主要聯(lián)系等。 系統(tǒng)開發(fā)準(zhǔn)備 系統(tǒng)開發(fā)準(zhǔn)備工作主要包括提出系統(tǒng)開發(fā)要求、制訂系統(tǒng)開發(fā)計(jì)劃等工作。 管理信息系統(tǒng)的開發(fā)過(guò)程一般包括系統(tǒng)開發(fā)準(zhǔn)備、系統(tǒng)調(diào)查、系統(tǒng)分析、系統(tǒng)設(shè)計(jì)、系統(tǒng)實(shí)現(xiàn)、系統(tǒng)轉(zhuǎn)換、系統(tǒng)運(yùn)行與維護(hù)、系統(tǒng)評(píng)價(jià)等步驟。缺點(diǎn)是雙方在合作中溝通易出現(xiàn)問(wèn)題，需要雙方及時(shí)達(dá)成共識(shí)，進(jìn)行協(xié)調(diào)和檢查。雙方共享開發(fā)成果，實(shí)際上是一種半委托性質(zhì)的開發(fā)工作。此種開發(fā)方式需要使用單位的業(yè)務(wù)骨 干參與系統(tǒng)的論證工作，開發(fā)過(guò)程中需要開發(fā)單位和使用單位雙方及時(shí)溝通，進(jìn)行協(xié)調(diào)和檢查。委托開發(fā)方式的優(yōu)點(diǎn)是省時(shí)、省事，開發(fā)的系統(tǒng)技術(shù)水平較高。 （ 2） .委托開發(fā) 委托開發(fā)方式適合于使用單位無(wú)管理信息系統(tǒng)分析、設(shè)計(jì)及軟件開發(fā)人員或開發(fā)隊(duì)伍力量較弱、但資金較為充足的單位。缺點(diǎn)是由于不是專業(yè)開發(fā)隊(duì)伍，容易受業(yè)務(wù)工作的限制，系統(tǒng)優(yōu)化不夠，開發(fā)水平較低，且由于開發(fā)人員是臨時(shí)從所屬各單位抽調(diào)出來(lái)進(jìn)行管理信息系統(tǒng)的開發(fā)工作，這些人員在其原部門還有其他工作，所以精力有限，容易造成系統(tǒng)開發(fā)時(shí)間長(zhǎng)，開發(fā)人員調(diào)動(dòng)后，系 統(tǒng)維護(hù)工作沒(méi)有保證的情況。 （ 1） .獨(dú)立開發(fā) 獨(dú)立開發(fā)適合于有較強(qiáng)的管理信息系統(tǒng)分析與設(shè)計(jì)隊(duì)伍和程序設(shè)計(jì)人員、系統(tǒng)維護(hù)使用隊(duì)伍的組織和單位，如大學(xué)、研究所、計(jì)算機(jī)公司、高科技公司等單位。這 4 種開發(fā)方式各有優(yōu)點(diǎn)和不足，需要根據(jù)使用單位的技術(shù)力量、資金情況、外部環(huán)境等各種因素進(jìn)行綜合考慮和選擇。實(shí)踐證明，用戶干預(yù)愈少， MIS 系統(tǒng)的滿意程度愈高。錄入這類數(shù)據(jù)之前， MIS 軟件應(yīng)在相應(yīng)位置彈出一個(gè)列表框，待用戶以 鼠標(biāo)點(diǎn)擊，而不應(yīng)讓用戶每次都輸入這些漢字。對(duì)于一些相對(duì)固定的數(shù)據(jù)，不應(yīng)讓用戶頻頻輸入 (特別是漢字 )，而應(yīng)讓用戶用鼠標(biāo)輕松選擇。 （ 4）界面友好。目前， Windows 下的應(yīng)用軟件無(wú)論大小，其安裝程序幾乎均做到了這一點(diǎn)。 （ 3）界面必須使用戶隨時(shí)掌握任務(wù)的進(jìn)展情況 人機(jī)界面應(yīng)該能夠告訴用戶軟件運(yùn)行的進(jìn)度。最忌諱的是每換一個(gè)屏幕用戶就要