696 lines
19 KiB
Plaintext
696 lines
19 KiB
Plaintext
object formDemontaz: TformDemontaz
|
|
Left = 0
|
|
Top = 0
|
|
BorderIcons = [biSystemMenu]
|
|
Caption = ' Demont'#225#382' d'#237'lce/polosestavy'
|
|
ClientHeight = 547
|
|
ClientWidth = 622
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
Position = poOwnerFormCenter
|
|
OnActivate = FormActivate
|
|
OnClose = FormClose
|
|
OnShow = FormShow
|
|
TextHeight = 16
|
|
object Label7: TLabel
|
|
Left = 5
|
|
Top = 86
|
|
Width = 84
|
|
Height = 16
|
|
Caption = 'V'#253'dejka do IT:'
|
|
end
|
|
object lblVerze: TLabel
|
|
Left = 7
|
|
Top = 530
|
|
Width = 3
|
|
Height = 11
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -9
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
Visible = False
|
|
end
|
|
object lblZpracovavam: TLabel
|
|
Left = 244
|
|
Top = 521
|
|
Width = 87
|
|
Height = 13
|
|
Caption = 'Zpracov'#225'v'#225'm...'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
Visible = False
|
|
end
|
|
object Label3: TLabel
|
|
Left = 232
|
|
Top = 86
|
|
Width = 81
|
|
Height = 16
|
|
Caption = 'Zam'#283'stnanec:'
|
|
end
|
|
object lblZamest: TLabel
|
|
Left = 407
|
|
Top = 85
|
|
Width = 204
|
|
Height = 16
|
|
AutoSize = False
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 13
|
|
Top = 110
|
|
Width = 600
|
|
Height = 121
|
|
Caption = ' D'#237'lce / polosestavy '
|
|
TabOrder = 0
|
|
object Label4: TLabel
|
|
Left = 11
|
|
Top = 18
|
|
Width = 56
|
|
Height = 16
|
|
Caption = 'Reg.'#269#237'slo:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object lblNazev: TLabel
|
|
Left = 74
|
|
Top = 40
|
|
Width = 53
|
|
Height = 16
|
|
Caption = 'lblNazev'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label5: TLabel
|
|
Left = 401
|
|
Top = 19
|
|
Width = 54
|
|
Height = 16
|
|
Caption = 'Mno'#382'stv'#237':'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object btnRozeber: TSpeedButton
|
|
Left = 547
|
|
Top = 13
|
|
Width = 33
|
|
Height = 32
|
|
Glyph.Data = {
|
|
42080000424D4208000000000000420000002800000020000000200000000100
|
|
10000300000000080000202E0000202E00000000000000000000007C0000E003
|
|
00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7F9D77B556FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7F4E3A8000D65AFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FD556E0016002E104F862FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
1863C2098002E102C00104119D77FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F7B6F
|
|
C1058002A1028102C102C0016821BF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F9D77E71D
|
|
4002A10281028102A102C00240018B31FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FE8212002
|
|
A1028102810281028102A102C00240011042FF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F6F3E0002A102
|
|
810281028102810281028102A102A002E000734EFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F6F3EE001C002A102
|
|
A102A102A102A102A102A102A102C1028002E000F966FF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FF65AE001A002A102A102
|
|
A102A102A102A102A102A102A102A102E102400225155C73FF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FF75EC105A002A102A102A102
|
|
A102A102A102A102A102A102A102A102A102E102E00105199F7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F9B6F020A8002C002C002A102A102
|
|
A102A102A102A102A102A102A102A102C002C002E002C001CA29BD77FF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F6B2E200282066206430AA106A102
|
|
A102A102A102A102A102A102A102A106630E630A6206A2068001914AFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F796739675B6B5B6B3C6FA61EA002
|
|
A102A102A102A102A102A102C0026002B24A5C6F5B6B5B6B59679B6FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FA722A002
|
|
C102C102C102C102C102C10201032002B34EFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA71EA002
|
|
C102C102C102C102C102C102E1022002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA71EA002
|
|
C102C102C102C102C102C102E1024002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA71EA002
|
|
C102C102C102C102C102C102E1022002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FC71EC002
|
|
C102C102C102C102C102C102E1022002B14AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FC71EE002
|
|
E102E102E102E102E102E10201034002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FC71EE002
|
|
E102E102E102E102E102E10221034002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FC71EE002
|
|
E102E102E102E102E102E10201034002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FC71EE002
|
|
E102E102E102E102E102E10201034002B14AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA71EE002
|
|
E102E102E102E102E102E10201034002924AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA71EE002
|
|
E102E102E102E102E102E10200034002934EFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA71E0003
|
|
01030103010301030103010320034002934EFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FC71E0003
|
|
01030103010301030103010340036002924EFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA412C002
|
|
C002C002C002C002C002E00200034002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FF24ACF3E
|
|
F042F042F042F042F0420F3FF042CF3E5863FF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
|
FF7FFF7FFF7F}
|
|
OnClick = btnRozeberClick
|
|
end
|
|
object selRegCis: TRzButtonEdit
|
|
Left = 74
|
|
Top = 16
|
|
Width = 184
|
|
Height = 24
|
|
Text = ''
|
|
Alignment = taCenter
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
MaxLength = 30
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
OnExit = selRegCisExit
|
|
AltBtnNumGlyphs = 1
|
|
ButtonNumGlyphs = 1
|
|
OnButtonClick = selRegCisButtonClick
|
|
end
|
|
object edtMnoz: TRzNumericEdit
|
|
Left = 463
|
|
Top = 16
|
|
Width = 65
|
|
Height = 24
|
|
Alignment = taCenter
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
OnKeyDown = edtMnozKeyDown
|
|
DisplayFormat = '##,##0.##;-##,##0.##'
|
|
end
|
|
object cbMaxRozpad: TCheckBox
|
|
Left = 271
|
|
Top = 45
|
|
Width = 183
|
|
Height = 17
|
|
Caption = 'Rozpad na z'#225'kladn'#237' MAT'
|
|
Checked = True
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
State = cbChecked
|
|
TabOrder = 2
|
|
end
|
|
object selSZ: TRzButtonEdit
|
|
Left = 21
|
|
Top = 36
|
|
Width = 35
|
|
Height = 24
|
|
Text = ''
|
|
MaxLength = 3
|
|
TabOrder = 3
|
|
Visible = False
|
|
AltBtnNumGlyphs = 1
|
|
ButtonNumGlyphs = 1
|
|
end
|
|
object cbTiskRozp: TCheckBox
|
|
Left = 475
|
|
Top = 46
|
|
Width = 109
|
|
Height = 17
|
|
Caption = 'Tisk rozpisky'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 4
|
|
end
|
|
object grdDilce: TJvDBGrid
|
|
Left = 11
|
|
Top = 66
|
|
Width = 528
|
|
Height = 50
|
|
DataSource = dsDilce
|
|
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
|
|
PopupMenu = popMenu
|
|
TabOrder = 5
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -13
|
|
TitleFont.Name = 'Tahoma'
|
|
TitleFont.Style = []
|
|
OnDblClick = grdDilceDblClick
|
|
ScrollBars = ssVertical
|
|
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 = 'idKZ'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'idSS'
|
|
Visible = False
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'SZ'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'SK'
|
|
Width = 42
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'RegCis'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Reg. '#269#237'slo'
|
|
Width = 130
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Nazev'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'N'#225'zev'
|
|
Width = 265
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'Mnozstvi'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Mno'#382'stv'#237
|
|
Width = 62
|
|
Visible = True
|
|
end>
|
|
end
|
|
end
|
|
object GroupBox2: TGroupBox
|
|
Left = 14
|
|
Top = 243
|
|
Width = 594
|
|
Height = 262
|
|
Caption = ' Materi'#225'ly '
|
|
TabOrder = 1
|
|
object grdMat: TJvDBGrid
|
|
Left = 1
|
|
Top = 18
|
|
Width = 590
|
|
Height = 240
|
|
DataSource = dsMat
|
|
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack]
|
|
PopupMenu = popMat
|
|
TabOrder = 0
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -13
|
|
TitleFont.Name = 'Tahoma'
|
|
TitleFont.Style = []
|
|
OnDblClick = grdMatDblClick
|
|
ScrollBars = ssVertical
|
|
SelectColumnsDialogStrings.Caption = 'Select columns'
|
|
SelectColumnsDialogStrings.OK = '&OK'
|
|
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
|
|
EditControls = <>
|
|
RowsHeight = 20
|
|
TitleRowHeight = 20
|
|
Columns = <
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'SZ'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'SK'
|
|
Width = 40
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'RegCis'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Reg. '#269#237'slo'
|
|
Width = 100
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Nazev'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'N'#225'zev'
|
|
Width = 220
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'Mnozstvi'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Mno'#382'stv'#237
|
|
Width = 60
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'CilSklad'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'C'#237'l materi'#225'lu'
|
|
Width = 86
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'MnozstviIT'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'V'#253'voz IT'
|
|
Width = 62
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'idKZ'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'idSSold'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'idSS'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'CilSkladCislo'
|
|
Visible = False
|
|
end>
|
|
end
|
|
end
|
|
object btnOK: TButton
|
|
Left = 421
|
|
Top = 516
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'OK'
|
|
TabOrder = 2
|
|
OnClick = btnOKClick
|
|
end
|
|
object btnStorno: TButton
|
|
Left = 533
|
|
Top = 516
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Storno'
|
|
TabOrder = 3
|
|
OnClick = btnStornoClick
|
|
end
|
|
object GroupBox3: TGroupBox
|
|
Left = 5
|
|
Top = 4
|
|
Width = 605
|
|
Height = 69
|
|
Caption = ' Sklady '
|
|
TabOrder = 4
|
|
object Label1: TLabel
|
|
Left = 11
|
|
Top = 16
|
|
Width = 87
|
|
Height = 16
|
|
Caption = 'Zdrojov'#253' sklad:'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 25
|
|
Top = 45
|
|
Width = 71
|
|
Height = 16
|
|
Caption = 'C'#237'lov'#253' sklad:'
|
|
end
|
|
object selSrcSkl: TRzButtonEdit
|
|
Left = 107
|
|
Top = 13
|
|
Width = 113
|
|
Height = 24
|
|
Text = ''
|
|
Alignment = taCenter
|
|
Enabled = False
|
|
TabOrder = 0
|
|
AltBtnNumGlyphs = 1
|
|
ButtonNumGlyphs = 1
|
|
OnButtonClick = selSrcSklButtonClick
|
|
end
|
|
object selDstSkl: TRzButtonEdit
|
|
Left = 107
|
|
Top = 42
|
|
Width = 113
|
|
Height = 24
|
|
Text = ''
|
|
Alignment = taCenter
|
|
Enabled = False
|
|
TabOrder = 1
|
|
AltBtnNumGlyphs = 1
|
|
ButtonNumGlyphs = 1
|
|
OnButtonClick = selDstSklButtonClick
|
|
end
|
|
object selSrcSklNazev: TRzButtonEdit
|
|
Left = 225
|
|
Top = 13
|
|
Width = 228
|
|
Height = 24
|
|
Text = ''
|
|
Enabled = False
|
|
TabOrder = 2
|
|
AltBtnNumGlyphs = 1
|
|
ButtonNumGlyphs = 1
|
|
end
|
|
object selDstSklNazev: TRzButtonEdit
|
|
Left = 225
|
|
Top = 42
|
|
Width = 228
|
|
Height = 24
|
|
Text = ''
|
|
Enabled = False
|
|
TabOrder = 3
|
|
AltBtnNumGlyphs = 1
|
|
ButtonNumGlyphs = 1
|
|
end
|
|
object dtDatum: TRzDateTimePicker
|
|
Left = 475
|
|
Top = 26
|
|
Width = 106
|
|
Height = 24
|
|
Date = 41411.000000000000000000
|
|
Format = 'dd.MM.yyyy'
|
|
Time = 0.458783750000293400
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
object selVydejIT: TRzButtonEdit
|
|
Left = 96
|
|
Top = 82
|
|
Width = 112
|
|
Height = 24
|
|
Text = ''
|
|
Alignment = taCenter
|
|
TabOrder = 5
|
|
AltBtnNumGlyphs = 1
|
|
ButtonNumGlyphs = 1
|
|
OnButtonClick = selVydejITButtonClick
|
|
end
|
|
object selCisZam: TRzButtonEdit
|
|
Left = 325
|
|
Top = 82
|
|
Width = 68
|
|
Height = 24
|
|
Text = ''
|
|
Alignment = taCenter
|
|
TabOrder = 6
|
|
OnExit = selCisZamExit
|
|
AltBtnNumGlyphs = 1
|
|
ButtonNumGlyphs = 1
|
|
OnButtonClick = selCisZamButtonClick
|
|
end
|
|
object dsDilce: TDataSource
|
|
DataSet = tabDilce
|
|
Left = 228
|
|
Top = 174
|
|
end
|
|
object dsMat: TDataSource
|
|
DataSet = tabMat
|
|
Left = 122
|
|
Top = 462
|
|
end
|
|
object popMenu: TPopupMenu
|
|
Left = 290
|
|
Top = 174
|
|
object pmOprav: TMenuItem
|
|
Caption = '&Oprav mno'#382'stv'#237
|
|
OnClick = pmOpravClick
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object pmSmazat: TMenuItem
|
|
Caption = '&Smazat polo'#382'ku'
|
|
OnClick = pmSmazatClick
|
|
end
|
|
end
|
|
object tabMat: TFDMemTable
|
|
FetchOptions.AssignedValues = [evMode]
|
|
FetchOptions.Mode = fmAll
|
|
ResourceOptions.AssignedValues = [rvSilentMode]
|
|
ResourceOptions.SilentMode = True
|
|
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
|
|
UpdateOptions.CheckRequired = False
|
|
UpdateOptions.AutoCommitUpdates = True
|
|
Left = 65
|
|
Top = 462
|
|
object colMidKZ: TIntegerField
|
|
FieldName = 'idKZ'
|
|
end
|
|
object colMidSSold: TIntegerField
|
|
FieldName = 'idSSold'
|
|
Visible = False
|
|
end
|
|
object colMidSS: TIntegerField
|
|
FieldName = 'idSS'
|
|
end
|
|
object colMSZ: TStringField
|
|
FieldName = 'SZ'
|
|
Size = 3
|
|
end
|
|
object colMRegCis: TStringField
|
|
FieldName = 'RegCis'
|
|
Size = 30
|
|
end
|
|
object colMNazev: TStringField
|
|
FieldName = 'Nazev'
|
|
Size = 100
|
|
end
|
|
object colMMnoz: TFloatField
|
|
FieldName = 'Mnozstvi'
|
|
DisplayFormat = '#,##0.###'
|
|
end
|
|
object colMMnozIT: TFloatField
|
|
FieldName = 'MnozstviIT'
|
|
DisplayFormat = '#,##0.###'
|
|
end
|
|
object colMCilSklad: TStringField
|
|
FieldName = 'CilSklad'
|
|
Size = 30
|
|
end
|
|
object tabMatCilSkladCislo: TStringField
|
|
FieldName = 'CilSkladCislo'
|
|
Size = 30
|
|
end
|
|
end
|
|
object tabDilce: TFDMemTable
|
|
Active = True
|
|
AfterPost = tabDilceAfterPost
|
|
AfterDelete = tabDilceAfterDelete
|
|
FetchOptions.AssignedValues = [evMode]
|
|
FetchOptions.Mode = fmAll
|
|
ResourceOptions.AssignedValues = [rvSilentMode]
|
|
ResourceOptions.SilentMode = True
|
|
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
|
|
UpdateOptions.CheckRequired = False
|
|
UpdateOptions.AutoCommitUpdates = True
|
|
Left = 164
|
|
Top = 174
|
|
object colDidKZ: TIntegerField
|
|
FieldName = 'idKZ'
|
|
end
|
|
object colDidSS: TIntegerField
|
|
FieldName = 'idSS'
|
|
end
|
|
object colDSZ: TStringField
|
|
FieldName = 'SZ'
|
|
Size = 3
|
|
end
|
|
object colDRegCis: TStringField
|
|
FieldName = 'RegCis'
|
|
Size = 30
|
|
end
|
|
object colDNazev: TStringField
|
|
FieldName = 'Nazev'
|
|
Size = 100
|
|
end
|
|
object colDMnoz: TFloatField
|
|
FieldName = 'Mnozstvi'
|
|
DisplayFormat = '#,##0'
|
|
end
|
|
end
|
|
object popMat: TPopupMenu
|
|
Left = 178
|
|
Top = 460
|
|
object pmAll2IT: TMenuItem
|
|
Caption = '&V'#353'e do IT'
|
|
OnClick = pmAll2ITClick
|
|
end
|
|
object N2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object pmDel2IT: TMenuItem
|
|
Caption = 'Smazat v'#353'e z IT'
|
|
OnClick = pmDel2ITClick
|
|
end
|
|
end
|
|
end
|