billquery.dfm

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

inherited frmBillQuery: TfrmBillQuery
  Left = 128
  Top = 118
  Caption = #21333#25454#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 MainGrid: TdxDBGrid
      Left = 6
      Top = 6
      Width = 620
      Height = 401
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'ID'
      ShowSummaryFooter = True
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 0
      OnDblClick = MainGridDblClick
      DataSource = daBase2Info
      Filter.Criteria = {00000000}
      HeaderColor = 13882042
      HideSelectionColor = clGradientActiveCaption
      HighlightColor = clMoneyGreen
      LookAndFeel = lfFlat
      OptionsBehavior = [edgoAutoSort, edgoDblClick, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
      OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
      OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
      OnCustomDrawCell = MainGridCustomDrawCell
      OnCustomDraw = MainGridCustomDraw
    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 = bbSelect
            Visible = True
          end
          item
            Item = bbType
            Visible = True
          end
          item
            BeginGroup = True
            Item = bbAdd
            Visible = True
          end
          item
            Item = bbEdit
            Visible = True
          end
          item
            Item = bbCopy
            Visible = True
          end
          item
            Item = bbBlankout
            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
            Item = bbSetCol
            Visible = True
          end
          item
            BeginGroup = True
            Item = bbPrint
            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)
    DockControlHeights = (
      0
      0
      40
      0)
    inherited bbSelect: TdxBarLargeButton
      Visible = ivNever
      OnClick = bbSelectClick
    end
    inherited bbAdd: TdxBarLargeButton
      OnClick = bbAddClick
    end
    inherited bbSub: TdxBarLargeButton
      Visible = ivNever
    end
    inherited bbEdit: TdxBarLargeButton
      Caption = #26597#30475
      Hint = #26597#30475
      OnClick = bbEditClick
    end
    inherited bbDel: TdxBarLargeButton
      Visible = ivAlways
      OnClick = bbDelClick
    end
    inherited bbCopy: TdxBarLargeButton
      Hint = #22797#21046#20026#33609#31295#21333#25454
      OnClick = bbCopyClick
    end
    inherited bbBlankout: TdxBarLargeButton
      Visible = ivAlways
      OnClick = bbBlankoutClick
    end
    inherited bbFind: TdxBarLargeButton
      OnClick = bbFindClick
    end
    inherited bbFilter: TdxBarLargeButton
      OnClick = bbFilterClick
    end
    inherited bbSetCol: TdxBarLargeButton
      OnClick = bbSetColClick
    end
    inherited bbType: TdxBarLargeButton
      OnClick = bbTypeClick
    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 daBase2Info: TDataSource
    DataSet = ADOSetBillQuery
    Left = 277
    Top = 48
  end
  object ADOSetBillQuery: TADODataSet
    Connection = frmData.ADOConnet
    CursorType = ctStatic
    LockType = ltReadOnly
    CommandText = 
      ' SELECT bi.ID,bi.BillDate,bi.UserCode,bi.Name,e.Name as EName,u.' +
      'Name as UName,bi.Memo FROM BillIndex bi,Employe e,Unit u WHERE b' +
      'i.EmployeID = e.ID and bi.UnitID = u.ID'
    Parameters = <>
    Left = 249
    Top = 48
  end
end