adotable1.FieldByName('起订日期').原文请找腾讯752018766优,文'论'文,网
http://www.youerw.com/ ).AsInteger:=strtoint(edit1.Text);
adotable1.FieldByName('总额').AsCurrency:=strtofloat(dbtext5.Caption)*sum*strtoint(edit1.Text);
adotable1.Post;
if bktj.ADOTable1.RecordCount<1 then
begin
bktj.ADOTable1.Append;
bktj.ADOTable1.FieldByName('报刊代号').AsString:=dbtext1.Caption;
bktj.ADOTable1.FieldByName('份数').AsInteger:=strtoint(edit1.Text);
bktj.ADOTable1.Post;
end
else
begin
bktj.ADOTable1.First;
while not bktj.ADOTable1.Eof do
begin
if bktj.ADOTable1.FieldByName('报刊代号').AsString = DBText1.Caption then
begin
right:=false;
bktj.ADOTable1.Edit;
bktj.ADOTable1.FieldByName('份数').AsInteger:=bktj.ADOTable1.FieldByName('份数').AsInteger + strtoint(edit1.Text);
bktj.ADOTable1.Post;
bktj.ADOTable1.Last;
end
else
bktj.ADOTable1.Next;
end;
if right then
begin
bktj.ADOTable1.Append;
bktj.ADOTable1.FieldByName('报刊代号').AsString:=dbtext1.Caption;
bktj.ADOTable1.FieldByName('份数').AsInteger:=strtoint(edit1.Text);
bktj.ADOTable1.Post;
end;
end;
if application.MessageBox('订阅成功!要继续订阅吗?','订阅提示',1)=0 then
TabSheet1.Show;
adoquery1.Close;
adoquery1.Open;
adoquery2.Close;
adoquery2.Open;
end;
(4).报刊修改删除实现: procedure Tmoddel.Button2Click(Sender: TObject);
begin
if application.MessageBox('确定删除吗?','操作提示',1)=1 then
main.ADOQuery1.Delete;
end;
procedure Tmoddel.Button1Click(Sender: TObject);
begin
if application.MessageBox('确定修改吗?','操作提示',1)=1 then
begin
main.ADOQuery1.Edit;
main.ADOQuery1.Post;
end;
end;
4.2 系统测试
软件测试的目标或定义：1.测试是为了发现程序中的错误而执行程序的过程2.好的测试方案是极可能发现迄今为止尚未发现的错误的测试方案3.成功的测试是发了迄今为止尚未发现的错误的测试。
本系统采用黑盒测试方法，完全不考虑程序的内部结构和处理过程，只检查程序功能是否能按照规格说明书正常使用,是否能适当接收输入数据并产生正确结果的输出信息，是否能保持外部信息的完整性。
4.2.1 测试的理论基础
黑盒测试用于验证系统的各项功能是否能正常完成。由于实际情况的多样性，需要由多人重复测试，在不同情况下执行各项功能原文请找腾讯752018766优,文'论'文,网
http://www.youerw.com/ 作，其输出就是该功能的执行结果。黑盒测试着重测试软件功能。黑盒测试并不能取代白盒测试，它是与白盒测试互补的测试方法，它很可能发现白盒测试不易发现的其他类型错误。
黑盒测试发现下述类型错误：
● 功能不正确或遗漏了功能。
● 界面错误。
● 数据结构错误或外部数据库访问错误。
● 性能错误。
● 初始化和终止错误。
4.2.2 利用测试的理论设计测试用例和分析结果
根据已编好的代码，合法的输入项为：1、开始订阅日期一定要小于订阅结束日期。
2、用户名和密码一定要和数据库里相符。3、退订时一定要有退订的项目。4、一定要选择订阅份数。
测试情况1：开始订阅日期选2006年1月，订阅结束日期也选2006年1月。
预期输出结果：日期出错，订阅和结束日期不可以一样，提示重新选择。
实际运行如图：
上一页 [1] [2] [3] [4] [5] [6]
Delphi+Access报刊订阅管理系统设计论文+源码+流程图 第6页下载如图片无法显示或论文不完整，请联系qq752018766
