home *** CD-ROM | disk | FTP | other *** search
- object frmSelectAuction: TfrmSelectAuction
- Left = 393
- Top = 176
- BorderStyle = bsDialog
- Caption = 'Select Auction'
- ClientHeight = 192
- ClientWidth = 227
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object lblCopies: TLabel
- Left = 35
- Top = 133
- Width = 87
- Height = 13
- Caption = 'Number of Copies:'
- end
- object btnOk: TButton
- Left = 21
- Top = 159
- Width = 75
- Height = 25
- Caption = '&OK'
- TabOrder = 2
- OnClick = btnOkClick
- end
- object btnCancel: TButton
- Left = 126
- Top = 158
- Width = 75
- Height = 25
- Caption = '&Cancel'
- TabOrder = 3
- OnClick = btnCancelClick
- end
- object lbAuctions: TDBLookupListBox
- Left = 21
- Top = 15
- Width = 182
- Height = 108
- KeyField = 'AuctionID'
- ListField = 'AuctionName'
- ListSource = dsAuctions
- TabOrder = 0
- OnDblClick = lbAuctionsDblClick
- end
- object sedtCopies: TwwDBSpinEdit
- Left = 132
- Top = 130
- Width = 53
- Height = 21
- Increment = 1
- MaxValue = 1000
- MinValue = 1
- Value = 1
- TabOrder = 1
- UnboundDataType = wwDefault
- end
- object qryGetAuction: TAdsQuery
- DatabaseName = 'frmPosterMain.AdsConnection1'
- StoreActive = True
- Version = '6.2 (ACE 6.20)'
- ReadAllColumns = False
- SQL.Strings = (
- 'Select AuctionName, AuctionId'
- 'From Auction'
- 'Where Active = true'
- 'Order By AuctionId')
- Left = 168
- Top = 21
- ParamData = <>
- end
- object dsAuctions: TDataSource
- DataSet = qryGetAuction
- Left = 109
- Top = 19
- end
- end
-