object frmVydejDPrace: TfrmVydejDPrace Left = 0 Top = 0 BorderIcons = [biSystemMenu] Caption = ' V'#253'dejka/p'#345'evodka - Nadv'#253'roba (dom'#225'c'#237' pr'#225'ce)' ClientHeight = 416 ClientWidth = 588 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] Position = poMainFormCenter OnActivate = FormActivate OnClose = FormClose OnShow = FormShow TextHeight = 16 object Label1: TLabel Left = 219 Top = 14 Width = 53 Height = 16 Caption = 'Os.'#269#237'slo :' end object lblZamest: TLabel Left = 356 Top = 14 Width = 3 Height = 13 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 18 Top = 44 Width = 32 Height = 16 Caption = 'Skup.' end object Label3: TLabel Left = 68 Top = 44 Width = 51 Height = 16 Caption = 'Reg.'#269#237'slo' end object Label4: TLabel Left = 356 Top = 43 Width = 49 Height = 16 Caption = 'Mno'#382'stv'#237 end object lblPopis: TLabel Left = 67 Top = 87 Width = 3 Height = 13 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object lblSZ: TLabel Left = 18 Top = 64 Width = 4 Height = 16 end object Label5: TLabel Left = 9 Top = 14 Width = 87 Height = 16 Caption = 'Datum v'#253'daje :' end object GroupBox1: TGroupBox Left = 6 Top = 185 Width = 566 Height = 187 Caption = ' Vyd'#225'van'#253' materi'#225'l ' TabOrder = 0 object gMat2: TJvDBGrid Left = 2 Top = 18 Width = 562 Height = 167 Align = alClient DataSource = dsMat TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'Tahoma' TitleFont.Style = [] OnDrawDataCell = gMat2DrawDataCell SelectColumnsDialogStrings.Caption = 'Select columns' SelectColumnsDialogStrings.OK = '&OK' SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!' EditControls = <> RowsHeight = 20 TitleRowHeight = 20 Columns = < item Expanded = False FieldName = 'SkupZbo' Visible = True end item Expanded = False FieldName = 'RegCis' Width = 111 Visible = True end item Expanded = False FieldName = 'Popis' Width = 198 Visible = True end item Expanded = False FieldName = 'Mnoz' Visible = True end item Expanded = False FieldName = 'idKZ' Visible = False end item Expanded = False FieldName = 'MnozSkl' Visible = False end> end end object selCisZam: TRzButtonEdit Left = 281 Top = 11 Width = 65 Height = 24 Text = '' Alignment = taCenter MaxLength = 6 TabOrder = 1 OnExit = selCisZamExit AltBtnNumGlyphs = 1 ButtonNumGlyphs = 1 OnButtonClick = selCisZamButtonClick end object selRegCis: TRzButtonEdit Left = 67 Top = 60 Width = 208 Height = 24 Text = '' MaxLength = 20 TabOrder = 2 OnExit = selRegCisExit AltBtnNumGlyphs = 1 ButtonNumGlyphs = 1 OnButtonClick = selRegCisButtonClick end object edtMnoz: TRzNumericEdit Left = 356 Top = 60 Width = 65 Height = 24 MaxLength = 8 TabOrder = 3 OnKeyUp = edtMnozKeyUp DisplayFormat = ',0;(,0)' end object btnAdd: TButton Left = 444 Top = 58 Width = 35 Height = 25 Caption = 'V' TabOrder = 4 OnClick = btnAddClick end object OK: TButton Left = 376 Top = 382 Width = 75 Height = 25 Caption = 'OK' TabOrder = 5 OnClick = OKClick end object btnCancel: TButton Left = 486 Top = 382 Width = 75 Height = 25 Caption = 'Storno' ModalResult = 2 TabOrder = 6 end object dtDatum: TRzDateTimePicker Left = 105 Top = 9 Width = 93 Height = 24 Date = 41402.000000000000000000 Format = 'dd.MM.yyyy' Time = 41402.000000000000000000 MinDate = 41275.000000000000000000 TabOrder = 7 ShowToday = True ShowTodayCircle = True end object gPolos2: TJvDBGrid Left = 8 Top = 103 Width = 561 Height = 64 DataSource = dsPolos TabOrder = 8 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'Tahoma' TitleFont.Style = [] OnDblClick = gPolos2DblClick SelectColumnsDialogStrings.Caption = 'Select columns' SelectColumnsDialogStrings.OK = '&OK' SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!' EditControls = <> RowsHeight = 20 TitleRowHeight = 20 Columns = < item Expanded = False FieldName = 'SkupZbo' Visible = True end item Expanded = False FieldName = 'RegCis' Visible = True end item Expanded = False FieldName = 'Popis' Visible = True end item Expanded = False FieldName = 'Mnoz' Visible = True end item Expanded = False FieldName = 'idKZ' Visible = False end> end object dsPolos: TDataSource DataSet = vtPolos Left = 80 Top = 130 end object dsMat: TDataSource DataSet = vtMat Left = 154 Top = 338 end object vtPolos: TFDMemTable AfterPost = vtPolosAfterPost FetchOptions.AssignedValues = [evMode] FetchOptions.Mode = fmAll ResourceOptions.AssignedValues = [rvSilentMode] ResourceOptions.SilentMode = True UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates] UpdateOptions.CheckRequired = False UpdateOptions.AutoCommitUpdates = True Left = 132 Top = 128 object vtPolosSkupZbo: TStringField FieldName = 'SkupZbo' Required = True Size = 3 end object vtPolosRegCis: TStringField FieldName = 'RegCis' Required = True Size = 30 end object vtPolosPopis: TStringField FieldName = 'Popis' Size = 80 end object vtPolosMnoz: TFloatField FieldName = 'Mnoz' Required = True end object vtPolosidKZ: TIntegerField FieldName = 'idKZ' Required = True end end object vtMat: TFDMemTable FetchOptions.AssignedValues = [evMode] FetchOptions.Mode = fmAll ResourceOptions.AssignedValues = [rvSilentMode] ResourceOptions.SilentMode = True UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates] UpdateOptions.CheckRequired = False UpdateOptions.AutoCommitUpdates = True Left = 198 Top = 336 object vtMatSkupZbo: TStringField FieldName = 'SkupZbo' Required = True Size = 3 end object vtMatRegCis: TStringField FieldName = 'RegCis' Required = True Size = 30 end object vtMatPopis: TStringField FieldName = 'Popis' Size = 80 end object vtMatMnoz: TFloatField FieldName = 'Mnoz' Required = True end object vtMatidKZ: TIntegerField FieldName = 'idKZ' Required = True end object vtMatMnozSkl: TFloatField FieldName = 'MnozSkl' end end end