【正文】 該應(yīng)用環(huán)境對(duì)系統(tǒng)的要求。工資管理系統(tǒng)的應(yīng)用背景為：由本人一人開(kāi)發(fā)并設(shè)計(jì)完成，搜集了十多冊(cè)有用的工資管理資料，其中有一部分來(lái)自網(wǎng)上，為了方便大家使用，需要對(duì)系統(tǒng)的每個(gè)模塊進(jìn)行分析。因此，該系統(tǒng)主要是為了解決職工工資和福利的發(fā)放而產(chǎn)生。系統(tǒng)的主要流程如下：1． 新員工：招聘員工—員工基本工資記錄—員工基本福利記錄—員工工資發(fā)放2． 老員工：?jiǎn)T工工資記錄—員工工資調(diào)整—員工基本福利記錄/調(diào)整—員工工資發(fā)放3． 工資發(fā)放記錄整個(gè)系統(tǒng)的實(shí)際作用就是以上三點(diǎn)。即：保證員工工資發(fā)放的準(zhǔn)確性和可查性。但在這之前有許多地方是需要注意的，比如：公司部門(mén)，公司職位 這兩點(diǎn)應(yīng)該是和員工的基本工資有很大關(guān)系的，因?yàn)椴块T(mén)不同工資不同，而同部門(mén)不同職位工資也不同；還有就是福利方面，員工的福利包括多個(gè)方面，在員工的實(shí)際工資里加上減去福利項(xiàng)目時(shí)，必須先搞清楚有多少項(xiàng)福利，每項(xiàng)扣除的比例是多少。所以最后要做的工作大體上如下：1． 記錄有多少個(gè)部門(mén)及它們的名稱(chēng)2． 記錄有多少種職位3． 將職位和部門(mén)組合以后，各是多少基本工資4． 有多少種福利項(xiàng)目5． 每種福利項(xiàng)目的公司承擔(dān)比例和個(gè)人承擔(dān)比例是各是多少6． 職工的基本信息要記錄在案（姓名，年齡，編號(hào)等）7． 工資調(diào)整要靈活一些（根據(jù)要求 比例在8%—15%）8． 工資記錄的發(fā)放9． 工資記錄要有可查性10． 獎(jiǎng)金的發(fā)放本來(lái)到此工作大體上好像就結(jié)束了。但實(shí)際上還有幾個(gè)細(xì)節(jié)需要注意：1． 工資記錄發(fā)放很有可能出現(xiàn)比較大的錯(cuò)誤，這時(shí)候整修刪除重做是比較快的2． 以前的工資記錄只能查不能改3． 因?yàn)橹挥泄べY記錄可以查看而其它的操作沒(méi)有查看功能，所以我提議做一個(gè)簡(jiǎn)單日志，以供錯(cuò)誤的恢復(fù)各功能細(xì)節(jié)的總體分析：1． 整個(gè)系統(tǒng)內(nèi)的主要功能是添加，刪除，修改。雖然從功能上看來(lái)比較簡(jiǎn)單但它們必須受到嚴(yán)格的制約。添加：不能添加已經(jīng)存在或者關(guān)鍵字相同的數(shù)據(jù)刪除：由于許多數(shù)據(jù)是互相關(guān)聯(lián)的——如：沒(méi)有員工的基本信息（一般入公司時(shí)記錄）哪來(lái)員工的基本工資？所以在刪除此類(lèi)數(shù)據(jù)的時(shí)候一定要注意。如果一定要?jiǎng)h除，那么在刪除的時(shí)候一定要提出警告，最大可能的防止誤操作，而產(chǎn)生嚴(yán)重的不可逆后果。修改：同樣的，不能修改成已經(jīng)存在或者關(guān)鍵字相同的數(shù)據(jù)。2． 有許多數(shù)據(jù)必須加以規(guī)范。比如說(shuō)年齡和公司對(duì)福利的承擔(dān)比例。年齡：一般要規(guī)定在法定退休年齡以下公司對(duì)福利的承擔(dān)也不可能是100%，一般在0—15%左右3． 有一些需要保留的數(shù)據(jù)在刪除時(shí)也要注意：比如，以前公司對(duì)某一福利承擔(dān)一部分，但現(xiàn)在不承擔(dān)了。由于工資發(fā)放的記錄要保存。就不能單純的將它一筆勾銷(xiāo)。4． 獎(jiǎng)金的發(fā)放不能單純的在部門(mén)內(nèi)人數(shù)平分，這很可能要和他日常表現(xiàn)要有關(guān)聯(lián)，所以每個(gè)人在最后工資發(fā)放階段必須要可以單獨(dú)修改的可能。5． 工資在基本工資沒(méi)有發(fā)放的時(shí)候是不能導(dǎo)出結(jié)算的。6． 工資（不是基本工資）在沒(méi)有結(jié)算前是可以任意修改的，而且可以隔天操作，但是一旦工資被導(dǎo)出那么，它將只能被查詢。無(wú)法更改和刪除。 部分模塊的功能及代碼介紹。本窗體是為了讓工作人員按照用戶和密碼進(jìn)行登陸。窗體界面、源代碼如下：源代碼：Public EN, a, PW As StringPublic P As IntegerPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0txtSQL = select * from accounts where account = 39。 amp。 Text1(0).Text amp。 39。 amp。 and password = 39。 amp。 Text1(1).Text + 39。Set rs = exesql(txtSQL)If = True Then MsgBox 沒(méi)有這個(gè)用戶，請(qǐng)重新輸入!, vbCritical, 警告 With Text1(0) .SelStart = 0 .SelLength = Len(Text1(0).Text) Text1(0).SetFocus End WithElseEN = Trim((0))a = Trim((1))PW = Trim((2))P = Trim((3))Unload MeSet login = NothingEnd IfCase 1Text1(0).Text = Text1(1).Text = Command1(0).Enabled = FalseCommand1(1).Enabled = FalseText1(0).SetFocusCase ElseUnload MeSet login = NothingEndEnd SelectEnd SubPrivate Sub Form_Activate()Text1(0).SetFocusEnd SubPrivate Sub Text1_Change(Index As Integer)If Text1(0).Text Or Text1(1).Text ThenCommand1(1).Enabled = TrueEnd IfIf Text1(0).Text And Text1(1).Text ThenCommand1(0).Enabled = TrueElseCommand1(0).Enabled = FalseEnd IfEnd Sub使用方法與功能介紹：用戶名、密碼不得隨意輸入，用戶信息必須是已經(jīng)存在與系統(tǒng)數(shù)據(jù)庫(kù)中的，如果輸入了錯(cuò)誤的用戶名或密碼系統(tǒng)將提示你重新輸入。如下圖所示：如果輸入正確將進(jìn)入系統(tǒng)主界面。主界面如下圖所示：界面上有基礎(chǔ)信息（里面包括：福利項(xiàng)目添加、部門(mén)信息添加、職位信息添加）、基礎(chǔ)數(shù)據(jù)（里面包括：福利管理、部門(mén)工資管理、職工信息管理、工資調(diào)整）、工資管理（里面包括：工資記錄查詢、工資記錄刪除、工資發(fā)放）、日志查詢四大選項(xiàng)，還有員工信息、工資調(diào)整、基本工資、福利調(diào)整、工資發(fā)放、日志和退出7個(gè)小選項(xiàng)，你可根據(jù)你所要進(jìn)行的事物來(lái)選擇你所需要的功能。部門(mén)信息添加源代碼：Option ExplicitDim rs1 As New Dim sql1 As StringPrivate Sub Command1_Click()Dim rs2 As New Dim sql2 As StringDim worryOn Error GoTo No1w:If = False Thensql2 = insert into bumen (bumen) values (39。 amp。 amp。 39。)Elsesql2 = update bumen set bumen=39。 amp。 amp。 39。 where bumen=39。 amp。 amp。 39。End Ifdata2 (sql2)Set rs2 = data1(rs2, sql1)Set rs1 = rs2Set = rs1Text1 = Text2 = Exit SubNo1w:Select Case Case 2147467259worry = MsgBox(空信息，無(wú)法錄入, vbOKOnly, 錯(cuò)誤)Case 2147217900worry = MsgBox(信息重復(fù)！加入失?。? vbOKOnly, 錯(cuò)誤)End SelectEnd SubPrivate Sub Command2_Click() = FalseEnd SubPrivate Sub Command3_Click() = True = = = False = FalseEnd SubPrivate Sub Command4_Click() = True = = = True = TrueEnd SubPrivate Sub Command5_Click()Dim rs3 As New Dim sql3 As StringDim rs4 As New Dim sql4 As StringDim delOn Error GoTo No2w:del = MsgBox(刪除信息將不可恢復(fù)！是否刪除？, vbOKCancel + vbDefaultButton2 + vbQuestion, 刪除)If del = vbOK Thensql3 = select * from yuangon where bumen=39。 amp。 (0) amp。 39。Set rs3 = data1(rs3, sql3)If Not ThenMsgBox 部門(mén)信息使用中，禁止刪除, vbOKOnly, 警告Elsesql4 = delete from bumen where bumen=39。 amp。 (0) amp。 39。data2 (sql4)Set rs4 = data1(rs4, sql1)Set rs1 = rs4Set = rs1End IfElseEnd IfExit SubNo2w:MsgBox 部門(mén)信息不存在!, vbOKOnly, 錯(cuò)誤End SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub DataGrid1_DblClick()On Error GoTo k1:If = True Then = (0)Exit Subk1:If = 3021 Then MsgBox 無(wú)職務(wù)信息, vbOKOnly, 錯(cuò)誤End SubPrivate Sub Form_Load()sql1 = select * from bumenSet rs1 = New Set rs1 = data1(rs1, sql1)Set = rs1End Sub使用方法與功能介紹：此功能就是部門(mén)管理，可根據(jù)最新的實(shí)際情況對(duì)部門(mén)進(jìn)行添加、修改、刪除的操作。部門(mén)信息添加源代碼：Option ExplicitDim rs1 As New Dim sql1 As StringPrivate Sub Command1_Click()Dim rs2 As New Dim sql2 As StringDim worryOn Error GoTo No1w:If = False Thensql2 = insert into ziwu (ziwu) values (39。 amp。 amp。 39。)Elsesql2 = update ziwu set ziwu=39。 amp。 amp。 39。 where ziwu=39。 amp。 amp。 39。End Ifdata2 (sql2)Set rs2 = data1(rs2, sql1)Set rs1 = rs2Set = rs1Text1 = Text2 = Exit SubNo1w:Select Case Case 2147467259worry = MsgBox(空信息，無(wú)法錄入, vbOKOnly, 錯(cuò)誤)Case 2147217900worry = MsgBox(信息重復(fù)！加入失??！, vbOKOnly, 錯(cuò)誤)End SelectEnd SubPrivate Sub Command2_Click() = FalseEnd SubPrivate Sub Command3_Click() = True = = = False = FalseEnd SubPrivate Sub Command4_Click() = True = = = True = TrueEnd SubPrivate Sub Command5_Click()Dim rs3 As New Dim sql3 As StringDim rs4 As New Dim sql4 As StringDim delOn Error GoTo No2w:del = MsgBox(刪除信息將不可恢復(fù)！是否刪除？, vbOKCancel + vbDefaultButton2 + vbQuestion, 刪除)If del = vbOK Thensql3 = select * from yuangon where ziwu=39。 amp。 (0) amp。 39。Set rs3 = data1(rs3, sql3)If Not ThenMsgBox 職務(wù)信息使用中，禁止刪除, vbOKOnly, 警告Elsesql4 = delete from ziwu where ziwu=39。 amp。 (0) amp。 39。data2 (sql4)Set rs4 = data1(rs4, sql1)Set rs1 = rs4Set = rs1End IfElseEnd IfExit SubNo2w:MsgBox 職務(wù)信息不存在!, vbOKOnly, 錯(cuò)誤End Sub