usalary.dfm

是个办公系统,可以实现财务上的管理和人员的流动

object frmSalary: TfrmSalary
  Left = -39
  Top = 342
  Width = 1022
  Height = 738
  Caption = #21592#24037#24037#36164#21457#25918
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label9: TLabel
    Left = 16
    Top = 72
    Width = 32
    Height = 13
    Caption = 'Label8'
  end
  object Label10: TLabel
    Left = 24
    Top = 80
    Width = 32
    Height = 13
    Caption = 'Label8'
  end
  object Splitter1: TSplitter
    Left = 217
    Top = 0
    Height = 704
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 217
    Height = 704
    Align = alLeft
    Caption = #21592#24037#20998#24067#27010#20917
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 0
    DesignSize = (
      217
      704)
    object TreeView1: TTreeView
      Left = 2
      Top = 57
      Width = 213
      Height = 645
      Align = alClient
      Images = ImageList1
      Indent = 19
      ReadOnly = True
      TabOrder = 0
      OnChange = TreeView1Change
      OnClick = TreeView1Click
    end
    object HeaderControl1: THeaderControl
      Left = 2
      Top = 15
      Width = 213
      Height = 42
      Sections = <>
    end
    object ComboBox1: TComboBox
      Left = 70
      Top = 21
      Width = 142
      Height = 21
      Anchors = [akLeft, akTop, akRight, akBottom]
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      TabOrder = 2
      OnChange = ComboBox1Change
      OnDropDown = ComboBox1DropDown
    end
    object Edit9: TEdit
      Left = 8
      Top = 25
      Width = 62
      Height = 15
      Cursor = crArrow
      BorderStyle = bsNone
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ParentColor = True
      ReadOnly = True
      TabOrder = 3
      Text = #21592#24037#22995#21517#65306
    end
  end
  object Panel1: TPanel
    Left = 220
    Top = 0
    Width = 794
    Height = 704
    Align = alClient
    BevelInner = bvRaised
    BorderStyle = bsSingle
    TabOrder = 1
    object GroupBox2: TGroupBox
      Left = 2
      Top = 2
      Width = 786
      Height = 218
      Align = alTop
      Caption = #26412#26376#21592#24037#24037#36164#21457#25918#24773#20917
      TabOrder = 0
      object DBGrid1: TDBGrid
        Left = 2
        Top = 15
        Width = 782
        Height = 194
        Align = alTop
        DataSource = dm.DSSalary
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid1CellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'EmpName'
            Title.Caption = #21592#24037#22995#21517
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'BasicSal'
            Title.Caption = #22522#26412#24037#36164
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Business'
            Title.Caption = #19994#21153#37327
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'BusinessAdd'
            Title.Caption = #19994#21153#25552#25104
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Prize'
            Title.Caption = #22870#37329
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Absenteeism'
            Title.Caption = #30719#24037#27425#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'AbsCurr'
            Title.Caption = #30719#24037#24212#25187
            Width = 85
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Late'
            Title.Caption = #36831#21040#27425#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LateCurr'
            Title.Caption = #36831#21040#24212#25187
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SalDate'
            Title.Caption = #21457#25918#26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'IsSal'
            Title.Caption = #26159#21542#21457#25918
            Visible = True
          end>
      end
    end
    object GroupBox3: TGroupBox
      Left = 2
      Top = 366
      Width = 786
      Height = 125
      Align = alTop
      Caption = #20010#20154#24635#24037#36164#21457#25918#20449#24687#32479#35745
      TabOrder = 1
      object Panel2: TPanel
        Left = 616
        Top = 9
        Width = 175
        Height = 110
        BevelInner = bvLowered
        TabOrder = 0
        object Label23: TLabel
          Left = 7
          Top = 16
          Width = 52
          Height = 13
          Caption = #24050#21457#27425#25968
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label24: TLabel
          Left = 7
          Top = 49
          Width = 52
          Height = 13
          Caption = #20849#21457#24037#36164
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label25: TLabel
          Left = 7
          Top = 85
          Width = 52
          Height = 13
          Caption = #20849#25187#24037#36164
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label26: TLabel
          Left = 145
          Top = 16
          Width = 13
          Height = 13
          Caption = #27425
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label28: TLabel
          Left = 145
          Top = 50
          Width = 13
          Height = 13
          Caption = #20803
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label29: TLabel
          Left = 144
          Top = 81
          Width = 13
          Height = 13
          Caption = #20803
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object DBEdit5: TDBEdit
          Left = 60
          Top = 14
          Width = 81
          Height = 21
          DataSource = dm.DSWagesSum
          Enabled = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
        end
        object DBEdit6: TDBEdit
          Left = 60
          Top = 46
          Width = 81
          Height = 21
          DataSource = dm.DSWagesSum
          Enabled = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
        end
        object DBEdit7: TDBEdit
          Left = 60
          Top = 78
          Width = 81
          Height = 21
          DataSource = dm.DSWagesSum
          Enabled = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ParentFont = False
          ReadOnly = True
          TabOrder = 2
        end
      end
      object DBGrid2: TDBGrid
        Left = 4
        Top = 13
        Width = 610
        Height = 108
        DataSource = dm.DSPayWages
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDblClick = DBGrid2DblClick
        Columns = <
          item
            Expanded = False
            FieldName = 'SalDate'
            Title.Caption = #26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'EmpName'
            Title.Caption = #22995#21517
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DepartMent'
            Title.Caption = #25152#23646#37096#38376
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'yifa'
            Title.Caption = #24050#21457#24037#36164
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'kouchu'
            Title.Caption = #20854#20182#25187#38500
            Visible = True
          end