ebarmegademomain.dfm

胜天进销存源码,国产优秀的进销存

object EBarMegaDemoMainForm: TEBarMegaDemoMainForm
  Left = 248
  Top = 130
  Width = 801
  Height = 588
  Caption = 'ExpressBars6 Mega Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel3: TPanel
    Left = 0
    Top = 256
    Width = 793
    Height = 298
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Splitter: TSplitter
      Left = 137
      Top = 0
      Height = 298
      MinSize = 40
    end
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 137
      Height = 298
      Align = alLeft
      BevelOuter = bvNone
      Caption = 'Panel1'
      TabOrder = 0
      object Image: TImage
        Left = 55
        Top = 254
        Width = 10
        Height = 10
        AutoSize = True
        Picture.Data = {
          07544269746D6170C6000000424DC60000000000000076000000280000000A00
          00000A0000000100040000000000500000000000000000000000100000001000
          0000000000000000800000800000008080008000000080008000808000008080
          8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
          FF00FFCFFFFFFF000000FC40000FFF0000003C04CCCC4F000000334CC884C400
          0000384C4FFFFF000000F3BCCCCCC4000000FF3BCFF4C4000000FFF3BCCC4F00
          0000FFFFCCC4FC000000FFFFFFFCCF000000}
        Transparent = True
      end
      object dxSideBar: TdxSideBar
        Left = 0
        Top = 0
        Width = 137
        Height = 298
        Align = alClient
        BkGround.BeginColor = clSilver
        BkGround.EndColor = clGray
        BkGround.FillStyle = bfsHorz
        CanSelected = True
        GroupFont.Charset = DEFAULT_CHARSET
        GroupFont.Color = clWindowText
        GroupFont.Height = -11
        GroupFont.Name = 'MS Sans Serif'
        GroupFont.Style = []
        Groups = <
          item
            Caption = 'ExpressBars'
            Index = 0
            Items = <
              item
                Caption = 'MS Office Style'
                Index = 0
                LargeImage = 1
                SmallImage = 1
                StoredItem = dxSideBarStoreItem1
                Tag = 1
              end
              item
                Caption = 'Internet Explorer Style'
                Index = 1
                LargeImage = 0
                SmallImage = 0
                StoredItem = dxSideBarStoreItem2
                Tag = 2
              end
              item
                Caption = 'DataBase'
                Index = 2
                LargeImage = 2
                SmallImage = 2
                StoredItem = dxSideBarStoreItem3
                Tag = 3
              end>
          end>
        ActiveGroupIndex = 0
        GroupPopupMenu = dxSideBarPopupMenu
        ItemFont.Charset = DEFAULT_CHARSET
        ItemFont.Color = clWhite
        ItemFont.Height = -11
        ItemFont.Name = 'MS Sans Serif'
        ItemFont.Style = []
        ItemPopupMenu = dxSideBarPopupMenu
        LargeImages = LargeImage
        SmallImages = SmallImage
        Store = dxSideBarStore
        TransparentImages = True
        OnItemClick = dxSideBarItemClick
      end
    end
    object Panel2: TPanel
      Left = 140
      Top = 0
      Width = 653
      Height = 298
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Nb: TNotebook
        Left = 0
        Top = 0
        Width = 653
        Height = 272
        Align = alClient
        PageIndex = 1
        TabOrder = 0
        object TPage
          Left = 0
          Top = 0
          Caption = 'Clear'
        end
        object TPage
          Left = 0
          Top = 0
          Caption = 'MS Office'
          object PanelRE: TPanel
            Left = 0
            Top = 0
            Width = 653
            Height = 272
            Align = alClient
            BevelOuter = bvNone
            Caption = 'PanelRE'
            TabOrder = 0
            object Editor: TRichEdit
              Left = 0
              Top = 0
              Width = 653
              Height = 272
              Align = alClient
              Lines.Strings = (
                'Editor')
              TabOrder = 0
              OnChange = EditorChange
              OnSelectionChange = EditorSelectionChange
            end
          end
        end
        object TPage
          Left = 0
          Top = 0
          Caption = 'IE'
          object HTMLPanel: TPanel
            Left = 0
            Top = 0
            Width = 608
            Height = 332
            Align = alClient
            BevelOuter = bvNone
            Caption = 'HTMLPanel'
            TabOrder = 0
          end
        end
        object TPage
          Left = 0
          Top = 0
          Caption = 'DataBase'
          object DBGrid1: TDBGrid
            Left = 0
            Top = 0
            Width = 608
            Height = 332
            Align = alClient
            DataSource = EBarMegaDemoMainDM.dsContacts
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'CustName'
                Title.Caption = 'Customer Name'
                Width = 121
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Company'
                Width = 119
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'City'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'product'
                Title.Caption = 'Product'
                Width = 171
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'PurchaseDate'
                Width = 96
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'PaymentType'
                Width = 97
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'PaymentAmount'
                Width = 103
                Visible = True
              end>
          end
        end
      end
      object dxBDStatus: TdxBarDockControl
        Left = 0
        Top = 272
        Width = 653
        Height = 26
        Align = dalBottom
        AllowDocking = False
        BarManager = BarManager
        SunkenBorder = False
        UseOwnSunkenBorder = True
      end
    end
  end
  object dxSideBarStore: TdxSideBarStore
    Categories.Strings = (
      'Express Bars')
    DefaultLargeImage = -1
    DefaultSmallImage = -1
    LargeImages = LargeImage
    SmallImages = SmallImage
    Left = 400
    Top = 224
    object dxSideBarStoreItem1: TdxStoredSideItem
      Tag = 1
      Caption = 'MS Office Style'
      Category = 0
      Enabled = True
      LargeImage = 1
      SmallImage = 1
    end
    object dxSideBarStoreItem2: TdxStoredSideItem
      Tag = 2
      Caption = 'Internet Explorer Style'
      Category = 0
      Enabled = True
      LargeImage = 0
      SmallImage = 0
    end
    object dxSideBarStoreItem3: TdxStoredSideItem
      Tag = 3
      Caption = 'DataBase'
      Category = 0
      Enabled = True
      LargeImage = 2
      SmallImage = 2
    end
  end
  object BarManager: TdxBarManager
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Bars = <
      item
        Caption = 'Main Menu'
        DockedDockingStyle = dsTop
        DockedLeft = 0
        DockedTop = 0
        DockingStyle = dsTop
        FloatLeft = 595
        FloatTop = 425
        FloatClientWidth = 391
        FloatClientHeight = 22
        IsMainMenu = True
        ItemLinks = <
          item
            Item = dxBarSubItemFile
            Visible = True
          end
          item
            Item = dxFilter
            Visible = True
          end
          item
            Item = dxBarSubItemEdit
            Visible = True
          end
          item
            Item = dxIEView
            Visible = True
          end
          item
            Item = dxGo
            Visible = True
          end
          item
            Item = dxFavorites
            Visible = True
          end
          item
            Item = dxBarSubItemFormat
            Visible = True
          end
          item
            Item = dxOptions
            Visible = True
          end
          item
            Item = dxBarSubItemHelp
            Visible = True
          end>
        MultiLine = True
        OneOnRow = True
        Row = 0
        UseOwnFont = False
        Visible = True
        WholeRow = True
      end
      item
        Caption = 'Standard'
        DockedDockingStyle = dsTop
        DockedLeft = 0
        DockedTop = 28
        DockingStyle = dsTop
        FloatLeft = 520
        FloatTop = 455
        FloatClientWidth = 202
        FloatClientHeight = 22
        ItemLinks = <
          item
            Item = dxBarButtonNew
            Visible = True
          end
          item
            Item = dxBarButtonOpen
            Visible = True
          end
          item
            Item = dxBarButtonSave
            Visible = True
          end
          item
            BeginGroup = True
            Item = dxBarButtonPrint
            Visible = True
          end
          item
            BeginGroup = True
            Item = dxBarButtonCut
            Visible = True
          end
          item
            Item = dxBarButtonCopy
            Visible = True
          end
          item
            Item = dxBarButtonPaste
            Visible = True
          end
          item
            BeginGroup = True
            Item = dxBarButtonUndo
            Visible = True
          end>
        OneOnRow = False
        Row = 1
        UseOwnFont = False
        Visible = True
        WholeRow = False
      end
      item
        Caption = 'Format'
        DockedDockingStyle = dsTop
        DockedLeft = 0
        DockedTop = 68
        DockingStyle = dsTop
        FloatLeft = 573
        FloatTop = 502
        FloatClientWidth = 389
        FloatClientHeight = 22
        ItemLinks = <
          item
            Item = dxBarComboFontName
            Visible = True
          end
          item
            Item = dxBarComboFontSize
            UserDefine = [udWidth]
            UserWidth = 118
            Visible = True
          end