Prvni verze

frmOdpady.pas

@@ -0,0 +1,83 @@
+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.