ucategory.dfm

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

inherited fmCategory: TfmCategory
  Left = 119
  Top = 117
  Caption = #26448#26009#20998#31867#20449#24687
  Font.Charset = CHINESEBIG5_CHARSET
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 14
  inherited PageControl: TPageControl
    inherited Tabbrowse: TTabSheet
      inherited Splitter: TSplitter
        Left = 241
      end
      object Splitter1: TSplitter [1]
        Left = 239
        Top = 0
        Width = 2
        Height = 263
      end
      inherited Panel1: TPanel
        Left = 241
        Width = 308
        inherited DBGrid1: TdxDBGrid
          Width = 306
          Height = 1
          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 = 2
          Width = 306
          Height = 260
          Visible = True
          object Label4: TLabel
            Left = 16
            Top = 144
            Width = 24
            Height = 15
            Caption = #22791#27880
          end
          object Label3: TLabel
            Left = 16
            Top = 104
            Width = 48
            Height = 15
            Caption = #19978#32423#20998#31867
          end
          object Label2: TLabel
            Left = 16
            Top = 64
            Width = 72
            Height = 15
            Caption = #26448#26009#20998#31867#21517#31216
            FocusControl = DBEdit2
          end
          object Label1: TLabel
            Left = 16
            Top = 24
            Width = 84
            Height = 15
            Caption = #26448#26009#31867#20998#31867#31616#31216
            FocusControl = DBEdit1
          end
          object DBEdit1: TDBEdit
            Left = 16
            Top = 40
            Width = 124
            Height = 23
            CharCase = ecUpperCase
            DataField = 'CategoryID'
            DataSource = DSMain
            TabOrder = 0
            OnKeyPress = DBEdit1KeyPress
          end
          object dxDBLookupTreeView1: TdxDBLookupTreeView
            Left = 16
            Top = 120
            Width = 246
            Height = 21
            CanSelectParents = True
            DropDownRows = 10
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            TabOrder = 2
            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 = 'CategoryName'
            DividedChar = '.'
            ListSource = DataSource2
            KeyField = 'CategoryID'
            ListField = 'CategoryName'
            Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
            ParentField = 'ParentID'
            TextStyle = tvtsShort
            DataField = 'ParentID'
            DataSource = DSMain
            ReadOnly = True
          end
          object DBMemo1: TDBMemo
            Left = 16
            Top = 161
            Width = 247
            Height = 40
            DataField = 'remark'
            DataSource = DSMain
            TabOrder = 3
          end
          object DBEdit2: TDBEdit
            Left = 16
            Top = 80
            Width = 244
            Height = 23
            DataField = 'CategoryName'
            DataSource = DSMain
            TabOrder = 1
          end
        end
      end
      object dxDBTreeView1: TdxDBTreeView
        Left = 0
        Top = 0
        Width = 239
        Height = 263
        ShowNodeHint = True
        DataSource = DSMain
        DisplayField = 'CategoryName'
        KeyField = 'CategoryID'
        ListField = 'CategoryName'
        ParentField = 'ParentID'
        SeparatedSt = ', id =  '
        RaiseOnError = True
        ReadOnly = True
        Indent = 19
        Align = alLeft
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        SelectedIndex = -1
        TabOrder = 1
        ParentFont = False
        Images = DM.ImageTree
      end
    end
    inherited TabEdit: TTabSheet
      inherited GroupBox1: TGroupBox
        Width = 341
      end
      inherited Panel2: TPanel
        Left = 341
        Width = 230
      end
    end
  end
  inherited ToolBar: TToolBar
    ButtonHeight = 37
    inherited TBFirst: TToolButton
      Top = 45
    end
    inherited TBLast: TToolButton
      Top = 45
    end
    inherited TBBlank4: TToolButton
      Top = 45
    end
    inherited TBAdd: TToolButton
      Top = 45
    end
    inherited TBEdit: TToolButton
      Top = 45
    end
    inherited TBDelete: TToolButton
      Top = 45
    end
    inherited TBSave: TToolButton
      Top = 45
    end
    inherited TBCancel: TToolButton
      Top = 45
    end
    inherited TBBlank5: TToolButton
      Top = 45
    end
    inherited TBClose: TToolButton
      Top = 45
    end
    inherited TBHelp: TToolButton
      Top = 45
    end
  end
  object DataSource2: TDataSource [2]
    DataSet = DMBase.CCategory1
    Left = 304
    Top = 40
  end
  inherited DSMain: TDataSource
    DataSet = DMBase.CCategory
  end
end