u_main.~dfm

一个小小的工资管理系统

object F_main: TF_main
  Left = 205
  Top = 150
  Width = 696
  Height = 480
  Caption = '工资管理系统'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label2: TLabel
    Left = 8
    Top = 16
    Width = 36
    Height = 12
    Caption = '部门：'
  end
  object Label3: TLabel
    Left = 8
    Top = 40
    Width = 60
    Height = 12
    Caption = '员工列表：'
  end
  object Label7: TLabel
    Left = 128
    Top = 200
    Width = 97
    Height = 13
    Anchors = [akTop]
    AutoSize = False
    Caption = '固定福利津贴：'
  end
  object Label14: TLabel
    Left = 272
    Top = 200
    Width = 60
    Height = 13
    Anchors = [akTop]
    AutoSize = False
    Caption = '月度奖金：'
  end
  object Label15: TLabel
    Left = 416
    Top = 200
    Width = 81
    Height = 13
    Anchors = [akTop]
    AutoSize = False
    Caption = '月度福利津贴：'
  end
  object Label16: TLabel
    Left = 560
    Top = 200
    Width = 60
    Height = 13
    Anchors = [akTop]
    AutoSize = False
    Caption = '月度扣发：'
  end
  object Gauge1: TGauge
    Left = 208
    Top = 376
    Width = 97
    Height = 17
    Progress = 0
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 415
    Width = 688
    Height = 19
    AutoHint = True
    Panels = <
      item
        Width = 300
      end
      item
        Style = psOwnerDraw
        Width = 100
      end
      item
        Text = '尚未登录服务器。请按F2登录。'
        Width = 200
      end>
    SimplePanel = False
  end
  object GroupBox1: TGroupBox
    Left = 120
    Top = 8
    Width = 561
    Height = 57
    Anchors = [akTop]
    Caption = '基本信息'
    TabOrder = 1
    object Label1: TLabel
      Left = 160
      Top = 24
      Width = 48
      Height = 13
      AutoSize = False
      Caption = '员工号：'
    end
    object Label4: TLabel
      Left = 280
      Top = 24
      Width = 36
      Height = 13
      AutoSize = False
      Caption = '姓名：'
    end
    object Label5: TLabel
      Left = 384
      Top = 24
      Width = 60
      Height = 13
      AutoSize = False
      Caption = '基本工资：'
    end
    object Label6: TLabel
      Left = 504
      Top = 24
      Width = 49
      Height = 13
      AutoSize = False
      Caption = '元/小时'
    end
    object Label13: TLabel
      Left = 16
      Top = 24
      Width = 60
      Height = 12
      Caption = '部门名称：'
    end
    object i_salary: TDBEdit
      Left = 440
      Top = 20
      Width = 57
      Height = 20
      Hint = '基本工资设置'
      DataField = 'SALARY'
      DataSource = DM_main.DS_salary_set
      TabOrder = 0
    end
    object i_person_id: TMaskEdit
      Left = 208
      Top = 20
      Width = 65
      Height = 20
      Hint = '输入员工号，显示相应信息。'
      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 = '员工姓名'
      Enabled = False
      TabOrder = 2
    end
    object i_depart_name: TEdit
      Left = 80
      Top = 20
      Width = 73
      Height = 20
      Hint = '部门名称'
      Enabled = False
      TabOrder = 3
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 56
    Width = 105
    Height = 353
    Anchors = [akLeft, akTop, akBottom]
    DataSource = DM_main.DS_person_list
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        Title.Caption = '员工号'
        Width = 42
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Caption = '姓名'
        Visible = True
      end>
  end
  object i_depart_id: TMaskEdit
    Left = 48
    Top = 12
    Width = 65
    Height = 20
    Hint = '输入部门代码，检索部门员工。输入*号，显示所有员工。'
    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 = '添加奖金、福利、津贴、扣发项'
    TabOrder = 4
    object Label8: TLabel
      Left = 24
      Top = 24
      Width = 36
      Height = 12
      Caption = '年月：'
    end
    object Label9: TLabel
      Left = 160
      Top = 56
      Width = 36
      Height = 12
      Caption = '金额：'
    end
    object Label10: TLabel
      Left = 280
      Top = 56
      Width = 12
      Height = 12
      Caption = '元'
    end
    object Label11: TLabel
      Left = 160
      Top = 24
      Width = 36
      Height = 12
      Caption = '名目：'
    end
    object Label12: TLabel
      Left = 312
      Top = 24
      Width = 60
      Height = 12
      Caption = '具体说明：'
    end
    object i_yearmonth: TMaskEdit
      Left = 64
      Top = 20
      Width = 73
      Height = 20
      Hint = '月度编号，格式：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 = '项目'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        '奖金'
        '福利'
        '津贴'
        '扣发')
      TabOrder = 1
    end
    object i_money: TSpinEdit
      Left = 200
      Top = 51
      Width = 73
      Height = 21
      Hint = '输入金额'
      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 = '请选择或输入项目名称'
      ItemHeight = 12
      TabOrder = 3
      Items.Strings = (
        '奖金'
        '福利1'
        '福利2'
        '福利3'
        '津贴1'
        '津贴2'
        '津贴3'
        '扣罚1'
        '扣罚2'
        '扣罚3')
    end
    object i_fixed: TCheckBox
      Left = 176
      Top = 80
      Width = 113
      Height = 17
      Hint = '固定福利津贴将在每个月的计算中使用。'
      Caption = '固定福利津贴'
      TabOrder = 4
    end
    object i_description: TMemo
      Left = 312
      Top = 40
      Width = 121
      Height = 57
      Hint = '输入说明，用于今后的检查。'
      TabOrder = 5
    end
    object B_add_person: TButton
      Left = 440
      Top = 64
      Width = 99
      Height = 25
      Hint = '当前员工添加该项记录'
      Caption = '当前员工添加'
      TabOrder = 6
      OnClick = B_add_personClick
    end
    object B_add_list: TButton
      Left = 440
      Top = 32
      Width = 99
      Height = 25
      Hint = '当前部门内的员工添加该项金额'
      Caption = '列表员工添加'
      TabOrder = 7
      OnClick = B_add_listClick
    end
  end
  object DBGrid2: TDBGrid
    Left = 120
    Top = 216
    Width = 129
    Height = 193
    Hint = '点击右键进行操作'
    Anchors = [akTop, akBottom]
    DataSource = DM_main.DS_salary_1
    PopupMenu = PopupMenu1
    TabOrder = 5
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Caption = '名称'
        Width = 46
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MONEY'
        Title.Caption = '金额'
        Width = 42
        Visible = True
      end>
  end
  object DBGrid3: TDBGrid
    Left = 264
    Top = 216
    Width = 129
    Height = 193
    Hint = '单击右键进行操作'
    Anchors = [akTop, akBottom]
    DataSource = DM_main.DS_salary_2
    PopupMenu = PopupMenu1
    TabOrder = 6
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Caption = '名称'
        Width = 45
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MONEY'
        Title.Caption = '金额'
        Width = 44
        Visible = True
      end>
  end
  object DBGrid4: TDBGrid
    Left = 408
    Top = 216
    Width = 129
    Height = 193
    Hint = '点击右键进行操作'
    Anchors = [akTop, akBottom]
    DataSource = DM_main.DS_salary_3
    PopupMenu = PopupMenu1
    TabOrder = 7
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Caption = '名称'
        Width = 46
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MONEY'
        Title.Caption = '金额'
        Width = 44
        Visible = True
      end>
  end
  object DBGrid5: TDBGrid
    Left = 552
    Top = 216
    Width = 129
    Height = 193
    Hint = '点击右键进行操作'
    Anchors = [akTop, akBottom]
    DataSource = DM_main.DS_salary_4
    PopupMenu = PopupMenu1
    TabOrder = 8
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Caption = '名称'
        Width = 46
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MONEY'
        Title.Caption = '金额'
        Width = 41
        Visible = True
      end>
  end
  object MainMenu1: TMainMenu
    Left = 40
    Top = 120
    object M_system: TMenuItem
      Caption = '&S系统'
      Hint = '系统菜单'
      object M_connect: TMenuItem
        Caption = '&C连接...'
        Hint = '连接服务器'
        ShortCut = 113
        OnClick = M_connectClick
      end
      object M_disconnect: TMenuItem
        Caption = '&D断开连接'
        Hint = '断开服务器连接'
        ShortCut = 114
        OnClick = M_disconnectClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object M_exit: TMenuItem
        Caption = '&X退出'
        Hint = '退出应用程序'
        ShortCut = 16465
        OnClick = M_exitClick
      end
    end
    object M_option: TMenuItem
      Caption = '&O设置'
      Hint = '设置菜单'
      object M_formula: TMenuItem
        Caption = '&F计算公式调整'
        Hint = '调整工资计算公式参数'
        OnClick = M_formulaClick
      end
    end
    object M_calculate: TMenuItem
      Caption = '&C计算'
      Hint = '计算菜单'
      object M_stat: TMenuItem
        Caption = '&S统计实发工资'
        Hint = '统计所有员工当月的工资'
        OnClick = M_statClick
      end
    end
    object M_report: TMenuItem
      Caption = '&R报表'
      Hint = '报表菜单'
      object M_printer_setup: TMenuItem
        Caption = '&S打印机设置'
        Hint = '设置打印机属性'
        OnClick = M_printer_setupClick
      end
      object M_preview: TMenuItem
        Caption = '&R预览报表'
        Hint = '预览报表'
        OnClick = M_previewClick
      end
      object M_print: TMenuItem
        Caption = '&P打印报表'
        Hint = '打印报表'
        OnClick = M_printClick
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 40
    Top = 176
    object M_delete: TMenuItem
      Caption = '删除当前记录'
      OnClick = M_deleteClick
    end
  end
end