udepartment.dfm

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

inherited fmdepartment: Tfmdepartment
  Left = 223
  Top = 141
  Width = 523
  Height = 367
  Caption = #37096#38376#20449#24687
  Font.Charset = CHINESEBIG5_CHARSET
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 14
  inherited PageControl: TPageControl
    Width = 515
    Height = 300
    inherited Tabbrowse: TTabSheet
      inherited Splitter: TSplitter
        Left = 291
        Height = 267
      end
      object Splitter1: TSplitter [1]
        Left = 289
        Top = 0
        Width = 2
        Height = 267
      end
      inherited Panel1: TPanel
        Left = 291
        Width = 216
        Height = 267
        inherited DBGrid1: TdxDBGrid
          Width = 214
          Height = 127
          KeyField = 'DeptID'
          Filter.Criteria = {00000000}
          object DBGrid1DeptID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'DeptID'
          end
          object DBGrid1DeptName: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'DeptName'
          end
          object DBGrid1ParentID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'ParentID'
          end
          object DBGrid1IsWork: TdxDBGridCheckColumn
            Width = 100
            BandIndex = 0
            RowIndex = 0
            FieldName = 'IsWork'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          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 = 128
          Width = 214
          Height = 138
          Visible = True
          object Label4: TLabel
            Left = 344
            Top = 5
            Width = 24
            Height = 15
            Caption = #22791#27880
          end
          object Label3: TLabel
            Left = 8
            Top = 88
            Width = 48
            Height = 15
            Caption = #19978#32423#37096#38376
          end
          object Label2: TLabel
            Left = 8
            Top = 48
            Width = 48
            Height = 15
            Caption = #37096#38376#21517#31216
            FocusControl = DBEdit2
          end
          object Label1: TLabel
            Left = 8
            Top = 8
            Width = 48
            Height = 15
            Caption = #37096#38376#31616#31216
            FocusControl = DBEdit1
          end
          object DBEdit1: TDBEdit
            Left = 8
            Top = 24
            Width = 124
            Height = 23
            CharCase = ecUpperCase
            DataField = 'DeptID'
            DataSource = DSMain
            TabOrder = 0
            OnKeyPress = DBEdit1KeyPress
          end
          object dxDBLookupTreeView1: TdxDBLookupTreeView
            Left = 8
            Top = 104
            Width = 298
            Height = 23
            CanSelectParents = True
            DropDownRows = 15
            ParentColor = 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 = 'DeptName'
            DividedChar = '.'
            ListSource = DataSource2
            KeyField = 'DeptID'
            ListField = 'DeptName'
            Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy]
            ParentField = 'ParentID'
            TextStyle = tvtsFull
            DataField = 'ParentID'
            DataSource = DSMain
            ReadOnly = True
          end
          object DBMemo1: TDBMemo
            Left = 344
            Top = 21
            Width = 238
            Height = 64
            DataField = 'remark'
            DataSource = DSMain
            TabOrder = 3
          end
          object DBEdit2: TDBEdit
            Left = 8
            Top = 64
            Width = 298
            Height = 23
            DataField = 'DeptName'
            DataSource = DSMain
            TabOrder = 1
          end
        end
      end
      object dxDBTreeView1: TdxDBTreeView
        Left = 0
        Top = 0
        Width = 289
        Height = 267
        ShowNodeHint = True
        DataSource = DSMain
        DisplayField = 'DeptName'
        KeyField = 'DeptID'
        ListField = 'DeptName'
        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 = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        SelectedIndex = -1
        TabOrder = 1
        ParentFont = False
        Images = DM.ImageTree
      end
    end
    inherited TabEdit: TTabSheet
      inherited GroupBox1: TGroupBox
        Width = 369
        Height = 249
      end
      inherited Panel2: TPanel
        Left = 369
        Width = 138
        Height = 249
      end
    end
  end
  inherited ToolBar: TToolBar
    Width = 515
    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
  inherited DSMain: TDataSource
    DataSet = DMBase.CDepartment
  end
  object DataSource2: TDataSource [3]
    DataSet = DMBase.Cdept
    Left = 349
    Top = 40
  end
end