📄 unit10.~dfm
字号:
object frm_wage: Tfrm_wage
Left = 228
Top = 206
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = '工资发放表'
ClientHeight = 284
ClientWidth = 664
Color = clGreen
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {
0000010001002020000000000000A80800001600000028000000200000004000
0000010008000000000080040000000000000000000000010000000000000000
0000000080000080000000808000800000008000800080800000C0C0C000C0DC
C000F0CAA600CCFFFF0099FFFF0066FFFF0033FFFF00FFCCFF00CCCCFF0099CC
FF0066CCFF0033CCFF0000CCFF00FF99FF00CC99FF009999FF006699FF003399
FF000099FF00FF66FF00CC66FF009966FF006666FF003366FF000066FF00FF33
FF00CC33FF009933FF006633FF003333FF000033FF00CC00FF009900FF006600
FF003300FF00FFFFCC00CCFFCC0099FFCC0066FFCC0066FFCC0033FFCC0000FF
CC00FFCCCC00CCCCCC0099CCCC0066CCCC0033CCCC0000CCCC00FF99CC00CC99
CC009999CC006699CC003399CC000099CC00FF66CC00CC66CC009966CC006666
CC003366CC000066CC00FF33CC00CC33CC009933CC006633CC003333CC000033
CC00FF00CC00CC00CC009900CC006600CC003300CC000000CC00FFFF9900CCFF
990099FF990066FF990033FF990000FF9900FFCC9900CCCC990099CC990066CC
990033CC990000CC9900FF999900CC9999009999990066999900339999000099
9900FF669900CC66990099669900666699003366990000669900FF339900CC33
990099339900663399003333990000339900FF009900CC009900990099006600
99003300990000009900FFFF6600CCFF660099FF660066FF660033FF660000FF
6600FFCC6600CCCC660099CC660066CC660033CC660000CC6600FF996600CC99
660099996600669966003399660000996600FF666600CC666600996666006666
66003366660000666600FF336600CC3366009933660066336600333366000033
6600FF006600CC00660099006600660066003300660000006600FFFF3300CCFF
330099FF330066FF330033FF330000FF3300FFCC3300CCCC330099CC330066CC
330033CC330000CC3300FF993300CC9933009999330066993300339933000099
3300FF663300CC66330099663300666633003366330000663300FF333300CC33
330099333300663333003333330000333300FF003300CC003300990033006600
33003300330000003300CCFF000099FF000066FF000033FF0000FFCC0000CCCC
000099CC000066CC000033CC000000CC0000FF990000CC990000999900006699
00003399000000990000FF660000CC6600009966000066660000006600003366
0000FF330000CC33000099330000663300003333000000330000CC0000009900
000066000000330000000000DD000000BB000000AA0000008800000077000000
5500000044000000220000DD000000BB000000AA000000880000007700000055
00000044000000220000DDDDDD00555555007777770077777700444444002222
22001111110077000000550000004400000022000000F0FBFF00A4A0A0008080
80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
00000000000000000000000000000000000000000000000000000000000000F9
F9F9DCF9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9EDF9F9F90000F9
F9F9DCF9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9EDF9F9F90000F9
F9F9DCF9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9EDF9F9F90000F9
F9F9DCF9F9F9F9F9F9F9F9F9F9F9F9F9F9F925252525F9F9F9EDF9F9F90000F9
F9F9DCF9F9F9F9F9F9F9F9F9F925252525252525252525F9F9EDF9F9F9000013
F9F9DCF925252525F9F9F9F9252525252525252525252525F9EDF9F9F90000EC
1325DC25252525252525252525252525252513131325252525EDF9F9F90000EC
EC25F925252525252525252525252525251313131313252525EDF9F9250000EC
EC13F925251313131313252525252525251313ECECEC132525ED2525250000EC
EC13F9251313131313131325251325252513ECECECECEC1325ED2525130000EC
132519251313ECECEC131325251313252513ECECECECEC1325ED2513EC000013
132519252513ECECECEC1325131313252513ECECECEC132525ED2513EC000013
25131319F919F0F0F0F01919191919F9F919F0F0F0F019191925251313000013
131313132513ECECEC131313131313252513ECECEC1313132525251313000013
1313ECEC131313ECEC131313ECEC1313251313ECEC13132525252513130000EC
1313ECECEC1313ECEC1313ECECECEC13132513ECEC13132525251313EC0000EC
EC13ECECECEC13ECEC1313ECECECECEC13131313EC13131325131313EC0000EC
ECEC13ECECEC13ECECEC13ECECECECEC13131313ECEC131325131313EC0000EC
ECECECECECEC13ECECECEC13ECECECEC13131313ECEC131325251313130000EC
ECECF0EDEDEDFBEDEDEDEDEDEDEDEDEDFBFBFBFBEDEDED1313251313130000EC
ECECF0ECEC13000000000000000000000000000000ECED1313131313130000EC
ECECF0ECEC00EBF7EB2AEB2AF7F7EB2A2A2A2AF72A00ED1313131313130000EC
ECECF0ECEC00F7EBF7EBEBEBEBF7F70000002A2AF700ED131313EC13130000EC
ECECF0ECEC00F7F7EBF7EB2AEB2A00EC1313002A2A00ED1313ECECEC130000EC
ECECF0ECEC00F7F7F7EBF7EBEBEB00EC13EC002A2A00ED1313ECECEC130000EC
ECECF0ECEC002AF7F7F7EBF7EB2A0013ECEC002A2A00EDEC13ECECEC130000EC
ECECF0ECEC002A2AF7F7F7EBF7EB00ECECEC00F72A00EDECEC13EC13EC0000EC
ECECF0ECEC002A2A2AF7F7F7EBF700ECECEC00EBF700EDECECECEC13EC0000EC
ECECF0ECEC002A2A2A2AF7F7F7EBF7000000EBF72A00EDECECEC13EC000000EC
ECECF0ECEC002A2A2A2A2AF7F7F7EBF7EBEB2AEBF700EDECEC13EC0000000000
0000000000000000000000000000000000000000000000000000000000008000
0001000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000010000000380000007}
KeyPreview = True
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object Label25: TLabel
Left = 243
Top = 4
Width = 185
Height = 35
Caption = '工资发放表'
Font.Charset = GB2312_CHARSET
Font.Color = clYellow
Font.Height = -35
Font.Name = '楷体_GB2312'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label26: TLabel
Left = 241
Top = 3
Width = 185
Height = 35
Caption = '工资发放表'
Font.Charset = GB2312_CHARSET
Font.Color = 4227327
Font.Height = -35
Font.Name = '楷体_GB2312'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object lbl_wage: TLabel
Left = 200
Top = 259
Width = 63
Height = 15
Alignment = taRightJustify
AutoSize = False
Caption = '8888888'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -15
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 72
Top = 259
Width = 41
Height = 15
Caption = '合计:'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -15
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
end
object lbl_total: TLabel
Left = 360
Top = 259
Width = 63
Height = 15
Alignment = taRightJustify
AutoSize = False
Caption = '8888888'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -15
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 105
Top = 15
Width = 20
Height = 19
Caption = '年'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -19
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 177
Top = 15
Width = 20
Height = 19
Caption = '月'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -19
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 520
Top = 24
Width = 73
Height = 16
AutoSize = False
Caption = '记录数:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object lbl_rec: TLabel
Left = 584
Top = 24
Width = 40
Height = 16
Caption = 'lbl_rec'
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object DBGrid1: TDBGrid
Left = 32
Top = 48
Width = 529
Height = 201
Color = clInfoBk
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clTeal
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
OnDrawColumnCell = DBGrid1DrawColumnCell
Columns = <
item
Expanded = False
FieldName = '编号'
Width = 27
Visible = True
end
item
Expanded = False
FieldName = '姓名'
Width = 44
Visible = True
end
item
Expanded = False
FieldName = '出勤天数'
Width = 53
Visible = True
end
item
Expanded = False
FieldName = '日工资'
Width = 39
Visible = True
end
item
Expanded = False
FieldName = '出勤工资'
Width = 52
Visible = True
end
item
Expanded = False
FieldName = '安装费'
Width = 42
Visible = True
end
item
Expanded = False
FieldName = '奖金'
Visible = True
end
item
Expanded = False
FieldName = '合计'
Width = 53
Visible = True
end
item
Expanded = False
FieldName = '工资年度'
Width = 55
Visible = True
end
item
Expanded = False
FieldName = '工资月份'
Width = 58
Visible = True
end>
end
object btn_new: TBitBtn
Left = 581
Top = 64
Width = 68
Height = 25
Caption = '新开工资'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = btn_newClick
end
object btn_total: TBitBtn
Left = 581
Top = 101
Width = 68
Height = 25
Caption = '求 合 计'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = btn_totalClick
end
object btn_clear: TBitBtn
Left = 581
Top = 139
Width = 68
Height = 25
Caption = '清除工资'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = btn_clearClick
end
object btn_print: TBitBtn
Left = 581
Top = 176
Width = 68
Height = 25
Caption = '打印工资表'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = btn_printClick
end
object btn_exit: TBitBtn
Left = 581
Top = 224
Width = 68
Height = 25
Caption = '返 回'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = btn_exitClick
end
object se_year: TSpinEdit
Left = 32
Top = 16
Width = 73
Height = 22
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxValue = 2010
MinValue = 2000
ParentFont = False
TabOrder = 6
Value = 2002
OnChange = se_yearChange
end
object se_month: TSpinEdit
Left = 128
Top = 16
Width = 49
Height = 22
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxValue = 12
MinValue = 1
ParentFont = False
TabOrder = 7
Value = 3
OnChange = se_yearChange
end
object Table1: TTable
Active = True
TableName = '工资表.DB'
end
object DataSource1: TDataSource
DataSet = Table1
OnDataChange = DataSource1DataChange
Left = 32
end
object Query1: TQuery
Left = 64
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -