12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667 |
- object DealBillsData: TDealBillsData
- OldCreateOrder = False
- Left = 589
- Top = 368
- Height = 256
- Width = 215
- object sdpDealBills: TsdADOProvider
- TableName = 'DealBills'
- Left = 72
- Top = 24
- end
- object sddDealBills: TsdDataSet
- Active = False
- Provider = sdpDealBills
- BeforeAddRecord = sddDealBillsBeforeAddRecord
- Left = 72
- Top = 88
- FieldListData = {
- 0101044E616D6506024944094669656C644E616D650602494408446174615479
- 70650203084461746153697A6502040549734B6579080F4E65656450726F6365
- 73734E616D65090001044E616D650606425F436F6465094669656C644E616D65
- 0606425F436F64650844617461547970650201084461746153697A6503FF0005
- 49734B6579080F4E65656450726F636573734E616D65090001044E616D650604
- 4E616D65094669656C644E616D6506044E616D65084461746154797065021808
- 4461746153697A6503FF000549734B6579080F4E65656450726F636573734E61
- 6D65090001044E616D650605556E697473094669656C644E616D650605556E69
- 74730844617461547970650218084461746153697A6503FF000549734B657908
- 0F4E65656450726F636573734E616D65090001044E616D650605507269636509
- 4669656C644E616D650605507269636508446174615479706502060844617461
- 53697A6502080549734B6579080F4E65656450726F636573734E616D65090001
- 044E616D6506085175616E74697479094669656C644E616D6506085175616E74
- 6974790844617461547970650206084461746153697A6502080549734B657908
- 0F4E65656450726F636573734E616D65090001044E616D65060A546F74616C50
- 72696365094669656C644E616D65060A546F74616C5072696365084461746154
- 7970650206084461746153697A6502080549734B6579080F4E65656450726F63
- 6573734E616D65090001044E616D650609496E646578436F6465094669656C64
- 4E616D650609496E646578436F64650844617461547970650201084461746153
- 697A6502320549734B6579080F4E65656450726F636573734E616D65090000}
- end
- object sdvDealBills: TsdDataView
- Active = False
- DataSet = sddDealBills
- Filtered = False
- Columns = <
- item
- FieldName = 'B_Code'
- end
- item
- FieldName = 'Name'
- end
- item
- FieldName = 'Units'
- end
- item
- FieldName = 'Price'
- end
- item
- FieldName = 'Quantity'
- end
- item
- FieldName = 'TotalPrice'
- end>
- OnSetText = sdvDealBillsSetText
- Left = 72
- Top = 152
- end
- end
|