umcategory.dfm

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

inherited fmMCategory: TfmMCategory
  Left = 213
  Caption = #35774#22791#20998#31867#20449#24687
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited PageControl: TPageControl
    inherited Tabbrowse: TTabSheet
      inherited Splitter: TSplitter
        Left = 249
      end
      inherited Panel1: TPanel
        Left = 249
        Width = 322
        inherited DBGrid1: TdxDBGrid
          Width = 320
          Height = 90
          Filter.Criteria = {00000000}
          object DBGrid1CategoryID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CategoryID'
          end
          object DBGrid1CategoryName: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CategoryName'
          end
          object DBGrid1ParentID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'ParentID'
          end
          object DBGrid1Remark: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Remark'
          end
          object DBGrid1Creater: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Creater'
          end
          object DBGrid1CreateDate: TdxDBGridDateColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CreateDate'
          end
          object DBGrid1Updater: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Updater'
          end
          object DBGrid1UpdateDate: TdxDBGridDateColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UpdateDate'
          end
        end
        inherited Panel3: TPanel
          Top = 91
          Width = 320
          Height = 172
          Visible = True
          object Label1: TLabel
            Left = 8
            Top = 8
            Width = 24
            Height = 12
            Caption = #32534#21495
            FocusControl = DBEdit1
          end
          object Label2: TLabel
            Left = 8
            Top = 48
            Width = 24
            Height = 12
            Caption = #21517#31216
            FocusControl = DBEdit2
          end
          object Label3: TLabel
            Left = 8
            Top = 88
            Width = 48
            Height = 12
            Caption = #19978#32423#32534#21495
            FocusControl = DBEdit3
          end
          object Label4: TLabel
            Left = 8
            Top = 128
            Width = 24
            Height = 12
            Caption = #22791#27880
            FocusControl = DBEdit4
          end
          object DBEdit1: TDBEdit
            Left = 8
            Top = 24
            Width = 124
            Height = 20
            DataField = 'CategoryID'
            DataSource = DSMain
            TabOrder = 0
          end
          object DBEdit2: TDBEdit
            Left = 8
            Top = 64
            Width = 244
            Height = 20
            DataField = 'CategoryName'
            DataSource = DSMain
            TabOrder = 1
          end
          object DBEdit3: TDBEdit
            Left = 8
            Top = 104
            Width = 124
            Height = 20
            DataField = 'ParentID'
            DataSource = DSMain
            TabOrder = 2
          end
          object DBEdit4: TDBEdit
            Left = 8
            Top = 144
            Width = 244
            Height = 20
            DataField = 'Remark'
            DataSource = DSMain
            TabOrder = 3
          end
        end
      end
      object dxDBTreeView1: TdxDBTreeView
        Left = 0
        Top = 0
        Width = 249
        Height = 264
        ShowNodeHint = True
        AutoExpand = True
        DataSource = DataSource1
        DisplayField = 'CategoryName'
        KeyField = 'CategoryID'
        ListField = 'CategoryName'
        ParentField = 'ParentID'
        SeparatedSt = ' - '
        RaiseOnError = True
        ReadOnly = True
        Indent = 19
        Align = alLeft
        Font.Charset = CHINESEBIG5_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentColor = False
        Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        SelectedIndex = -1
        TabOrder = 1
        ParentFont = False
        Images = DM.ImageTree
      end
    end
  end
  inherited DSMain: TDataSource
    DataSet = DMBase.CMCategory
  end
  object DataSource1: TDataSource [5]
    DataSet = DMBase.CMCategory
    Left = 304
    Top = 40
  end
end