wsalary_salary.dfm

很经典的数据库代码

inherited F_Salary: TF_Salary
  Left = 192
  Top = 110
  Width = 608
  Height = 420
  ActiveControl = ME_SPerson
  Caption = #24037#36164#31649#29702
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar1: TToolBar
    Width = 600
    inherited ToolButton1: TToolButton
      OnClick = ToolButton1Click
    end
    inherited ToolButton13: TToolButton
      OnClick = ToolButton13Click
    end
    inherited ToolButton2: TToolButton
      OnClick = ToolButton2Click
    end
    inherited ToolButton3: TToolButton
      OnClick = ToolButton3Click
    end
    inherited ToolButton4: TToolButton
      OnClick = ToolButton4Click
    end
    inherited ToolButton6: TToolButton
      OnClick = ToolButton6Click
    end
    inherited ToolButton5: TToolButton
      OnClick = ToolButton5Click
    end
    inherited ToolButton7: TToolButton
      OnClick = ToolButton7Click
    end
    inherited ToolButton8: TToolButton
      OnClick = ToolButton8Click
    end
    inherited ToolButton9: TToolButton
      OnClick = ToolButton9Click
    end
    inherited ToolButton10: TToolButton
      OnClick = ToolButton10Click
    end
    inherited ToolButton12: TToolButton
      OnClick = ToolButton12Click
    end
  end
  object PageControl1: TPageControl [1]
    Left = 0
    Top = 37
    Width = 385
    Height = 356
    ActivePage = TabSheet2
    Align = alCustom
    TabIndex = 1
    TabOrder = 1
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = #24037#36164#32467#31639#31649#29702
      object Label2: TLabel
        Left = 13
        Top = 16
        Width = 60
        Height = 13
        Caption = #32479#35745#24180#26376#65306
      end
      object DBGrid2: TDBGrid
        Left = 0
        Top = 48
        Width = 377
        Height = 280
        Align = alCustom
        DataSource = DM.DS_Salary
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taLeftJustify
            Expanded = False
            FieldName = 'Salary_ID'
            Title.Alignment = taCenter
            Title.Caption = #35760#24405#32534#21495
            Width = 58
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Salary_Month'
            Title.Alignment = taCenter
            Title.Caption = #26376#20221
            Width = 62
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Salary_PID'
            Title.Alignment = taCenter
            Title.Caption = #21592#24037#24037#21495
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PID_Name'
            Title.Alignment = taCenter
            Title.Caption = #21592#24037#22995#21517
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Salary_PWork'
            Title.Alignment = taCenter
            Title.Caption = #22522#26412#24037#36164
            Width = 62
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Salary_POTime'
            Title.Alignment = taCenter
            Title.Caption = #21152#29677#24037#36164
            Width = 52
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Salary_Bonus'
            Title.Alignment = taCenter
            Title.Caption = #22870#37329
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Salary_Welfare'
            Title.Alignment = taCenter
            Title.Caption = #31119#21033
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Salary_Allow'
            Title.Alignment = taCenter
            Title.Caption = #27941#36148
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Salary_PEvect'
            Title.Alignment = taCenter
            Title.Caption = #20986#24046#34917#36148
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Salary_DAbsent'
            Title.Alignment = taCenter
            Title.Caption = #26103#24037
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Salary_LateEarly'
            Title.Alignment = taCenter
            Title.Caption = #36831#21040#26089#36864
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Salary_DInsure'
            Title.Alignment = taCenter
            Title.Caption = #20854#23427#25187#38500
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Salary_PTotal'
            Title.Alignment = taCenter
            Title.Caption = #23454#21457#24037#36164
            Visible = True
          end>
      end
      object DateTimePicker1: TDateTimePicker
        Left = 77
        Top = 12
        Width = 89
        Height = 21
        CalAlignment = dtaLeft
        Date = 37694.9059555787
        Time = 37694.9059555787
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 1
      end
    end
    object TabSheet2: TTabSheet
      Caption = #22870#37329#27941#36148#25187#21457#31649#29702
      ImageIndex = 1
      object Label4: TLabel
        Left = 150
        Top = 13
        Width = 36
        Height = 13
        Caption = #26376#20221#65306
      end
      object Label5: TLabel
        Left = 149
        Top = 52
        Width = 36
        Height = 13
        Caption = #37329#39069#65306
      end
      object Label11: TLabel
        Left = 241
        Top = 12
        Width = 36
        Height = 13
        Caption = #22791#27880#65306
      end
      object RadioGroup1: TRadioGroup
        Left = 8
        Top = 8
        Width = 129
        Height = 81
        Caption = #39033#30446
        Columns = 2
        ItemIndex = 0
        Items.Strings = (
          #22870#37329' '
          #27941#36148
          #31119#21033
          #25187#21457)
        TabOrder = 0
      end
      object DateTimePicker2: TDateTimePicker
        Left = 149
        Top = 28
        Width = 89
        Height = 21
        CalAlignment = dtaLeft
        Date = 37694.9059555787
        Time = 37694.9059555787
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 1
      end
      object CSpinEdit1: TCSpinEdit
        Left = 150
        Top = 66
        Width = 66
        Height = 22
        Increment = 10
        MaxValue = 10000
        TabOrder = 2
        Value = 100
      end
      object Memo2: TMemo
        Left = 240
        Top = 28
        Width = 137
        Height = 60
        ScrollBars = ssVertical
        TabOrder = 3
      end
      object DBGrid3: TDBGrid
        Left = 0
        Top = 90
        Width = 377
        Height = 238
        Align = alCustom
        DataSource = DM.DS_SOther
        TabOrder = 4
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'SOther_ID'
            Title.Alignment = taCenter
            Title.Caption = #35760#24405#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SOther_YMonth'
            Title.Alignment = taCenter
            Title.Caption = #26376#20221
            Width = 48
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SOther_PID'
            Title.Alignment = taCenter
            Title.Caption = #21592#24037#24037#21495
            Width = 58
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PID_Name'
            Title.Alignment = taCenter
            Title.Caption = #21592#24037#22995#21517
            Width = 62
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Type_Name'
            Title.Alignment = taCenter
            Title.Caption = #31867#21035
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SOther_Money'
            Title.Alignment = taCenter
            Title.Caption = #37329#39069
            Width = 56
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SOther_Text'
            Title.Alignment = taCenter
            Title.Caption = #22791#27880
            Visible = True
          end>
      end
    end
  end
  object Panel1: TPanel [2]
    Left = 384
    Top = 57
    Width = 215
    Height = 336
    BevelInner = bvLowered
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 37
      Width = 36
      Height = 13
      Caption = #37096#38376#65306
    end
    object Label3: TLabel
      Left = 8
      Top = 2
      Width = 60
      Height = 13
      Caption = #21592#24037#24037#21495#65306
    end
    object DBGrid1: TDBGrid
      Left = 2
      Top = 72
      Width = 211
      Height = 262
      Align = alCustom
      DataSource = DM.DS_Employee
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      Columns = <
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'Employee_ID'
          Title.Alignment = taCenter
          Title.Caption = #24037#21495
          Title.Color = clAqua
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Employee_Name'
          Title.Alignment = taCenter
          Title.Caption = #22995#21517
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Employee_Branch'
          Title.Alignment = taCenter
          Title.Caption = #37096#38376
          Width = 63
          Visible = True
        end>
    end
    object ME_SBranch: TMaskEdit
      Left = 6
      Top = 50
      Width = 96
      Height = 21
      EditMask = '0000;1;_'
      MaxLength = 4
      TabOrder = 1
      Text = '    '
      OnChange = ME_SBranchChange
    end
    object BitBtn1: TBitBtn
      Left = 122
      Top = 28
      Width = 75
      Height = 25
      Cancel = True
      Caption = #21592#24037#26597#25214
      ModalResult = 2
      TabOrder = 2
      OnClick = BitBtn1Click
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00C0C0C00000000000FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00C0C0C000000000000080800000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00C0C0C000000000000080800080800000FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00C0C0C000000000000080800080800000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00C0C0C000C0C0C000C0C0C000FF00FF00FF00FF00C0C0
        C000000000000080800080800000FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00C0C0C0000000000000000000000000000000000080808000C0C0C0000000
        0000FFFFFF0080800000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00C0C0
        C000C0C0C00000000000C0C0C000C0C0C000C0C0C00000000000000000008080
        000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
        0000C0C0C000FFFF0000FFFFFF00FFFFFF00FFFFFF00FFFF0000000000000000
        0000C0C0C000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000C0C0
        C000FFFF0000FFFF0000C0C0C0008080000080800000FFFFFF00FFFF00000000
        000080808000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FFFF
        0000FFFF0000FFFF0000FFFF0000FFFF0000C0C0C00080800000FFFFFF00C0C0
        C00000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FFFF
        0000FFFFFF00FFFF0000FFFF0000FFFF0000FFFF000080800000FFFFFF00C0C0
        C00000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FFFF
        0000FFFFFF00FFFF0000FFFF0000FFFFFF00FFFF0000C0C0C000FFFFFF00C0C0
        C00000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00C0C0C000C0C0
        C000FFFF0000FFFFFF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF00000000
        000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
        0000C0C0C000FFFF0000FFFFFF00FFFFFF00FFFFFF00FFFF0000C0C0C000C0C0
        C000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
        000000000000C0C0C000FFFF0000FFFF0000C0C0C000C0C0C00000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF0000000000C0C0C00000000000000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
      Layout = blGlyphRight
    end
    object ME_SPerson: TMaskEdit
      Left = 6
      Top = 15
      Width = 94
      Height = 21
      EditMask = '000000;1;_'
      MaxLength = 6
      TabOrder = 3
      Text = '      '
      OnChange = ME_SPersonChange
    end
  end
  object DBNavigator1: TDBNavigator [3]
    Left = 344
    Top = 32
    Width = 240
    Height = 25
    DataSource = DM.DS_SOther
    TabOrder = 3
    Visible = False
  end
  inherited ImageList1: TImageList
    Left = 48
    Top = 192
  end
end