addtree.dfm

客户档案管理-delphi开发

object FormAddTree: TFormAddTree
  Left = 307
  Top = 188
  AutoScroll = False
  BorderIcons = []
  Caption = 'FormAddTree'
  ClientHeight = 465
  ClientWidth = 688
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object bsSkinSplitter1: TbsSkinSplitter
    Left = 161
    Top = 25
    Width = 10
    Height = 440
    Beveled = True
    MinSize = 10
    ResizeStyle = rsLine
    DefaultSize = 10
    SkinDataName = 'vsplitter'
    SkinData = dbs.bsSkinData1
  end
  object bsSkinPageControl1: TbsSkinPageControl
    Left = 171
    Top = 25
    Width = 517
    Height = 440
    ActivePage = bsSkinTabSheet1
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBtnText
    Font.Height = 14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clBtnText
    DefaultFont.Height = 14
    DefaultFont.Name = #23435#20307
    DefaultFont.Style = []
    UseSkinFont = True
    DefaultItemHeight = 20
    SkinData = dbs.bsSkinData1
    SkinDataName = 'tab'
    object bsSkinTabSheet1: TbsSkinTabSheet
      Caption = #22522#26412#36164#26009'(&1)'
    end
    object bsSkinTabSheet2: TbsSkinTabSheet
      Caption = #21015#34920#25968#25454'(&2)'
      object dgMain: TDBGridEh
        Left = 0
        Top = 0
        Width = 515
        Height = 418
        Align = alClient
        AllowedOperations = []
        AllowedSelections = []
        BorderStyle = bsNone
        ColumnDefValues.Title.TitleButton = True
        DataSource = dsAdd
        EditActions = [geaCutEh, geaCopyEh, geaPasteEh, geaDeleteEh, geaSelectAllEh]
        FixedColor = 14996949
        Flat = True
        FooterColor = clBtnFace
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clBtnText
        FooterFont.Height = 14
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        OddRowColor = 13882321
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDialogFind]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clBtnText
        TitleFont.Height = 14
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        TitleLines = 2
        OnTitleBtnClick = dgMainTitleBtnClick
      end
    end
  end
  object bsSkinToolBar1: TbsSkinToolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 25
    TabOrder = 1
    SkinData = dbs.bsSkinData1
    SkinDataName = 'toolpanel'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = #23435#20307
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 0
    UseSkinFont = True
    RealHeight = -1
    AutoEnabledControls = True
    CheckedMode = False
    Checked = False
    DefaultAlignment = taLeftJustify
    DefaultCaptionHeight = 22
    BorderStyle = bvNone
    CaptionMode = False
    RollUpMode = False
    RollUpState = False
    NumGlyphs = 1
    Spacing = 2
    Caption = 'bsSkinToolBar1'
    Align = alTop
    CanScroll = False
    HotScroll = False
    ScrollOffset = 0
    ScrollTimerInterval = 50
    WidthWithCaptions = 0
    WidthWithoutCaptions = 0
    AutoShowHideCaptions = False
    ShowCaptions = False
    Flat = False
    object bsSkinBevel1: TbsSkinBevel
      Left = 0
      Top = 0
      Width = 73
      Height = 25
      Align = alLeft
      Shape = bsSpacer
      SkinData = dbs.bsSkinData1
      SkinDataName = 'bevel'
      DividerMode = True
    end
    object SBAdd: TbsSkinSpeedButton
      Left = 73
      Top = 0
      Width = 96
      Height = 25
      SkinData = dbs.bsSkinData1
      SkinDataName = 'button'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = #23435#20307
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      WidthWithCaption = 0
      WidthWithoutCaption = 0
      ImageIndex = 0
      RepeatMode = False
      RepeatInterval = 100
      Transparent = False
      Flat = False
      AllowAllUp = False
      Down = False
      GroupIndex = 0
      Caption = #22686#21152#33410#28857'(&A)'
      ShowCaption = True
      NumGlyphs = 1
      Align = alLeft
      Spacing = 1
      OnClick = SBAddClick
    end
    object SBDel: TbsSkinSpeedButton
      Left = 169
      Top = 0
      Width = 60
      Height = 25
      SkinData = dbs.bsSkinData1
      SkinDataName = 'button'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = #23435#20307
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      WidthWithCaption = 0
      WidthWithoutCaption = 0
      ImageIndex = 0
      RepeatMode = False
      RepeatInterval = 100
      Transparent = False
      Flat = False
      AllowAllUp = False
      Down = False
      GroupIndex = 0
      Caption = #21024#38500'(&D)'
      ShowCaption = True
      NumGlyphs = 1
      Align = alLeft
      Spacing = 1
      OnClick = SBDelClick
    end
    object sbSave: TbsSkinSpeedButton
      Left = 229
      Top = 0
      Width = 60
      Height = 25
      SkinData = dbs.bsSkinData1
      SkinDataName = 'button'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = #23435#20307
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      WidthWithCaption = 0
      WidthWithoutCaption = 0
      ImageIndex = 0
      RepeatMode = False
      RepeatInterval = 100
      Transparent = False
      Flat = False
      AllowAllUp = False
      Down = False
      GroupIndex = 0
      Caption = #20445#23384'(&S)'
      ShowCaption = True
      NumGlyphs = 1
      Align = alLeft
      Spacing = 1
      OnClick = sbSaveClick
    end
    object SBCancel: TbsSkinSpeedButton
      Left = 289
      Top = 0
      Width = 60
      Height = 25
      SkinData = dbs.bsSkinData1
      SkinDataName = 'button'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = #23435#20307
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      WidthWithCaption = 0
      WidthWithoutCaption = 0
      ImageIndex = 0
      RepeatMode = False
      RepeatInterval = 100
      Transparent = False
      Flat = False
      AllowAllUp = False
      Down = False
      GroupIndex = 0
      Caption = #21462#28040'(&C)'
      ShowCaption = True
      NumGlyphs = 1
      Align = alLeft
      Spacing = 1
      OnClick = SBCancelClick
    end
    object bsSkinBevel2: TbsSkinBevel
      Left = 433
      Top = 0
      Width = 25
      Height = 25
      Align = alLeft
      SkinData = dbs.bsSkinData1
      SkinDataName = 'bevel'
      DividerMode = True
    end
    object SBExit: TbsSkinSpeedButton
      Left = 458
      Top = 0
      Width = 60
      Height = 25
      SkinData = dbs.bsSkinData1
      SkinDataName = 'toolbutton'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = #23435#20307
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      WidthWithCaption = 0
      WidthWithoutCaption = 0
      ImageIndex = 0
      RepeatMode = False
      RepeatInterval = 100
      Transparent = False
      Flat = False
      AllowAllUp = False
      Down = False
      GroupIndex = 0
      Caption = #36864#20986'(&X)'
      ShowCaption = True
      NumGlyphs = 1
      Align = alLeft
      Spacing = 1
      OnClick = SBExitClick
    end
    object bsSkinBevel3: TbsSkinBevel
      Left = 518
      Top = 0
      Width = 25
      Height = 25
      Align = alLeft
      SkinData = dbs.bsSkinData1
      SkinDataName = 'bevel'
      DividerMode = True
    end
    object bsSkinStdLabelDbStatus: TbsSkinStdLabel
      Left = 4
      Top = 6
      Width = 64
      Height = 13
      UseSkinFont = True
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = -11
      DefaultFont.Name = 'MS Sans Serif'
      DefaultFont.Style = []
      SkinData = dbs.bsSkinData1
      SkinDataName = 'stdlabel'
      Alignment = taCenter
      AutoSize = False
    end
    object SBFlash: TbsSkinSpeedButton
      Left = 349
      Top = 0
      Width = 84
      Height = 25
      SkinData = dbs.bsSkinData1
      SkinDataName = 'button'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = #23435#20307
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      WidthWithCaption = 0
      WidthWithoutCaption = 0
      ImageIndex = 0
      RepeatMode = False
      RepeatInterval = 100
      Transparent = False
      Flat = False
      AllowAllUp = False
      Down = False
      GroupIndex = 0
      Caption = #20840#37096#21047#26032'(&F)'
      ShowCaption = True
      NumGlyphs = 1
      Align = alLeft
      Spacing = 1
      OnClick = SBFlashClick
    end
  end
  object bsSkinTreeView1: TbsSkinTreeView
    Left = 0
    Top = 25
    Width = 161
    Height = 440
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = #23435#20307
    DefaultFont.Style = []
    UseSkinFont = True
    SkinData = dbs.bsSkinData1
    SkinDataName = 'treeview'
    DefaultColor = clWindow
    Align = alLeft
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = 14
    Font.Name = #23435#20307
    Font.Style = []
    Indent = 19
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
    OnClick = bsSkinTreeView1Click
  end
  object bsBusinessSkinForm1: TbsBusinessSkinForm
    UseFormCursorInNCArea = False
    MaxMenuItemsInWindow = 0
    ClientWidth = 0
    ClientHeight = 0
    HideCaptionButtons = False
    AlwaysShowInTray = False
    LogoBitMapTransparent = False
    AlwaysMinimizeToTray = False
    UseSkinFontInMenu = True
    ShowIcon = False
    MaximizeOnFullScreen = False
    AlphaBlend = False
    AlphaBlendAnimation = False
    AlphaBlendValue = 200
    ShowObjectHint = False
    UseDefaultObjectHint = True
    MenusAlphaBlend = False
    MenusAlphaBlendAnimation = False
    MenusAlphaBlendValue = 200
    DefCaptionFont.Charset = DEFAULT_CHARSET
    DefCaptionFont.Color = clBtnText
    DefCaptionFont.Height = 14
    DefCaptionFont.Name = #23435#20307
    DefCaptionFont.Style = [fsBold]
    DefInActiveCaptionFont.Charset = DEFAULT_CHARSET
    DefInActiveCaptionFont.Color = clBtnShadow
    DefInActiveCaptionFont.Height = 14
    DefInActiveCaptionFont.Name = #23435#20307
    DefInActiveCaptionFont.Style = [fsBold]
    DefMenuItemHeight = 20
    DefMenuItemFont.Charset = DEFAULT_CHARSET
    DefMenuItemFont.Color = clWindowText
    DefMenuItemFont.Height = 14
    DefMenuItemFont.Name = #23435#20307
    DefMenuItemFont.Style = []
    UseDefaultSysMenu = True
    SkinData = dbs.bsSkinData1
    MinHeight = 0
    MinWidth = 0
    MaxHeight = 0
    MaxWidth = 0
    Magnetic = False
    MagneticSize = 5
    BorderIcons = [biSystemMenu, biMinimize, biMaximize, biRollUp]
    Left = 40
    Top = 16
  end
  object cdsAdd: TADODataSet
    CacheSize = 1000
    Connection = dbs.ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 241
    Top = 24
  end
  object dsAdd: TDataSource
    DataSet = cdsAdd
    OnStateChange = dsAddStateChange
    Left = 269
    Top = 24
  end
  object cdsTree: TADODataSet
    CacheSize = 1000
    Connection = dbs.ADOConn
    CursorType = ctStatic
    CommandText = 'SELECT '#22320#21306#32534#21495','#22320#21306#21517#31216','#19978#32423#22320#21306','#23618#27425#13#10'FROM '#22320#21306' order by '#23618#27425#36335#24452
    Parameters = <>
    Left = 105
    Top = 24
  end
end