clientlist.dfm

一个源码客户信息管理系统

object ClientListForm: TClientListForm
  Left = 248
  Top = 170
  Width = 696
  Height = 477
  Caption = #23458#25143#21015#34920
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 0
    Top = 240
    Width = 688
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object RzPageControl1: TRzPageControl
    Left = 0
    Top = 0
    Width = 688
    Height = 240
    ActivePage = TabSheet1
    Align = alClient
    Color = 16119543
    FlatColor = 10263441
    HotTrackColor = 3983359
    HotTrackColorType = htctActual
    ParentColor = False
    TabColors.HighlightBar = 3983359
    TabIndex = 0
    TabOrder = 0
    FixedDimension = 18
    object TabSheet1: TRzTabSheet
      Color = 16119543
      Caption = #23458#25143#36164#26009
      object cxGrid1: TcxGrid
        Tag = 2
        Left = 0
        Top = 0
        Width = 684
        Height = 218
        Hint = #28857#20987#21491#38190#24377#20986#32534#36753#33756#21333
        Align = alClient
        PopupMenu = PopupMenu1
        TabOrder = 0
        LookAndFeel.Kind = lfOffice11
        LookAndFeel.NativeStyle = False
        object cxGrid1DBTableView1: TcxGridDBTableView
          Tag = 2
          OnDblClick = cxGrid1DBTableView1DblClick
          DataController.DataSource = DM1.DataSource1
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <>
          DataController.Summary.SummaryGroups = <>
          NavigatorButtons.ConfirmDelete = False
          OptionsBehavior.FocusCellOnTab = True
          OptionsData.Editing = False
          OptionsSelection.HideSelection = True
          OptionsView.Indicator = True
          object cxGrid1DBTableView1DBColumn: TcxGridDBColumn
            Caption = #20195#21495
            DataBinding.FieldName = 'ID'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taCenter
            Properties.ReadOnly = True
            HeaderAlignmentHorz = taCenter
            SortIndex = 0
            SortOrder = soAscending
            Width = 60
          end
          object cxGrid1DBTableView1DBColumn1: TcxGridDBColumn
            Caption = #20844#21496#21517#31216
            DataBinding.FieldName = 'CoName'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            SortIndex = 1
            SortOrder = soAscending
            Width = 260
          end
          object cxGrid1DBTableView1DBColumn2: TcxGridDBColumn
            Caption = #23458#25143#31561#32423
            DataBinding.FieldName = 'ClientTier'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            HeaderAlignmentHorz = taCenter
            Width = 70
          end
          object cxGrid1DBTableView1DBColumn3: TcxGridDBColumn
            Caption = #23458#25143#31867#22411
            DataBinding.FieldName = 'ClientTypes'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taCenter
            Properties.ReadOnly = True
            HeaderAlignmentHorz = taCenter
            Width = 70
          end
          object cxGrid1DBTableView1DBColumn4: TcxGridDBColumn
            Caption = #32852#31995#22320#22336
            DataBinding.FieldName = 'Address'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            Width = 260
          end
          object cxGrid1DBTableView1DBColumn5: TcxGridDBColumn
            Caption = #37038#32534
            DataBinding.FieldName = 'Postalcode'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
          end
          object cxGrid1DBTableView1DBColumn6: TcxGridDBColumn
            Caption = #22320#21306
            DataBinding.FieldName = 'Area'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            Width = 100
          end
          object cxGrid1DBTableView1DBColumn7: TcxGridDBColumn
            Caption = #32852#31995#30005#35805
            DataBinding.FieldName = 'TEL'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            Width = 180
          end
          object cxGrid1DBTableView1DBColumn8: TcxGridDBColumn
            Caption = #20256#30495
            DataBinding.FieldName = 'FAX'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            Width = 150
          end
          object cxGrid1DBTableView1EMAIL: TcxGridDBColumn
            Caption = #30005#23376#37038#20214
            DataBinding.FieldName = 'EMail'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            Width = 260
          end
          object cxGrid1DBTableView1DBColumn9: TcxGridDBColumn
            Caption = #20027#39029
            DataBinding.FieldName = 'WEBs'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            Width = 200
          end
        end
        object cxGrid1Level1: TcxGridLevel
          GridView = cxGrid1DBTableView1
        end
      end
    end
  end
  object RzPageControl2: TRzPageControl
    Left = 0
    Top = 243
    Width = 688
    Height = 200
    ActivePage = TabSheet2
    Align = alBottom
    Color = 16119543
    FlatColor = 10263441
    HotTrackColor = 3983359
    HotTrackColorType = htctActual
    ParentColor = False
    TabColors.HighlightBar = 3983359
    TabIndex = 0
    TabOrder = 1
    FixedDimension = 18
    object TabSheet2: TRzTabSheet
      Color = 16119543
      Caption = #32852#31995#20154#36164#26009
      object cxGrid2: TcxGrid
        Tag = 6
        Left = 0
        Top = 0
        Width = 684
        Height = 178
        Align = alClient
        PopupMenu = PopupMenu2
        TabOrder = 0
        LookAndFeel.Kind = lfOffice11
        LookAndFeel.NativeStyle = False
        object cxGrid2DBTableView1: TcxGridDBTableView
          Tag = 6
          OnDblClick = cxGrid2DBTableView1DblClick
          DataController.DataSource = DM1.DataSource2
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <>
          DataController.Summary.SummaryGroups = <>
          NavigatorButtons.ConfirmDelete = False
          OptionsBehavior.FocusCellOnTab = True
          OptionsData.Editing = False
          OptionsSelection.HideSelection = True
          OptionsView.GroupByBox = False
          OptionsView.Indicator = True
          object cxGrid2DBTableView1ID: TcxGridDBColumn
            Caption = #32852#31995#20154
            DataBinding.FieldName = 'LinkManID'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taCenter
            Properties.ReadOnly = True
            HeaderAlignmentHorz = taCenter
            Width = 80
          end
          object cxGrid2DBTableView1DBColumn10: TcxGridDBColumn
            Caption = #20027#32852#31995#20154
            DataBinding.FieldName = 'MostlyLinkMan'
            Width = 70
          end
          object cxGrid2DBTableView1DBColumn1: TcxGridDBColumn
            Caption = #32844#21153
            DataBinding.FieldName = 'Duty'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            Width = 80
          end
          object cxGrid2DBTableView1DBColumn2: TcxGridDBColumn
            Caption = #37096#38376
            DataBinding.FieldName = 'Branch'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            Width = 80
          end
          object cxGrid2DBTableView1EMail: TcxGridDBColumn
            Caption = #30005#23376#37038#20214
            DataBinding.FieldName = 'Email'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            Width = 180
          end
          object cxGrid2DBTableView1DBColumn3: TcxGridDBColumn
            Caption = #23478#24237#22320#22336
            DataBinding.FieldName = 'HomeAddress'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            Width = 180
          end
          object cxGrid2DBTableView1DBColumn4: TcxGridDBColumn
            Caption = #21150#20844#30005#35805
            DataBinding.FieldName = 'OfficeTEL'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            Width = 100
          end
          object cxGrid2DBTableView1DBColumn5: TcxGridDBColumn
            Caption = #25163#26426
            DataBinding.FieldName = 'MobileTEL'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            Width = 100
          end
          object cxGrid2DBTableView1DBColumn6: TcxGridDBColumn
            Caption = #23478#24237#30005#35805
            DataBinding.FieldName = 'HomeTEL'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            Width = 100
          end
          object cxGrid2DBTableView1DBColumn7: TcxGridDBColumn
            Caption = #20256#30495
            DataBinding.FieldName = 'FAX'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            Width = 100
          end
          object cxGrid2DBTableView1DBColumn8: TcxGridDBColumn
            Caption = #29983#26085
            DataBinding.FieldName = 'Birthday'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            RepositoryItem = MainForm.DateEdit
            Width = 80
          end
          object cxGrid2DBTableView1DBColumn9: TcxGridDBColumn
            Caption = #22791#27880
            DataBinding.FieldName = 'Remark'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
          end
        end
        object cxGrid2Level1: TcxGridLevel
          GridView = cxGrid2DBTableView1
        end
      end
    end
    object TabSheet3: TRzTabSheet
      Color = 16119543
      Caption = #25308#35775#35760#24405
      object cxGrid3: TcxGrid
        Tag = 6
        Left = 0
        Top = 0
        Width = 684
        Height = 178
        Align = alClient
        PopupMenu = PopupMenu3
        TabOrder = 0
        LookAndFeel.Kind = lfOffice11
        LookAndFeel.NativeStyle = False
        object cxGrid3DBTableView1: TcxGridDBTableView
          OnDblClick = cxGrid3DBTableView1DblClick
          DataController.DataSource = DM1.DataSource4
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <>
          DataController.Summary.SummaryGroups = <>
          NavigatorButtons.ConfirmDelete = False
          OptionsBehavior.FocusCellOnTab = True
          OptionsData.Editing = False
          OptionsSelection.HideSelection = True
          OptionsView.GroupByBox = False
          OptionsView.Indicator = True
          object cxGrid3DBTableView1DBColumn: TcxGridDBColumn
            Caption = #26085#26399
            DataBinding.FieldName = 'Dates'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taCenter
            Properties.ReadOnly = True
            HeaderAlignmentHorz = taCenter
          end
          object cxGrid3DBTableView1DBColumn1: TcxGridDBColumn
            Caption = #26102#38388
            DataBinding.FieldName = 'Times'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taCenter
            Properties.ReadOnly = True
            HeaderAlignmentHorz = taCenter
            Width = 70
          end
          object cxGrid3DBTableView1DBColumn2: TcxGridDBColumn
            Caption = #20027#39064
            DataBinding.FieldName = 'Motif'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            Width = 160
          end
          object cxGrid3DBTableView1DBColumn3: TcxGridDBColumn
            Caption = #32852#31995#26041#24335
            DataBinding.FieldName = 'RelationMode'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            Width = 100
          end
          object cxGrid3DBTableView1DBColumn4: TcxGridDBColumn
            Caption = #30456#20851#32852#31995#20154
            DataBinding.FieldName = 'Principal'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            Width = 100
          end
          object cxGrid3DBTableView1DBColumn5: TcxGridDBColumn
            Caption = #25105#26041#20154#21592
            DataBinding.FieldName = 'Personnel'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
            Width = 100
          end
          object cxGrid3DBTableView1DBColumn6: TcxGridDBColumn
            Caption = #20869#23481
            DataBinding.FieldName = 'Remark'
            PropertiesClassName = 'TcxTextEditProperties'
            Properties.Alignment.Horz = taLeftJustify
            Properties.ReadOnly = True
          end
        end
        object cxGrid3Level1: TcxGridLevel
          GridView = cxGrid3DBTableView1
        end
      end
    end
    object TabSheet4: TRzTabSheet
      Color = 16119543
      Caption = #38144#21806#35760#24405
      object cxGrid4: TcxGrid
        Tag = 6
        Left = 0
        Top = 0
        Width = 684
        Height = 178
        Align = alClient
        PopupMenu = PopupMenu4