ÿ
TVBSTRUFORM0YTPF0TVBStruForm
VBStruFormLeftƒTopzWidthÿHeight#Caption
VBStruFormColor	clBtnFaceFont.CharsetDEFAULT_CHARSET
Font.ColorclWindowTextFont.Heightõ	Font.Name
MS Sans Serif
Font.StyleOldCreateOrder	
PixelsPerInch`
TextHeight
TLabelLabel1Left TopxWidth3Height
Caption&Price TypeTLabelLabel2LeftTopWidth)Height
Caption&VB TypeTLabelLabel3Left TopWidthHeight
Caption&WidthTLabelLabel4Left TopGWidth Height
Caption&QualityTDBGridDBGrid1LeftTopWidth‘Height¹
DataSource	srcVBTypeTabOrderTitleFont.CharsetDEFAULT_CHARSETTitleFont.ColorclWindowTextTitleFont.HeightõTitleFont.Name
MS Sans SerifTitleFont.StyleTDBLookupComboBoxDBLookupComboBox1Left TopˆWidthQHeight	DataField	PRICETYPE
DataSourcesrcVBLSP
DropDownWidth–KeyField	PRICETYPE	ListFieldPRICETYPE;DESCR
ListSourcesrcPriceTypeTabOrderTDBLookupComboBoxDBLookupComboBox2Left Top(WidthQHeight	DataFieldVBWIDTH
DataSourcesrcVBLSPKeyFieldMETRICWIDTH	ListFieldMETRICWIDTH
ListSource
srcVBWidthTabOrderTDBLookupComboBoxDBLookupComboBox3Left TopXWidthQHeight	DataFieldQLTY
DataSource	srcVBQltyKeyFieldQLTY	ListField
QLTY;DESCR
ListSource	srcVBQltyTabOrderTBitBtnBitBtn1LeftPTopèWidthKHeightTabOrderKindbkOKTBitBtnBitBtn2Left¤TopèWidthKHeightTabOrderKindbkCancelTQuery
VBLSPQueryDatabaseNameStockRequestLive	SQL.Strings	select * 
from vblspAwhere vbstru = :vbstru and vbfin = :vbfin and vbwidth = :vbwidth /    and qlty = :qlty and pricetype = :pricetypeLeftTop@	ParamDataDataTypeftStringNamevbstru	ParamType	ptUnknownDataTypeftStringNamevbfin	ParamType	ptUnknownDataType	ftIntegerNamevbwidth	ParamType	ptUnknownDataTypeftStringNameqlty	ParamType	ptUnknownDataTypeftStringName	pricetype	ParamType	ptUnknownTTableVBTypeDatabaseNameStockIndexFieldNamesVBSTRU;VBCOL;VBFIN	TableNameVBTYPELeftTop`TStringFieldVBTypeVBSTRUDisplayLabelStructDisplayWidth	FieldNameVBSTRURequired	SizeTStringFieldVBTypeVBCOLDisplayLabelColour	FieldNameVBCOLRequired	SizeTStringFieldVBTypeVBFINDisplayLabelFinish	FieldNameVBFINRequired	SizeTDataSource	srcVBTypeDataSetVBTypeLeft(Top`TTable	PriceTypeDatabaseNameStock	TableName	PRICETYPELeftTopÀTStringFieldPriceTypePRICETYPE	FieldName	PRICETYPESizeTStringFieldPriceTypeDESCR	FieldNameDESCRSize
TDataSourcesrcVBLSPDataSet
VBLSPQueryLeft(Top@TTableVBWidthDatabaseNameStockIndexFieldNamesMETRICWIDTH	TableNameVBWIDTHLeftTop€TSmallintFieldVBWidthMETRICWIDTH	FieldNameMETRICWIDTHRequired	TDataSourcesrcPriceTypeDataSet	PriceTypeLeft(TopÀTTableVBQltyDatabaseNameStockIndexFieldNamesQLTY	TableNameVBQLTYLeftTop TStringField
VBQltyQLTY	FieldNameQLTYRequired	SizeTStringFieldVBQltyDESCR	FieldNameDESCRSize<TDataSource
srcVBWidthDataSetVBWidthLeft(Top€TDataSource	srcVBQltyDataSetVBQltyLeft(Top 