Дмитрий тогда может подскажете как переделать код проекта создания дубликата записи в таблице, с условием, что в БД. присутвует поле "счетчик" и в грид выводится номер записи.
Вот пример вашего кода, но допустим что имеется столбец №4 и это "Couter ". При такой записи происходит просто создание полностью идентичного дубля, а интересует возможность увеличения +1 к максимальному номеру.
procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
begin
if Form1.GridEmployees.dbItemID<>-1 then //dbItemID вернет ид записи
begin
SQLExecute ('INSERT INTO employees (lastname, firstname, dateofbirth) SELECT lastname, firstname, dateofbirth FROM employees WHERE id='+Form1.GridEmployees.sqlValue );
Form1.GridEmployees.dbUpdate; // Update TableGrid
Form1.GridEmployees.dbItemID := Last_Insert_id('employees'); // select new record in TableGrid
end;
end;
Вот так пытался я , но это неправильно:
/
procedure OTKAZNIE_MATERIALI_duplikate_OnClick (Sender: string; var Cancel: boolean);
//begin
//if OTKAZNIE_MATERIALI.REZULTAT.dbItemID<>-1 then
//begin
//SQLExecute ('INSERT INTO OTKAZNIE (MATERIAL, GOD, DATA_VIDACHI, FIO, PRIMECHANIE, id_SLUZBA, id_VIDMATERIALA, NAVSEGDA, record_count ) SELECT MATERIAL, GOD, DATA_VIDACHI, FIO, PRIMECHANIE, id_SLUZBA, id_VIDMATERIALA, NAVSEGDA, record_count FROM OTKAZNIE WHERE id='+OTKAZNIE_MATERIALI.REZULTAT.sqlValue, );
// OTKAZNIE_MATERIALI.REZULTAT.dbUpdate; // Update TableGrid
// OTKAZNIE_MATERIALI.REZULTAT.dbItemID := Last_Insert_id('OTKAZNIE'); // select new record in TableGrid
//end;
//end;
Employees date in TextBox.zip