Prvni verze

frmKoopObjUprava.pas

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