unit frmKoopObjUprava;

interface

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

const
  tblKoopH = '[dbo].[_hdc_TabKooperaceH]';
  tblKoopD = '[dbo].[_hdc_TabKooperaceD]';
  tblKoopR = '[dbo].[_hdc_TabKooperaceR]';

type
  TformKoopObjUprava = class(TForm)
    selCisOrg: TButtonedEdit;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    selNazevOrg: TButtonedEdit;
    GroupBox2: TGroupBox;
    strGrid: TStringGrid;
    btnStorno: TButton;
    btnOK: TButton;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
   private
    procedure NactiData(idKoopH: integer); safecall;
   public
    Helios: IHelios;
    idKoopH: integer;
  end;

var
  formKoopObjUprava: TformKoopObjUprava;

implementation
uses helUtils;

{$R *.dfm}

 procedure TformKoopObjUprava.NactiData(idKoopH: Integer);
  var lSQL: string;
  begin
   if (idKoopH>0) then
    begin
     lSQL:= 'SELECT o.CisloOrg, o.Nazev FROM ' + tblKoopH + ' h INNER JOIN ' + tblCOrg + ' o ON (o.CisloOrg=h.CisloOrg) WHERE h.ID=' + idKoopH.ToString;
     with Helios.OpenSQL(lSQL) do
      begin

       First;
       while not(EOF) do
        begin

        end;
      end;
    end;
  end;




 procedure TformKoopObjUprava.FormCreate(Sender: TObject);
  begin
   strGrid.Cells[0, 0]:= 'Dávka';
   strGrid.ColAlignments[0]:= taCenter;
   strGrid.ColWidths[0]:= 50;

   strGrid.Cells[1, 0]:= 'SK';
   strGrid.ColAlignments[1]:= taCenter;

   strGrid.Cells[2, 0]:= 'Reg.č.';
   strGrid.ColAlignments[2]:= taCenter;

  end;




 procedure TformKoopObjUprava.FormShow(Sender: TObject);
  begin

   if (idKoopH>0) then
    NactiData(idKoopH);

  end;

end.