unit frmOdpady;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  ddPlugin_TLB, Vcl.ExtCtrls, Data.DB, Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls;

{$I iConsts.inc}

type
  TformOdpady = class(TForm)
    GridPanel1: TGridPanel;
    grdOdpady: TDBGrid;
    btnOK: TButton;
    procedure grdOdpadyDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure btnOKClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
   private
   public
    Helios: IHelios;
  end;

var
  formOdpady: TformOdpady;

implementation
uses System.StrUtils,
     datMod, helUtils;

{$R *.dfm}

 procedure TformOdpady.btnOKClick(Sender: TObject);
  var lSQL, p: string;
      mn1, mn2: Extended;
  begin
   dm.vtOdpady.DisableControls;
   dm.vtOdpady.First;
   while not(dm.vtOdpady.Eof) do
    begin
     p:= dm.vtOdpady.FieldByName('colPoznamka').AsString.Trim;
     mn1:= dm.vtOdpady.FieldByName('colMokry').AsExtended;
     mn2:= dm.vtOdpady.FieldByName('colSuchy').AsExtended;

     lSQL:= 'UPDATE ' + tblOdpadPek + ' SET Poznamka=N' + IfThen(p='', 'ULL', p.QuotedString) + ', OdpadMokry=' + mn1.ToString.Replace(',', '.') + ', OdpadSuchy=' + mn2.ToString.Replace(',', '.');
     lSQL:= lSQL + ' WHERE ID=' + dm.vtOdpady.FieldByName('colID').AsString;
     try
       Helios.ExecSQL(lSQL);
      finally
     end;
     dm.vtOdpady.Next;
    end;
   dm.vtOdpady.EnableControls;

   Close;
  end;




 procedure TformOdpady.FormShow(Sender: TObject);
  begin
   dm.NactiOdpady (self);
  end;




 procedure TformOdpady.grdOdpadyDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
  begin
   if (not(gdSelected in State)) then
    begin
     if (Odd(grdOdpady.DataSource.DataSet.RecNo)) then
       TDBGrid(Sender).Canvas.Brush.Color:= clWindow
      else
       TDBGrid(Sender).Canvas.Brush.Color:= $00E0E0E0;
    end;
   TDBGrid(Sender).DefaultDrawColumnCell (Rect, DataCol, Column, State);
  end;

end.