Topic: Почему не работает...
Добрый день.
Button3 сохраняет в таблицу zapros запись. Пробовал в различных вариантах. Один раз даже захватил id записи, но предварительно была ошибка - программа ругалась на id.
procedure Form_Main_Button3_OnClick (Sender: TObject; var Cancel: boolean);
begin
if Form_Main.dbAction = 'NewRecord' then Form_Main.Tag := 1 else Form_Main.Tag := 0;
end;
procedure Form_Main_Button3_OnAfterClick (Sender: TObject);
var
// zaprNewID: string;
zaprNewID:integer;
begin
if Form_Main.Tag = 1 then
begin
// zaprNewID := SQLExecute('SELECT id.zapros =' + IntToStr(Form_Main.Button3.dbGeneralTableId));
// zaprNewID := SQLExecute('SELECT count(id) FROM Zapros WHERE (id= ''' + IntToStr(Form_Main.Button3.dbGeneralTableID) + ''')');
zaprNewID := Form_Main.Button3.dbGeneralTableId;
ShowMessage (zaprNewID);
end;
end;