【文章內(nèi)容簡介】 方面還有欠缺。最后，我要衷心感謝老師在我的設(shè)計過程中給予我的極大幫助，使我能夠及時、順利地完成此次的畢業(yè)設(shè)計。同時，也要感謝我的老師和同學(xué)們及實習(xí)企業(yè)在本系統(tǒng)的設(shè)計過程中給予我的支持和幫助。參考文獻(xiàn)[1]王福成等：　Visual Basic ，　清華大學(xué)出版社　2002年6月[2]郭振波編著： 深入淺出Visual Basic ， 人民郵電出版社2003年3月[3]林永等編著： Visual Basic ， 人民郵電出版社2002年11月[4]劉炳文等編著： Visual Basic 程序設(shè)計教程 ，清華大學(xué)出版社 2000年7月附錄 源程序清單Option ExplicitDim Bupdata As BooleanDim i As IntegerPrivate Sub Cmbdegree_Click() If = 定制 Then = 0 End IfEnd SubPrivate Sub Cmbdepart_Click() If = 定制 Then = 0 End IfEnd SubPrivate Sub CmdAddNew_Click() If = 添加 Then = 確認(rèn) = False = False = False For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 39。(i) = 0 Next i Txt(0).Locked = False If = employee Then (13) = (14) = Now If Opsex(0) Then (4) = 男 Else (4) = 女 End If (7) = (8) = ElseIf = leave Then (8) = (9) = Now Else (13) = (14) = Now End If Txt(0).SetFocus Else 39。OK If Txt(0).Text = Then MsgBox 不可以為空 Txt(0).SetFocus Exit Sub End If For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 39。(i) = 0 Next i If = employee Then 職工編號= + Txt(0).Text If Not Then MsgBox 職員編號重復(fù) Txt(0).Text = Txt(0).SetFocus Exit Sub End If ElseIf = leave Then 假條編號= + Txt(0).Text If Not Then MsgBox 假條編號重復(fù) Txt(0).Text = Txt(0).SetFocus Exit Sub End If Else For i = 4 To 10 If Not IsNumeric(Txt(i).Text) Then MsgBox not a number Txt(i).SetFocus Exit Sub End If Next i 工資編號= + Txt(0).Text If Not Then MsgBox 工資編號重復(fù) Txt(0).Text = Txt(0).SetFocus Exit Sub End If End If = 添加 = True = True End IfEnd SubPrivate Sub CmdCacel_Click() If = 確認(rèn) Then End If = True Unload Me If = employee Then (性別).Button = True (學(xué)歷).Button = True (部門).Button = TrueEnd IfEnd SubPrivate Sub CmdDel_Click() = False If Then End If End SubPrivate Sub cmdOK_Click() If Txt(0).Text = Then MsgBox 不可以為空 Txt(0).SetFocus Exit Sub End If Bupdata = False If = leave Then (8) = (9) = Now ElseIf = employee Then (13) = (14) = Now If Opsex(0) Then (4) = 男 Else (4) = 女 End If (7) = (8) = (13) = (14) = Now Else For i = 4 To 10 If Not IsNumeric(Txt(i).Text) Then MsgBox not a number Txt(i).SetFocus Exit Sub End If Next i (13) = (14) = Now End If For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 39。(i) = 0 Next i End SubPrivate Sub DataA_Validate(Action As Integer, Save As Integer) If Action = 11 And Bupdata Then Save = 0 End IfEnd SubPrivate Sub Lab_Click(Index As Integer)End SubPrivate Sub Txt_KeyPress(Index As Integer, KeyAscii As Integer) If (KeyAscii 48 Or KeyAscii 57) And KeyAscii vbKeyBack And Index = 0 Then KeyAscii = 0 Exit Sub End If If = leave And Index = 1 Then If (KeyAscii 48 Or KeyAscii 57) And KeyAscii vbKeyBack Then KeyAscii = 0 Exit Sub End If End If If = salary Then If Index = 3 Then If (KeyAscii 48 Or KeyAscii 57) And KeyAscii vbKeyBack Then KeyAscii = 0 Exit Sub End If End If If Index = 13 Then Exit Sub If (KeyAscii 48 Or KeyAscii 57) And KeyAscii vbKeyBack And KeyAscii 46 Then KeyAscii = 0 Exit Sub End If End IfEnd SubPrivate Sub Txt_change(Index As Integer) If Bupdata = False Then Bupdata = True If = salary Then If Txt(Index).Text = Then Exit Sub If Index = 4 And Index = 6 Then Txt(7).Text = Val(Txt(4).Text) + Val(Txt(5).Text) + Val(Txt(6).Text) Txt(12).Text = Val(Txt(7).Text) Val(Txt(11).Text) End If If Index = 8 And Index = 10 Then Txt(11).Text = Val(Txt(8).Text) + Val(Txt(9).Text) + Val(Txt(10).Text) Txt(12).Text = Val(Txt(7).Text) Val(Txt(11).Text) End If End IfEnd SubPrivate Sub Form_Load() = + \ = + \ = = select * from + = select * from + Txt(0).Locked = True 39。If = 0 Then Exit Sub If = employee Then 39。employee For i = 0 To 12