cx.~dfm

Delphi数据库编程

object Form2: TForm2
  Left = 244
  Top = 164
  Width = 354
  Height = 223
  Caption = #25353#32844#31216#26597#35810#31383#21475
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 81
    Height = 25
    AutoSize = False
    Caption = #32844#31216#20026#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 16
    Top = 56
    Width = 89
    Height = 17
    AutoSize = False
    Caption = #26597#35810#32467#26524#20026#65306
  end
  object ComboBox1: TComboBox
    Left = 112
    Top = 16
    Width = 105
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 0
    Text = 'NONE'
    OnChange = ComboBox1Change
    Items.Strings = (
      #21161#25945
      #35762#24072
      #21103#25945#25480
      #25945#25480)
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 80
    Width = 345
    Height = 113
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 288
    Top = 16
    Width = 49
    Height = 25
    Caption = #36820#22238
    TabOrder = 2
    OnClick = Button1Click
  end
  object Query1: TQuery
    SQL.Strings = (
      'select * from gzb')
    Left = 128
    Top = 48
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 168
    Top = 48
  end
end