u_main.~dfm

工资管理系统的DELPHI版本

object F_main: TF_main
  Left = 249
  Top = 152
  Width = 696
  Height = 480
  Caption = #24037#36164#31649#29702#31995#32479
  Color = clSkyBlue
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    688
    426)
  PixelsPerInch = 96
  TextHeight = 12
  object Label2: TLabel
    Left = 8
    Top = 16
    Width = 36
    Height = 12
    Caption = #37096#38376#65306
  end
  object Label3: TLabel
    Left = 8
    Top = 40
    Width = 60
    Height = 12
    Caption = #21592#24037#21015#34920#65306
  end
  object Label14: TLabel
    Left = 120
    Top = 200
    Width = 60
    Height = 13
    Anchors = [akTop]
    AutoSize = False
    Caption = #26376#24230#22870#37329#65306
  end
  object Label15: TLabel
    Left = 272
    Top = 200
    Width = 81
    Height = 13
    Anchors = [akTop]
    AutoSize = False
    Caption = #26376#24230#31119#21033#27941#36148#65306
  end
  object Label16: TLabel
    Left = 416
    Top = 200
    Width = 60
    Height = 13
    Anchors = [akTop]
    AutoSize = False
    Caption = #26376#24230#25187#21457#65306
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 407
    Width = 688
    Height = 19
    AutoHint = True
    Panels = <
      item
        Width = 300
      end
      item
        Style = psOwnerDraw
        Width = 100
      end
      item
        Text = #23578#26410#30331#24405#26381#21153#22120#12290#35831#25353'F2'#30331#24405#12290
        Width = 200
      end>
  end
  object GroupBox1: TGroupBox
    Left = 120
    Top = 8
    Width = 561
    Height = 57
    Anchors = [akTop]
    Caption = #22522#26412#20449#24687
    TabOrder = 1
    object Label1: TLabel
      Left = 160
      Top = 24
      Width = 48
      Height = 13
      AutoSize = False
      Caption = #21592#24037#21495#65306
    end
    object Label4: TLabel
      Left = 280
      Top = 24
      Width = 36
      Height = 13
      AutoSize = False
      Caption = #22995#21517#65306
    end
    object Label5: TLabel
      Left = 384
      Top = 24
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #22522#26412#24037#36164#65306
    end
    object Label6: TLabel
      Left = 504
      Top = 24
      Width = 49
      Height = 13
      AutoSize = False
      Caption = #20803'/'#23567#26102
    end
    object Label13: TLabel
      Left = 16
      Top = 24
      Width = 60
      Height = 12
      Caption = #37096#38376#21517#31216#65306
    end
    object i_salary: TDBEdit
      Left = 440
      Top = 20
      Width = 57
      Height = 20
      Hint = #22522#26412#24037#36164#35774#32622
      DataField = 'SALARY'
      TabOrder = 0
    end
    object i_person_id: TMaskEdit
      Left = 208
      Top = 20
      Width = 65
      Height = 20
      Hint = #36755#20837#21592#24037#21495#65292#26174#31034#30456#24212#20449#24687#12290
      EditMask = '>a!99999;1;_'
      MaxLength = 6
      TabOrder = 1
      Text = '      '
      OnChange = i_person_idChange
    end
    object i_person_name: TEdit
      Left = 312
      Top = 20
      Width = 65
      Height = 20
      Hint = #21592#24037#22995#21517
      Enabled = False
      TabOrder = 2
    end
    object i_depart_name: TEdit
      Left = 80
      Top = 20
      Width = 73
      Height = 20
      Hint = #37096#38376#21517#31216
      Enabled = False
      TabOrder = 3
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 56
    Width = 105
    Height = 353
    Anchors = [akLeft, akTop, akBottom]
    FixedColor = clSkyBlue
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        Title.Caption = #21592#24037#21495
        Width = 42
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Caption = #22995#21517
        Visible = True
      end>
  end
  object i_depart_id: TMaskEdit
    Left = 48
    Top = 12
    Width = 65
    Height = 20
    Hint = #36755#20837#37096#38376#20195#30721#65292#26816#32034#37096#38376#21592#24037#12290#36755#20837'*'#21495#65292#26174#31034#25152#26377#21592#24037#12290
    EditMask = '>ccc;1;_'
    MaxLength = 3
    TabOrder = 3
    Text = '   '
    OnChange = i_depart_idChange
  end
  object GroupBox2: TGroupBox
    Left = 120
    Top = 72
    Width = 561
    Height = 113
    Anchors = [akTop]
    Caption = #28155#21152#22870#37329#12289#25187#21457#39033
    TabOrder = 4
    object Label8: TLabel
      Left = 24
      Top = 24
      Width = 36
      Height = 12
      Caption = #24180#26376#65306
    end
    object Label9: TLabel
      Left = 160
      Top = 56
      Width = 36
      Height = 12
      Caption = #37329#39069#65306
    end
    object Label10: TLabel
      Left = 280
      Top = 56
      Width = 12
      Height = 12
      Caption = #20803
    end
    object Label11: TLabel
      Left = 160
      Top = 24
      Width = 36
      Height = 12
      Caption = #21517#30446#65306
    end
    object Label12: TLabel
      Left = 312
      Top = 24
      Width = 60
      Height = 12
      Caption = #20855#20307#35828#26126#65306
    end
    object i_yearmonth: TMaskEdit
      Left = 64
      Top = 20
      Width = 73
      Height = 20
      Hint = #26376#24230#32534#21495#65292#26684#24335#65306'YYYY-MM'
      EditMask = '!0000-00;1;_'
      MaxLength = 7
      TabOrder = 0
      Text = '    -  '
      OnChange = i_yearmonthChange
    end
    object i_type: TRadioGroup
      Left = 24
      Top = 48
      Width = 113
      Height = 57
      Caption = #39033#30446
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        #22870#37329
        #25187#21457)
      TabOrder = 1
    end
    object i_money: TSpinEdit
      Left = 200
      Top = 51
      Width = 73
      Height = 21
      Hint = #36755#20837#37329#39069
      Increment = 100
      MaxLength = 5
      MaxValue = 100000
      MinValue = 0
      TabOrder = 2
      Value = 0
    end
    object i_name: TComboBox
      Left = 200
      Top = 20
      Width = 97
      Height = 20
      Hint = #35831#36873#25321#25110#36755#20837#39033#30446#21517#31216
      ItemHeight = 12
      TabOrder = 3
      Items.Strings = (
        #22870#37329
        #31119#21033'1'
        #31119#21033'2'
        #31119#21033'3'
        #27941#36148'1'
        #27941#36148'2'
        #27941#36148'3'
        #25187#32602'1'
        #25187#32602'2'
        #25187#32602'3')
    end
    object i_fixed: TCheckBox
      Left = 176
      Top = 80
      Width = 113
      Height = 17
      Hint = #22266#23450#31119#21033#27941#36148#23558#22312#27599#20010#26376#30340#35745#31639#20013#20351#29992#12290
      Caption = #22266#23450#31119#21033#27941#36148
      TabOrder = 4
    end
    object i_description: TMemo
      Left = 312
      Top = 40
      Width = 121
      Height = 57
      Hint = #36755#20837#35828#26126#65292#29992#20110#20170#21518#30340#26816#26597#12290
      TabOrder = 5
    end
    object B_add_person: TButton
      Left = 440
      Top = 64
      Width = 99
      Height = 25
      Hint = #24403#21069#21592#24037#28155#21152#35813#39033#35760#24405
      Caption = #24403#21069#21592#24037#28155#21152
      TabOrder = 6
      OnClick = B_add_personClick
    end
    object B_add_list: TButton
      Left = 440
      Top = 32
      Width = 99
      Height = 25
      Hint = #24403#21069#37096#38376#20869#30340#21592#24037#28155#21152#35813#39033#37329#39069
      Caption = #21015#34920#21592#24037#28155#21152
      TabOrder = 7
      OnClick = B_add_listClick
    end
  end
  object DBGrid3: TDBGrid
    Left = 128
    Top = 216
    Width = 129
    Height = 193
    Hint = #21333#20987#21491#38190#36827#34892#25805#20316
    Anchors = [akTop, akBottom]
    FixedColor = clSkyBlue
    PopupMenu = PopupMenu1
    TabOrder = 5
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Caption = #21517#31216
        Width = 45
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MONEY'
        Title.Caption = #37329#39069
        Width = 44
        Visible = True
      end>
  end
  object DBGrid4: TDBGrid
    Left = 272
    Top = 216
    Width = 129
    Height = 193
    Hint = #28857#20987#21491#38190#36827#34892#25805#20316
    Anchors = [akTop, akBottom]
    FixedColor = clSkyBlue
    PopupMenu = PopupMenu1
    TabOrder = 6
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Caption = #21517#31216
        Width = 46
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MONEY'
        Title.Caption = #37329#39069
        Width = 44
        Visible = True
      end>
  end
  object DBGrid5: TDBGrid
    Left = 416
    Top = 216
    Width = 129
    Height = 193
    Hint = #28857#20987#21491#38190#36827#34892#25805#20316
    Anchors = [akTop, akBottom]
    FixedColor = clSkyBlue
    PopupMenu = PopupMenu1
    TabOrder = 7
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Caption = #21517#31216
        Width = 46
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MONEY'
        Title.Caption = #37329#39069
        Width = 41
        Visible = True
      end>
  end
  object MainMenu1: TMainMenu
    Left = 40
    Top = 120
    object M_system: TMenuItem
      Caption = '&S'#31995#32479
      Hint = #31995#32479#33756#21333
      object M_connect: TMenuItem
        Caption = '&C'#36830#25509'...'
        Hint = #36830#25509#26381#21153#22120
        ShortCut = 113
        OnClick = M_connectClick
      end
      object M_disconnect: TMenuItem
        Caption = '&D'#26029#24320#36830#25509
        Hint = #26029#24320#26381#21153#22120#36830#25509
        ShortCut = 114
        OnClick = M_disconnectClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object M_exit: TMenuItem
        Caption = '&X'#36864#20986
        Hint = #36864#20986#24212#29992#31243#24207
        ShortCut = 16465
        OnClick = M_exitClick
      end
    end
    object M_option: TMenuItem
      Caption = '&O'#35774#32622
      Hint = #35774#32622#33756#21333
      object M_formula: TMenuItem
        Caption = '&F'#35745#31639#20844#24335#35843#25972
        Hint = #35843#25972#24037#36164#35745#31639#20844#24335#21442#25968
        OnClick = M_formulaClick
      end
    end
    object M_calculate: TMenuItem
      Caption = '&C'#35745#31639
      Hint = #35745#31639#33756#21333
      object M_stat: TMenuItem
        Caption = '&S'#32479#35745#23454#21457#24037#36164
        Hint = #32479#35745#25152#26377#21592#24037#24403#26376#30340#24037#36164
        OnClick = M_statClick
      end
    end
    object M_report: TMenuItem
      Caption = '&R'#25253#34920
      Hint = #25253#34920#33756#21333
      object M_printer_setup: TMenuItem
        Caption = '&S'#25171#21360#26426#35774#32622
        Hint = #35774#32622#25171#21360#26426#23646#24615
        OnClick = M_printer_setupClick
      end
      object M_preview: TMenuItem
        Caption = '&R'#39044#35272#25253#34920
        Hint = #39044#35272#25253#34920
        OnClick = M_previewClick
      end
      object M_print: TMenuItem
        Caption = '&P'#25171#21360#25253#34920
        Hint = #25171#21360#25253#34920
        OnClick = M_printClick
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 40
    Top = 176
    object M_delete: TMenuItem
      Caption = #21024#38500#24403#21069#35760#24405
      OnClick = M_deleteClick
    end
  end
end