base2info.dfm

胜天财务进销存2003源代码,SQLSERVER版,目前最完整的财务进销存系统.

inherited frmBase2Info: TfrmBase2Info
  Left = 111
  Top = 50
  Caption = #22797#26434#22522#30784#20449#24687#32500#25252
  ClientHeight = 447
  ClientWidth = 545
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlForm: TSeSkinPanel
    Top = 40
    Width = 545
    Height = 407
    BorderWidth = 5
    Color = clBtnFace
    NormalHeight = {00000000}
    object tabCtrl: TSeSkinTabControl
      Left = 6
      Top = 6
      Width = 533
      Height = 395
      Blend = False
      BlendValue = 150
      Transparent = True
      Align = alClient
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TabStop = True
      UsePages = False
      OnChange = tabCtrlChange
      SkinEngine = frmData.SeSkinEngine
      SkinObject = 'Tabs'
      object gridMain: TdxDBTreeList
        Left = 3
        Top = 3
        Width = 527
        Height = 389
        Bands = <
          item
          end>
        DefaultLayout = False
        HeaderPanelRowCount = 1
        KeyField = 'ID'
        ParentField = 'TreeParent'
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnDblClick = gridMainDblClick
        OnKeyDown = gridMainKeyDown
        BandFont.Charset = GB2312_CHARSET
        BandFont.Color = clWindowText
        BandFont.Height = -12
        BandFont.Name = #23435#20307
        BandFont.Style = []
        DataSource = daBase2Info
        HeaderColor = 13882042
        HeaderFont.Charset = GB2312_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -12
        HeaderFont.Name = #23435#20307
        HeaderFont.Style = []
        Images = frmData.ImageList
        LookAndFeel = lfFlat
        OptionsBehavior = [etoAutoDragDrop, etoAutoDragDropCopy, etoAutoSort, etoDblClick, etoDragExpand, etoDragScroll, etoEditing, etoEnterShowEditor, etoImmediateEditor, etoTabThrough]
        OptionsDB = [etoCancelOnExit, etoCanDelete, etoCanInsert, etoCanNavigation, etoCheckHasChildren, etoConfirmDelete, etoLoadAllRecords]
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clBlue
        PreviewFont.Height = -15
        PreviewFont.Name = #23435#20307
        PreviewFont.Style = []
        RootValue = '-1'
        ShowFooter = True
        TreeLineColor = clGrayText
        OnGetImageIndex = gridMainGetImageIndex
        OnGetSelectedIndex = gridMainGetSelectedIndex
        OnChangeNodeEx = gridMainChangeNodeEx
      end
    end
  end
  inherited SeSkinForm1: TSeSkinForm
    Left = 120
    Top = 360
  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 = bbAll
            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
            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)
    Left = 9
    Top = 360
    DockControlHeights = (
      0
      0
      40
      0)
    inherited bbSelect: TdxBarLargeButton
      OnClick = bbSelectClick
    end
    inherited bbAll: TdxBarLargeButton
      OnClick = bbAllClick
    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 bbSetCol: TdxBarLargeButton
      OnClick = bbSetColClick
    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>
    Left = 37
    Top = 360
  end
  inherited ChartMenu: TdxBarPopupMenu
    Left = 148
    Top = 360
  end
  object daBase2Info: TDataSource
    DataSet = ADOSetBase2Info
    Left = 65
    Top = 360
  end
  object ADOSetBase2Info: TADODataSet
    Connection = frmData.ADOConnet
    CursorType = ctStatic
    AfterInsert = ADOSetBase2InfoAfterInsert
    CommandText = 'SELECT * FROM Subject'
    Parameters = <>
    Left = 93
    Top = 360
  end
end