• Registered: 2018-04-13
  • Posts: 88

Topic: Кнопка копирование

Можно ли создать кнопку Копировать строчку?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Кнопка копирование

Имеете ввиду сделать дубликат записи?
Посмотрите пожалуйста данный пример
http://myvisualdatabase.com/forum/misc. … download=1


Также в примере есть возможность открыть запись, а затем сохранить ее как новую.

Dmitry.
  • Registered: 2018-04-13
  • Posts: 88

Re: Кнопка копирование

Form1.GridEmployees.dbItemID := Last_Insert_id('employees'); // select new record in TableGrid
Too many actual parameters

4 Reply by derek (edited by derek 2018-07-20 10:57:48)

  • derek
  • derek
  • Moderator
  • Offline
  • Registered: 2015-02-16
  • Posts: 2,675

Re: Кнопка копирование

Hello Scopus,
Возможно, попробуйте это так
Form1.GridEmployees.dbitemid := last_insert_id;  // select new record in TableGrid
Regards,
Derek.

  • Registered: 2018-04-13
  • Posts: 88

Re: Кнопка копирование

Больше спасибо работает

  • Registered: 2018-04-13
  • Posts: 88

Re: Кнопка копирование

Можно тоже самое для MySQL сделать? SQLExecute ругается на не соответствие БД

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Кнопка копирование

scopus wrote:

Можно тоже самое для MySQL сделать? SQLExecute ругается на не соответствие БД

Данный пример должен работать и для MySQL.
Пожалуйста приложите ваш проект либо опишите подробней ошибку.

Dmitry.
  • Registered: 2018-04-13
  • Posts: 88

Re: Кнопка копирование

//Кнопка дублирование
procedure Form1_Dubl_OnClick (Sender: string; var Cancel: boolean);
begin
   if Form1.TableGrid1.dbItemID<>-1 then
    begin
        SQLExecute ('INSERT INTO lvs (Address, MACAddress, ComputerName, Users, SerialNumber, DateScan, IP_NetUntMACPrt, Name_NetUntMACPrt, Port_NetUntMACPrt, ID ОИКТ, Цех, Склад, Здание, Этаж, Отметка, Помещение, ФИО ответственного) SELECT Address, MACAddress, ComputerName, Users, SerialNumber, DateScan, IP_NetUntMACPrt, Name_NetUntMACPrt, Port_NetUntMACPrt, ID ОИКТ, Цех, Склад, Здание, Этаж, Отметка, Помещение, ФИО ответственного FROM lvs WHERE id='+Form1.TableGrid1.sqlValue );
        Form1.TableGrid1.dbUpdate; // Update TableGrid
        Form1.TableGrid1.dbitemid := last_insert_id;  // select new record in TableGrid
    end;
end;

  • Registered: 2018-04-13
  • Posts: 88

Re: Кнопка копирование

https://thumb.ibb.co/m6n8jT/image.png https://thumb.ibb.co/f8Xxdo/2.png https://thumb.ibb.co/gzSVyo/3.png

10 Reply by scopus (edited by scopus 2018-07-26 09:17:10)

  • Registered: 2018-04-13
  • Posts: 88

Re: Кнопка копирование

проект

Post's attachments

Attachment icon БД грумов.7z 398.18 kb, 359 downloads since 2018-07-26 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Кнопка копирование

В данном случае имена полей в SQL запросе нужно брать в кавычки, пример

`ФИО ответственного`

Для создания дубликата записи используйте лучше пример, который я привел выше
http://myvisualdatabase.com/forum/misc. … download=1

Dmitry.
  • Registered: 2018-04-13
  • Posts: 88

Re: Кнопка копирование

DriveSoft wrote:

В данном случае имена полей в SQL запросе нужно брать в кавычки, пример

`ФИО ответственного`

Для создания дубликата записи используйте лучше пример, который я привел выше
http://myvisualdatabase.com/forum/misc. … download=1

В вашем примере выдает ошибку

Post's attachments

Attachment icon клон.PNG 35.66 kb, 251 downloads since 2018-07-27 

  • Registered: 2018-06-26
  • Posts: 137

Re: Кнопка копирование

должно быть просто last_insert_id(), без всяких переменных внутри скобочек. база данных вернет id записи, последней внесенной в БД в принципе, и не важно, в какую таблицу.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Кнопка копирование

В данном сообщении можете найти информацию, как исправить это
http://myvisualdatabase.com/forum/viewt … 831#p25831

Dmitry.

15 Reply by danisl (edited by danisl 2018-09-17 13:57:57)

  • Registered: 2016-04-11
  • Posts: 34

Re: Кнопка копирование

