Цитата:
|
Сообщение от Чубайс
я сделал вот так:
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
|
не надо так делать!!! эти реализации должны быть в БД!!! блокировки данных наделаете!!! (при однопользовательской и LAST пойдет), но
"приучаемся сразу к правильному"