350 lines
7.6 KiB
Plaintext
350 lines
7.6 KiB
Plaintext
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
|