wageinput.dfm

工资管理系统 可以用语SQL数据库课程设计

object wageinputfrm: Twageinputfrm
  Left = 220
  Top = 153
  Width = 601
  Height = 463
  Caption = #24037#36164#20449#24687#24405#20837#19982#32500#25252
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 200
    Top = 8
    Width = 201
    Height = 25
    AutoSize = False
    Caption = #24037#36164#20449#24687#32534#36753#30028#38754
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = #21326#25991#24425#20113
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 136
    Top = 32
    Width = 321
    Height = 9
    Shape = bsBottomLine
  end
  object Label2: TLabel
    Left = 264
    Top = 64
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #21592#24037#32534#21495
  end
  object Label3: TLabel
    Left = 40
    Top = 64
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #26376#20221#32534#21495
  end
  object Label4: TLabel
    Left = 40
    Top = 336
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #20844#20849#34917#36148
  end
  object Label5: TLabel
    Left = 264
    Top = 144
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #22870#37329
  end
  object Label6: TLabel
    Left = 40
    Top = 184
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #21152#29677#36153
  end
  object Label7: TLabel
    Left = 264
    Top = 184
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #25187#32771#26680
  end
  object Label8: TLabel
    Left = 40
    Top = 296
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #21307#30103#20445#38505
  end
  object Label9: TLabel
    Left = 264
    Top = 336
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #22833#19994#20445#38505
  end
  object Label10: TLabel
    Left = 40
    Top = 104
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #21592#24037#22995#21517
  end
  object Label11: TLabel
    Left = 264
    Top = 104
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #22522#26412#24037#36164
  end
  object Label12: TLabel
    Left = 40
    Top = 144
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #20986#24046#34917#36148
  end
  object Label13: TLabel
    Left = 40
    Top = 256
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #20859#32769#20445#38505
  end
  object Label14: TLabel
    Left = 264
    Top = 256
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #24037#20260#20445#38505
  end
  object Label15: TLabel
    Left = 264
    Top = 296
    Width = 73
    Height = 13
    AutoSize = False
    Caption = #20303#25151#20844#31215#37329
  end
  object Label16: TLabel
    Left = 40
    Top = 216
    Width = 49
    Height = 13
    AutoSize = False
    Caption = #25152#24471#31246
  end
  object Label17: TLabel
    Left = 40
    Top = 376
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #23454#21457#24037#36164
  end
  object Label18: TLabel
    Left = 56
    Top = 408
    Width = 497
    Height = 17
    AutoSize = False
    Caption = #35828#26126#65306#26376#20221#32534#21495#37319#29992#29992'YYYYMM'#30340#26041#24335#65292#22914'2004'#24180'8'#26376#23601#36755#20837'200408'#65292#20854#23427#31867#25512#12290
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    WordWrap = True
  end
  object Label19: TLabel
    Left = 232
    Top = 376
    Width = 12
    Height = 13
    Caption = #20803
  end
  object Label20: TLabel
    Left = 216
    Top = 216
    Width = 12
    Height = 13
    Caption = #20803
  end
  object Label21: TLabel
    Left = 472
    Top = 296
    Width = 12
    Height = 13
    Caption = #20803
  end
  object Label22: TLabel
    Left = 472
    Top = 256
    Width = 12
    Height = 13
    Caption = #20803
  end
  object Label23: TLabel
    Left = 232
    Top = 256
    Width = 12
    Height = 13
    Caption = #20803
  end
  object Label24: TLabel
    Left = 216
    Top = 144
    Width = 12
    Height = 13
    Caption = #20803
  end
  object Label25: TLabel
    Left = 432
    Top = 104
    Width = 12
    Height = 13
    Caption = #20803
  end
  object Label27: TLabel
    Left = 472
    Top = 336
    Width = 12
    Height = 13
    Caption = #20803
  end
  object Label28: TLabel
    Left = 232
    Top = 296
    Width = 12
    Height = 13
    Caption = #20803
  end
  object Label29: TLabel
    Left = 432
    Top = 184
    Width = 12
    Height = 13
    Caption = #20803
  end
  object Label30: TLabel
    Left = 216
    Top = 184
    Width = 12
    Height = 13
    Caption = #20803
  end
  object Label31: TLabel
    Left = 432
    Top = 144
    Width = 12
    Height = 13
    Caption = #20803
  end
  object Label32: TLabel
    Left = 232
    Top = 336
    Width = 12
    Height = 13
    Caption = #20803
  end
  object Label39: TLabel
    Left = 32
    Top = 64
    Width = 7
    Height = 24
    Caption = '*'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label40: TLabel
    Left = 256
    Top = 64
    Width = 7
    Height = 24
    Caption = '*'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object overtime_moneyed: TLabel
    Left = 112
    Top = 184
    Width = 89
    Height = 13
    Caption = 'overtime_moneyed'
  end
  object deduct_checked: TLabel
    Left = 344
    Top = 184
    Width = 81
    Height = 13
    Caption = 'deduct_checked'
  end
  object worker_nameed: TLabel
    Left = 112
    Top = 104
    Width = 76
    Height = 13
    Caption = 'worker_nameed'
  end
  object base_wageed: TLabel
    Left = 344
    Top = 104
    Width = 67
    Height = 13
    Caption = 'base_wageed'
  end
  object allowance2ed: TLabel
    Left = 112
    Top = 144
    Width = 66
    Height = 13
    Caption = 'allowance2ed'
  end
  object rewarded: TLabel
    Left = 344
    Top = 144
    Width = 44
    Height = 13
    Caption = 'rewarded'
  end
  object income_taxed: TLabel
    Left = 112
    Top = 216
    Width = 66
    Height = 13
    Caption = 'income_taxed'
  end
  object give_dateed: TEdit
    Left = 104
    Top = 64
    Width = 121
    Height = 21
    TabOrder = 0
    OnExit = give_dateedExit
  end
  object real_wageed: TEdit
    Left = 104
    Top = 376
    Width = 121
    Height = 21
    Color = clMoneyGreen
    TabOrder = 1
    OnClick = real_wageedClick
    OnExit = real_wageedExit
  end
  object Wage_Save: TButton
    Left = 504
    Top = 88
    Width = 73
    Height = 25
    Caption = #20445#23384
    TabOrder = 2
    OnClick = Wage_SaveClick
  end
  object modify_btn: TButton
    Left = 504
    Top = 168
    Width = 75
    Height = 25
    Caption = #20462#25913
    TabOrder = 3
    OnClick = modify_btnClick
  end
  object cancel_btn: TButton
    Left = 504
    Top = 248
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 4
    OnClick = cancel_btnClick
  end
  object worker_ided: TComboBox
    Left = 344
    Top = 64
    Width = 121
    Height = 21
    ItemHeight = 13
    TabOrder = 5
    Text = 'worker_ided'
    OnChange = worker_idedChange
  end
  object allowance1ed: TComboBox
    Left = 104
    Top = 336
    Width = 121
    Height = 21
    ItemHeight = 13
    TabOrder = 6
    Text = '30'
    Items.Strings = (
      '30'
      '40')
  end
  object aged_moneyed: TComboBox
    Left = 104
    Top = 256
    Width = 121
    Height = 21
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 7
    Text = '40'
    Items.Strings = (
      '40'
      '50')
  end
  object compo_moneyed: TComboBox
    Left = 344
    Top = 256
    Width = 121
    Height = 21
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 8
    Text = '50'
    Items.Strings = (
      '50'
      '60')
  end
  object housing_moneyed: TComboBox
    Left = 344
    Top = 296
    Width = 121
    Height = 21
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 9
    Text = '100'
    Items.Strings = (
      '100'
      '120')
  end
  object medical_moneyed: TComboBox
    Left = 104
    Top = 296
    Width = 121
    Height = 21
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 10
    Text = '60'
    Items.Strings = (
      '60'
      '70')
  end
  object unemploy_moneyed: TComboBox
    Left = 344
    Top = 336
    Width = 121
    Height = 21
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 11
    Text = '70'
    Items.Strings = (
      '70'
      '80')
  end
end