ietype.dfm

完整的delphi书籍源代码,大家有空的时候自己慢慢看看

object IETypeFrm: TIETypeFrm
  Left = 225
  Top = 102
  Width = 334
  Height = 385
  Caption = #25910#25903#31867#22411
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 16
    Top = 24
    Width = 281
    Height = 97
    Caption = #25910#25903#39033#30446
    TabOrder = 0
    object Label1: TLabel
      Left = 48
      Top = 32
      Width = 54
      Height = 13
      Caption = #25910#25903#21517#31216'  '
    end
    object Label2: TLabel
      Left = 48
      Top = 64
      Width = 48
      Height = 13
      Caption = #25910#25903#31867#22411
    end
    object DBEdit1: TDBEdit
      Left = 112
      Top = 24
      Width = 97
      Height = 21
      DataField = 'IEName'
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBComboBox1: TDBComboBox
      Left = 112
      Top = 56
      Width = 97
      Height = 21
      DataField = 'IEType'
      DataSource = DataSource1
      ItemHeight = 13
      Items.Strings = (
        #25910#20837
        #25903#20986)
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 176
    Width = 289
    Height = 169
    Caption = #25910#25903#31867#22411#21015#34920
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 24
      Top = 24
      Width = 241
      Height = 121
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'IEName'
          Title.Alignment = taCenter
          Title.Caption = #25910#25903#21517#31216
          Width = 95
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'IEType'
          Title.Alignment = taCenter
          Title.Caption = #25910#25903#31867#22411
          Width = 96
          Visible = True
        end>
    end
  end
  object DBNavigator1: TDBNavigator
    Left = 16
    Top = 136
    Width = 200
    Height = 25
    DataSource = DataSource1
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
    TabOrder = 2
  end
  object Button1: TButton
    Left = 238
    Top = 136
    Width = 59
    Height = 25
    Caption = #36820'      '#22238
    TabOrder = 3
    OnClick = Button1Click
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 176
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = LoginFrm.ADOConnection1
    CursorType = ctStatic
    TableName = 'IEType'
    Left = 216
  end
end