main.dfm

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

object frmMain: TfrmMain
  Left = 72
  Top = 47
  Width = 1052
  Height = 700
  Caption = #36164#26009#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -19
  Font.Name = #26032#23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 19
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 1044
    Height = 49
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 152
      Top = 11
      Width = 40
      Height = 19
      Caption = #39033#30446
    end
    object Label2: TLabel
      Left = 352
      Top = 11
      Width = 20
      Height = 19
      Caption = #20540
    end
    object laShop: TLabel
      Left = 16
      Top = 11
      Width = 80
      Height = 19
      Caption = #20840#37096#23458#25143
    end
    object comFind: TComboBox
      Left = 200
      Top = 7
      Width = 145
      Height = 27
      ItemHeight = 19
      ItemIndex = 1
      TabOrder = 0
      Text = 'VIP'
      Items.Strings = (
        #21517#31216
        'VIP'
        #30005#35805
        #22791#27880)
    end
    object edtValue: TEdit
      Left = 384
      Top = 7
      Width = 169
      Height = 27
      TabOrder = 1
    end
    object btnLocate: TButton
      Left = 576
      Top = 8
      Width = 75
      Height = 25
      Caption = #23450#20301
      TabOrder = 2
      OnClick = btnLocateClick
    end
    object btnFilter: TButton
      Left = 672
      Top = 8
      Width = 75
      Height = 25
      Caption = #36807#28388
      TabOrder = 3
      OnClick = btnFilterClick
    end
    object btnShowAll: TButton
      Left = 768
      Top = 8
      Width = 75
      Height = 25
      Caption = #20840#37096
      TabOrder = 4
      OnClick = btnShowAllClick
    end
    object btnReLogin: TButton
      Left = 920
      Top = 8
      Width = 75
      Height = 25
      Caption = #37325#30331#24405
      TabOrder = 5
      OnClick = btnReLoginClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 616
    Width = 1044
    Height = 50
    Align = alBottom
    TabOrder = 1
    object btnImport: TButton
      Left = 175
      Top = 16
      Width = 75
      Height = 25
      Caption = #23548#20837
      Enabled = False
      TabOrder = 0
      OnClick = btnImportClick
    end
    object btnExport: TButton
      Left = 254
      Top = 16
      Width = 75
      Height = 25
      Caption = #23548#20986
      TabOrder = 1
      OnClick = btnExportClick
    end
    object btnAdd: TButton
      Left = 492
      Top = 16
      Width = 75
      Height = 25
      Caption = #22686#21152
      Enabled = False
      TabOrder = 2
      OnClick = btnAddClick
    end
    object btnDel: TButton
      Left = 611
      Top = 16
      Width = 75
      Height = 25
      Caption = #21024#38500
      Enabled = False
      TabOrder = 3
      OnClick = btnDelClick
    end
    object btnSave: TButton
      Left = 729
      Top = 16
      Width = 75
      Height = 25
      Caption = #20445#23384
      Enabled = False
      TabOrder = 4
      OnClick = btnSaveClick
    end
    object btnPrint: TButton
      Left = 809
      Top = 16
      Width = 75
      Height = 25
      Caption = #25171#21360
      TabOrder = 5
      OnClick = btnPrintClick
    end
    object btnSet: TButton
      Left = 888
      Top = 16
      Width = 75
      Height = 25
      Caption = #35774#32622
      TabOrder = 6
      OnClick = btnSetClick
    end
    object btnClear: TButton
      Left = 962
      Top = 16
      Width = 75
      Height = 25
      Caption = #28165#38500
      Enabled = False
      TabOrder = 7
      Visible = False
      OnClick = btnClearClick
    end
    object btnShopAdmin: TButton
      Left = 16
      Top = 16
      Width = 75
      Height = 25
      Caption = #24215#31649#29702
      TabOrder = 8
      OnClick = btnShopAdminClick
    end
    object btnFirst: TButton
      Left = 333
      Top = 16
      Width = 75
      Height = 25
      Caption = #39318#35760#24405
      TabOrder = 9
      OnClick = btnFirstClick
    end
    object btnLast: TButton
      Left = 412
      Top = 16
      Width = 75
      Height = 25
      Caption = #23614#35760#24405
      TabOrder = 10
      OnClick = btnLastClick
    end
    object btnTurnShop: TButton
      Left = 95
      Top = 16
      Width = 75
      Height = 25
      Caption = #36716#24215
      TabOrder = 11
      OnClick = btnTurnShopClick
    end
  end
  object gridCustomer: TDBGridEh
    Left = 0
    Top = 49
    Width = 1044
    Height = 567
    Align = alClient
    AllowedOperations = [alopInsertEh, alopUpdateEh, alopDeleteEh]
    DataSource = DM.dsCustomer
    Flat = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #26032#23435#20307
    Font.Style = []
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -19
    FooterFont.Name = #26032#23435#20307
    FooterFont.Style = []
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight, dghDialogFind]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    SumList.Active = True
    SumList.VirtualRecords = True
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -21
    TitleFont.Name = #26032#23435#20307
    TitleFont.Style = []
    OnGetCellParams = gridCustomerGetCellParams
    OnTitleClick = gridCustomerTitleClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'Shop'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24215#21517
        Width = 92
      end
      item
        EditButtons = <>
        FieldName = 'Name'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21517#31216
        ToolTips = True
        Width = 311
      end
      item
        EditButtons = <>
        FieldName = 'VIP'
        Footers = <>
        Title.Alignment = taCenter
        ToolTips = True
        Width = 153
      end
      item
        EditButtons = <>
        FieldName = 'Tel'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #30005#35805
        ToolTips = True
        Width = 232
      end
      item
        EditButtons = <>
        FieldName = 'Remark'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #22791#27880
        ToolTips = True
        Width = 153
      end>
  end
  object PopupMenu1: TPopupMenu
    Left = 160
    Top = 576
    object pmImportExecl1: TMenuItem
      Caption = #30001'Execl'#23548#20837#36164#26009
      OnClick = pmImportExecl1Click
    end
    object pmImportOldDoc: TMenuItem
      Caption = #23548#20837#26087#36164#26009
      OnClick = pmImportOldDocClick
    end
    object pmImportFile: TMenuItem
      Caption = #23548#20837#20132#25442#25991#20214
      OnClick = pmImportFileClick
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 208
    Top = 568
    object pmExportExcel: TMenuItem
      Caption = #36755#20986'Excel'#25991#20214
      OnClick = pmExportExcelClick
    end
    object pmExportFile: TMenuItem
      Caption = #36755#20986#20132#25442#25991#20214
      OnClick = pmExportFileClick
    end
  end
  object PopupMenu3: TPopupMenu
    Left = 256
    Top = 576
    object pmExcelSet: TMenuItem
      Caption = #35774#32622'Excel'#23548#20837#21015#21495
      OnClick = pmExcelSetClick
    end
    object pmFontSet: TMenuItem
      Caption = #35774#32622#23383#20307
      OnClick = pmFontSetClick
    end
    object pmGridWidth: TMenuItem
      Caption = #20445#23384#21015#23485
      OnClick = pmGridWidthClick
    end
    object pmPrintSet: TMenuItem
      Caption = #25171#21360#35774#32622
      OnClick = pmPrintSetClick
    end
    object pmFirstColor: TMenuItem
      Caption = #31532#19968#39068#33394
      OnClick = pmFirstColorClick
    end
    object pmSecondColor: TMenuItem
      Caption = #31532#20108#39068#33394
      OnClick = pmSecondColorClick
    end
    object pmDelSpace: TMenuItem
      Caption = #21435#25481#22810#20313#31354#26684
      OnClick = pmDelSpaceClick
    end
  end
  object ExcelApplication1: TExcelApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 144
    Top = 136
  end
  object ExcelWorksheet1: TExcelWorksheet
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 192
    Top = 96
  end
  object ExcelWorkbook1: TExcelWorkbook
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 208
    Top = 144
  end
  object InXMLDoc: TXMLDocument
    Left = 280
    Top = 152
    DOMVendorDesc = 'MSXML'
  end
end