请个位帮我看看，怎么回事

[yuyangzyc]

在按钮的点击事件里
var maxid:integer;
begin
table1.insert;
with query1.create(nil) do
begin
try
close;
sql.add('select max(qt_id)+1 from qt');
open;
maxid:=fields[0].asinteger;
finally;
free;
dbedit5.text:=inttostr(maxid);
end;
end;
end;
这个当第一次执行的时候可以通过而且在DBEDIT5返回了最大值+1（注，其他记录没有添加），但是如果我想取消这次操作时，在点击另一个按扭的时候（这个按扭的作用是table.cancel)或者关闭这个窗体，然后在执行这个事件得时候，程序报错，内容市这样的
access ciolotion at address 00437e58 in module 'project2.exe' read of address FFFFFFF.
不知道我说的是否详细，请告诉我这是怎么回事，好吗，谢谢！！！！

[gzmhero]

你的query1是什么啊，是否应该改成
query1:=TQuery.Create(Owner);

with query1 do
begin
.....
end;

[yxjjx]

with query1.create(nil) do把这句改成
with tquery1.create(self) do

[zengyufeng]

跟Owner无关，你的Query的Database怎么没有给出？

[王集鹄]

No.1
with TQuery.Create(nil) do try
// DatabaseName := ?;
finally
Free;
end;

No.2
with Query1 do try
// Close;
except

end;

[Mozh]

在 close 之后少了一句:
sql.clear;
你第二次执行的时候, SQL已变成
select max(qt_id)+1 from qt select max(qt_id)+1 from qt
你说有没有错?????

[王集鹄]

No.2
var
MaxId: Integer;
begin
Table1.Insert;
with Query1 do try
Close;
SQL.Text := 'select max(qt_id)+1 from qt';
Open;
MaxId := Fields[0].AsInteger;
except
MaxId := -1;
end;
DBEdit5.Filed.DataSet.Edit;
DBEdit5.Filed.AsInteger := MaxId;
end;

[王集鹄]

No.1
procedure TForm1.Button1Click(Sender: TObject);
var
MaxId: Integer;
begin
Table1.Insert;

MaxId := -1;
with TQuery.Create(nil) do try
DatabaseName := Tabel1.DatabaseName;
SQL.Text := 'select max(qt_id)+1 from qt';
Open;
MaxId := Fields[0].AsInteger;
finally
Free;
end;

DBEdit5.Filed.DataSet.Edit;
DBEdit5.Filed.AsInteger := MaxId;
end;

[CeleronII]

应该是with TQuery.Create(Application) do
然后还要指定DATABASENAME啊。

[yuyangzyc]

怎么样可以，把他提交倒数拒库中（远程的库）