Prvni verze na Git
This commit is contained in:
283
frmKanbanObj.dfm
Normal file
283
frmKanbanObj.dfm
Normal file
@ -0,0 +1,283 @@
|
||||
object formKanbanObj: TformKanbanObj
|
||||
Left = 0
|
||||
Top = 0
|
||||
BorderIcons = [biSystemMenu]
|
||||
Caption = 'Kanban objedn'#225'vka'
|
||||
ClientHeight = 626
|
||||
ClientWidth = 737
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
Position = poMainFormCenter
|
||||
OnClose = FormClose
|
||||
OnShow = FormShow
|
||||
TextHeight = 13
|
||||
object Label1: TLabel
|
||||
Left = 391
|
||||
Top = 19
|
||||
Width = 87
|
||||
Height = 16
|
||||
Caption = 'Po'#269'et polo'#382'ek :'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object lblPocetPol: TLabel
|
||||
Left = 489
|
||||
Top = 4
|
||||
Width = 24
|
||||
Height = 45
|
||||
Caption = '0'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -37
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 26
|
||||
Top = 24
|
||||
Width = 65
|
||||
Height = 16
|
||||
Caption = 'Dodavatel :'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object lblDodavatel: TLabel
|
||||
Left = 102
|
||||
Top = 19
|
||||
Width = 7
|
||||
Height = 25
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 26
|
||||
Top = 66
|
||||
Width = 75
|
||||
Height = 16
|
||||
Caption = 'Kanban box :'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object lblWork: TLabel
|
||||
Left = 444
|
||||
Top = 606
|
||||
Width = 285
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
AutoSize = False
|
||||
Caption = 'lblWork'
|
||||
end
|
||||
object btnStorno: TButton
|
||||
Left = 638
|
||||
Top = 565
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Zru'#353'it'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
OnClick = btnStornoClick
|
||||
end
|
||||
object btnOK: TButton
|
||||
Left = 490
|
||||
Top = 565
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'OK'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
OnClick = btnOKClick
|
||||
end
|
||||
object btnGenObj: TButton
|
||||
Left = 558
|
||||
Top = 12
|
||||
Width = 155
|
||||
Height = 29
|
||||
Caption = 'Generuj v'#253'dejku obal'#367
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
OnClick = btnGenObjClick
|
||||
end
|
||||
object btnGenKoopOrVPr: TButton
|
||||
Left = 558
|
||||
Top = 8
|
||||
Width = 155
|
||||
Height = 29
|
||||
Caption = 'Generuj v'#253'dejku obal'#367
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 6
|
||||
OnClick = btnGenKoopOrVPrClick
|
||||
end
|
||||
object mLog: TMemo
|
||||
Left = 26
|
||||
Top = 538
|
||||
Width = 401
|
||||
Height = 75
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
Lines.Strings = (
|
||||
'')
|
||||
ParentFont = False
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 3
|
||||
end
|
||||
object edtBox: TEdit
|
||||
Left = 107
|
||||
Top = 63
|
||||
Width = 121
|
||||
Height = 24
|
||||
Alignment = taCenter
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
NumbersOnly = True
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
OnKeyUp = edtBoxKeyUp
|
||||
end
|
||||
object grdPolozky: TJvDBGrid
|
||||
Left = 25
|
||||
Top = 90
|
||||
Width = 687
|
||||
Height = 440
|
||||
DataSource = ds
|
||||
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack]
|
||||
TabOrder = 5
|
||||
TitleFont.Charset = DEFAULT_CHARSET
|
||||
TitleFont.Color = clWindowText
|
||||
TitleFont.Height = -11
|
||||
TitleFont.Name = 'Tahoma'
|
||||
TitleFont.Style = []
|
||||
OnKeyUp = grdPolozkyKeyUp
|
||||
ScrollBars = ssVertical
|
||||
SelectColumnsDialogStrings.Caption = 'Select columns'
|
||||
SelectColumnsDialogStrings.OK = '&OK'
|
||||
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
|
||||
EditControls = <>
|
||||
RowsHeight = 17
|
||||
TitleRowHeight = 17
|
||||
Columns = <
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'IdKanbanBox'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = #268#237'slo boxu'
|
||||
Width = 84
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'RegCis'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'Reg. '#269#237'slo'
|
||||
Width = 126
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'Nazev'
|
||||
Title.Caption = 'Popis'
|
||||
Width = 373
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'Mnozstvi'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'Mno'#382'stv'#237
|
||||
Width = 73
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'IdPohybu'
|
||||
Visible = False
|
||||
end>
|
||||
end
|
||||
object ds: TDataSource
|
||||
DataSet = vTable
|
||||
Left = 282
|
||||
Top = 8
|
||||
end
|
||||
object vTable: TFDMemTable
|
||||
FetchOptions.AssignedValues = [evMode]
|
||||
FetchOptions.Mode = fmAll
|
||||
ResourceOptions.AssignedValues = [rvSilentMode]
|
||||
ResourceOptions.SilentMode = True
|
||||
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
|
||||
UpdateOptions.CheckRequired = False
|
||||
UpdateOptions.AutoCommitUpdates = True
|
||||
Left = 328
|
||||
Top = 10
|
||||
object vTableIdPohybu: TIntegerField
|
||||
FieldName = 'IdPohybu'
|
||||
end
|
||||
object vTableIdKanbanBox: TIntegerField
|
||||
FieldName = 'IdKanbanBox'
|
||||
Required = True
|
||||
end
|
||||
object vTableRegCis: TStringField
|
||||
FieldName = 'RegCis'
|
||||
Required = True
|
||||
Size = 30
|
||||
end
|
||||
object vTableNazev: TStringField
|
||||
FieldName = 'Nazev'
|
||||
Required = True
|
||||
Size = 50
|
||||
end
|
||||
object vTableMnozstvi: TSmallintField
|
||||
FieldName = 'Mnozstvi'
|
||||
Required = True
|
||||
DisplayFormat = '#,##0'
|
||||
end
|
||||
end
|
||||
end
|
||||
Reference in New Issue
Block a user