readquery.dfm

中小企业管理系统------ ERP系统原代码

inherited frmReadQuery: TfrmReadQuery
  Left = 128
  Top = 88
  Caption = #21482#35835#26597#35810
  ClientHeight = 453
  ClientWidth = 632
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlForm: TSeSkinPanel
    Top = 40
    Width = 632
    Height = 413
    BorderWidth = 5
    Color = clBtnFace
    NormalHeight = {00000000}
    object TreeMain: TdxDBTreeList
      Left = 6
      Top = 50
      Width = 620
      Height = 357
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'ID'
      ParentField = 'TreeParent'
      Align = alClient
      TabOrder = 0
      OnKeyDown = TreeMainKeyDown
      DataSource = daBase2Info
      HeaderColor = 13882042
      Images = frmData.ImageList
      LookAndFeel = lfFlat
      OptionsDB = [etoCancelOnExit, etoCanDelete, etoCanNavigation, etoCheckHasChildren, etoConfirmDelete, etoLoadAllRecords]
      ShowFooter = True
      TreeLineColor = clGrayText
      OnGetImageIndex = TreeMainGetImageIndex
      OnGetSelectedIndex = TreeMainGetSelectedIndex
      OnChangeNodeEx = TreeMainChangeNodeEx
    end
    object MainGrid: TdxDBGrid
      Left = 6
      Top = 50
      Width = 620
      Height = 357
      Bands = <
        item
        end>
      DefaultLayout = False
      HeaderPanelRowCount = 1
      KeyField = 'ID'
      ShowSummaryFooter = True
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 1
      OnDblClick = MainGridDblClick
      OnKeyDown = MainGridKeyDown
      BandColor = 13882042
      DataSource = daBase2Info
      Filter.Criteria = {00000000}
      GroupPanelColor = clMoneyGreen
      GroupNodeColor = 15794175
      HeaderColor = 13882042
      LookAndFeel = lfFlat
      OptionsBehavior = [edgoAnsiSort, edgoAutoSort, edgoDblClick, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoEnterThrough, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
      OptionsCustomize = [edgoBandSizing, edgoColumnMoving, edgoColumnSizing]
      OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
      OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
      OnChangeColumn = MainGridChangeColumn
      OnCustomDrawBand = MainGridCustomDrawBand
      OnCustomDrawColumnHeader = MainGridCustomDrawColumnHeader
      OnEdited = MainGridEdited
      OnCustomDraw = MainGridCustomDraw
    end
    object pnlDate: TSeSkinPanel
      Left = 6
      Top = 28
      Width = 620
      Height = 22
      Performance = kspNoBuffer
      Transparent = True
      Visible = False
      Align = alTop
      AnimateRoll = False
      BevelWidth = 1
      BorderWidth = 3
      ButtonKind = pbkRoll
      Color = clBtnFace
      Rolled = False
      ParentRoll = False
      ShowBevel = True
      ShowButton = True
      ShowCaption = False
      SkinObject = 'Panel'
      NormalHeight = {00000000}
      object Label1: TSeSkinLabel
        Left = 282
        Top = 5
        Width = 60
        Height = 12
        Performance = kspNoBuffer
        Transparent = True
        Caption = #36215#22987#26085#26399#65306
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object Label2: TSeSkinLabel
        Left = 437
        Top = 5
        Width = 60
        Height = 12
        Performance = kspNoBuffer
        Transparent = True
        Caption = #32467#26463#26085#26399#65306
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object sbDateEx: TSeSkinSpeedButton
        Left = 585
        Top = 2
        Width = 18
        Height = 18
        Performance = kspNoBuffer
        Transparent = True
        BlackAndWhiteGlyph = False
        Flat = True
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F0000001F7C1F7C1F7C630C630C630C630C630C630C630C630C630C630C
          1F7C1F7C1F7C1F7C1F7C630C1042D5565A6B5A6B5A6B5A6B5A6B5A6B3967630C
          630C630C1F7C1F7C630C7B6F630CD5567B6F7B6F7B6F7B6F7B6F7B6F6B2DC064
          457EC048630C630C1042630C6B2D7B6F7B6F7B6F7B6F7B6F7B6F6B2DC064327F
          527EC064630C630C5A6B7B6F7B6F7B6F7B6F5A6B744E744E6B2DC064327F527E
          C064630C1F7C630C7B6F7B6F7B6FF75E8C31630C630C630C630C327F527EC064
          630C1F7C1F7C630C7B6F7B6FF75E8C313F333F333F333F175F32857DC064630C
          1F7C1F7C1F7C630C7B6FF75E8C31744E3D53FF4BFF4B3F333F175F32630C630C
          1F7C1F7C1F7C630C7B6FF75E8C313D53FF67FF4BFF4BFF4B3F333F17630C630C
          1F7C1F7C1F7C630C7B6FF75E8C313D53FF67FF4BFF4BFF4BFF4B3F17630C630C
          1F7C1F7C1F7C630C7B6FF75E8C313D53FF67FF4BFF4BFF4BFF4B3F17630C630C
          1F7C1F7C1F7C630C7B6F5A6B8C31F75E3D53FF67FF4BFF4B3D53744E630C630C
          1F7C1F7C1F7C630C7B6F5A6BF75E8C31F75E3D533D533D53744E630CF75E630C
          1F7C1F7C1F7C630C7B6F5A6B5A6BF75E8C318C318C318C318C31F75E7B6F630C
          1F7C1F7C1F7C630C7B6F7B6F7B6F7B6F7B6FF75EF75EF75EF75E7B6F7B6F630C
          1F7C1F7C1F7C630C630C630C630C630C630C630C630C630C630C630C630C630C
          1F7C1F7C1F7C}
        OnClick = bbDateClick
        SkinEngine = frmData.SeSkinEngine
        SkinObject = 'SpeedButton'
      end
      object edtStartDate: TdxEdit
        Left = 340
        Top = 1
        Width = 89
        ImeName = #20840#25340#36755#20837#27861
        TabOrder = 0
        Text = 'edtStartDate'
        ReadOnly = True
        StyleController = frmData.StyleController
        StoredValues = 64
      end
      object edtEndDate: TdxEdit
        Left = 496
        Top = 1
        Width = 89
        ImeName = #20840#25340#36755#20837#27861
        TabOrder = 1
        Text = 'edtEndDate'
        ReadOnly = True
        StyleController = frmData.StyleController
        StoredValues = 64
      end
    end
    object pnlDepot: TSeSkinPanel
      Left = 6
      Top = 6
      Width = 620
      Height = 22
      Performance = kspNoBuffer
      Transparent = True
      Visible = False
      Align = alTop
      AnimateRoll = False
      BevelWidth = 1
      BorderWidth = 3
      ButtonKind = pbkRoll
      Color = clBtnFace
      Rolled = False
      ParentRoll = False
      ShowBevel = True
      ShowButton = True
      ShowCaption = False
      SkinObject = 'Panel'
      NormalHeight = {00000000}
      object SeSkinLabel2: TSeSkinLabel
        Left = 437
        Top = 5
        Width = 48
        Height = 12
        Performance = kspNoBuffer
        Transparent = True
        Caption = #20179'  '#24211#65306
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object lblEditDepot: TSeSkinLabel
        Left = 245
        Top = 5
        Width = 168
        Height = 12
        Performance = kspNoBuffer
        Transparent = True
        Visible = False
        Caption = #24517#38656#36873#25321#20179#24211#25165#33021#20462#25913#24211#23384#25968#37327
        Color = clBtnFace
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentColor = False
        ParentFont = False
        SkinEngine = frmData.SeSkinEngine
        SkinObject = 'Label'
      end
      object sbSelectEx: TSeSkinSpeedButton
        Left = 585
        Top = 2
        Width = 18
        Height = 18
        Performance = kspNoBuffer
        Transparent = True
        BlackAndWhiteGlyph = False
        Flat = True
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F0000001F7C1F7C1F7C630C630C630C630C630C630C630C630C630C630C
          1F7C1F7C1F7C1F7C1F7C630C1042D5565A6B5A6B5A6B5A6B5A6B5A6B3967630C
          630C630C1F7C1F7C630C7B6F630CD5567B6F7B6F7B6F7B6F7B6F7B6F6B2DC064
          457EC048630C630C1042630C6B2D7B6F7B6F7B6F7B6F7B6F7B6F6B2DC064327F
          527EC064630C630C5A6B7B6F7B6F7B6F7B6F5A6B744E744E6B2DC064327F527E
          C064630C1F7C630C7B6F7B6F7B6FF75E8C31630C630C630C630C327F527EC064
          630C1F7C1F7C630C7B6F7B6FF75E8C313F333F333F333F175F32857DC064630C
          1F7C1F7C1F7C630C7B6FF75E8C31744E3D53FF4BFF4B3F333F175F32630C630C
          1F7C1F7C1F7C630C7B6FF75E8C313D53FF67FF4BFF4BFF4B3F333F17630C630C
          1F7C1F7C1F7C630C7B6FF75E8C313D53FF67FF4BFF4BFF4BFF4B3F17630C630C
          1F7C1F7C1F7C630C7B6FF75E8C313D53FF67FF4BFF4BFF4BFF4B3F17630C630C
          1F7C1F7C1F7C630C7B6F5A6B8C31F75E3D53FF67FF4BFF4B3D53744E630C630C
          1F7C1F7C1F7C630C7B6F5A6BF75E8C31F75E3D533D533D53744E630CF75E630C
          1F7C1F7C1F7C630C7B6F5A6B5A6BF75E8C318C318C318C318C31F75E7B6F630C
          1F7C1F7C1F7C630C7B6F7B6F7B6F7B6F7B6FF75EF75EF75EF75E7B6F7B6F630C
          1F7C1F7C1F7C630C630C630C630C630C630C630C630C630C630C630C630C630C
          1F7C1F7C1F7C}
        OnClick = bbDepotClick
        SkinEngine = frmData.SeSkinEngine
        SkinObject = 'SpeedButton'
      end
      object edtDepot: TdxEdit
        Left = 496
        Top = 1
        Width = 89
        ImeName = #20840#25340#36755#20837#27861
        TabOrder = 0
        Text = 'edtDepot'
        ReadOnly = True
        StyleController = frmData.StyleController
        StoredValues = 64
      end
    end
  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 = bbDate
            Visible = True
          end
          item
            Item = bbDepot
            Visible = True
          end
          item
            Item = bbType
            Visible = True
          end
          item
            Item = bbRefresh
            Visible = True
          end
          item
            BeginGroup = True
            Item = bbFind
            Visible = True
          end
          item
            Item = bbFilter
            Visible = True
          end
          item
            Item = bbDetaled
            Visible = True
          end
          item
            BeginGroup = True
            Item = bbBands
            Visible = True
          end
          item
            Item = bbSetCol
            Visible = True
          end
          item
            BeginGroup = True
            Item = bbPrint
            Visible = True
          end
          item
            Item = bbChart
            Visible = True
          end
          item
            Item = bbSaveAs
            Visible = True
          end
          item
            BeginGroup = True
            Item = bbSave
            Visible = True
          end
          item
            Item = bbAlldel
            Visible = True
          end
          item
            Item = bbExit
            Visible = True
          end>
        Name = #24037#20855#26639
        OneOnRow = True
        Row = 0
        UseOwnFont = False
        UseRestSpace = True
        Visible = True
        WholeRow = False
      end>
    Categories.ItemsVisibles = (
      2
      2
      2)
    Categories.Visibles = (
      True
      True
      True)
    Left = 17
    DockControlHeights = (
      0
      0
      40
      0)
    inherited bbSelect: TdxBarLargeButton
      Visible = ivNever
    end
    inherited bbAdd: TdxBarLargeButton
      Visible = ivNever
    end
    inherited bbSub: TdxBarLargeButton
      Visible = ivNever
    end
    inherited bbEdit: TdxBarLargeButton
      Visible = ivNever
    end
    inherited bbDetaled: TdxBarLargeButton
      OnClick = bbDetaledClick
    end
    inherited bbFind: TdxBarLargeButton
      OnClick = bbFindClick
    end
    inherited bbFilter: TdxBarLargeButton
      OnClick = bbFilterClick
    end
    inherited bbSetCol: TdxBarLargeButton
      OnClick = bbSetColClick
    end
    inherited bbBands: TdxBarLargeButton
      Visible = ivNever
      OnClick = bbBandsClick
    end
    inherited bbDate: TdxBarLargeButton
      Visible = ivNever
      OnClick = bbDateClick
    end
    inherited bbType: TdxBarLargeButton
      Visible = ivNever
      OnClick = bbTypeClick
    end
    inherited bbRefresh: TdxBarLargeButton
      OnClick = bbRefreshClick
    end
    inherited pbbChartSetup: TdxBarButton
      OnClick = pbbChartSetupClick
    end
    inherited bbAlldel: TdxBarLargeButton
      Visible = ivNever
      OnClick = bbAlldelClick
    end
    inherited bbSaveAs: TdxBarLargeButton
      OnClick = bbSaveAsClick
    end
    inherited bbSave: TdxBarLargeButton
      Visible = ivNever
      OnClick = bbSaveClick
    end
    object bbDepot: TdxBarLargeButton
      Caption = #20179#24211
      Category = 0
      Hint = #20179#24211
      Visible = ivAlways
      ImageIndex = 37
      OnClick = bbDepotClick
      AutoGrayScale = False
      LargeImageIndex = 37
    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>
    Left = 73
  end
  inherited ChartMenu: TdxBarPopupMenu
    ItemLinks = <
      item
        Item = pbbPrintChart
        Visible = True
      end
      item
        Item = pbbChartView
        Visible = True
      end
      item
        Visible = True
      end
      item
        Visible = True
      end
      item
        Item = pbbChartSetup
        Visible = True
      end>
    Left = 45
  end
  object DataSetQuery: TADODataSet
    Connection = frmData.ADOConnet
    CursorType = ctStatic
    LockType = ltReadOnly
    AfterScroll = DataSetQueryAfterScroll
    OnCalcFields = DataSetQueryCalcFields
    FieldDefs = <>
    Parameters = <>
    StoreDefs = True
    Left = 129
    Top = 40
  end
  object daBase2Info: TDataSource
    DataSet = DataSetQuery
    Left = 101
    Top = 40
  end
end