121 lines
2.7 KiB
ObjectPascal
121 lines
2.7 KiB
ObjectPascal
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.
|