大家帮我看一看这段代码的错误在什么地方,小弟新手.请各位前辈指点一下.
with adoquery3 do
begin
Close;
SQL.Clear;
sql.Add('select max(id) as 最大记录 from 档案');
Open;
end;
if not ADOQuery3.FieldByName('最大记录').IsNull then
begin
i:=ADOQuery3.fieldbyname('最大记录').AsInteger;
end
else
begin
i:=0;
end;
with ADOQuery2 do
begin
close;
sql.Clear;
sql.Add('select max(id) as 最大记录 from 档案');
Open;
end;
if not adoquery2.FieldByName('最大记录').IsNull then
begin
j:=ADOQuery2.fieldbyname('最大记录').AsInteger;
end
else
begin
j:=0;
end;
if i=j then
begin
Exit;
end
else
with ADOQuery2 do
begin
close;
sql.clear;
sql.Add('insert into 档案 values(最大记录=:a,姓名=:b,性别=:c,年龄=:d,国籍=:e,学历=:f,身份证=:g,专业=:h,家庭住址=:i)');
ADOQuery2.FieldByName('a').Value:=ADOQuery3.fieldbyname('最大记录').AsString;
ADOQuery2.FieldByName('b').Value:=ADOQuery3.fieldbyname('姓名').AsString;
ADOQuery2.FieldByName('c').Value:=ADOQuery3.fieldbyname('性别').AsString;
ADOQuery2.FieldByName('d').Value:=ADOQuery3.fieldbyname('年龄').AsString;
ADOQuery2.FieldByName('e').Value:=ADOQuery3.fieldbyname('国籍').AsString;
ADOQuery2.FieldByName('f').Value:=ADOQuery3.fieldbyname('学历').AsString;
ADOQuery2.FieldByName('g').Value:=ADOQuery3.fieldbyname('身份证').AsString;
ADOQuery2.FieldByName('h').Value:=ADOQuery3.fieldbyname('专业').AsString;
ADOQuery2.FieldByName('i').Value:=ADOQuery3.fieldbyname('家庭住址').AsString;
ExecSQL;
end;