ng
gzcstj=0
gzsjtj=0
qrqtemp=Combo1.Text&Combo2.Text&"00"
zrqtemp=Combo1.Text&Combo3.Text&"31"
Setcn=NewConnection
cn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\comp_manage.mdb;PersistSecurityInfo=False"
cn.Execute"deletefromb_gztj"
Setgztjrs=NewRecordset
gztjrs.CursorLocation=adUseClient
gztjrs.CursorType=adOpenKeyset
gztjrs.Open"select*fromb_gztj",cn,adOpenKeyset,adLockOptimistic
'人员
Setryrs=NewRecordset
ryrs.CursorLocation=adUseClient
ryrs.CursorType=adOpenKeyset
ryrs.Open"select*fromrygl",cn,adOpenKeyset,adLockOptimistic
Ifryrs.RecordCount<=0ThenExitSub
ryrs.MoveFirst
'循环
DoWhileNotryrs.EOF
Setrs=NewRecordset
rs.CursorLocation=adUseClient
rs.CursorType=adOpenKeyset
rs.Open"select*fromwxrzwherewxrylike'"&ryrs!gh&"'andbxsrqbetween'"&qrqtemp&"'and'"&zrqtemp&"'",cn,adOpenKeyset,adLockOptimistic
'统计
Ifrs.RecordCount<>0Then
yjc=0
rjc=0
qtc=0
yjtemp=0
rjtemp=0
qttemp=0
DoWhileNotrs.EOF
SelectCasers!gzlx
Case"硬件"
yjc=yjc+1
yjtemp=counttime(Val(yjtemp),rs!wxgs)
Case"软件"
rjc=rjc+1
rjtemp=counttime(Val(rjtemp),rs!wxgs)
Case"其他"
qtc=qtc+1
qttemp=counttime(Val(qttemp),rs!wxgs)
EndSelect
rs.MoveNext
Loop
rytemp=ryrs!oper_name
gztjrs.AddNew
gztjrs!wxry=rytemp
gztjrs!yj=Format(yjtemp,"#0.00")
gztjrs!yjcs=yjc
gztjrs!rj=Format(rjtemp,"#0.00")
gztjrs!rjcs=rjc
gztjrs!qt=Format(qttemp,"#0.00")
gztjrs!qtcs=qtc
gztjrs!xj=Format(counttime(counttime(Val(yjtemp),Val(rjtemp)),Val(qttemp)),"#0.00")
gztjrs.Update
gzcstj=gzcstj+yjc+rjc+qtc
gzsjtj=counttime(gzsjtj,gztjrs!xj)
EndIf
ryrs.MoveNext
Loop
Text1.Text=gzcstj
Text2.Text=Format(gzsjtj,"0.00")
'绑定到DataGrid1显示
SetDataGrid1.DataSource=gztjrs
EndSub
第六章测试计划
6.1 引言:
为了发现程序中错误,确定其性质,并且加以纠正,进行一系列测试。
6.2 计划:
以下是我测试本系统的过程。
下面是我对"添加部门"操作进行单元测试的过程,见图表16、图表17。
图表16部门添加流程图表17部门添加程序
下面将以白盒测试法设计测试用例。其中:用户名、密码、标记分别表示用户名称、用户密码、是否高级用户。用户04的密码不是123,用户01添加部门的操作等。
6.3 测试设计说明
编码完成后要对源程序进行测试,找出在设计甚至分析阶段早期潜伏的错误或编码中新引入的错误,并排队提高软件可靠性。
6.4 测试评价准则
1、是否有尚未实现的功能需求。
2、执行时的响应时间和处理速度,占用内存和外存容量,以及通道传输能力是否符合标准。
3、检查程序对强负荷的承受能力。
4、程序文档是否配齐完整。
表格6白盒测试用例
序
号
测试数据
覆盖节点
覆盖的边
期望结果
1
用户名:04
密码:123
1,2,3,9,8
a,b,c,k,n,i
提示密码错误
2
用户名:01
密码:01
1,2,3,4,5,6,9,8
A,b,c,d,e,f,m,n,i
提示取消部门添加
3
用户名:01
密码:01
1,2,3,4,5,6,7,8
a,b,c,d,e,f,g,h,i
提示部门添加成功
第七章测试分析报告
7.1 引言
为了发现找出本系统中的错误,并及时将其纠正,进行一系列的测试。本系统测试员:张广举。
7.2 测试概要
编码完成后,就要对源程序进行测试。软件测试的目的在于争取在第一时间内发现程序中的错误,以便于及时纠错,增加软件可靠性。其在整个系统设计实施过程中占有相当的分量。
由测试计划的白盒测试用例表达式中的五个测试用例已经达到对程序图的完全覆盖。下面我们就在程序中使用以上数据进行测试,看结果如何。
测试用例1:结果如下图,测试正确。
图表18 测试结果1
测试用例2:结果如下图,测试正确。
图表19测试结果2
测试用例3:结果如下图,测试正确。
图表20测试结果3
7.3测试结果:
结果测试通过,基本符合功能要求,程序文档配备齐全。
7.4软件功能的结论:
可根据用户输入的信息,实现相应的操作。
参考文献:
1、MichaelHalvorson.MicrosoftVisualBasic6.0ProfessionalStepbyStep.美国:Microsoft出版社,1999
2、MicrosoftCorporation.VisualBasic6.0Programmer'sGuide.美国:Microsoft出版社,1998
3、Microsoft.MicrosoftVisualBasic6.0ControlsReference.美国:Microsoft出版社,1999
4、http://www.vbgood.com
5、http://www.vbeden.com
6、http://vbworld.sxnw.gov.cn
7、http://www.hongen.com/pc/program/vb
致谢
经过这次实践性很强的毕业设计,孟家沟港计算机维修管理系统基本开发完毕。其功能基本满足工作人员对维修管理的要求,能够实现维修状况的记录、工时统计以及历史维修资料查询。
在这次毕业设计的过程中,无论在理论上还是在实践上,都使我学会了独立地处理项目开发过程的每一步。但是由于我是第一次独立开发软件,且本人的能力有限,该系统还有许多不尽人意之处,比如打印处理方面、程序容错方面、用户操作便利性方面等还不够完善,这还须进一步加以改进。
最后,我特别感谢我们的指导老师给予我的无私帮助,使我解决了许多实现不了的难点,使得系统能及时开发完成。
??
??
??
??
第-7-页
上一篇:
VB计算机等级考试管理系统-报名管理(论文和程序)
下一篇:
关于搞好高职学生政治经济学教学的思考