я сделал вот так:
procedure TForm_predmet.PredmetOraTableNewRecord(DataSet: TDataSet);
var maxnom:variant;
begin
Form_predmet.PredmetIdOraQuery.Execute;
maxnom:=Form_predmet.PredmetIdOraQuery.Fields[0].Value;
if maxnom=null then maxnom:=0;
Form_predmet.PredmetOraTable.FieldByName('Predmet_ id').Value:=maxnom+1;
end;
PredmetIdOraQuery.SQL:=Select max(usl_id) from p_usluga
|