unit1.~dfm

Delphi_database例程,是一个实用的数据库浏览的例子.

object Form1: TForm1
  Left = 222
  Top = 110
  Width = 585
  Height = 373
  Caption = #25968#25454#24211#30340#27983#35272
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = #23435#20307
  Font.Style = [fsBold]
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 11
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 577
    Height = 49
    Align = alTop
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object TLabel
      Left = 24
      Top = 16
      Width = 8
      Height = 11
    end
    object Label2: TLabel
      Left = 200
      Top = 8
      Width = 37
      Height = 11
      Caption = #25968#25454#34920
    end
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 44
      Height = 11
      Caption = #25968#25454#24211':'
    end
    object C_table: TComboBox
      Left = 216
      Top = 24
      Width = 169
      Height = 21
      Color = clBtnFace
      Font.Charset = GB2312_CHARSET
      Font.Color = clTeal
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ItemHeight = 13
      ParentFont = False
      TabOrder = 0
      OnChange = C_tableChange
    end
    object C_data: TComboBox
      Left = 16
      Top = 24
      Width = 169
      Height = 21
      Color = clBtnFace
      Font.Charset = GB2312_CHARSET
      Font.Color = clTeal
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ItemHeight = 13
      ParentFont = False
      TabOrder = 1
      OnChange = C_dataChange
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 49
    Width = 577
    Height = 297
    Align = alClient
    BevelInner = bvLowered
    BorderStyle = bsSingle
    TabOrder = 1
    object L_field: TListBox
      Left = 2
      Top = 2
      Width = 199
      Height = 289
      Align = alLeft
      Color = clBtnFace
      Font.Charset = GB2312_CHARSET
      Font.Color = clTeal
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ItemHeight = 12
      MultiSelect = True
      ParentFont = False
      TabOrder = 0
      OnClick = L_fieldClick
    end
    object DBGrid1: TDBGrid
      Left = 201
      Top = 2
      Width = 370
      Height = 289
      Align = alClient
      Color = clBtnFace
      DataSource = DataSource1
      FixedColor = clTeal
      Font.Charset = GB2312_CHARSET
      Font.Color = clTeal
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = #23435#20307
      TitleFont.Style = [fsBold]
    end
  end
  object B_view: TButton
    Left = 424
    Top = 16
    Width = 57
    Height = 25
    Caption = #26174' '#31034
    Enabled = False
    TabOrder = 2
    OnClick = B_viewClick
  end
  object B_close: TButton
    Left = 480
    Top = 16
    Width = 57
    Height = 25
    Caption = #36864' '#20986
    TabOrder = 3
    OnClick = B_closeClick
  end
  object Table1: TTable
    Left = 97
    Top = 105
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 136
    Top = 145
  end
  object Query1: TQuery
    Left = 96
    Top = 145
  end
end