原创文档范文 → 计算机专业原创文档范文 软件技术专业原创文档范文 现成文档范文 → 计算机文档范文

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("单价"..

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测试
测试是系统开发周期中一个十分重要的阶段，其重要性体现在它是保证系统质量与可靠性的最后关口，是对整个系统开发过程的最终审查，如果错误不能在测试阶段被发现并纠正，就会造成不堪设想的后果。在库存管理系统中测试的对象不仅仅是源程序，而是整个软件。系统测试是以找错误为目的，

首页上一页 5 6 7 8 9 下一页尾页 8/9/9

VB+库存管理系统+开题报告(八)......


上一篇：{免费范文}消息队列的分布式数据..	下一篇：VB+通讯录信息管理系统+范文PPT及..

点击查看关于 库存管理系统开题报告 的相关范文题目

【返回顶部】