2018-01-09 09:36:56 +00:00
|
|
|
object Form1: TForm1
|
2018-01-09 11:00:31 +00:00
|
|
|
Left = 266
|
2018-01-09 09:36:56 +00:00
|
|
|
Height = 423
|
2018-01-09 11:00:31 +00:00
|
|
|
Top = 139
|
2018-01-09 09:36:56 +00:00
|
|
|
Width = 745
|
|
|
|
Caption = 'Form1'
|
|
|
|
ClientHeight = 423
|
|
|
|
ClientWidth = 745
|
|
|
|
OnCreate = FormCreate
|
|
|
|
LCLVersion = '1.9.0.0'
|
|
|
|
object Button1: TButton
|
|
|
|
Left = 80
|
|
|
|
Height = 25
|
|
|
|
Top = 8
|
|
|
|
Width = 105
|
|
|
|
AutoSize = True
|
|
|
|
Caption = 'Load from CSV'
|
|
|
|
OnClick = Button1Click
|
|
|
|
TabOrder = 0
|
|
|
|
end
|
|
|
|
object DBNavigator1: TDBNavigator
|
|
|
|
Left = 224
|
|
|
|
Height = 25
|
2018-01-09 11:00:31 +00:00
|
|
|
Top = 66
|
2018-01-09 09:36:56 +00:00
|
|
|
Width = 241
|
|
|
|
BevelOuter = bvNone
|
|
|
|
ChildSizing.EnlargeHorizontal = crsScaleChilds
|
|
|
|
ChildSizing.EnlargeVertical = crsScaleChilds
|
|
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
|
|
ChildSizing.ControlsPerLine = 100
|
|
|
|
ClientHeight = 25
|
|
|
|
ClientWidth = 241
|
|
|
|
DataSource = Datasource1
|
|
|
|
Options = []
|
|
|
|
TabOrder = 1
|
|
|
|
end
|
|
|
|
object DBGrid1: TDBGrid
|
|
|
|
Left = 15
|
2018-01-09 11:00:31 +00:00
|
|
|
Height = 304
|
|
|
|
Top = 104
|
2018-01-09 09:36:56 +00:00
|
|
|
Width = 720
|
|
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
|
|
AutoFillColumns = True
|
|
|
|
Color = clWindow
|
|
|
|
Columns = <
|
|
|
|
item
|
|
|
|
Title.Caption = 'ORDR'
|
|
|
|
Width = 98
|
|
|
|
FieldName = 'ORDR'
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Title.Caption = 'PRDCT'
|
|
|
|
Width = 98
|
|
|
|
FieldName = 'PRDCT'
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Title.Caption = 'CMPNT'
|
|
|
|
Width = 98
|
|
|
|
FieldName = 'CMPNT'
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Title.Caption = 'CMPNT_DSCR'
|
|
|
|
Width = 98
|
|
|
|
FieldName = 'CMPNT_DSCR'
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Title.Caption = 'CMPNT_RQRD'
|
|
|
|
Width = 98
|
|
|
|
FieldName = 'CMPNT_RQRD'
|
|
|
|
DisplayFormat = '#,##0.00'
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Title.Caption = 'CMPNT_RQRD_UNT'
|
|
|
|
Width = 98
|
|
|
|
FieldName = 'CMPNT_RQRD_UNT'
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Title.Caption = 'CMPNT_TOT_AVLB'
|
|
|
|
Width = 99
|
|
|
|
FieldName = 'CMPNT_TOT_AVLB'
|
|
|
|
DisplayFormat = '#,##0.00'
|
|
|
|
end>
|
|
|
|
DataSource = Datasource1
|
|
|
|
TabOrder = 2
|
|
|
|
end
|
|
|
|
object Button2: TButton
|
|
|
|
Left = 560
|
|
|
|
Height = 25
|
|
|
|
Top = 8
|
|
|
|
Width = 75
|
|
|
|
Caption = 'Save To CSV'
|
|
|
|
OnClick = Button2Click
|
|
|
|
TabOrder = 3
|
|
|
|
end
|
2018-01-09 11:00:31 +00:00
|
|
|
object Label1: TLabel
|
|
|
|
Left = 560
|
|
|
|
Height = 15
|
|
|
|
Top = 45
|
|
|
|
Width = 100
|
|
|
|
Caption = 'New field delimiter'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object ComboBox1: TComboBox
|
|
|
|
Left = 560
|
|
|
|
Height = 23
|
|
|
|
Top = 66
|
|
|
|
Width = 175
|
|
|
|
ItemHeight = 15
|
|
|
|
ItemIndex = 1
|
|
|
|
Items.Strings = (
|
|
|
|
'semicolon (;)'
|
|
|
|
'tab (#9)'
|
|
|
|
'comma (,)'
|
|
|
|
'bar (|)'
|
|
|
|
'colon (:)'
|
|
|
|
'dash (-)'
|
|
|
|
'slash (/)'
|
|
|
|
'back-slash (\)'
|
|
|
|
)
|
|
|
|
TabOrder = 4
|
|
|
|
Text = 'tab (#9)'
|
|
|
|
end
|
2018-01-09 09:36:56 +00:00
|
|
|
object ZMConnection1: TZMConnection
|
|
|
|
Connected = False
|
|
|
|
FloatPrecision = 0
|
|
|
|
left = 256
|
|
|
|
top = 8
|
|
|
|
end
|
|
|
|
object ZMQueryDataSet1: TZMQueryDataSet
|
|
|
|
FieldDefs = <
|
|
|
|
item
|
|
|
|
Name = 'RQRMTS_ID'
|
|
|
|
DataType = ftString
|
|
|
|
Precision = -1
|
|
|
|
Size = 217
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Name = 'ORDR'
|
|
|
|
DataType = ftString
|
|
|
|
Precision = -1
|
|
|
|
Size = 217
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Name = 'PRDCT'
|
|
|
|
DataType = ftString
|
|
|
|
Precision = -1
|
|
|
|
Size = 217
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Name = 'CMPNT'
|
|
|
|
DataType = ftString
|
|
|
|
Precision = -1
|
|
|
|
Size = 217
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Name = 'CMPNT_DSCR'
|
|
|
|
DataType = ftString
|
|
|
|
Precision = -1
|
|
|
|
Size = 217
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Name = 'CMPNT_RQRD'
|
|
|
|
DataType = ftFloat
|
|
|
|
Precision = 2
|
|
|
|
Size = -1
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Name = 'CMPNT_TOT_RQRD'
|
|
|
|
DataType = ftFloat
|
|
|
|
Precision = 2
|
|
|
|
Size = -1
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Name = 'CMPNT_RQRD_UNT'
|
|
|
|
DataType = ftString
|
|
|
|
Precision = -1
|
|
|
|
Size = 217
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Name = 'CMPNT_AVLB'
|
|
|
|
DataType = ftString
|
|
|
|
Precision = -1
|
|
|
|
Size = 217
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Name = 'CMPNT_TOT_AVLB'
|
|
|
|
DataType = ftFloat
|
|
|
|
Precision = 2
|
|
|
|
Size = 10
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Name = 'CMPNT_TOT_AVLB_CURR'
|
|
|
|
DataType = ftString
|
|
|
|
Precision = -1
|
|
|
|
Size = 217
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Name = 'CMPNT_TOT_AVLB_CURR_QINS'
|
|
|
|
DataType = ftString
|
|
|
|
Precision = -1
|
|
|
|
Size = 217
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Name = 'CMPNT_TOT_AVLB_CURR_QINS_ORDRD'
|
|
|
|
DataType = ftString
|
|
|
|
Precision = -1
|
|
|
|
Size = 217
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Name = 'CMPNT_SHRTG'
|
|
|
|
DataType = ftString
|
|
|
|
Precision = -1
|
|
|
|
Size = 217
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Name = 'CMPNT_TOT_SHRTG'
|
|
|
|
DataType = ftString
|
|
|
|
Precision = -1
|
|
|
|
Size = 217
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Name = 'STRG_LOC'
|
|
|
|
DataType = ftString
|
|
|
|
Precision = -1
|
|
|
|
Size = 217
|
|
|
|
end>
|
|
|
|
ZMConnection = ZMConnection1
|
|
|
|
QueryExecuted = False
|
|
|
|
TableName = 'rqrmts'
|
|
|
|
TableLoaded = False
|
|
|
|
TableSaved = False
|
|
|
|
DynamicFieldsCreated = False
|
|
|
|
PeristentFieldsCreated = False
|
|
|
|
MemoryDataSetOpened = False
|
|
|
|
PersistentSave = False
|
|
|
|
Parameters = <>
|
|
|
|
MasterDetailFiltration = False
|
|
|
|
FilterOptions = []
|
|
|
|
left = 376
|
|
|
|
top = 8
|
|
|
|
end
|
|
|
|
object Datasource1: TDataSource
|
|
|
|
DataSet = ZMQueryDataSet1
|
|
|
|
left = 504
|
|
|
|
top = 8
|
|
|
|
end
|
|
|
|
end
|