unit1.dfm

一系列DELPHI的控件如何使用的例子,例子有的比较简单,但是能详细的说明了控件的使用,对许多刚涉足DELPHI的朋友会很有帮助的

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = 'table'#25511#20214#31034#20363
  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 PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 688
    Height = 453
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'DBGRID'#25511#20214
      object Panel1: TPanel
        Left = 0
        Top = 384
        Width = 680
        Height = 41
        Align = alBottom
        TabOrder = 0
        object DBNavigator1: TDBNavigator
          Left = 200
          Top = 8
          Width = 240
          Height = 25
          DataSource = DataSource1
          TabOrder = 0
        end
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 680
        Height = 384
        Align = alClient
        DataSource = DataSource1
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'Name'
            Title.Caption = #22269#21517
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Capital'
            Title.Caption = #39318#37117
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Continent'
            Title.Caption = #22823#38470
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Area'
            Title.Caption = #38754#31215
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Population'
            Title.Caption = #20154#21475
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20854#20182'DB'#25511#20214
      ImageIndex = 1
      object Label6: TLabel
        Left = 216
        Top = 24
        Width = 65
        Height = 13
        AutoSize = False
        Caption = #24555#36895#23450#20301
      end
      object Panel2: TPanel
        Left = 0
        Top = 384
        Width = 680
        Height = 41
        Align = alBottom
        TabOrder = 0
        object BitBtn1: TBitBtn
          Left = 24
          Top = 8
          Width = 75
          Height = 25
          Caption = #31532#19968#26465
          TabOrder = 0
          OnClick = BitBtn1Click
        end
        object BitBtn2: TBitBtn
          Left = 114
          Top = 8
          Width = 75
          Height = 25
          Caption = #19978#19968#26465
          TabOrder = 1
          OnClick = BitBtn2Click
        end
        object BitBtn3: TBitBtn
          Left = 205
          Top = 8
          Width = 75
          Height = 25
          Caption = #19979#19968#26465
          TabOrder = 2
          OnClick = BitBtn3Click
        end
        object BitBtn4: TBitBtn
          Left = 296
          Top = 8
          Width = 75
          Height = 25
          Caption = #26368#21518#19968#26465
          TabOrder = 3
          OnClick = BitBtn4Click
        end
        object BitBtn5: TBitBtn
          Left = 386
          Top = 8
          Width = 75
          Height = 25
          Caption = #32534#36753#35760#24405
          TabOrder = 4
          OnClick = BitBtn5Click
        end
        object BitBtn6: TBitBtn
          Left = 477
          Top = 8
          Width = 75
          Height = 25
          Caption = #25552#20132
          TabOrder = 5
          OnClick = BitBtn6Click
        end
        object BitBtn7: TBitBtn
          Left = 568
          Top = 8
          Width = 75
          Height = 25
          Caption = #21024#38500
          TabOrder = 6
          OnClick = BitBtn7Click
        end
      end
      object GroupBox1: TGroupBox
        Left = 200
        Top = 88
        Width = 265
        Height = 265
        Caption = #35760#24405#26174#31034
        TabOrder = 1
        object Label1: TLabel
          Left = 47
          Top = 46
          Width = 32
          Height = 13
          AutoSize = False
          Caption = #22269#21517
        end
        object Label2: TLabel
          Left = 47
          Top = 78
          Width = 32
          Height = 13
          AutoSize = False
          Caption = #39318#37117
        end
        object Label3: TLabel
          Left = 47
          Top = 118
          Width = 32
          Height = 13
          AutoSize = False
          Caption = #22823#38470
        end
        object Label4: TLabel
          Left = 47
          Top = 158
          Width = 32
          Height = 13
          AutoSize = False
          Caption = #38754#31215
        end
        object Label5: TLabel
          Left = 47
          Top = 190
          Width = 32
          Height = 13
          AutoSize = False
          Caption = #20154#21475
        end
        object DBEdit1: TDBEdit
          Left = 95
          Top = 38
          Width = 121
          Height = 21
          DataField = 'Name'
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 0
        end
        object DBEdit2: TDBEdit
          Left = 95
          Top = 78
          Width = 121
          Height = 21
          DataField = 'Capital'
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 1
        end
        object DBEdit3: TDBEdit
          Left = 95
          Top = 118
          Width = 121
          Height = 21
          DataField = 'Continent'
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 2
        end
        object DBEdit4: TDBEdit
          Left = 95
          Top = 150
          Width = 121
          Height = 21
          DataField = 'Area'
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 3
        end
        object DBEdit5: TDBEdit
          Left = 95
          Top = 190
          Width = 121
          Height = 21
          DataField = 'Population'
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 4
        end
      end
      object ComboBox1: TComboBox
        Left = 296
        Top = 24
        Width = 161
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ItemHeight = 13
        TabOrder = 2
        OnChange = ComboBox1Change
      end
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'country.db'
    Left = 20
    Top = 88
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 52
    Top = 88
  end
end