- Код: Выделить всё
DM.SQLQuery.SQL.Clear;
DM.SQLQuery.SQL.Add('INSERT INTO provresult (dt, num, T, P, result, provopID, stendID, mode)');
DM.SQLQuery.SQL.Add('VALUES (Now(), :num, :T, :P, :result, :provopID, :stendID, :workmode)');
DM.SQLQuery.Params.ParamByName('num').AsInteger:= DevNum; // todo разобраться с количеством параметров
DM.SQLQuery.Params.ParamByName('T').AsFloat:= Temper;
DM.SQLQuery.Params.ParamByName('P').AsInteger:= P;
DM.SQLQuery.Params.ParamByName('result').AsBoolean:= PassRes;
DM.SQLQuery.Params.ParamByName('provopID').AsInteger:= 0; // todo Подставить
DM.SQLQuery.Params.ParamByName('stendID').AsInteger:= 0; // todo Подставить
DM.SQLQuery.Params.ParamByName('workmode').AsInteger:= WorkMode;
DM.SQLQuery.ExecSQL;
DM.SQLQuery.SQL.Clear;
DM.SQLQuery.SQL.Add('SELECT LAST_INSERT_ID() FROM provresult');
DM.SQLQuery.Open;
ResID:= DM.SQLQuery.Fields[0].AsInteger; //всегда = 0 :-(
DM.SQLQuery.Close;
Кто-нибудь сталкивался?