uses DB;var Query: TQuery;Query := TQuery.Create(nil);
with query do
begin
try
databasename:=table1.databasename;
sql.text:='select max(qt_id)+1 from qt';
Open;
maxid:=fields[0].asinteger;
table1.FieldByName('qt_id').asinteger:=maxid;finally;
with query do
begin
try
databasename:=table1.databasename;
sql.text:='select max(qt_id)+1 from qt';
Open;
maxid:=fields[0].asinteger;
table1.FieldByName('qt_id').asinteger:=maxid;finally;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货