【導(dǎo)讀】高工作效率，實(shí)現(xiàn)企業(yè)工資信息管理的規(guī)范化和自動(dòng)化。，前臺(tái)程序開發(fā)工具采用微軟的，后臺(tái)數(shù)據(jù)庫(kù)采用Access數(shù)據(jù)庫(kù)。象的開發(fā)工具，具有組件豐富、語(yǔ)言簡(jiǎn)單、功能強(qiáng)大的優(yōu)點(diǎn)。Access數(shù)據(jù)庫(kù)具有與無(wú)縫連。接、操作簡(jiǎn)單、易于使用的優(yōu)點(diǎn)。完成眾多的信息處理，減少了數(shù)據(jù)出現(xiàn)錯(cuò)誤的幾率，加強(qiáng)了工資記錄的安全性和完整性。

　　

【正文】 False txtFields(2).Enabled = False End Sub Private Sub Form_Unload(Cancel As Integer) = vbDefault 25 End Sub 、在職員工人員增刪模塊 效果如圖： 此模塊主要是就人員的變動(dòng)情況對(duì)在職人員數(shù)據(jù)庫(kù)內(nèi)人員工 資數(shù)據(jù)進(jìn)行增減變化的調(diào)整。以利于企業(yè)按照新的標(biāo)準(zhǔn)計(jì)算并發(fā)放員工工資人。 具體實(shí)現(xiàn)過(guò)程代碼： Private Sub cmd 放棄 _Click() If 0 Then = hxfsq End If cmd 保存 .Enabled = False cmd 放棄 .Enabled = False cmd 增加 .Enabled = True cmd 刪除 .Enabled = True cmd 替換 .Enabled = True cmd 鎖定 .Enabled = True cmd 關(guān)閉 .Enabled = True cmd 定位 .Enabled = True End Sub Private Sub cmd 關(guān)閉 _Click() = vbDefault Unload Me End Sub 26 Private Sub cmd 刪除 _Click() hxfyn = MsgBox(是否真的刪除 ?, vbOKOnly, 企業(yè)工資管理系統(tǒng) ) If hxfyn = vbYes Then With If Not .EOF Then .Delete .MoveNext If .EOF And .RecordCount 0 Then .MoveLast If .EOF And .RecordCount = 0 Then .MoveFirst End If End With End If End Sub Private Sub cmd 鎖定 _Click() If hxfsdbj = False Then hxfyn = 0 frm 鎖定字段選擇 .Show 1 If HXFFHBJ = True And hxfyn 0 Then hxfi = 0 Do While hxfi = 37 If hxfi hxfyn + 3 Then lblLabels(hxfi).Enabled = False txtFields(hxfi).Enabled = False End If hxfi = hxfi + 1 Loop hxfsdbj = True cmd 鎖定 .Caption = 解鎖 (amp。L) End If Else hxfyn = 0 hxfi = 0 Do While hxfi = 37 lblLabels(hxfi).Enabled = True txtFields(hxfi).Enabled = True hxfi = hxfi + 1 Loop hxfsdbj = True cmd 鎖定 .Caption = 鎖定項(xiàng)目 (amp。L) hxfsdbj = False End If End Sub Private Sub cmd 替換 _Click() 27 frm 替換選擇 .Show 1 If HXFFHBJ = True Then = True = 0 = + 1 hxfsq = Do While Not (HXFTHZD) = HXFTHZ If Then = + 1 Loop = False = hxfsq End If End Sub Private Sub cmd 增加 _Click() hxfsq = cmd 保存 .Enabled = True cmd 放棄 .Enabled = True cmd 增加 .Enabled = False cmd 刪除 .Enabled = False cmd 替換 .Enabled = False cmd 鎖定 .Enabled = False cmd 關(guān)閉 .Enabled = False cmd 定位 .Enabled = False End Sub Private Sub Form_Load() = False cmd 保存 .Enabled = False cmd 放棄 .Enabled = False cmd 增加 .Enabled = True cmd 刪除 .Enabled = True cmd 替換 .Enabled = True cmd 鎖定 .Enabled = True cmd 關(guān)閉 .Enabled = True cmd 定位 .Enabled = True hxfsdbj = False End Sub Private Sub Form_Unload(Cancel As Integer) = vbDefault 28 End Sub Private Sub txtFields_GotFocus(Index As Integer) hxfjd = Index 39。SendKeys {Home}+{End} TEXTF txtFields(Index) End Sub Private Sub txtFields_LostFocus(Index As Integer) If Index = 4 Then If Len(Trim(txtFields(Index).Text)) = 0 Then txtFields(Index).Text = 0 Else If Index = 0 And Len(Trim(txtFields(Index).Text)) = 0 Then txtFields(Index).Text = * If Index = 1 And Len(Trim(txtFields(Index).Text)) = 0 Then txtFields(Index).Text = * If Index = 2 And Len(Trim(txtFields(Index).Text)) = 0 Then txtFields(Index).Text = * If Index = 3 And Len(Trim(txtFields(Index).Text)) = 0 Then txtFields(Index).Text = End If End Sub 29 、在職員工人員增刪模塊 效果如圖： 對(duì)員工月工資發(fā)放數(shù)的匯總統(tǒng)計(jì)。 具體實(shí)現(xiàn)代碼： Dim hxfsdbj As Boolean Dim hxfsq Option Explicit Private Sub cmd 關(guān)閉 _Click() = vbDefault Unload Me End Sub Private Sub datPrimaryRS_Error(DataErr As Integer, Response As Integer) 39。錯(cuò)誤處理程序代碼置于此處 39。想要忽略錯(cuò)誤，注釋掉下一行 39。想要俘獲它們，在此添加代碼處理它們 MsgBox Data error event hit err: amp。 Error$(DataErr) Response = 0 39。忽略錯(cuò)誤 End Sub Private Sub datPrimaryRS_Reposition() = vbDefault On Error Resume Next 39。為 dynasets 和快照顯示當(dāng)前記錄位置 30 = 當(dāng)前記錄 : amp。 ( + 1) End Sub Private Sub datPrimaryRS_Validate(Action As Integer, Save As Integer) 39。驗(yàn)證代碼置于此處 39。下列動(dòng)作發(fā)生時(shí)該事件被調(diào)用 Select Case Action Case vbDataActionMoveFirst Case vbDataActionMovePrevious Case vbDataActionMoveNext Case vbDataActionMoveLast Case vbDataActionAddNew Case vbDataActionUpdate Case vbDataActionDelete Case vbDataActionFind Case vbDataActionBookmark Case vbDataActionClose = vbDefault End Select = vbHourglass End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyPageUp And Not Then If Then End If If KeyCode = vbKeyPageDown And Not Then If Then End If End Sub Private Sub Form_Unload(Cancel As Integer) = vbDefault End Sub 31 第七章 系統(tǒng)測(cè)試 本系統(tǒng)在開發(fā)時(shí)選用了穩(wěn)定性較強(qiáng)的 Windows XP 中文專業(yè)版 和 Visual 作為開發(fā)語(yǔ)言，同時(shí)選用了 Access 數(shù)據(jù)庫(kù)，由于這些軟件產(chǎn)品都是 Microsoft 公司的產(chǎn)品，因此彼此之間的兼容性較好，開發(fā)出的應(yīng)用系統(tǒng)穩(wěn)定性較高。 在開發(fā)本系統(tǒng)時(shí)，為了使系統(tǒng)能夠穩(wěn)定運(yùn)行，對(duì)本系統(tǒng)進(jìn)行了有針對(duì)性的全面測(cè)試，采取的方式是： 菜單項(xiàng)測(cè)試：為了保證每一項(xiàng)下拉菜單能夠正確實(shí)現(xiàn)系統(tǒng)設(shè)計(jì)的功能，我把相關(guān)的基礎(chǔ)數(shù)據(jù)，基本上全部輸入到本系統(tǒng)中，并對(duì)每一個(gè)菜單項(xiàng)反復(fù)進(jìn)行了增加、刪除、修改等操作，從而保證了菜單級(jí)功能的正確實(shí)現(xiàn)。 數(shù)據(jù)跟蹤：完成菜單項(xiàng)測(cè)試后，我又對(duì)系統(tǒng)內(nèi) 的每一個(gè)數(shù)據(jù)進(jìn)行了跟蹤。例如：在標(biāo)準(zhǔn)庫(kù)工資管理模塊中，我首先對(duì)工資內(nèi)容類型進(jìn)行設(shè)定，然后在公式修改模塊中進(jìn)行數(shù)據(jù)操作，隨時(shí)觀察數(shù)據(jù)庫(kù)內(nèi)數(shù)據(jù)變化，然后在匯總查詢模塊中進(jìn)行驗(yàn)證，說(shuō)明該功能完全正常，對(duì)其它的功能模塊也進(jìn)行了類似的設(shè)置。 綜合測(cè)試：在以上測(cè)試的基礎(chǔ)上對(duì)系統(tǒng)功能進(jìn)行了整體的測(cè)試，依次來(lái)檢驗(yàn)系統(tǒng)功能是否符合系統(tǒng)設(shè)計(jì)的要求。 經(jīng)過(guò)以上各個(gè)步驟的測(cè)試后，程序運(yùn)行正常而且穩(wěn)定，最后對(duì)所編寫的源代碼進(jìn)行編譯，生成 EXE 執(zhí)行文件，這個(gè)過(guò)程用 VB 本身即可實(shí)現(xiàn)，目的是將所有源代碼生成一個(gè)完整的程序并能夠在不打開 VB 的情況下運(yùn)行程序。但有時(shí)候，程序設(shè)計(jì)完成后，我們要讓軟件能脫離于設(shè)計(jì)機(jī)上并投入使用，這就需要對(duì)程序進(jìn)行打包發(fā)布，除了用 VB 自帶的中文工具下的“ package amp。 Deployment 向?qū)А笨梢詫?shí)現(xiàn)，也可以用一系列的打包工具實(shí)現(xiàn)。 32 總 結(jié) 此次畢業(yè)設(shè)計(jì)，不盡鞏固了所學(xué)知識(shí)， 而且在這基礎(chǔ)上也提高了自己，使我明白需求分析、合理設(shè)計(jì)數(shù)據(jù)庫(kù)，編寫代碼對(duì)軟件設(shè)計(jì)的好壞起了非常重要的作用。由于本身能力的局限性，所以做編寫的代碼，即使經(jīng)過(guò)反復(fù)檢查也難免出錯(cuò)，所以在本階段力求使用有限的時(shí)間找出盡可能多的錯(cuò)誤，力 求系統(tǒng)盡量正確。我們?cè)诒鞠到y(tǒng)的測(cè)試中使用了黑盒法（即不關(guān)心程序內(nèi)部的邏輯結(jié)構(gòu)，而是根據(jù)程序的功能來(lái)設(shè)計(jì)是檢測(cè)）請(qǐng)一位不熟悉本系統(tǒng)的人來(lái)進(jìn)行隨意性的操作，打破習(xí)慣的操作順序，從中發(fā)現(xiàn)錯(cuò)誤，在此階段系統(tǒng)的大量錯(cuò)誤得到了改正。 由于此次畢業(yè)設(shè)計(jì)時(shí)間較短，加之現(xiàn)階段所學(xué)知識(shí)有限，整個(gè)設(shè)計(jì)過(guò)程中出了不少的錯(cuò)誤，但經(jīng)過(guò)老師的指正，同學(xué)間的溝通，資料的查閱，程序的大框架建立了，基本功能模塊也在畢業(yè)前實(shí)現(xiàn)了，完成了程序的設(shè)計(jì)過(guò)程。 這次的畢業(yè)設(shè)計(jì)，讓我學(xué)會(huì)了做事的嚴(yán)謹(jǐn)、認(rèn)真。也