VB+库存管理系统+开题报告(八)
; & "经手人：" & DBCombo4.Text & vbCrLf _
, vbExclamation + vbOKCancel + vbApplicationModal, "提示")
If a = 1 Then
Data5.Recordset.AddNew
Data5.Recordset("名称") = DBCombo2.Text
Data5.Recordset("供应商") = DBCombo3.Text
Data5.Recordset("数量") = Text1.Text
Data5.Recordset("单价") = Text2.Text
Data5.Recordset("经手") = DBCombo4.Text
Data5.Recordset("日期") = Date
Data5.Recordset("时间") = Time
Data5.UpdateRecord
Data5.Recordset.Bookmark = Data5.Recordset.LastModified
'************************
Data2.Recordset.Edit
Data2.Recordset("数量") = Val(Label4.Caption) + Val(Text1.Text)
Data2.Recordset.Update
MsgBox "入库成功！"
'asPopup4.Enabled = True
End If
If a = 2 Then Exit Sub
End Sub
④查询打印窗体如下：
图6-4 查询打印窗体
查询打印代码设计：
查询部分：
Private Sub asPopup1_Click(Cancel As Boolean)
If DataEnvironment1.rsCommand2.State <> adStateClosed Then
DataEnvironment1.rsCommand2.Close
End If
DataEnvironment1.Commands("Command2").Parameters(0) = CStr(DTPicker1.Value)
DataEnvironment1.Commands("Command2").Parameters(1) = CStr(DTPicker2.Value)
DataGrid1.DataMember = "Command2"
Set DataGrid1.DataSource = DataEnvironment1
End Sub
打印部分：
Private Sub asPopup11_Click(Cancel As Boolean)
If DataEnvironment1.rsCommand2.State <> adStateClosed Then
DataEnvironment1.rsCommand2.Close
End If
DataEnvironment1.Commands("Command2").Parameters(0) = CStr(DTPicker1.Value)
DataEnvironment1.Commands("Command2").Parameters(1) = CStr(DTPicker2.Value)
DataGrid1.DataMember = "Command2"
Set DataGrid1.DataSource = DataEnvironment1
DataReport3.Show
DataReport3.Sections(2).Controls("Label13").Caption = "开始时间:" & CStr(DTPicker1.Value)
DataReport3.Sections(2).Controls("Label14").Caption = "结束时间:" & CStr(DTPicker2.Value)
End Sub
第七章 程序安装与调试
7．1 调试
系统调试的目的是发现程序和系统中的错误并及时予以纠正。在一个系统中调试应该包括程序调试、功能调试（分调）、总调，在库存管理系统中用的调试方法也包括这些：
1． 程序调试
包括语法调试和逻辑检查，测试数据除采用正常数据外，还应用一些异常资料，用来考验程序的正确性。
① 用正常资料调试。
② 用异常资料调试。
③ 用错误资料调试。
2．分调
即将一个功能内所有程序按次序串联起来调试。
3．总调
将主控制调度程序和功能模块联结起来调试。
7．2测试
测试是系统开发周期中一个十分重要的阶段，其重要性体现在它是保证系统质量与可靠性的最后关口，是对整个系统开发过程的最终审查，如果错误不能在测试阶段被发现并纠正，就会造成不堪设想的后果。在库存管理系统中测试的对象不仅仅是源程序，而是整个软件。系统测试是以找错误为目的，
