customers.frm

delphi 运行期间窗体设计

object RootPanel: TDesignPanel
  WindowHeight = 268
  WindowWidth = 532
  object DBText1: TDBText
    Left = 424
    Top = 27
    Width = 65
    Height = 17
    DataField = 'custno'
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 56
    Width = 472
    Height = 152
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBNavigator1: TDBNavigator
    Left = 16
    Top = 24
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 1
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'dbdemos'
    RequestLive = True
    SQL.Strings = (
      'select * from customer')
    Left = 16
    Top = 16
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 48
    Top = 16
  end
end