84 lines
2.1 KiB
ObjectPascal
84 lines
2.1 KiB
ObjectPascal
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.
|