Ndm.AQ_common.Close;
Ndm.AQ_common.SQL.Clear;
Ndm.AQ_common.SQL.Add('insert criterions');
Ndm.AQ_common.SQL.Add('select (select max(a_id) from criterions)+1,name from criterions');
Ndm.AQ_common.SQL.Add('where a_id = (select max(a_id) from criterions)');
showmessage(Ndm.AQ_common.SQL.Text);
Ndm.AQ_common.ExecSQL;criterions 执行前可以打开 执行后打不开了