baseinfo.~dfm

进销存管理 编译环境Delphi7+Win2000 用到的控件 ReportMachine2.6 InfoPower4000Pro_vcl7 RxLib2.7 SkinEngine 3

inherited frmBaseInfo: TfrmBaseInfo
  Left = 168
  Top = 103
  Caption = #31616#21333#36164#26009#32500#25252
  ClientHeight = 369
  ClientWidth = 413
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlForm: TSeSkinPanel
    Top = 40
    Width = 413
    Height = 329
    BorderWidth = 5
    NormalHeight = {00000000}
    object treeMain: TdxDBTreeList
      Left = 6
      Top = 6
      Width = 401
      Height = 317
      Bands = <
        item
          Width = 395
        end>
      DefaultLayout = False
      HeaderPanelRowCount = 1
      KeyField = 'ID'
      ParentField = 'TreeParent'
      Align = alClient
      TabOrder = 0
      OnDblClick = treeMainDblClick
      OnKeyDown = treeMainKeyDown
      DataSource = dsBaseInfo
      HeaderColor = 13882042
      Images = frmData.ImageList
      LookAndFeel = lfFlat
      OptionsBehavior = [etoAutoDragDrop, etoAutoDragDropCopy, etoAutoSort, etoDblClick, etoDragExpand, etoDragScroll, etoEditing, etoEnterShowEditor, etoImmediateEditor, etoTabThrough]
      OptionsCustomize = [etoBandMoving, etoBandPanelSizing, etoBandSizing, etoColumnMoving, etoColumnSizing, etoKeepColumnWidth]
      OptionsDB = [etoCancelOnExit, etoCanDelete, etoCanInsert, etoCanNavigation, etoCheckHasChildren, etoConfirmDelete, etoLoadAllRecords]
      OptionsView = [etoAutoWidth, etoBandHeaderWidth, etoRowSelect, etoUseBitmap, etoUseImageIndexForSelected]
      RootValue = '-1'
      TreeLineColor = clGrayText
      OnGetImageIndex = treeMainGetImageIndex
      OnGetSelectedIndex = treeMainGetSelectedIndex
      OnChangeNodeEx = treeMainChangeNodeEx
    end
  end
  inherited SeSkinForm1: TSeSkinForm
    Left = 1
    Top = 68
  end
  inherited dxBarManager1: TdxBarManager
    Bars = <
      item
        Caption = #24037#20855#26639
        DockedDockingStyle = dsTop
        DockedLeft = 0
        DockedTop = 0
        DockingStyle = dsTop
        FloatLeft = 200
        FloatTop = 255
        FloatClientWidth = 23
        FloatClientHeight = 22
        ItemLinks = <
          item
            Item = bbSelect
            Visible = True
          end
          item
            BeginGroup = True
            Item = bbAdd
            Visible = True
          end
          item
            Item = bbSub
            Visible = True
          end
          item
            Item = bbEdit
            Visible = True
          end
          item
            Item = bbDel
            Visible = True
          end
          item
            Item = bbRefresh
            Visible = True
          end
          item
            BeginGroup = True
            Item = bbFind
            Visible = True
          end
          item
            Item = bbFilter
            Visible = True
          end
          item
            BeginGroup = True
            Item = bbPrint
            Visible = True
          end
          item
            Item = bbExit
            Visible = True
          end>
        OneOnRow = True
        Row = 0
        UseOwnFont = False
        Visible = True
        WholeRow = False
      end>
    Categories.ItemsVisibles = (
      2
      2
      2)
    Categories.Visibles = (
      True
      True
      True)
    DockControlHeights = (
      0
      0
      40
      0)
    inherited bbSelect: TdxBarLargeButton
      OnClick = bbSelectClick
    end
    inherited bbAdd: TdxBarLargeButton
      OnClick = bbAddClick
    end
    inherited bbSub: TdxBarLargeButton
      OnClick = bbSubClick
    end
    inherited bbEdit: TdxBarLargeButton
      OnClick = bbEditClick
    end
    inherited bbDel: TdxBarLargeButton
      OnClick = bbDelClick
    end
    inherited bbFind: TdxBarLargeButton
      OnClick = bbFindClick
    end
    inherited bbFilter: TdxBarLargeButton
      OnClick = bbFilterClick
    end
    inherited bbDate: TdxBarLargeButton
      Visible = ivNever
    end
    inherited bbType: TdxBarLargeButton
      Visible = ivNever
    end
    inherited bbRefresh: TdxBarLargeButton
      OnClick = bbRefreshClick
    end
  end
  inherited PrintMenu: TdxBarPopupMenu
    ItemLinks = <
      item
        Item = pbbPrint
        Visible = True
      end
      item
        Item = pbbPrintView
        Visible = True
      end
      item
        Item = pbbPrintCustom
        Visible = True
      end
      item
        Item = pbbPrintInit
        Visible = True
      end>
  end
  object dsBaseInfo: TDataSource
    DataSet = ADOSetBaseInfo
    Left = 29
    Top = 68
  end
  object ADOSetBaseInfo: TADODataSet
    Connection = frmData.ADOConnet
    CursorType = ctStatic
    AfterInsert = ADOSetBaseInfoAfterInsert
    CommandText = 'select * from BaseInfo'
    FieldDefs = <
      item
        Name = 'ID'
        Attributes = [faReadonly, faFixed]
        DataType = ftAutoInc
      end
      item
        Name = 'TreeID'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'TreeParent'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'Name1'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'Name2'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'Name3'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'Mode'
        Attributes = [faFixed]
        DataType = ftSmallint
      end>
    Parameters = <>
    StoreDefs = True
    Left = 57
    Top = 68
  end
end