infoshop.dfm

适合Delphi初学者使用。其中涉及XML文件导入

inherited frmInfoShop: TfrmInfoShop
  Left = 191
  Top = 215
  Caption = #24215#36164#26009
  ClientHeight = 364
  ClientWidth = 723
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 723
    Height = 41
    Align = alTop
    TabOrder = 0
    object Button1: TButton
      Left = 576
      Top = 8
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 72
      Top = 8
      Width = 75
      Height = 25
      Caption = #22686#21152
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 176
      Top = 8
      Width = 75
      Height = 25
      Caption = #21024#38500
      TabOrder = 2
      OnClick = Button3Click
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 41
    Width = 723
    Height = 323
    Align = alClient
    DataSource = DM.dsShop
    Flat = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #26032#23435#20307
    Font.Style = []
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -14
    FooterFont.Name = #26032#23435#20307
    FooterFont.Style = []
    ParentFont = False
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #26032#23435#20307
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'Name'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21517#31216
        Width = 135
      end
      item
        EditButtons = <>
        FieldName = 'Address'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #22320#22336
        Width = 261
      end
      item
        EditButtons = <>
        FieldName = 'LinkMan'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #32852#31995#20154
        Width = 104
      end
      item
        EditButtons = <>
        FieldName = 'Tel'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #30005#35805
        Width = 196
      end>
  end
end