89 lines
1.8 KiB
ObjectPascal
89 lines
1.8 KiB
ObjectPascal
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.
|