Search options

Exnout wrote:

DriveSoft wrote:

v-makarovmail
Сделал для вас пример, кликая по ячейке в колонке "Select" вы можете выбрать записи для удаления.

Здравствуйте Дмитрий.
Нашёл то что мне нужно, скачал а там пусто, скрипта нет. Пишет что путь не найден. У меня версия 6.5, вы писали для 1.44, может из за этого. Если можно обновите пожалуйста.
Спасибо.

все там есть, вот содержимое

procedure Form1_GridEmployees_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
    if ACol=3 then
        if Form1.GridEmployees.Cell[3, ARow].Color = clWindow then Form1.GridEmployees.Cell[3, ARow].Color := clRed
        else Form1.GridEmployees.Cell[3, ARow].Color := clWindow;
end;

procedure Form1_Button5_OnClick (Sender: string; var Cancel: boolean);
var
   i,c: integer;
   iColumn: integer;
begin
     iColumn := Form1.GridEmployees.Columns.Count-1; // in last column stored id of record (last column hided)

     c := Form1.GridEmployees.RowCount - 1; // count of records in TableGrid
     for i :=0 to c do
         if Form1.GridEmployees.Cell[3, i].Color = clRed then // if record selected
            SQLExecute('DELETE FROM employees WHERE id = ' + Form1.GridEmployees.Cells[iColumn, i]); // SQL query for selected record

     Form1.GridEmployees.dbUpdate;
end;

begin
     Form1.GridEmployees.Options := Form1.GridEmployees.Options + goMultiSelect;
end.