umaterial.dfm

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

              FieldName = 'Qty'
              SummaryFooterType = cstSum
              SummaryFooterField = 'Qty'
            end
            object dxDBGrid2Price: TdxDBGridMaskColumn
              Width = 54
              BandIndex = 0
              RowIndex = 0
              FieldName = 'Price'
              SummaryFooterType = cstAvg
              SummaryFooterField = 'Price'
              SummaryFooterFormat = 'Avg=#'
            end
          end
          object dxDBGrid1: TdxDBGrid
            Left = 389
            Top = 132
            Width = 202
            Height = 113
            Bands = <
              item
              end>
            DefaultLayout = True
            HeaderPanelRowCount = 1
            KeyField = 'StockName'
            ShowSummaryFooter = True
            SummaryGroups = <>
            SummarySeparator = ', '
            ParentShowHint = False
            ShowHint = True
            TabOrder = 16
            DataSource = DataSource3
            Filter.Criteria = {00000000}
            GridLineColor = clBlue
            OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoTabs, edgoTabThrough, edgoVertThrough]
            OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
            ScrollBars = ssNone
            object dxDBGrid1StockName: TdxDBGridMaskColumn
              DisableEditor = True
              ReadOnly = True
              BandIndex = 0
              RowIndex = 0
              FieldName = 'StockName'
            end
            object dxDBGrid1Price: TdxDBGridMaskColumn
              DisableEditor = True
              ReadOnly = True
              BandIndex = 0
              RowIndex = 0
              FieldName = 'Price'
              SummaryFooterType = cstAvg
              SummaryFooterField = 'Price'
              SummaryFooterFormat = 'Avg=#'
            end
            object dxDBGrid1Qty: TdxDBGridMaskColumn
              DisableEditor = True
              ReadOnly = True
              BandIndex = 0
              RowIndex = 0
              FieldName = 'Qty'
              SummaryFooterType = cstSum
              SummaryFooterField = 'Qty'
            end
          end
          object DBComboBox2: TDBComboBox
            Left = 6
            Top = 186
            Width = 152
            Height = 20
            DataField = 'UnitID'
            DataSource = DSMain
            ItemHeight = 12
            TabOrder = 4
          end
          object DBEdit1: TDBEdit
            Left = 6
            Top = 19
            Width = 152
            Height = 20
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'PartNo'
            DataSource = DSMain
            ParentCtl3D = False
            TabOrder = 0
          end
          object DBEdit2: TDBEdit
            Left = 6
            Top = 62
            Width = 152
            Height = 20
            Ctl3D = True
            DataField = 'PartNameC'
            DataSource = DSMain
            ParentCtl3D = False
            TabOrder = 1
          end
          object DBEdit4: TDBEdit
            Left = 6
            Top = 103
            Width = 152
            Height = 20
            DataField = 'PartNameE'
            DataSource = DSMain
            TabOrder = 2
          end
          object DBComboBox3: TDBComboBox
            Left = 6
            Top = 228
            Width = 152
            Height = 20
            DataField = 'Color'
            DataSource = DSMain
            ItemHeight = 12
            TabOrder = 5
          end
          object DBLookupComboBox1: TDBLookupComboBox
            Left = 193
            Top = 19
            Width = 152
            Height = 20
            DataField = 'UnitName'
            DataSource = DSMain
            DropDownRows = 10
            TabOrder = 6
          end
          object dxDBLookupTreeView1: TdxDBLookupTreeView
            Left = 6
            Top = 145
            Width = 152
            Height = 20
            CanSelectParents = False
            DropDownRows = 15
            ParentColor = False
            TabOrder = 3
            TabStop = True
            Text = 'dxDBLookupTreeView1'
            TreeViewColor = clWindow
            TreeViewCursor = crDefault
            TreeViewFont.Charset = DEFAULT_CHARSET
            TreeViewFont.Color = clWindowText
            TreeViewFont.Height = -11
            TreeViewFont.Name = 'MS Sans Serif'
            TreeViewFont.Style = []
            TreeViewImages = DM.ImageTree
            TreeViewIndent = 19
            TreeViewReadOnly = True
            TreeViewShowButtons = True
            TreeViewShowHint = False
            TreeViewShowLines = True
            TreeViewShowRoot = True
            TreeViewSortType = stNone
            DisplayField = 'CategoryID; CategoryName'
            DividedChar = '.'
            ListSource = DataSource2
            KeyField = 'CategoryID'
            ListField = 'CategoryName'
            Options = [trSmartRecordCopy, trCheckHasChildren]
            ParentField = 'ParentID'
            TextStyle = tvtsFull
            DataField = 'CategoryID'
            DataSource = DSMain
            ReadOnly = True
          end
          object DBComboBox1: TDBComboBox
            Left = 193
            Top = 103
            Width = 152
            Height = 22
            Style = csOwnerDrawFixed
            DataField = 'ABCType'
            DataSource = DSMain
            ItemHeight = 16
            Items.Strings = (
              'A'
              'B'
              'C')
            TabOrder = 8
          end
          object DBRadioGroup1: TDBRadioGroup
            Left = 390
            Top = 6
            Width = 163
            Height = 41
            Caption = #35745#20215#26041#24335
            Columns = 2
            DataField = 'PriceType'
            DataSource = DSMain
            Items.Strings = (
              #31227#21160#24179#22343
              #20808#36827#20808#20986)
            TabOrder = 12
            TabStop = True
            Values.Strings = (
              #31227#21160#24179#22343
              #20808#36827#20808#20986)
          end
          object DBLookupComboBox2: TDBLookupComboBox
            Left = 193
            Top = 62
            Width = 152
            Height = 20
            DataField = 'StockName'
            DataSource = DSMain
            TabOrder = 7
          end
          object DBEdit5: TDBEdit
            Left = 193
            Top = 145
            Width = 152
            Height = 20
            DataField = 'SafeQty'
            DataSource = DSMain
            TabOrder = 9
          end
          object DBEdit6: TDBEdit
            Left = 193
            Top = 186
            Width = 152
            Height = 20
            TabStop = False
            DataField = 'TotalQty'
            DataSource = DSMain
            TabOrder = 10
          end
          object DBEdit7: TDBEdit
            Left = 193
            Top = 228
            Width = 152
            Height = 20
            DataField = 'Remark'
            DataSource = DSMain
            TabOrder = 11
          end
          object DBCheckBox1: TDBCheckBox
            Left = 390
            Top = 86
            Width = 161
            Height = 17
            Caption = #29366#24577'('#26159#21542#20923#32467')'
            DataField = 'Status'
            DataSource = DSMain
            TabOrder = 14
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBLookupComboBox3: TDBLookupComboBox
            Left = 390
            Top = 62
            Width = 164
            Height = 20
            DataField = 'CostTypeName'
            DataSource = DSMain
            DropDownRows = 10
            TabOrder = 13
          end
        end
      end
      object dxDBTreeView1: TdxDBTreeView
        Left = 0
        Top = 0
        Width = 234
        Height = 352
        ShowNodeHint = True
        AutoExpand = True
        DataSource = DataSource2
        DisplayField = 'CategoryID;CategoryName'
        KeyField = 'CategoryID'
        ListField = 'CategoryName'
        ParentField = 'ParentID'
        SeparatedSt = ' '
        RaiseOnError = True
        ReadOnly = True
        HideSelection = False
        Indent = 19
        OnChange = dxDBTreeView1Change
        Align = alLeft
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        Options = [trDBCanDelete, trDBConfirmDelete]
        SortType = stData
        SelectedIndex = 1
        TabOrder = 0
        ParentFont = False
        Images = DM.ImageTree
      end
    end
    inherited TabEdit: TTabSheet
      inherited GroupBox1: TGroupBox
        Width = 601
        Height = 349
      end
      inherited Panel2: TPanel
        Left = 601
        Width = 94
        Height = 349
      end
    end
  end
  inherited ToolBar: TToolBar
    Width = 703
  end
  inherited DSMain: TDataSource
    DataSet = DMBase.Cmateriel
  end
  object DataSource2: TDataSource [6]
    DataSet = DMBase.CCategory1
    Left = 168
    Top = 176
  end
  object DataSource1: TDataSource [7]
    DataSet = DMBase.CInvInitial
    Left = 200
    Top = 176
  end
  inherited Menu3: TPopupMenu
    object NSafe: TMenuItem
      Caption = #21482#26174#31034#24211#23384#23567#26044#23433#20840#20540#30340#29289#26009
      OnClick = NSafeClick
    end
  end
  object DataSource3: TDataSource
    DataSet = DMBase.CInvCurrent
    Left = 235
    Top = 177
  end
end