Topic: Групповое изменение записей

Добрый день, Дмитрий.
Возможно ли сделать групповое редактирование записей таблицы? Точнее нужно выделить сразу нескольких записей таблицы и поменять одно значение у всех.
Есть ли пример реализации этого?

Re: Групповое изменение записей

Здравствуйте.


Сделал для вас пример, для компонента TableGrid задействована опция Additional > Options > goMultiSelect, что позволяет выбирать несколько записей в гриде удерживая клавишу Ctrl

Post's attachments

Attachment icon Change values for multiselect.zip 7.9 kb, 426 downloads since 2017-03-29 

Dmitry.

Re: Групповое изменение записей

Спасибо. 
То, что нужно.

4 (edited by Andrei 2021-03-29 07:44:30)

Re: Групповое изменение записей

Здравствуйте.
Подскажите как в данном примере массово изменить поле dateofbirth?

Post's attachments

Attachment icon Change values for multiselect.zip 7.9 kb, 175 downloads since 2021-03-29 

5 (edited by abc52 2021-03-29 19:47:50)

Re: Групповое изменение записей

Аналогично,  например :

   . . .  UPDATE employees SET DateOfBirth = "2021-03-29" WHERE id=  . . .

Re: Групповое изменение записей

Здравствуйте. Спасибо.
Получилось прикрутить календарь, но очень криво. Сейчас сразу же проставляется дата пустая, т.к. в календаре не выбрана дата. Все логично. Подскажите как изменить данный скрипт 

if value then s := Form1.dtDateOfBirth.sqlDate;

1)if value then - развернуть календарь Form1.dtDateOfBirth для внесения даты;
2)назначить переменную s :=Form1.dtDateOfBirth
Прикладываю весь скрипт и проект

procedure Form1_Button7_OnClick (Sender: TObject; var Cancel: boolean);
      begin
    ChangeValues1(True);
end;
    procedure ChangeValues1(value: boolean);
var
    i,c: integer;
    s: string;
begin
    if value then s := Form1.dtDateOfBirth.sqlDate;
    c := Form1.GridEmployees.RowCount-1;
    for i := 0 to c do
    begin
        if Form1.GridEmployees.Selected[i] then
        begin
            SQLExecute('UPDATE employees SET DateOfBirth = '+s + ' WHERE id='+IntToStr(Form1.GridEmployees.dbIndexToID(i)));
        end;
    end;
    Form1.GridEmployees.dbUpdate;
end;
Post's attachments

Attachment icon Change values for multiselect1.zip 339.17 kb, 179 downloads since 2021-03-30