uemployee.dfm

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

inherited fmemployee: Tfmemployee
  Left = 229
  Top = 134
  Width = 625
  Height = 397
  Caption = #21592#24037#20449#24687
  Font.Charset = CHINESEBIG5_CHARSET
  OldCreateOrder = True
  ShowHint = True
  PixelsPerInch = 96
  TextHeight = 14
  inherited PageControl: TPageControl
    Width = 617
    Height = 330
    inherited Tabbrowse: TTabSheet
      inherited Splitter: TSplitter
        Left = 216
        Height = 297
      end
      object Splitter1: TSplitter [1]
        Left = 211
        Top = 0
        Width = 5
        Height = 297
        Hint = #21487#20197#30452#25509#25302'?'#20998#21106'??'#25913'?'#37096'?'#20449#24687#30340'?'#24230
      end
      inherited Panel1: TPanel
        Left = 216
        Width = 393
        Height = 297
        TabOrder = 1
        inherited DBGrid1: TdxDBGrid
          Width = 391
          Height = 45
          KeyField = 'Emp_ID'
          Filter.Criteria = {00000000}
          object DBGrid1EmployeeID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'EmployeeID'
          end
          object DBGrid1EmployeeE: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'EmployeeE'
          end
          object DBGrid1EmployeeC: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'EmployeeC'
          end
          object DBGrid1DeptID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'DeptID'
          end
          object DBGrid1DeptName: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'DeptName'
          end
          object DBGrid1Sex: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Sex'
          end
          object DBGrid1EntryDate: TdxDBGridDateColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'EntryDate'
          end
          object DBGrid1Position: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Position'
          end
          object DBGrid1Picture: TdxDBGridBlobColumn
            Width = 100
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Picture'
          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 = 46
          Width = 391
          Height = 250
          Visible = True
          object Label8: TLabel
            Left = 8
            Top = 85
            Width = 72
            Height = 15
            Caption = #21592#24037#33521#25991#22995#21517
            FocusControl = DBEdit3
          end
          object Label6: TLabel
            Left = 10
            Top = 204
            Width = 24
            Height = 15
            Caption = #32844#31216
          end
          object Label5: TLabel
            Left = 328
            Top = 21
            Width = 24
            Height = 15
            Caption = #29031#29255
            Visible = False
          end
          object Label4: TLabel
            Left = 8
            Top = 163
            Width = 48
            Height = 15
            Caption = #25152#22312#37096#38376
          end
          object Label3: TLabel
            Left = 8
            Top = 123
            Width = 48
            Height = 15
            Caption = #20837#32844#26085#26399
          end
          object Label2: TLabel
            Left = 8
            Top = 46
            Width = 72
            Height = 15
            Caption = #21592#24037#20013#25991#22995#21517
            FocusControl = DBEdit2
          end
          object Label1: TLabel
            Left = 8
            Top = 6
            Width = 24
            Height = 15
            Caption = #24037#21495
            FocusControl = DBEdit1
          end
          object DBComboBox1: TDBComboBox
            Left = 8
            Top = 219
            Width = 185
            Height = 23
            DataField = 'Position'
            DataSource = DSMain
            ItemHeight = 15
            TabOrder = 5
          end
          object wwDBDateTimePicker1: TwwDBDateTimePicker
            Left = 8
            Top = 139
            Width = 184
            Height = 23
            CalendarAttributes.Font.Charset = DEFAULT_CHARSET
            CalendarAttributes.Font.Color = clWindowText
            CalendarAttributes.Font.Height = -11
            CalendarAttributes.Font.Name = 'MS Sans Serif'
            CalendarAttributes.Font.Style = []
            DataField = 'entryDate'
            DateFormat = dfLong
            DataSource = DSMain
            Epoch = 1950
            ShowButton = True
            TabOrder = 3
          end
          object Photo: TDBImage
            Left = 328
            Top = 37
            Width = 209
            Height = 204
            DataField = 'Picture'
            DataSource = DSMain
            PopupMenu = PopupMenu1
            Stretch = True
            TabOrder = 6
            Visible = False
            OnDblClick = PhotoDblClick
          end
          object dxDBLookupTreeView1: TdxDBLookupTreeView
            Left = 8
            Top = 179
            Width = 185
            Height = 23
            CanSelectParents = True
            DropDownRows = 15
            ParentColor = False
            TabOrder = 4
            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
            DividedChar = '.'
            ListSource = DataSource3
            KeyField = 'DeptID'
            ListField = 'DeptName'
            Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy]
            ParentField = 'ParentId'
            TextStyle = tvtsFull
            DataField = 'DeptID'
            DataSource = DSMain
            ReadOnly = True
          end
          object DBEdit3: TDBEdit
            Left = 8
            Top = 101
            Width = 124
            Height = 23
            DataField = 'EmployeeE'
            DataSource = DSMain
            TabOrder = 2
          end
          object DBEdit2: TDBEdit
            Left = 8
            Top = 62
            Width = 124
            Height = 23
            DataField = 'EmployeeC'
            DataSource = DSMain
            TabOrder = 1
          end
          object DBEdit1: TDBEdit
            Left = 8
            Top = 22
            Width = 124
            Height = 23
            CharCase = ecUpperCase
            DataField = 'EmployeeID'
            DataSource = DSMain
            TabOrder = 0
          end
        end
      end
      object dxDBTreeView1: TdxDBTreeView
        Left = 0
        Top = 0
        Width = 211
        Height = 297
        ShowNodeHint = True
        DataSource = DataSource2
        DisplayField = 'DeptName'
        KeyField = 'DeptID'
        ListField = 'DeptName'
        ParentField = 'ParentID'
        SeparatedSt = ', id =  '
        RaiseOnError = True
        ReadOnly = True
        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, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        SelectedIndex = -1
        TabOrder = 0
        ParentFont = False
        Images = DM.ImageTree
      end
    end
    inherited TabEdit: TTabSheet
      inherited GroupBox1: TGroupBox
        Width = 306
        Height = 279
      end
      inherited Panel2: TPanel
        Left = 306
        Width = 303
        Height = 279
      end
    end
  end
  inherited ToolBar: TToolBar
    Width = 617
    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.Cemployee
  end
  object DataSource2: TDataSource [3]
    Left = 264
    Top = 152
  end
  object DataSource3: TDataSource [4]
    Left = 296
    Top = 152
  end
  object PopupMenu1: TPopupMenu [5]
    AutoHotkeys = maManual
    BiDiMode = bdLeftToRight
    ParentBiDiMode = False
    Left = 328
    Top = 120
    object miLoad: TMenuItem
      Caption = #27983#35272#22270#29255
      OnClick = miLoadClick
    end
    object miClear: TMenuItem
      Caption = #28165#38500#22270#29255
      OnClick = miClearClick
    end
    object miSaveAs: TMenuItem
      Caption = #21478#23384#20026'...'
      OnClick = miSaveAsClick
    end
  end
  object Cdept1: TClientDataSet [6]
    Aggregates = <>
    Params = <>
    Left = 264
    Top = 120
  end
  object Cdept2: TClientDataSet [7]
    Aggregates = <>
    Params = <>
    Left = 296
    Top = 120
  end
end