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

				object Sys900_02Form: TSys900_02Form
				  Left = 210
				  Top = 107
				  BorderIcons = [biSystemMenu]
				  BorderStyle = bsSingle
				  Caption = #32534#21495#35268#21017
				  ClientHeight = 303
				  ClientWidth = 305
				  Color = clBtnFace
				  Font.Charset = DEFAULT_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -12
				  Font.Name = #23435#20307
				  Font.Pitch = fpFixed
				  Font.Style = []
				  OldCreateOrder = False
				  OnClose = FormClose
				  OnCreate = FormCreate
				  PixelsPerInch = 96
				  TextHeight = 12
				  object Label1: TLabel
				    Left = 8
				    Top = 12
				    Width = 48
				    Height = 12
				    Caption = #32534#21495#35268#21017
				  end
				  object Edit1: TEdit
				    Left = 64
				    Top = 8
				    Width = 233
				    Height = 20
				    TabOrder = 0
				  end
				  object bbtnOk: TBitBtn
				    Left = 120
				    Top = 272
				    Width = 75
				    Height = 25
				    Caption = #30830#23450'(&O)'
				    TabOrder = 1
				    OnClick = bbtnOkClick
				  end
				  object bbtnExit: TBitBtn
				    Left = 208
				    Top = 272
				    Width = 75
				    Height = 25
				    Caption = #36864#20986'(&X)'
				    TabOrder = 2
				    OnClick = bbtnExitClick
				  end
				  object dxDBGrid1: TdxDBGrid
				    Left = 8
				    Top = 40
				    Width = 289
				    Height = 225
				    Bands = <
				      item
				      end>
				    DefaultLayout = False
				    HeaderPanelRowCount = 1
				    SummaryGroups = 
				    SummarySeparator = ', '
				    TabOrder = 3
				    OnDblClick = dxDBGrid1DblClick
				    DataSource = dsSys900
				    Filter.Criteria = {00000000}
				    HideFocusRect = True
				    LookAndFeel = lfFlat
				    OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
				    OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
				    object dxDBGrid1Code: TdxDBGridMaskColumn
				      DisableEditor = True
				      HeaderAlignment = taCenter
				      Width = 87
				      BandIndex = 0
				      RowIndex = 0
				      FieldName = 'Code'
				    end
				    object dxDBGrid1Name: TdxDBGridMaskColumn
				      DisableEditor = True
				      HeaderAlignment = taCenter
				      Width = 159
				      BandIndex = 0
				      RowIndex = 0
				      FieldName = 'Name'
				    end
				  end
				  object adsSys900: TADODataSet
				    CursorType = ctStatic
				    LockType = ltBatchOptimistic
				    FieldDefs = <
				      item
				        Name = 'Code'
				        DataType = ftString
				        Size = 20
				      end
				      item
				        Name = 'Name'
				        DataType = ftString
				        Size = 20
				      end>
				    Parameters = 
				    StoreDefs = True
				    Left = 144
				    Top = 128
				    object adsSys900Code: TStringField
				      DisplayLabel = #31526#21495
				      FieldName = 'Code'
				    end
				    object adsSys900Name: TStringField
				      DisplayLabel = #35828#26126
				      FieldName = 'Name'
				    end
				  end
				  object dsSys900: TDataSource
				    DataSet = adsSys900
				    Left = 176
				    Top = 128
				  end
				end