名称")=Combo1.Text
Adodc1.Recordset("型号")=Text1.Text
Adodc1.Recordset("单价")=Text2.Text
Adodc1.Recordset("数量")=Text3.Text
Adodc1.Recordset("单位")=Text4.Text
Adodc1.Recordset("总金额")=Text5.Text
Adodc1.Recordset("入库日期")=DTPicker1.Value
Adodc1.Recordset("经办人")=Text6.Text
Adodc1.Recordset.Update
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Combo1.Text=""
EndIf
Else
MsgBox"数据不能为空,请输入数据!"
EndIf
EndSub
PrivateSubCommand4_Click()
IfLen(Text1.Text)<>0AndLen(Combo1.Text)<>0Then
aa=MsgBox("真的要删除该商品吗?",1,"消息")
Ifaa=1Then
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Combo1.Text=""
EndIf
Else
MsgBox"数据不能为空,请选择商品!"
EndIf
EndSub
PrivateSubCommand5_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Combo1.Text=""
IfCommand1.Caption="保存"Then
Command1.Caption="增加"
Command3.Enabled=True
EndIf
EndSub
PrivateSubDataGrid1_Click()
IfCommand1.Caption="保存"Then
Command1.Caption="增加"
EndIf
IfAdodc1.Recordset.EOF=FalseAndAdodc1.Recordset.BOF=FalseThen
Combo1.Text=Adodc1.Recordset("商品名称")
Text1.Text=Adodc1.Recordset("型号")
Text2.Text=Adodc1.Recordset("单价")
Text3.Text=Adodc1.Recordset("数量")
Text4.Text=Adodc1.Recordset("单位")
Text5.Text=Adodc1.Recordset("总金额")
DTPicker1.Value=Adodc1.Recordset("入库日期")
Text6.Text=Adodc1.Recordset("经办人")
EndIf
EndSub
④查询打印窗体如下:
图6-4查询打印窗体
查询打印代码设计:
查询部分:
DimadstatecloseAsAccessConstants
IfCombo1.Text<>""Then
IfCombo1.Text="库存总库"Then
IfDataCombo1.Text<>""AndText1.Text<>""Then
IfDataEnvironment2.rsCommand3.State<>adstatecloseThen
DataEnvironment2.rsCommand3.Close
EndIf
DataEnvironment2.Command3DataCombo1.Text,Text1.Text,DTPicker1.Value,DTPicker2.Value
SetDataGrid1.DataSource=DataEnvironment2
DataGrid1.DataMember="command3"
EndIf
IfDataCombo1.Text<>""AndText1.Text=""Then
IfDataEnvironment2.rsCommand4.State<>adstatecloseThen
DataEnvironment2.rsCommand4.Close
EndIf
DataEnvironment2.Command4DataCombo1.Text,DTPicker1.Value,DTPicker2.Value
SetDataGrid1.DataSource=DataEnvironment2
DataGrid1.DataMember="command4"
EndIf
Else
IfDataCombo1.Text<>""AndDataCombo2.Text<>""AndText1.Text<>""Then
IfDataEnvironment2.rsCommand5.State<>adstatecloseThen
DataEnvironment2.rsCommand5.Close
EndIf
DataEnvironment2.Command5DataCombo2.Text,DataCombo1.Text,Text1.Text,DTPicker1.Value,DTPicker2.Value
SetDataGrid1.DataSource=DataEnvironment2
DataGrid1.DataMember="command5"
EndIf
IfDataCombo2.Text=""AndDataCombo1.Text<>""AndText1.Text<>""Then
IfDataEnvironment2.rsCommand6.State<>adstatecloseThen
DataEnvironment2.rsCommand6.Close
EndIf
DataEnvironment2.Command6DataCombo1.Text,Text1.Text,DTPicker1.Value,DTPicker2.Value
SetDataGrid1.DataSource=DataEnvironment2
DataGrid1.DataMember="command6"
EndIf
IfDataCombo2.Text<>""AndDataCombo1.Text<>""AndText1.Text=""Then
IfDataEnvironment2.rsCommand7.State<>adstatecloseThen
DataEnvironment2.rsCommand7.Close
EndIf
DataEnvironment2.Command7DataCombo2.Text,DataCombo1.Text,DTPicker1.Value,DTPicker2.Value
SetDataGrid1.DataSource=DataEnvironment2
DataGrid1.DataMember="command7"
EndIf
IfDataCombo2.Text=""AndDataCombo1.Text<>""AndText1.Text=""Then
IfDataEnvironment2.rsCommand8.State<>adstatecloseThen
DataEnvironment2.rsCommand8.Close
EndIf
DataEnvironment2.Command8DataCombo1.Text,DTPicker1.Value,DTPicker2.Value
SetDataGrid1.DataSource=DataEnvironment2
DataGrid1.DataMember="command8"
EndIf
IfDataCombo2.Text<>""AndDataCombo1.Text=""AndText1.Text=""Then
IfDataEnvironment2.rsCommand9.State<>adstatecloseThen
DataEnvironment2.rsCommand9.Close
EndIf
DataEnvironment2.Command9DataCombo2.Text,DTPicker1.Value,DTPicker2.Value
SetDataGrid1.DataSource=DataEnvironment2
DataGrid1.DataMember="command9"
EndIf
EndIf
EndIf
EndSub
第七章程序系统的测试与安装
软件在运行过程中可能会产生各种各样的问题,也可能带来不同程度的严重后果。软件测试是保证软件质量的最重要的手段。软件测试的概念IEEE定义为:使用人工或自动手段来运行或测定某个系统过程,其目的在于检验它是否满足规定的需求或是弄清预期结果与实际结果之间的差别。
尽管面向对象技术的基本思想保证了软件应该有更高的质量,但无论采用什么样的编程技术,编程人员的错误都不是可避免的,而且由于面向对象技术开发的软件代码重用率高,更需要严格测试,避免错误的繁衍。因此,软件测试在面向对象编程里更具有它的重要性。
典型的面向对象程序具有继承、封装和多态的新特性,这使得传统的测试策略必须有所改变。封装是对数据的隐藏,外界只能通过被提供的操作来访问或修改数据,这样降低了数据被任意修改和读写的可能性,降低了传统程序中对数据非法操作的测试。继承是面向以对象程序的重要特点,继承使得代码的重用率提高,同时也使错误传播的概率提高。多态性使得面向对象程序对外呈现出强大的处理能力,但同时却使得程序内"同一"函数的行为复杂化,测试时不得不考虑不同类型具体执行的代码和产生的行为。
功能测试:测试是否满足开发要求,是否能够提供设计所描述的功能,是否用户的需求都得到满足。功能测试是系统测试最常用和必须的测试,通常还会以正式的软件说明书为测试标准。
强度测试及性能测试:测试系统的能力最高实际限度,即软件在一些超负荷的情况,功能实现情况,如要求软件某一行为的大量重复、输入大量的数据、对数据库大量复杂性的查询等。测试软件的运行性能。这种测试常常与强度测试结合进行,需要事先对被测试软件提出性能指标,如传输连接的最长时限、传输的错误率、计算的精度、记录的精度、响应的时限和恢复时限等。
安全测试:验证安装在系统内的保护机构确实能够对系统进行保护,使之不受各种非常的干扰。
打印测试:在人工测试中用的是个人复查,当源程序编完以后,由编写人进行检查,但这种测试方法存在不足之处:有些习惯性的错误不易发现,如果对功能理解有误,不易纠正,所以在个人复查的基础上又用了机器测试中的白盒测试和黑盒测试,白盒测试:也称结构测试,将软件看作一个透明的白盒子
上一篇:
VB干部档案管理系统AC(论文和程序)
下一篇:
恋沫