Prvni verze na Git

2026-04-20 16:57:38 +02:00
parent 8b67223830
commit 791121c56d
43 changed files with 10967 additions and 0 deletions
@@ -0,0 +1,120 @@
+unit dataModul;
+
+interface
+
+uses
+  System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option,
+  FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
+  FireDAC.DApt.Intf, FireDAC.UI.Intf, FireDAC.VCLUI.Wait, FireDAC.Comp.UI,
+  Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, System.ImageList,
+  Vcl.ImgList, Vcl.Controls, Vcl.BaseImageCollection, Vcl.ImageCollection,
+  Vcl.VirtualImageList;
+
+type
+  TKmen = record
+    poz, idKmen, vyrobceCisOrg: integer;
+    cislo, nazev, vyrobce, norma, rozmer, material, pu, zprac, pozn, jakObj: string;
+    mnoz: Extended;
+{$IF CompilerVersion>=34} // Sydney a vys
+    class operator Initialize (out Dest: TKmen);
+{$ENDIF}
+   end;
+
+  TKmenHelper = record helper for TKmen
+   function Clear: Boolean;
+  end;
+
+  TdatModul = class(TDataModule)
+    tblImportKusovnik: TFDMemTable;
+    dsImportKusovnik: TDataSource;
+    FDGUIxWaitCursor1: TFDGUIxWaitCursor;
+    tblImportKusovnikID: TAutoIncField;
+    tblImportKusovnikIDKmen: TIntegerField;
+    tblImportKusovnikOznaceni: TStringField;
+    tblImportKusovnikPopis: TStringField;
+    tblImportKusovnikSZ: TStringField;
+    tblImportKusovnikRegCis: TStringField;
+    tblImportKusovnikNovaKarta: TBooleanField;
+    tblImportKusovnikMnozstvi: TFloatField;
+    imgList: TImageList;
+    tblImportKusovnikNorma: TStringField;
+    tblImportKusovnikPozice: TIntegerField;
+    vImgList: TVirtualImageList;
+    imgCol: TImageCollection;
+    tblImportKusovnikPU: TStringField;
+    tblImportKusovnikZpracovani: TStringField;
+    tblImportKusovnikVyrobce: TStringField;
+    tblImportKusovnikMaterial: TStringField;
+    tblImportKusovnikTloustka: TFloatField;
+    tblImportKusovnikJeProblem: TBooleanField;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  datModul: TdatModul;
+
+implementation
+
+{%CLASSGROUP 'Vcl.Controls.TControl'}
+
+{$R *.dfm}
+
+
+{ TKmenHelper }
+ function TKmenHelper.Clear: Boolean;
+  begin
+   result:= true;
+   try
+     self.idKmen:= 0;
+     self.poz:= 0;
+     self.vyrobceCisOrg:= 0;
+     self.mnoz:= 0;
+     self.cislo:= '';
+     self.nazev:= '';
+     self.vyrobce:= '';
+     self.norma:= '';
+     self.jakObj:= '';
+     self.rozmer:= '';
+     self.material:= '';
+     self.pu:= '';
+     self.pozn:= '';
+    except
+     result:= false;
+   end;
+  end;
+
+
+
+
+{$IF CompilerVersion>=34} // Sydney a vys
+  class operator TKmen.Initialize (out Dest: TKmen);
+   begin
+    Dest.idKmen:= 0;
+    Dest.poz:= 0;
+    Dest.vyrobceCisOrg:= 0;
+    Dest.mnoz:= 0;
+    Dest.cislo:= '';
+    Dest.nazev:= '';
+    Dest.vyrobce:= '';
+    Dest.norma:= '';
+    Dest.rozmer:= '';
+    Dest.material:= '';
+    Dest.pu:= '';
+    Dest.pozn:= '';
+    Dest.jakObj:= '';
+   end;
+{$ENDIF}
+
+
+
+initialization
+ datModul := TdatModul.Create(nil);
+
+finalization
+ datModul.Free;
+
+
+end.