Добрый день! Никак не получается добавить кнопку копировать. Выдает ошибку. Можете помочь на примере какого нибудь справочника? Спасибо.

Post's attachments

Attachment icon 2018-09-17_164452.png 164.25 kb, 186 downloads since 2018-09-17 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Кнопка копирование

В старых версиях у компонентов нет свойства sqlValue, поэтому вместо

Form1.GridEmployees.sqlValue

пишите

IntToStr(Form1.GridEmployees.dbItemID)
Dmitry.
  • Registered: 2016-04-11
  • Posts: 34

Re: Кнопка копирование

А там и нет Form1.GridEmployees.sqlValue
Там вот так
procedure frmEmployee_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
    frmEmployee.bSave.dbGeneralTableId:=-1;
    frmEmployee.bSave.Click;
end;

procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
begin
    if IntToStr(Form1.GridEmployees.dbItemID)<>-1 then
    begin
        SQLExecute ('INSERT INTO employees (lastname, firstname, dateofbirth) SELECT lastname, firstname, dateofbirth FROM employees WHERE id='+Form1.GridEmployees.sqlValue );
        Form1.GridEmployees.dbUpdate; // Update TableGrid
       IntToStr(Form1.GridEmployees.dbItemID):= last_insert_id();  // select new record in TableGrid
    end;
end;



begin

end.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Кнопка копирование

есть, в этой строке

employees WHERE id='+Form1.GridEmployees.sqlValue );
Dmitry.
  • Registered: 2016-04-11
  • Posts: 34

Re: Кнопка копирование

Все равно выдает ошибку.... Что то я не так делаю походу....

procedure frmEmployee_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
    frmEmployee.bSave.dbGeneralTableId:=-1;
    frmEmployee.bSave.Click;
end;

procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
begin
    if IntToStr(Form1.GridEmployees.dbItemID)<>-1 then
    begin
        SQLExecute ('INSERT INTO employees (lastname, firstname, dateofbirth) SELECT lastname, firstname, dateofbirth FROM employees WHERE id='+IntToStr(Form1.GridEmployees.dbItemID));
        Form1.GridEmployees.dbUpdate; // Update TableGrid
       IntToStr(Form1.GridEmployees.dbItemID):= last_insert_id();  // select new record in TableGrid
    end;
end;



begin

end.
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Кнопка копирование

Пожалуйста описывайте подробно, какую ошибку выдает? Также приложите ваш проект.

Dmitry.
  • Registered: 2016-04-11
  • Posts: 34

Re: Кнопка копирование

Это прикрепленный Ваш проект свыше. Ошибку прикрепляю

Post's attachments

Attachment icon ошибка приложения.png 171.96 kb, 190 downloads since 2018-09-18 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Кнопка копирование

Проверил, данный скрипт работает без ошибок

procedure frmEmployee_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
    frmEmployee.bSave.dbGeneralTableId:=-1;
    frmEmployee.bSave.Click;
end;

procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
begin
    if Form1.GridEmployees.dbItemID<>-1 then
    begin
        SQLExecute ('INSERT INTO employees (lastname, firstname, dateofbirth) SELECT lastname, firstname, dateofbirth FROM employees WHERE id='+IntToStr(Form1.GridEmployees.dbItemID) );
        Form1.GridEmployees.dbUpdate; // Update TableGrid
        Form1.GridEmployees.dbItemID := Last_Insert_id('employees'); // select new record in TableGrid
    end;
end;
Dmitry.
  • Registered: 2016-04-11
  • Posts: 34

Re: Кнопка копирование

При запуске выдает вот это. У меня версия 1,45

Post's attachments

Attachment icon 2018-09-18_165213.png 141.2 kb, 194 downloads since 2018-09-18 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Кнопка копирование

в конце скрипта всегда должен быть блок

begin

end.

т.е. полностью дожно быть так

procedure frmEmployee_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
    frmEmployee.bSave.dbGeneralTableId:=-1;
    frmEmployee.bSave.Click;
end;

procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
begin
    if Form1.GridEmployees.dbItemID<>-1 then
    begin
        SQLExecute ('INSERT INTO employees (lastname, firstname, dateofbirth) SELECT lastname, firstname, dateofbirth FROM employees WHERE id='+IntToStr(Form1.GridEmployees.dbItemID) );
        Form1.GridEmployees.dbUpdate; // Update TableGrid
        Form1.GridEmployees.dbItemID := Last_Insert_id('employees'); // select new record in TableGrid
    end;
end;


begin

end.
Dmitry.
  • Registered: 2016-04-11
  • Posts: 34

Re: Кнопка копирование

Да, все работает! Спасибо!