Prvni verze na Git
This commit is contained in:
325
frmReklamaceMat.dfm
Normal file
325
frmReklamaceMat.dfm
Normal file
@ -0,0 +1,325 @@
|
||||
object formReklamaceMat: TformReklamaceMat
|
||||
Left = 0
|
||||
Top = 0
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsSingle
|
||||
Caption = ' Reklamace - p'#345'esun MATERI'#193'LU'
|
||||
ClientHeight = 533
|
||||
ClientWidth = 792
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
Position = poMainFormCenter
|
||||
OnClose = FormClose
|
||||
OnShow = FormShow
|
||||
TextHeight = 14
|
||||
object Label1: TLabel
|
||||
Left = 5
|
||||
Top = 5
|
||||
Width = 69
|
||||
Height = 16
|
||||
Caption = 'REKLAMACE'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 5
|
||||
Top = 253
|
||||
Width = 53
|
||||
Height = 16
|
||||
Caption = 'P'#344'ESUNY'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object btnOK: TButton
|
||||
Left = 586
|
||||
Top = 499
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'OK'
|
||||
TabOrder = 0
|
||||
OnClick = btnOKClick
|
||||
end
|
||||
object btnStorno: TButton
|
||||
Left = 708
|
||||
Top = 499
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Storno'
|
||||
TabOrder = 1
|
||||
OnClick = btnStornoClick
|
||||
end
|
||||
object gridMat: TJvDBGrid
|
||||
Left = 3
|
||||
Top = 25
|
||||
Width = 781
|
||||
Height = 215
|
||||
DataSource = dsMat
|
||||
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack]
|
||||
TabOrder = 2
|
||||
TitleFont.Charset = DEFAULT_CHARSET
|
||||
TitleFont.Color = clWindowText
|
||||
TitleFont.Height = -12
|
||||
TitleFont.Name = 'Tahoma'
|
||||
TitleFont.Style = []
|
||||
OnDblClick = gridMatDblClick
|
||||
ScrollBars = ssVertical
|
||||
SelectColumnsDialogStrings.Caption = 'Select columns'
|
||||
SelectColumnsDialogStrings.OK = '&OK'
|
||||
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
|
||||
EditControls = <>
|
||||
RowsHeight = 18
|
||||
TitleRowHeight = 18
|
||||
Columns = <
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'mSZ'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'SK'
|
||||
Width = 40
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'mRegCis'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'Reg. '#269#237'slo'
|
||||
Width = 115
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'mNazev'
|
||||
Title.Caption = 'N'#225'zev'
|
||||
Width = 535
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'mMnoz'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'Mno'#382'stv'#237
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'mIdSS'
|
||||
Visible = False
|
||||
end>
|
||||
end
|
||||
object gridCil: TJvDBGrid
|
||||
Left = 5
|
||||
Top = 272
|
||||
Width = 779
|
||||
Height = 215
|
||||
DataSource = dsCil
|
||||
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack]
|
||||
PopupMenu = pmCil
|
||||
TabOrder = 3
|
||||
TitleFont.Charset = DEFAULT_CHARSET
|
||||
TitleFont.Color = clWindowText
|
||||
TitleFont.Height = -12
|
||||
TitleFont.Name = 'Tahoma'
|
||||
TitleFont.Style = []
|
||||
OnDblClick = gridCilDblClick
|
||||
ScrollBars = ssVertical
|
||||
SelectColumnsDialogStrings.Caption = 'Select columns'
|
||||
SelectColumnsDialogStrings.OK = '&OK'
|
||||
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
|
||||
EditControls = <>
|
||||
RowsHeight = 18
|
||||
TitleRowHeight = 18
|
||||
Columns = <
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'cSZ'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'SK'
|
||||
Width = 40
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'cRegCis'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'Reg. '#269#237'slo'
|
||||
Width = 115
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'cNazev'
|
||||
Title.Caption = 'N'#225'zev'
|
||||
Width = 295
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'cMnoz'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'Mno'#382'.'
|
||||
Width = 65
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'cSklad'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'Sklad'
|
||||
Width = 110
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'cMnozPresun'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'Mno'#382'.skl.'
|
||||
Width = 64
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'cMnozIT'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'Mno'#382'. IT'
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'cIdSSOld'
|
||||
Visible = False
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'cIdSSNew'
|
||||
Visible = False
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'cIdSklad'
|
||||
Visible = False
|
||||
end>
|
||||
end
|
||||
object tblMat: TFDMemTable
|
||||
FetchOptions.AssignedValues = [evMode]
|
||||
FetchOptions.Mode = fmAll
|
||||
ResourceOptions.AssignedValues = [rvSilentMode]
|
||||
ResourceOptions.SilentMode = True
|
||||
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
|
||||
UpdateOptions.CheckRequired = False
|
||||
UpdateOptions.AutoCommitUpdates = True
|
||||
Left = 38
|
||||
Top = 110
|
||||
object mIdSS: TIntegerField
|
||||
FieldName = 'mIdSS'
|
||||
end
|
||||
object mSZ: TStringField
|
||||
FieldName = 'mSZ'
|
||||
Size = 3
|
||||
end
|
||||
object mRegCis: TStringField
|
||||
FieldName = 'mRegCis'
|
||||
Size = 30
|
||||
end
|
||||
object mNazev: TStringField
|
||||
FieldName = 'mNazev'
|
||||
Size = 100
|
||||
end
|
||||
object mMnoz: TFloatField
|
||||
FieldName = 'mMnoz'
|
||||
DisplayFormat = '#,##0.##'
|
||||
end
|
||||
end
|
||||
object tblCil: TFDMemTable
|
||||
FetchOptions.AssignedValues = [evMode]
|
||||
FetchOptions.Mode = fmAll
|
||||
ResourceOptions.AssignedValues = [rvSilentMode]
|
||||
ResourceOptions.SilentMode = True
|
||||
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
|
||||
UpdateOptions.CheckRequired = False
|
||||
UpdateOptions.AutoCommitUpdates = True
|
||||
Left = 68
|
||||
Top = 321
|
||||
object cIdSSOld: TIntegerField
|
||||
FieldName = 'cIdSSOld'
|
||||
Required = True
|
||||
end
|
||||
object cIdSSNew: TIntegerField
|
||||
FieldName = 'cIdSSNew'
|
||||
end
|
||||
object cSZ: TStringField
|
||||
FieldName = 'cSZ'
|
||||
Required = True
|
||||
Size = 3
|
||||
end
|
||||
object cRegCis: TStringField
|
||||
FieldName = 'cRegCis'
|
||||
Required = True
|
||||
Size = 30
|
||||
end
|
||||
object cNazev: TStringField
|
||||
FieldName = 'cNazev'
|
||||
Required = True
|
||||
Size = 100
|
||||
end
|
||||
object cMnoz: TFloatField
|
||||
FieldName = 'cMnoz'
|
||||
Required = True
|
||||
DisplayFormat = '#,##0.##'
|
||||
end
|
||||
object cIdSklad: TStringField
|
||||
FieldName = 'cIdSklad'
|
||||
Size = 30
|
||||
end
|
||||
object cMnozPresun: TFloatField
|
||||
FieldName = 'cMnozPresun'
|
||||
DisplayFormat = '#,##0.##'
|
||||
end
|
||||
object cSklad: TStringField
|
||||
FieldName = 'cSklad'
|
||||
Size = 50
|
||||
end
|
||||
object tblCilcMnozIT: TFloatField
|
||||
FieldName = 'cMnozIT'
|
||||
DisplayFormat = '#,##0.##'
|
||||
end
|
||||
end
|
||||
object dsMat: TDataSource
|
||||
DataSet = tblMat
|
||||
Left = 82
|
||||
Top = 110
|
||||
end
|
||||
object dsCil: TDataSource
|
||||
DataSet = tblCil
|
||||
Left = 108
|
||||
Top = 319
|
||||
end
|
||||
object pmCil: TPopupMenu
|
||||
Left = 246
|
||||
Top = 347
|
||||
object pmDelCil: TMenuItem
|
||||
Caption = '&Smazat polo'#382'ku'
|
||||
OnClick = pmDelCilClick
|
||||
end
|
||||
end
|
||||
end
|
||||
Reference in New Issue
Block a user