Prvni verze na Git
This commit is contained in:
457
frmUnit6.dfm
Normal file
457
frmUnit6.dfm
Normal file
@ -0,0 +1,457 @@
|
||||
object formVydejka: TformVydejka
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = ' V'#253'dejka'
|
||||
ClientHeight = 467
|
||||
ClientWidth = 944
|
||||
Color = clBtnFace
|
||||
Constraints.MaxHeight = 505
|
||||
Constraints.MaxWidth = 960
|
||||
Constraints.MinHeight = 505
|
||||
Constraints.MinWidth = 960
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poOwnerFormCenter
|
||||
OnActivate = FormActivate
|
||||
OnClose = FormClose
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object pgControl: TPageControl
|
||||
Left = 4
|
||||
Top = 40
|
||||
Width = 940
|
||||
Height = 390
|
||||
ActivePage = pgHlavicka
|
||||
TabOrder = 0
|
||||
OnChange = pgControlChange
|
||||
object pgHlavicka: TTabSheet
|
||||
Caption = '1 - Hlavi'#269'ka'
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 6
|
||||
Top = 6
|
||||
Width = 409
|
||||
Height = 139
|
||||
Caption = ' [1] Organizace '
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
object Label1: TLabel
|
||||
Left = 10
|
||||
Top = 24
|
||||
Width = 52
|
||||
Height = 13
|
||||
Caption = '&Odb'#283'ratel:'
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 10
|
||||
Top = 74
|
||||
Width = 61
|
||||
Height = 13
|
||||
Caption = '&M'#237'sto ur'#269'en'#237':'
|
||||
end
|
||||
object selCisOrg: TRzButtonEdit
|
||||
Left = 10
|
||||
Top = 45
|
||||
Width = 81
|
||||
Height = 21
|
||||
Alignment = taRightJustify
|
||||
MaxLength = 8
|
||||
TabOrder = 0
|
||||
OnExit = selCisOrgExit
|
||||
AltBtnWidth = 15
|
||||
ButtonWidth = 15
|
||||
OnButtonClick = selCisOrgButtonClick
|
||||
end
|
||||
object selOdber: TRzButtonEdit
|
||||
Left = 106
|
||||
Top = 45
|
||||
Width = 289
|
||||
Height = 21
|
||||
TabOrder = 1
|
||||
AltBtnWidth = 15
|
||||
ButtonWidth = 15
|
||||
OnButtonClick = selOdberButtonClick
|
||||
end
|
||||
object selCisOrgMisto: TRzButtonEdit
|
||||
Left = 10
|
||||
Top = 92
|
||||
Width = 81
|
||||
Height = 21
|
||||
Alignment = taRightJustify
|
||||
TabOrder = 2
|
||||
OnExit = selCisOrgMistoExit
|
||||
AltBtnWidth = 15
|
||||
ButtonWidth = 15
|
||||
OnButtonClick = selCisOrgMistoButtonClick
|
||||
end
|
||||
object selOdberMisto: TRzButtonEdit
|
||||
Left = 106
|
||||
Top = 92
|
||||
Width = 289
|
||||
Height = 21
|
||||
TabOrder = 3
|
||||
AltBtnWidth = 15
|
||||
ButtonWidth = 15
|
||||
OnButtonClick = selOdberMistoButtonClick
|
||||
end
|
||||
end
|
||||
object GroupBox2: TGroupBox
|
||||
Left = 427
|
||||
Top = 6
|
||||
Width = 278
|
||||
Height = 139
|
||||
Caption = ' [2] Datum, dopl'#328'uj'#237'c'#237' informace '
|
||||
TabOrder = 1
|
||||
object Label3: TLabel
|
||||
Left = 11
|
||||
Top = 24
|
||||
Width = 74
|
||||
Height = 13
|
||||
Caption = 'Datum p'#345#237'padu:'
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 55
|
||||
Top = 52
|
||||
Width = 30
|
||||
Height = 13
|
||||
Caption = 'M'#283'na:'
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 60
|
||||
Top = 85
|
||||
Width = 25
|
||||
Height = 13
|
||||
Caption = 'Kurz:'
|
||||
end
|
||||
object edtDatPrip: TRzDateTimeEdit
|
||||
Left = 109
|
||||
Top = 21
|
||||
Width = 102
|
||||
Height = 21
|
||||
CaptionTodayBtn = 'Dnes'
|
||||
CaptionClearBtn = 'Smazat'
|
||||
CaptionSet = 'Vybrat'
|
||||
EditType = etDate
|
||||
Alignment = taCenter
|
||||
TabOrder = 0
|
||||
end
|
||||
object cbMena: TComboBox
|
||||
Left = 110
|
||||
Top = 49
|
||||
Width = 101
|
||||
Height = 21
|
||||
Style = csDropDownList
|
||||
CharCase = ecUpperCase
|
||||
TabOrder = 1
|
||||
end
|
||||
object selKurz: TRzButtonEdit
|
||||
Left = 109
|
||||
Top = 82
|
||||
Width = 102
|
||||
Height = 21
|
||||
Alignment = taRightJustify
|
||||
MaxLength = 6
|
||||
TabOrder = 2
|
||||
AltBtnWidth = 15
|
||||
ButtonWidth = 15
|
||||
OnButtonClick = selKurzButtonClick
|
||||
end
|
||||
end
|
||||
end
|
||||
object pgPolozky: TTabSheet
|
||||
Caption = '2 - Polo'#382'ky'
|
||||
ImageIndex = 1
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object GroupBox3: TGroupBox
|
||||
Left = 0
|
||||
Top = 3
|
||||
Width = 931
|
||||
Height = 359
|
||||
TabOrder = 0
|
||||
object GroupBox4: TGroupBox
|
||||
Left = 3
|
||||
Top = 1
|
||||
Width = 925
|
||||
Height = 55
|
||||
TabOrder = 0
|
||||
object btnPolAdd: TSpeedButton
|
||||
Left = 6
|
||||
Top = 1
|
||||
Width = 49
|
||||
Height = 52
|
||||
Caption = 'Nov'#253'...'
|
||||
Layout = blGlyphTop
|
||||
OnClick = btnPolAddClick
|
||||
end
|
||||
object btnPolEdit: TSpeedButton
|
||||
Left = 59
|
||||
Top = 1
|
||||
Width = 56
|
||||
Height = 52
|
||||
Caption = 'Oprava...'
|
||||
Layout = blGlyphTop
|
||||
OnClick = btnPolEditClick
|
||||
end
|
||||
object btnPolDel: TSpeedButton
|
||||
Left = 119
|
||||
Top = 1
|
||||
Width = 51
|
||||
Height = 52
|
||||
Caption = 'Zru'#353'it'
|
||||
Layout = blGlyphTop
|
||||
OnClick = btnPolDelClick
|
||||
end
|
||||
end
|
||||
object gridPol: TcxGrid
|
||||
Left = 7
|
||||
Top = 58
|
||||
Width = 924
|
||||
Height = 301
|
||||
TabOrder = 1
|
||||
object viewPol: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
OnCellDblClick = viewPolCellDblClick
|
||||
DataController.DataSource = dsPol
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = '### ### ##0.0##'
|
||||
Position = spFooter
|
||||
Column = colCCbezDPH
|
||||
end
|
||||
item
|
||||
Format = '###,###,##0.0##'
|
||||
Position = spFooter
|
||||
Column = colMnoz
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = colMnoz
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = colCCbezDPH
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
Images = imgList
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.CancelOnExit = False
|
||||
OptionsData.Deleting = False
|
||||
OptionsData.DeletingConfirmation = False
|
||||
OptionsData.Editing = False
|
||||
OptionsData.Inserting = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.FooterAutoHeight = True
|
||||
OptionsView.GroupByBox = False
|
||||
OnColumnHeaderClick = viewPolColumnHeaderClick
|
||||
object colIdSS: TcxGridDBColumn
|
||||
Visible = False
|
||||
end
|
||||
object colIdKZ: TcxGridDBColumn
|
||||
Visible = False
|
||||
end
|
||||
object colSZ: TcxGridDBColumn
|
||||
PropertiesClassName = 'TcxLabelProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
end
|
||||
object colRegCis: TcxGridDBColumn
|
||||
end
|
||||
object colNazev1: TcxGridDBColumn
|
||||
end
|
||||
object colNazev2: TcxGridDBColumn
|
||||
end
|
||||
object colMJ: TcxGridDBColumn
|
||||
PropertiesClassName = 'TcxLabelProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
end
|
||||
object colMnoz: TcxGridDBColumn
|
||||
end
|
||||
object colJCbezDaniKc: TcxGridDBColumn
|
||||
end
|
||||
object colCCbezDPH: TcxGridDBColumn
|
||||
end
|
||||
object colIdPZ: TcxGridDBColumn
|
||||
end
|
||||
end
|
||||
object lvPol: TcxGridLevel
|
||||
GridView = viewPol
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object pgSklad: TTabSheet
|
||||
Caption = '3 - Sklady kooperant'#367
|
||||
ImageIndex = 2
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object gridSklad: TcxGrid
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 929
|
||||
Height = 359
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
PopupMenu = pmSklad
|
||||
TabOrder = 0
|
||||
object viewSklad: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
FilterBox.CustomizeDialog = False
|
||||
FilterBox.Position = fpTop
|
||||
FilterBox.Visible = fvNever
|
||||
OnCellDblClick = viewSkladCellDblClick
|
||||
DataController.DataSource = dsSklad
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
Filtering.ColumnMRUItemsList = False
|
||||
FilterRow.InfoText = 'Sem klikn'#283'te pro definici filtru'
|
||||
FilterRow.ApplyChanges = fracImmediately
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.CancelOnExit = False
|
||||
OptionsData.Deleting = False
|
||||
OptionsData.DeletingConfirmation = False
|
||||
OptionsData.Editing = False
|
||||
OptionsData.Inserting = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.GroupByBox = False
|
||||
object colIdSS2: TcxGridDBColumn
|
||||
end
|
||||
object colIdKZ2: TcxGridDBColumn
|
||||
end
|
||||
object colSZ2: TcxGridDBColumn
|
||||
PropertiesClassName = 'TcxLabelProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
end
|
||||
object colRegCis2: TcxGridDBColumn
|
||||
PropertiesClassName = 'TcxLabelProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
end
|
||||
object colNazev12: TcxGridDBColumn
|
||||
end
|
||||
object colNazev22: TcxGridDBColumn
|
||||
end
|
||||
object colMJ2: TcxGridDBColumn
|
||||
PropertiesClassName = 'TcxLabelProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
end
|
||||
object colMnoz2: TcxGridDBColumn
|
||||
end
|
||||
object colJCbezDaniKc2: TcxGridDBColumn
|
||||
end
|
||||
object colCCbezDPH2: TcxGridDBColumn
|
||||
end
|
||||
end
|
||||
object lvSklad: TcxGridLevel
|
||||
GridView = viewSklad
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object tBar: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 944
|
||||
Height = 36
|
||||
ButtonHeight = 38
|
||||
ButtonWidth = 39
|
||||
Caption = 'tBar'
|
||||
Images = imgList
|
||||
TabOrder = 1
|
||||
object tBtn1: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
Margins.Left = 1
|
||||
Margins.Top = 1
|
||||
Margins.Right = 1
|
||||
Margins.Bottom = 1
|
||||
Caption = 'tBtn1'
|
||||
ImageIndex = 1
|
||||
end
|
||||
object tBtn2: TToolButton
|
||||
Left = 39
|
||||
Top = 0
|
||||
Caption = 'tBtn2'
|
||||
ImageIndex = 2
|
||||
end
|
||||
end
|
||||
object btnOK: TButton
|
||||
Left = 762
|
||||
Top = 439
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = '&OK'
|
||||
ModalResult = 1
|
||||
TabOrder = 2
|
||||
OnClick = btnOKClick
|
||||
end
|
||||
object btnCanel: TButton
|
||||
Left = 857
|
||||
Top = 439
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = '&Storno'
|
||||
ModalResult = 2
|
||||
TabOrder = 3
|
||||
OnClick = btnCanelClick
|
||||
end
|
||||
object vTabPol: TVirtualTable
|
||||
OnCalcFields = vTabPolCalcFields
|
||||
Left = 90
|
||||
Top = 404
|
||||
Data = {03000000000000000000}
|
||||
end
|
||||
object dsPol: TDataSource
|
||||
DataSet = vTabPol
|
||||
Left = 142
|
||||
Top = 404
|
||||
end
|
||||
object imgList: TImageList
|
||||
ColorDepth = cd8Bit
|
||||
Height = 32
|
||||
ShareImages = True
|
||||
Width = 32
|
||||
Left = 30
|
||||
Top = 402
|
||||
end
|
||||
object dsSklad: TDataSource
|
||||
DataSet = vTabSklad
|
||||
Left = 274
|
||||
Top = 404
|
||||
end
|
||||
object vTabSklad: TVirtualTable
|
||||
Left = 214
|
||||
Top = 404
|
||||
Data = {03000000000000000000}
|
||||
end
|
||||
object pmSklad: TPopupMenu
|
||||
Left = 440
|
||||
Top = 404
|
||||
object pmSklad1: TMenuItem
|
||||
Caption = '&Na'#269'ti obsah skladu'
|
||||
OnClick = pmSklad1Click
|
||||
end
|
||||
end
|
||||
end
|
||||
Reference in New Issue
Block a user