W
wyoooooo
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.BitBtn10Click(Sender: TObject);
var
j:integer;
i:integer;
df:integer;
zf:integer;
testda,bzda:string;
begin
for j:=0 to 5 do
begin
zf:=0;//存储总分
testda:=adodataset1.FieldByName('ksda').asstring;//考生的答案
bzda:=adodataset2.fieldbyname('da').asstring;//标准答案
df:=adodataset2.fieldbyname('dafz').asinteger;//分值
for i:=0 to length(testda)-1 do
begin
if testda=bzda then
zf:=zf+df;//这句出错；
adodataset2.Next;//这句出错；
end;
adodataset3.edit;
adodataset3.insert;
adodataset3.fieldbyname('ksid'):=adodataset1.fieldbyname('ksid');
adodataset3.fieldbyname('kscj'):=zf;
adodataset2.first;
end;
end;
这段代码的作用是将两个表中的数据进行比较，如果相等就加分，不等就不加。
var
j:integer;
i:integer;
df:integer;
zf:integer;
testda,bzda:string;
begin
for j:=0 to 5 do
begin
zf:=0;//存储总分
testda:=adodataset1.FieldByName('ksda').asstring;//考生的答案
bzda:=adodataset2.fieldbyname('da').asstring;//标准答案
df:=adodataset2.fieldbyname('dafz').asinteger;//分值
for i:=0 to length(testda)-1 do
begin
if testda=bzda then
zf:=zf+df;//这句出错；
adodataset2.Next;//这句出错；
end;
adodataset3.edit;
adodataset3.insert;
adodataset3.fieldbyname('ksid'):=adodataset1.fieldbyname('ksid');
adodataset3.fieldbyname('kscj'):=zf;
adodataset2.first;
end;
end;
这段代码的作用是将两个表中的数据进行比较，如果相等就加分，不等就不加。