开源的网站整站程序,功能强大带采集系统.

				inherited Pay550_04Form: TPay550_04Form
				  Left = 210
				  Top = 109
				  HelpContext = 79
				  BorderIcons = [biSystemMenu]
				  BorderStyle = bsSingle
				  Caption = #34218#36164#38646#37329#26680#31639
				  ClientHeight = 287
				  ClientWidth = 497
				  OldCreateOrder = True
				  PixelsPerInch = 96
				  TextHeight = 12
				  object Label3: TLabel [0]
				    Left = 64
				    Top = 232
				    Width = 7
				    Height = 13
				    Font.Charset = GB2312_CHARSET
				    Font.Color = clBlue
				    Font.Height = -13
				    Font.Name = #23435#20307
				    Font.Pitch = fpFixed
				    Font.Style = []
				    ParentFont = False
				  end
				  object lblAmount: TLabel [1]
				    Left = 288
				    Top = 12
				    Width = 24
				    Height = 12
				    Caption = #37329#39069
				  end
				  object lblCurr: TLabel [2]
				    Left = 64
				    Top = 12
				    Width = 24
				    Height = 12
				    Alignment = taRightJustify
				    Caption = #24065#21035
				  end
				  object bbtnOk: TBitBtn [3]
				    Left = 312
				    Top = 256
				    Width = 75
				    Height = 25
				    Caption = #35745#31639'(&O)'
				    TabOrder = 0
				    OnClick = bbtnOkClick
				  end
				  object bbtnExit: TBitBtn [4]
				    Left = 400
				    Top = 256
				    Width = 75
				    Height = 25
				    Caption = #36864#20986'(&X)'
				    TabOrder = 1
				    OnClick = bbtnExitClick
				  end
				  object cbCurr: TComboBox [5]
				    Left = 96
				    Top = 8
				    Width = 169
				    Height = 20
				    Style = csDropDownList
				    ItemHeight = 12
				    TabOrder = 2
				    OnChange = cbCurrChange
				  end
				  object edtAmount: TEdit [6]
				    Left = 320
				    Top = 8
				    Width = 169
				    Height = 20
				    Enabled = False
				    TabOrder = 3
				  end
				  object ScrollBox1: TScrollBox [7]
				    Left = 8
				    Top = 40
				    Width = 481
				    Height = 209
				    TabOrder = 4
				    object dxDBGrid2: TdxDBGrid
				      Left = 0
				      Top = 0
				      Width = 477
				      Height = 205
				      Bands = <
				        item
				        end>
				      DefaultLayout = True
				      HeaderPanelRowCount = 1
				      KeyField = 'ParValue'
				      ShowSummaryFooter = True
				      SummaryGroups = 
				      SummarySeparator = ', '
				      Align = alClient
				      BorderStyle = bsNone
				      TabOrder = 0
				      DataSource = DataSource1
				      Filter.Criteria = {00000000}
				      HeaderColor = 15262169
				      HideFocusRect = True
				      LookAndFeel = lfUltraFlat
				      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
				      OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
				      object dxDBGrid2ParValue: TdxDBGridMaskColumn
				        DisableEditor = True
				        HeaderAlignment = taCenter
				        Width = 124
				        BandIndex = 0
				        RowIndex = 0
				        FieldName = 'ParValue'
				      end
				      object dxDBGrid2Unit: TdxDBGridMaskColumn
				        DisableEditor = True
				        HeaderAlignment = taCenter
				        Width = 84
				        BandIndex = 0
				        RowIndex = 0
				        FieldName = 'Unit'
				      end
				      object dxDBGrid2Count: TdxDBGridMaskColumn
				        DisableEditor = True
				        HeaderAlignment = taCenter
				        Width = 105
				        BandIndex = 0
				        RowIndex = 0
				        FieldName = 'Count'
				      end
				      object dxDBGrid2Amount: TdxDBGridMaskColumn
				        DisableEditor = True
				        HeaderAlignment = taCenter
				        Width = 129
				        BandIndex = 0
				        RowIndex = 0
				        FieldName = 'Amount'
				        SummaryFooterType = cstSum
				      end
				    end
				  end
				  inherited pmUISet: TPopupMenu
				    Left = 24
				    Top = 8
				  end
				  object DataSource1: TDataSource
				    DataSet = ADODataSet1
				    Left = 144
				    Top = 88
				  end
				  object ADODataSet1: TADODataSet
				    Connection = SYSDM.ADOC
				    CursorType = ctStatic
				    FieldDefs = <
				      item
				        Name = 'ParValue'
				        Attributes = [faFixed]
				        DataType = ftInteger
				      end
				      item
				        Name = 'Unit'
				        DataType = ftString
				        Size = 20
				      end
				      item
				        Name = 'Count'
				        Attributes = [faFixed]
				        DataType = ftInteger
				      end
				      item
				        Name = 'Amount'
				        Attributes = [faFixed]
				        DataType = ftFloat
				      end>
				    Parameters = 
				    StoreDefs = True
				    Left = 184
				    Top = 88
				    object ADODataSet1ParValue: TIntegerField
				      DisplayLabel = #38754#20540
				      FieldName = 'ParValue'
				    end
				    object ADODataSet1Unit: TStringField
				      DisplayLabel = #21333#20301
				      FieldName = 'Unit'
				    end
				    object ADODataSet1Count: TIntegerField
				      DisplayLabel = #25968#37327
				      FieldName = 'Count'
				    end
				    object ADODataSet1Amount: TFloatField
				      DisplayLabel = #37329#39069
				      FieldName = 'Amount'
				    end
				  end
				  object ADOQuery1: TADOQuery
				    Parameters = 
				    Left = 240
				    Top = 48
				  end
				end