学生教材管理系统论文.docVIP

TOC \o 1-5 \h \z HYPERLINK If Option 1 .Value = True Then 教材入库杳询.Command3.Enabled = False If Text 1 MH Then 教材入库查询.Adodcl.RecordSource = select * from 教材入库表 where 经手人 like %u Textl 、%T 教材入库杳询.Adodcl .Refresh If 教材入库杏询.Adodcl.Recordset.RecordCount = OThen MsgBox ”没有找到您所需要结果！ “,，”系统提示” Else Unload Me End If Else MsgBox M请输入要杳询的值！” Textl.SetFocus End If End If If Option2.Value = True Then 教材入库杳询.AdodcI.RecordSource = select * from教材入库表 where入库日期二# DTPickerl.Value 教材入库查询.Adodc 1. Refresh If 教材入库杏询.Adodcl.Recordse匸RecordCoum = 0Then MsgBox “没有找到您所需要结果！ ”,，”系统提示” Else Unload Me End If End If If Option3.Value = True Then 教材入库杏询.Command3.Enabled = False If Text 1 ,,M Then 教材入库查询.Adodc 1 .RecordSource = select * from 教材入库表 where 教材名 like % Text 1.Text ”％，” 教材入库查询.Adodc 1.Refresh If 教材入库查询.Adodc I .Recordset.RecordCount = 0 Then MsgBox ”没有找到您所需要结果！ “,，”系统提示” Else Unload Me End If Else MsgBox”请输入要查询的值！” Textl.SetFocus End If End If If Option4.Value = True Then If Text 1 Then 教材入库查询.Adodc 1 .RecordSource = select * from 教材入库表 where 出版社 like % Text 1.Text 教材入库杳询.Adodc 1 .Refresh If 教材入库查询.Ackxlc 1 .Recordset.RecordCount = 0 Then MsgBox “没有找到您所需耍结果！ “,, ”系统提示” Else Unload Me End If Else MsgBox M请输入要查询的值！” Text 1 .SetFocus End If End If If Option5.Value = True Then 教材入库查 W.Command3.Enabled = True If Text 1 MM Then 教材入库查询.Adodc 1 .RecordSource = select * from 教材入库表 where 书类别 like *% Text 1.Text 教材入库杳询.Adodc 1 .Refresh dylx = 1 If 教材入库查询.Adodc 1 .Recordset.RecordCount = 0 Then MsgBox “没有找到您所需耍结果！ “,，”系统提示” Else Unload Me End If Else MsgBox”请输入要查询的值！” Textl.SetFocus End If End If End Sub 第五章系统测试与运行 它实施对软件规格说明、设计规格说明和编码的最终审核。软件测试的冃的是以最 少的人力、物力和时间投入，尽可能多地找出软件中潜在的各种错谋和缺陷。测试的结 果为软件可靠性分析提供了依据。 5.1登录界面的测试 该测试的冃的是保证登录窗口的正确性与在错误发生时的容错与纠错性。如果输入 正确用户和密码则会进入系统。当在登录界而屮输入错的用户名或错误的用户密码时， 例如输入用户名为将用户jyh或错误密码为1231时，系统会弹出对话框提示输入错误。 5. 2教材入库界面测试 该测试的冃的是保证添加教材信息窗口的正确性与在数据输入不正确或有异常数 据时的容错与纠错性。当输入正确信息时（书名：国际贸易，编号：001001作者：王 晓敏 岀版社：高教出版社）此时会显示纪录完成。当输入错误数据时（书名：国际贸 易，编号：001001作者：王晓墩 出版社：）此时系统