Prvni verze na Git

frmUnit9.dfm

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