browse.dfm

一个会员管理系统delphi源代码,非常好

object frmBrowse: TfrmBrowse
  Left = 140
  Top = 189
  Width = 794
  Height = 487
  Caption = #20250#21592#27983#35272
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBTreeView1: TdxDBTreeView
    Left = 0
    Top = 0
    Width = 145
    Height = 453
    ShowNodeHint = True
    AutoExpand = True
    DataSource = Dm1.dscity
    KeyField = 'bm'
    ListField = 'city'
    ParentField = 'pbm'
    SeparatedSt = ' - '
    RaiseOnError = True
    ReadOnly = True
    Indent = 19
    OnChange = DBTreeView1Change
    Align = alLeft
    ParentColor = False
    Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
    SelectedIndex = -1
    TabOrder = 0
    OnAddNewItem = DBTreeView1AddNewItem
    Images = il1
    StateImages = il1
  end
  object Panel1: TPanel
    Left = 153
    Top = 0
    Width = 633
    Height = 453
    Align = alClient
    TabOrder = 1
    object cxGrid1: TcxGrid
      Left = 1
      Top = 1
      Width = 631
      Height = 451
      Align = alClient
      TabOrder = 0
      object tv1: TcxGridDBTableView
        DataController.DataSource = Dm1.dsqryhuiyuan
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <
          item
            Format = #20154#25968#65306'0'
            Kind = skCount
            FieldName = #32534#21495
            Column = tv1DBColumn1
          end>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        NavigatorButtons.First.Hint = #31532#19968#26465
        NavigatorButtons.PriorPage.Hint = #21069#19968#39029
        NavigatorButtons.Prior.Hint = #21069#19968#26465
        NavigatorButtons.Next.Hint = #19979#19968#26465
        NavigatorButtons.NextPage.Hint = #19979#19968#39029
        NavigatorButtons.Last.Hint = #26368#21518#19968#26465
        NavigatorButtons.Insert.Visible = False
        NavigatorButtons.Delete.Visible = False
        NavigatorButtons.Edit.Visible = False
        NavigatorButtons.Post.Visible = False
        NavigatorButtons.Cancel.Visible = False
        NavigatorButtons.Refresh.Hint = #21047#26032#26174#31034
        NavigatorButtons.SaveBookmark.Hint = #20445#23384#26631#31614
        NavigatorButtons.GotoBookmark.Hint = #36716#21521#26631#31614
        NavigatorButtons.Filter.Hint = #36807#28388#26597#35810
        OptionsBehavior.NavigatorHints = True
        OptionsData.Deleting = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsView.Navigator = True
        OptionsView.FooterAutoHeight = True
        OptionsView.Indicator = True
        OptionsView.IndicatorWidth = 30
        object tv1DBColumn1: TcxGridDBColumn
          Caption = #32534#21495
          DataBinding.FieldName = 'bm'
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          Options.Editing = False
          Options.Filtering = False
        end
        object tv1DBColumn2: TcxGridDBColumn
          Caption = #22995#21517
          DataBinding.FieldName = 'xm'
          PropertiesClassName = 'TcxTextEditProperties'
          Properties.Alignment.Horz = taCenter
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          Options.Editing = False
          Options.Filtering = False
        end
        object tv1DBColumn3: TcxGridDBColumn
          Caption = #24615#21035
          DataBinding.FieldName = 'sex'
          PropertiesClassName = 'TcxTextEditProperties'
          Properties.Alignment.Horz = taCenter
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          Options.Editing = False
          Options.Filtering = False
        end
        object tv1DBColumn4: TcxGridDBColumn
          Caption = #24180#40836
          DataBinding.FieldName = 'age'
          PropertiesClassName = 'TcxTextEditProperties'
          Properties.Alignment.Horz = taCenter
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          Options.Editing = False
          Options.Filtering = False
        end
        object tv1DBColumn5: TcxGridDBColumn
          Caption = #29983#26085
          DataBinding.FieldName = 'birth'
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          Options.Editing = False
          Options.Filtering = False
        end
        object tv1DBColumn6: TcxGridDBColumn
          Caption = #26143#24231
          DataBinding.FieldName = 'star'
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          Options.Editing = False
          Options.Filtering = False
        end
        object tv1DBColumn7: TcxGridDBColumn
          Caption = #23646#24615
          DataBinding.FieldName = 'shuxian'
          PropertiesClassName = 'TcxTextEditProperties'
          Properties.Alignment.Horz = taCenter
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          Options.Editing = False
          Options.Filtering = False
        end
        object tv1DBColumn8: TcxGridDBColumn
          DataBinding.FieldName = 'QQ'
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          Options.Editing = False
          Options.Filtering = False
        end
        object tv1DBColumn9: TcxGridDBColumn
          Caption = #30005#35805
          DataBinding.FieldName = 'tel'
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          Options.Editing = False
          Options.Filtering = False
        end
        object tv1DBColumn10: TcxGridDBColumn
          Caption = 'E_Mail'
          DataBinding.FieldName = 'email'
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          Options.Editing = False
          Options.Filtering = False
        end
        object tv1DBColumn11: TcxGridDBColumn
          Caption = #25152#22312#21306#22495
          DataBinding.FieldName = 'province'
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          Options.Editing = False
          Options.Filtering = False
        end
        object tv1DBColumn12: TcxGridDBColumn
          Caption = #22478#24066#22320#21306
          DataBinding.FieldName = 'city'
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          Options.Editing = False
          Options.Filtering = False
        end
        object tv1DBColumn13: TcxGridDBColumn
          Caption = #37038#32534
          DataBinding.FieldName = 'zipcode'
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          Options.Editing = False
          Options.Filtering = False
        end
        object tv1DBColumn14: TcxGridDBColumn
          Caption = #35814#32454#22320#22336
          DataBinding.FieldName = 'address'
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          Options.Editing = False
          Options.Filtering = False
        end
        object tv1DBColumn15: TcxGridDBColumn
          Caption = #22791#27880
          DataBinding.FieldName = 'bz'
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          Options.Editing = False
          Options.Filtering = False
        end
        object tv1DBColumn16: TcxGridDBColumn
          Caption = #30331#35760#26102#38388
          DataBinding.FieldName = 'sj'
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          Options.Editing = False
          Options.Filtering = False
        end
      end
      object lv1: TcxGridLevel
        GridView = tv1
      end
    end
    object cxGrid2: TcxGrid
      Left = 1
      Top = 1
      Width = 631
      Height = 451
      Align = alClient
      TabOrder = 1
      Visible = False
      object tv2: TcxGridDBTableView
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        OptionsView.GroupByBox = False
      end
      object DV1: TcxGridDBCardView
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Editing = False
        object DV1DBCardViewRow1: TcxGridDBCardViewRow
          Caption = #32534#21495
          DataBinding.FieldName = 'bm'
          CaptionAlignmentHorz = taRightJustify
          Options.Editing = False
          Options.Filtering = False
        end
        object DV1DBCardViewRow2: TcxGridDBCardViewRow
          Caption = #22995#21517
          DataBinding.FieldName = 'xm'
          CaptionAlignmentHorz = taRightJustify
          Options.Editing = False
          Options.Filtering = False
        end
        object DV1DBCardViewRow3: TcxGridDBCardViewRow
          Caption = #24615#21035
          DataBinding.FieldName = 'sex'
          CaptionAlignmentHorz = taRightJustify
          Options.Editing = False
          Options.Filtering = False
        end
        object DV1DBCardViewRow4: TcxGridDBCardViewRow
          Caption = #24180#40836
          DataBinding.FieldName = 'age'
          PropertiesClassName = 'TcxTextEditProperties'
          Properties.Alignment.Horz = taLeftJustify
          CaptionAlignmentHorz = taRightJustify
          Options.Editing = False
          Options.Filtering = False
        end
        object DV1DBCardViewRow5: TcxGridDBCardViewRow
          Caption = #29983#26085
          DataBinding.FieldName = 'birth'
          CaptionAlignmentHorz = taRightJustify
          Options.Editing = False
          Options.Filtering = False
        end
        object DV1DBCardViewRow6: TcxGridDBCardViewRow
          Caption = #26143#24231
          DataBinding.FieldName = 'star'
          CaptionAlignmentHorz = taRightJustify
          Options.Editing = False
          Options.Filtering = False
        end
        object DV1DBCardViewRow7: TcxGridDBCardViewRow
          Caption = #23646#30456
          DataBinding.FieldName = 'shuxian'
          CaptionAlignmentHorz = taRightJustify
          Options.Editing = False
          Options.Filtering = False
        end
        object DV1DBCardViewRow8: TcxGridDBCardViewRow
          DataBinding.FieldName = 'QQ'
          CaptionAlignmentHorz = taRightJustify
          Options.Editing = False
          Options.Filtering = False
        end
        object DV1DBCardViewRow9: TcxGridDBCardViewRow
          Caption = #30005#35805
          DataBinding.FieldName = 'tel'
          CaptionAlignmentHorz = taRightJustify
          Options.Editing = False
          Options.Filtering = False
        end
        object DV1DBCardViewRow10: TcxGridDBCardViewRow
          Caption = 'E_Mail'
          DataBinding.FieldName = 'email'
          CaptionAlignmentHorz = taRightJustify
          Options.Editing = False
          Options.Filtering = False
        end
        object DV1DBCardViewRow11: TcxGridDBCardViewRow
          Caption = #25152#22312#21306#22495
          DataBinding.FieldName = 'province'
          CaptionAlignmentHorz = taRightJustify
          Options.Editing = False
          Options.Filtering = False
        end
        object DV1DBCardViewRow12: TcxGridDBCardViewRow
          Caption = #22478#24066#22320#21306
          DataBinding.FieldName = 'city'
          CaptionAlignmentHorz = taRightJustify
          Options.Editing = False
          Options.Filtering = False
        end
        object DV1DBCardViewRow13: TcxGridDBCardViewRow
          Caption = #37038#32534
          DataBinding.FieldName = 'zipcode'
          CaptionAlignmentHorz = taRightJustify
          Options.Editing = False
          Options.Filtering = False
        end
        object DV1DBCardViewRow14: TcxGridDBCardViewRow
          Caption = #35814#32454#22320#22336
          DataBinding.FieldName = 'address'
          CaptionAlignmentHorz = taRightJustify
          Options.Editing = False
          Options.Filtering = False
        end
        object DV1DBCardViewRow15: TcxGridDBCardViewRow
          Caption = #22791#27880
          DataBinding.FieldName = 'bz'
          PropertiesClassName = 'TcxMemoProperties'
          CaptionAlignmentHorz = taRightJustify
          Options.Editing = False
          Options.Filtering = False
        end
        object DV1DBCardViewRow16: TcxGridDBCardViewRow
          Caption = #30331#35760#26102#38388
          DataBinding.FieldName = 'sj'