行的真实数据测试。
在具体的测试中，一般应遵循以下原则：由程序设计者之外的人进行测试；测试用例应由两部分组成：输入数据和预期输出结果；应选用不合理的输入数据与非法输入测试；不仅要检验程序是否实现预期功能，还应检查程序是否做了不应该做的工作；集中测试容易出错的程序模块；对程序修改以后，必须重新进行测试。
7．3测试方法
一般来说，对程序测试有两种测试方法：如果已经知道了软件系统应具有的功能，可通过测试来对每个功能是否都能正常使用；如果知道程序的内部工作过程，可以通过测试来检测程序内部是否按照规格说明书的规定正常进行。前一种方法称为黑盒测试，后一种方法称为白盒子测试。黑盒测试又称为功能测试，白盒子测试又称为结构测试。
经过几个月的毕业设计，因为时间和任务的性质的关系，没有完全按照上述的测试方法进行系统的测试，但经过一些简单的步骤的测试，证明本系统具有相当程序的稳定性。
致 谢
经过四个多月的构思与设计，在指导老师的精心指导和安排下，本系统已经设计完毕。其使用功能基本符合公司在实际工作的需要，具有一定的实用性。但是由于时间比较仓促，加上本人软件设计经验的不足。因此，在分析问题、解决问题时显得不够严密、完善，还需要在以后的工作中不断地改进和完善。
在这次的毕业设计中，让我深深地体现到进行软件开发不是一件简单的事情，它需要设计者具有全面的专业知识、缜密的思维、严谨的工作态度以及较高的分析问题、解决问题的能力，而我在很多方面还有欠缺。最后，我要衷心感谢老师在我的设计过程中给予我的极大帮助，使我能够及时、顺利地完成此次的毕业设计。同时，也要感谢我的老师和同学们及实习企业在本系统的设计过程中给予我的支持和帮助。
参考文献
[1]王福成等： <
[2]郭振波编著： << 深入浅出Visual Basic 6.0中文版>>， 人民邮电出版社2003年3月
[3]林永等编著： <
附录 源程序清单
Option Explicit
Dim Bupdata As Boolean Dim i As Integer
Private Sub Cmbdegree_Click()
If Cmbdegree.Text = \定制\ FrmTable.Show
Cmbdegree.ListIndex = 0 End If End Sub
Private Sub Cmbdepart_Click()
If Cmbdepart.Text = \定制\ FrmTable.Show
Cmbdepart.ListIndex = 0 End If End Sub
Private Sub CmdAddNew_Click()
If CmdAddNew.Caption = \添加\ CmdAddNew.Caption = \确认\ CmdDel.Enabled = False CmdOK.Enabled = False DataA.ReadOnly = False For i = 1 To 12
If Txt(i).Text = \ Next i
DataA.Recordset.AddNew Txt(0).Locked = False
If FrmMain.cutable = \
DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now If Opsex(0) Then
DataA.Recordset.Fields(4) = \男\ Else
DataA.Recordset.Fields(4) = \女\ End If
DataA.Recordset.Fields(7) = Cmbdegree.Text DataA.Recordset.Fields(8) = Cmbdepart.Text
ElseIf FrmMain.cutable = \
DataA.Recordset.Fields(8) = frmLogin.EmploID DataA.Recordset.Fields(9) = Now Else
DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now End If
Txt(0).SetFocus Else 'OK
If Txt(0).Text = \ MsgBox \不可以为空\ Txt(0).SetFocus Exit Sub End If
For i = 1 To 12
If Txt(i).Text = \ Next i
If FrmMain.cutable = \ DataB.Recordset.FindFirst \职工编号=\ If Not DataB.Recordset.NoMatch Then MsgBox \职员编号重复\ Txt(0).Text = \ Txt(0).SetFocus Exit Sub End If
ElseIf FrmMain.cutable = \
DataB.Recordset.FindFirst \假条编号=\ If Not DataB.Recordset.NoMatch Then MsgBox \假条编号重复\ Txt(0).Text = \ Txt(0).SetFocus Exit Sub End If Else
For i = 4 To 10
If Not IsNumeric(Txt(i).Text) Then MsgBox \ Txt(i).SetFocus Exit Sub End If Next i
DataB.Recordset.FindFirst \工资编号=\ If Not DataB.Recordset.NoMatch Then MsgBox \工资编号重复\
Txt(0).Text = \ Txt(0).SetFocus Exit Sub End If End If
DataA.Recordset.Update DataA.Recordset.MoveLast FrmMain.DataA.Refresh
FrmMain.DataB.Refresh DataB.Refresh
CmdAddNew.Caption = \添加\ CmdDel.Enabled = True CmdOK.Enabled = True End If End Sub
Private Sub CmdCacel_Click()
If CmdAddNew.Caption = \确认\ DataA.Recordset.CancelUpdate End If
FrmMain.Enabled = True FrmMain.SetFocus Unload Me
FrmMain.DataA.Refresh
If FrmMain.cutable = \
FrmMain.DBGA.Columns(\性别\ FrmMain.DBGA.Columns(\学历\ FrmMain.DBGA.Columns(\部门\End If End Sub
Private Sub CmdDel_Click() DataA.ReadOnly = False DataA.Recordset.Delete DataA.Recordset.MoveNext If DataA.Recordset.EOF Then DataA.Recordset.MoveLast End If
FrmMain.DataA.Refresh End Sub
Private Sub cmdOK_Click() If Txt(0).Text = \ MsgBox \不可以为空\ Txt(0).SetFocus Exit Sub End If
Bupdata = False
DataA.Recordset.Edit
If FrmMain.cutable = \
DataA.Recordset.Fields(8) = frmLogin.EmploID DataA.Recordset.Fields(9) = Now ElseIf FrmMain.cutable = \
DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now If Opsex(0) Then
DataA.Recordset.Fields(4) = \男\ Else
DataA.Recordset.Fields(4) = \女\ End If
DataA.Recordset.Fields(7) = Cmbdegree.Text DataA.Recordset.Fields(8) = Cmbdepart.Text DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now Else
For i = 4 To 10
If Not IsNumeric(Txt(i).Text) Then MsgBox \ Txt(i).SetFocus Exit Sub End If Next i
DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now End If
For i = 1 To 12
If Txt(i).Text = \ Next i
DataA.Recordset.Update FrmMain.DataA.Refresh DataB.Refresh End Sub
Private Sub DataA_Validate(Action As Integer, Save As Integer) If Action = 11 And Bupdata Then Save = 0 End If End Sub
Private Sub Lab_Click(Index As Integer) End Sub
Private Sub Txt_KeyPress(Index As Integer, KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack And Index = 0 Then