Files
Kdynium-plgKdynium/frmOdvLis.dfm
2025-05-21 21:19:51 +02:00

885 lines
23 KiB
Plaintext

object formOdvLis: TformOdvLis
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = ' Odv'#225'd'#283'ni vst'#345'ik'#367' na lisu'
ClientHeight = 613
ClientWidth = 1627
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Position = poOwnerFormCenter
OnClose = FormClose
OnShow = FormShow
DesignSize = (
1627
613)
TextHeight = 25
object lblZapisDat: TLabel
Left = 638
Top = 570
Width = 354
Height = 25
Alignment = taCenter
AutoSize = False
Caption = 'Prob'#237'h'#225' z'#225'pis dat...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Visible = False
end
object Label1: TLabel
Left = 689
Top = 123
Width = 126
Height = 25
Caption = 'Po'#269'et vst'#345'ik'#367':'
end
object lblPrijmeni: TLabel
Left = 878
Top = 78
Width = 6
Height = 23
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object lblPlan: TLabel
Left = 604
Top = 78
Width = 6
Height = 23
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 1323
Top = 156
Width = 267
Height = 23
Caption = '. . . . pro evidenci Zmetk'#367' . . . .'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Tahoma'
Font.Style = [fsItalic]
ParentFont = False
Visible = False
end
object lblVerze: TLabel
Left = 8
Top = 591
Width = 4
Height = 14
Anchors = [akLeft, akBottom]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object btnOK: TButton
Left = 622
Top = 520
Width = 116
Height = 39
Caption = 'OK'
TabOrder = 6
OnClick = btnOKClick
end
object btnStorno: TButton
Left = 891
Top = 520
Width = 113
Height = 39
Caption = 'Storno'
TabOrder = 7
OnClick = btnStornoClick
end
object edtBarcode: TLabeledEdit
Left = 604
Top = 39
Width = 143
Height = 33
Alignment = taCenter
EditLabel.Width = 125
EditLabel.Height = 25
EditLabel.Caption = #268'. k'#243'd pl'#225'nu:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
Text = ''
OnExit = edtBarcodeExit
end
object selBarcode: TButtonedEdit
Left = 746
Top = 40
Width = 31
Height = 33
TabOrder = 1
OnClick = selBarcodeClick
end
object edtCisZam: TLabeledEdit
Left = 878
Top = 39
Width = 94
Height = 33
Alignment = taCenter
EditLabel.Width = 131
EditLabel.Height = 25
EditLabel.Caption = 'Os.'#269'. zam'#283'st.:'
NumbersOnly = True
TabOrder = 2
Text = ''
OnExit = edtCisZamExit
end
object selCisZam: TButtonedEdit
Left = 971
Top = 42
Width = 31
Height = 33
TabOrder = 3
OnClick = selCisZamClick
OnExit = selCisZamExit
end
object edtVstriku: TRzNumericEdit
Left = 821
Top = 120
Width = 65
Height = 33
Alignment = taCenter
TabOrder = 4
OnExit = edtVstrikuExit
DisplayFormat = ',0;(,0)'
end
object grd: TNextDBGrid6
Left = 3
Top = 179
Width = 1616
Height = 316
ParentColor = False
TabOrder = 5
StyleOptions = [soNativeStyles, soVCLStyles]
ActiveView = view
ActiveViewIndex = 0
Options = [goAutoHideScrollBars, goExitEndEditing, goResponsiveViews, goTabLeaveControl]
RowHeight = 30
ScrollBars = [sbVertical]
SelectFullRow = True
Style = stModern
UserDefinedColorPalette.GeometryHoverColor = clBlack
OnCellClick = grdCellClick
DataSource = ds
object view: TNxReportGridView6
ColumnMoving = False
GridLines = True
HeaderHeight = 33
OnGetCellColor = viewGetCellColor
end
object colFormaPouzita: TNxDBCheckBoxColumn6
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Caption = 'Pou'#382'ito'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -19
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 0
PlaceholderText = 'True'
Position = 0
Width = 70
CheckedImageIndex = -1
DefaultValue = True
UncheckedImageIndex = -1
OnCheckedChanged = colFormaPouzitaCheckedChanged
DataBinding.FieldName = 'FormaPouzita'
InsertString = 'False'
end
object colRegCis: TNxDBTextColumn6
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Reg.'#269'.'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -21
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Header.Clickable = False
Index = 1
Inserting = False
PlaceholderText = 'Text Text'
Position = 1
Resizeable = False
Width = 140
DataBinding.FieldName = 'RegCis'
end
object colZakazka: TNxDBTextColumn6
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Zak'#225'zka'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -21
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 2
PlaceholderText = 'Text Text'
Position = 2
Resizeable = False
Width = 140
DataBinding.FieldName = 'Zakazka'
end
object colNazev: TNxDBTextColumn6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Popis'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -21
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Header.Clickable = False
Index = 3
Inserting = False
PlaceholderText = 'Text Text'
Position = 3
Selectable = False
Width = 220
DataBinding.FieldName = 'Nazev'
end
object colForma: TNxDBTextColumn6
Alignment = taCenter
DrawingOptions = [doBackground, doContent, doCustom]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Forma'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -21
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 4
PlaceholderText = 'Text Text'
Position = 4
Resizeable = False
Width = 230
DataBinding.FieldName = 'Forma'
end
object colFormaSN: TNxDBTextColumn6
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'V'#253'r.'#269#237'slo'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -21
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 5
PlaceholderText = 'Text Text'
Position = 5
Width = 230
DataBinding.FieldName = 'FormaSN'
end
object colPocetVstriku: TNxDBNumberColumn6
Alignment = taCenter
Editing = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Caption = 'Vst'#345'ik'#367
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -21
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 6
PlaceholderText = '1742.50'
Position = 6
FormatMask = '#,##0'
NumericEditOptions = []
Precision = 0
Increment = 1.000000000000000000
SpinButtons = False
DataBinding.FieldName = 'PocetVstriku'
InsertString = '0'
end
object colKsVeForme: TNxDBNumberColumn6
Alignment = taCenter
DrawingOptions = [doBackground, doContent, doCustom]
Editing = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Ks/forma'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -19
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 7
Inserting = False
ParentColor = False
PlaceholderText = '1742'
Position = 7
Resizeable = False
Width = 90
FormatMask = '#,##0'
NumericEditOptions = []
Precision = 0
Increment = 1.000000000000000000
SpinButtons = False
DataBinding.FieldName = 'KsVeForme'
InsertString = '0'
end
object colKsDobre: TNxDBNumberColumn6
Alignment = taCenter
Color = 9894289
Editing = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '0'
Header.Alignment = taCenter
Header.Caption = 'Dobr'#233' ks'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -21
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Header.Clickable = False
Index = 8
Inserting = False
ParentColor = False
PlaceholderText = '1742'
Position = 8
Resizeable = False
Width = 100
EditOptions = [edTyping]
FormatMask = '#,##0'
NumericEditOptions = []
Precision = 0
Increment = 1.000000000000000000
SpinButtons = False
DataBinding.FieldName = 'KsDobre'
InsertString = '0'
end
object colZmetky1: TNxDBNumberColumn6
Alignment = taCenter
Editing = True
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Z'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -19
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 9
Inserting = False
ParentColor = False
PlaceholderText = '1742'
Position = 9
Resizeable = False
Width = 110
FormatMask = '#,##0'
NumericEditOptions = []
Precision = 0
Increment = 1.000000000000000000
SpinButtons = False
DataBinding.FieldName = 'KsZmetky1'
InsertString = '0'
end
object colZmetky2: TNxDBNumberColumn6
Alignment = taCenter
Editing = True
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Z'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -19
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 10
Inserting = False
ParentColor = False
PlaceholderText = '1742'
Position = 10
Resizeable = False
Width = 110
FormatMask = '#,##0'
NumericEditOptions = []
Precision = 0
Increment = 1.000000000000000000
SpinButtons = False
DataBinding.FieldName = 'KsZmetky2'
InsertString = '0'
end
object colZmetky3: TNxDBNumberColumn6
Alignment = taCenter
Editing = True
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Z'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -19
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 11
Inserting = False
ParentColor = False
PlaceholderText = '1742'
Position = 11
Resizeable = False
Width = 110
FormatMask = '#,##0'
NumericEditOptions = []
Precision = 0
Increment = 1.000000000000000000
SpinButtons = False
DataBinding.FieldName = 'KsZmetky3'
InsertString = '0'
end
object colIdPostup: TNxDBNumberColumn6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Caption = 'idPrPostup'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Index = 12
PlaceholderText = '1742.50'
Position = 12
Visible = False
FormatMask = '#,##0.00'
Increment = 1.000000000000000000
DataBinding.FieldName = 'IDPostup'
InsertString = '0'
end
object colIdNaradi: TNxDBNumberColumn6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Caption = 'idNaradi'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Index = 13
PlaceholderText = '1742.50'
Position = 13
Visible = False
FormatMask = '#,##0.00'
Increment = 1.000000000000000000
DataBinding.FieldName = 'IDnaradi'
InsertString = '0'
end
object colIdVyrCis: TNxDBNumberColumn6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Caption = 'idVyrCis'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Index = 14
PlaceholderText = '1742.50'
Position = 14
Visible = False
FormatMask = '#,##0.00'
Increment = 1.000000000000000000
DataBinding.FieldName = 'IDVyrCS'
InsertString = '0'
end
end
object comboForma: TNxComboBox6
Left = 75
Top = 18
Width = 154
Height = 33
Cursor = crArrow
Alignment = taCenter
TabOrder = 8
Visible = False
UserDefinedColorPalette.GeometryHoverColor = clBlack
OnChange = comboFormaChange
OnExit = comboFormaExit
ButtonWidth = 16
Style = dsDropDownList
DropDownCount = 4
ItemHeight = 26
end
object comboSN: TNxComboBox6
Left = 75
Top = 53
Width = 154
Height = 33
Cursor = crArrow
TabOrder = 9
Visible = False
UserDefinedColorPalette.GeometryHoverColor = clBlack
OnChange = comboSNChange
OnExit = comboSNExit
ButtonWidth = 16
Style = dsDropDownList
DropDownCount = 4
ItemHeight = 25
end
object tbl: TVirtualTable
Active = True
FieldDefs = <
item
Name = 'IDPostup'
DataType = ftInteger
end
item
Name = 'RegCis'
DataType = ftString
Size = 20
end
item
Name = 'Nazev'
DataType = ftString
Size = 100
end
item
Name = 'KsDobre'
DataType = ftSmallint
end
item
Name = 'IDVyrCS'
DataType = ftInteger
end
item
Name = 'FormaSN'
DataType = ftString
Size = 30
end
item
Name = 'IDradek'
DataType = ftInteger
end
item
Name = 'IDnaradi'
DataType = ftInteger
end
item
Name = 'KsZmetky1'
DataType = ftInteger
end
item
Name = 'KsZmetky2'
DataType = ftInteger
end
item
Name = 'KsZmetky3'
DataType = ftInteger
end
item
Name = 'KsVeForme'
DataType = ftInteger
end
item
Name = 'Forma'
DataType = ftString
Size = 30
end
item
Name = 'Zakazka'
DataType = ftString
Size = 15
end
item
Name = 'ID'
DataType = ftInteger
end
item
Name = 'FormaPouzita'
DataType = ftBoolean
end
item
Name = 'PocetVstriku'
DataType = ftInteger
end
item
Name = 'IDVyrCK'
DataType = ftInteger
end
item
Name = 'ParovaForma'
DataType = ftSmallint
end>
AfterPost = tblAfterPost
Left = 124
Top = 107
Data = {
0400130008004944506F73747570030000000000000006005265674369730100
14000000000005004E617A6576010064000000000007004B73446F6272650200
00000000000007004944567972435303000000000000000700466F726D61534E
01001E000000000007004944726164656B0300000000000000080049446E6172
616469030000000000000009004B735A6D65746B793103000000000000000900
4B735A6D65746B7932030000000000000009004B735A6D65746B793303000000
0000000009004B735665466F726D6503000000000000000500466F726D610100
1E000000000007005A616B617A6B6101000F0000000000020049440300000000
0000000C00466F726D61506F757A69746105000000000000000C00506F636574
56737472696B75030000000000000007004944567972434B0300000000000000
0B005061726F7661466F726D610200000000000000000000000000}
object tblIDPrPostup: TIntegerField
FieldName = 'IDPostup'
Visible = False
end
object tblRegCis: TStringField
FieldName = 'RegCis'
end
object tblNazev: TStringField
FieldName = 'Nazev'
Size = 100
end
object tblKsDobre: TSmallintField
FieldName = 'KsDobre'
end
object tblIDVyrCS: TIntegerField
FieldName = 'IDVyrCS'
Visible = False
end
object tblFormaSN: TStringField
FieldName = 'FormaSN'
Size = 30
end
object tblIDradek: TIntegerField
FieldName = 'IDradek'
Visible = False
end
object tblIDnaradi: TIntegerField
FieldName = 'IDnaradi'
Visible = False
end
object tblKsZmetky1: TIntegerField
FieldName = 'KsZmetky1'
end
object tblKsZmetky2: TIntegerField
FieldName = 'KsZmetky2'
end
object tblKsZmetky3: TIntegerField
FieldName = 'KsZmetky3'
end
object tblKsNaPlate: TIntegerField
FieldName = 'KsVeForme'
end
object tblForma: TStringField
FieldName = 'Forma'
LookupKeyFields = 'RegCis'
LookupResultField = 'Forma'
Size = 30
end
object tblcolZakazka: TStringField
FieldName = 'Zakazka'
Size = 15
end
object tblID: TIntegerField
FieldName = 'ID'
end
object tblFormaPouzita: TBooleanField
FieldName = 'FormaPouzita'
end
object tblPocetVstriku: TIntegerField
FieldName = 'PocetVstriku'
end
object tblIDVyrCK: TIntegerField
FieldName = 'IDVyrCK'
end
object tblParovaForma: TSmallintField
DefaultExpression = '0'
FieldName = 'ParovaForma'
end
end
object ds: TDataSource
DataSet = tbl
Left = 73
Top = 107
end
end