商品仓库管理系统测试报告测试文档

end;

begin

if(LeftStr(edit1.Text,2)='YB')then

menumangerform.Show

else

chaxun.Show;

end;

end;

测试结果：通过

2.测试Tmenumangerform中的insertClick(Sender:TObject)

函数声名如下：

Procedure.menumangerform.insertClickClick(Sender:TObject);

函数预期实现的功能：对货物信息进行增删改查的操作。

procedure Tmenumangerform.insertClick(Sender:TObject);

var

sqlstr:string;

begin

ADODSt.open;

ADODSt.Insert;

save.Enabled:=true;

cancel.Enabled:=true;

insert.Enabled:=false;

end;

测试结果：通过。

3.测试TCostmangerform中的Button1Click(Sender:TObject)，TCostmangerform

函数声名如下：

procedure TCostmangerform.Button1Click(Sender:TObject);

函数预期实现的功能：对货物数量进行修改。

输入：

adosp1.Parameters[0].Value:=ComboBox1.Text;

期望输出：

flag:=true;

adosp1.Next;

测试结果：通过。

4.测试TSchaxun中的Button1Click，

函数声明如下：

procedure TSchaxun.Button1Click(Sender:TObject);函数预期实现的功能：对货物的基本信息进行查询。

输入：

case sVlaue of

0:sqlstr:='select*from Student,Grade where Student.Num='''+edit1.text+''' and Student.Num=Grade.Num';

期望输出：