vb客户管理系统(论文+源程序) 第6页
 本设计的系统，打印报表模块中可以打印到货信息，退货信息和库存信息。在设计这三个部分打印信息时候会有这样的一个问题，如果先进行打印到货信息，后进行打印库存信息和退货信息系统就会出错。在程序设计的过程中经常会出现这种出乎意料的错误。为了解决这个问题，我在程序中引用了一个变量“I”，利用改变变量“I”的值来控制程序流程的先后顺序，从而避免了错误的产生。打印到货信息代码如代码6.3所示，打印退货信息代码如代码6.4所示。信息表打印效果如图6.15所示。
Private Sub DHXX_Click()
If i = 0 Or i > 1 Then '如果i=0 代表窗体启动时首先点击到货菜单
i = i + 2              '步长为2，越过打印库存信息和打印退货信息而引起的错误信息
    DataEnvironment1.rsCom_dhxx.Open "select * from Table_dhb"
    If DataEnvironment1.rsCom_dhxx.RecordCount > 0 Then
    DataRep_dhxx.Show
    Else
    DataEnvironment1.rsCom_dhxx.Close
    MsgBox "没有到货信息", 64, "客户管理系统"
    End If
ElseIf i = 1 Then
    DataEnvironment1.rsCom_dhxx.Close
    DataEnvironment1.rsCom_dhxx.Open "select * from Table_dhb"
    If DataEnvironment1.rsCom_dhxx.RecordCount > 0 Then
    DataRep_dhxx.Show
    Else
    DataEnvironment1.rsCom_dhxx.Close
    MsgBox "没有到货信息", 64, "客户管理系统"
    End If
Else
End If
End Sub
代码6.3 打印到货信息
Private Sub THXX_Click()
 If i = 0 Or i = 1 Then    '如果首先点击退货菜单，那么I值变为1，代表首先点击的不是退货菜单
 i = i + 1
 Else
 End If
    DataEnvironment1.rsCom_thxx.Open "select * from Table_thb"
    If DataEnvironment1.rsCom_thxx.RecordCount > 0 Then
    DataRep_thxx.Show
    Else
    DataEnvironment1.rsCom_thxx.Close
    i = i + 2              '如果没有打印的信息，I值就跳过1
    MsgBox "没有退货信息", 64, "客户管理系统"
    End If
End Sub
代码6.4 打印到货信息图6.15 信息表打印效果
7 系统运行测试与调试
软件测试时软件质量保证的重要手段，是软件生存周期中的一个重要阶段，软件测试时对软件规格说明、软件设计和编码的最后复审，其工作量占软件开发总工作量的40%左右。
7.1基本理论知识
1.基本概念
软件测试是为了发现程序中的错误而执行程序的过程。软件测试的目标：
(1)测试是为了发现程序中的错误而执行程序的过程。
(2)好的测试方案是尽可能发现迄今为止尚未发现的错误的测试方案。
(3)成功的测试时发现了至今为止尚未发现的错误的测试。 
2.软件测试技术
软件测试技术包括人工测试和机器测试。其中机器测试包括白盒测试和黑盒测试。
3.软件测试策略
软件测试策略主要是考虑如何把设计测试用例的技术组织成一个系统的、有计划的测试步骤。
在软件工程环境中的测试过程，实际上是按照单元测试、集成测试、确认测试和系统测试顺序进行的四个步骤。
4.软件调试
软件调试也称纠错，调试不是测试，但总在测试之后发生。调试的任务就是根据测试时发现的错误，找出错误原因和具体错误的位置，并进行修改。调试工作是由软件开发者来进行，坚持谁开发谁调试的原则。
7.2 系统运行测试与调试
在添加库存信息的时候，发现生成的库存货物编号有重复的现象如图7.1所示。然而在实际的应用中库存编号是唯一的，是绝对不允许重复的。
出现重复货物编号时，【增加】按钮的事件代码如下：
Private Sub Cmd_add_Click()
……………
Dim temp1
temp1 = Format(Now, "yyyymmdd")
Adodc1.RecordSource = "select * from Table_kcb where 货物编号 like '%" + temp1 + "%'
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveLast
Text1.Text = Adodc1.Recordset.Fields("货物编号")
Text1.Text = Val(Adodc1.Recordset.Fields("货物编号")) + 1Else

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页