📄 unit3.dfm
字号:
Left = 1
Top = 40
Width = 289
Height = 233
DataSource = DataSource2
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = '宋体'
TitleFont.Style = []
end
object Panel4: TPanel
Left = 1
Top = 1
Width = 289
Height = 32
Align = alTop
BevelOuter = bvLowered
Caption = '员工劳保发放设定'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object Panel6: TPanel
Left = 1
Top = 296
Width = 289
Height = 110
Align = alBottom
BevelOuter = bvLowered
TabOrder = 2
object Label17: TLabel
Left = 1
Top = 6
Width = 287
Height = 12
Alignment = taCenter
AutoSize = False
Caption = '更改员工工种'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label20: TLabel
Left = 56
Top = 32
Width = 52
Height = 13
Caption = '员工编号'
end
object Label23: TLabel
Left = 184
Top = 32
Width = 65
Height = 13
Caption = '新工种编号'
end
object BitBtn2: TBitBtn
Left = 16
Top = 80
Width = 129
Height = 25
Caption = '查询原工种劳保记录'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = BitBtn2Click
end
object BitBtn3: TBitBtn
Left = 152
Top = 80
Width = 130
Height = 25
Caption = '生成新工种劳保记录'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn3Click
end
object Edit9: TEdit
Left = 16
Top = 48
Width = 129
Height = 21
TabOrder = 2
end
object Edit11: TEdit
Left = 152
Top = 48
Width = 129
Height = 21
TabOrder = 3
end
end
end
end
object TabSheet2: TTabSheet
Caption = '工种劳保'
ImageIndex = 1
OnShow = TabSheet2Show
object Panel19: TPanel
Left = 0
Top = 0
Width = 651
Height = 153
Align = alTop
TabOrder = 0
object Label74: TLabel
Left = 488
Top = 8
Width = 78
Height = 13
Caption = '修改发放周期'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label75: TLabel
Left = 496
Top = 32
Width = 52
Height = 13
Caption = '工种编号'
end
object Label76: TLabel
Left = 496
Top = 64
Width = 52
Height = 13
Caption = '劳保名称'
end
object Label77: TLabel
Left = 496
Top = 96
Width = 52
Height = 13
Caption = '新的周期'
end
object DBGrid13: TDBGrid
Left = 1
Top = 1
Width = 208
Height = 151
Align = alLeft
DataSource = DataSource15
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = '宋体'
TitleFont.Style = []
OnCellClick = DBGrid13CellClick
end
object DBGrid16: TDBGrid
Left = 209
Top = 1
Width = 272
Height = 151
Align = alLeft
DataSource = DataSource16
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = '宋体'
TitleFont.Style = []
end
object Edit35: TEdit
Left = 560
Top = 24
Width = 81
Height = 21
TabOrder = 2
OnKeyPress = Edit35KeyPress
end
object Edit36: TEdit
Left = 560
Top = 56
Width = 81
Height = 21
TabOrder = 3
OnKeyPress = Edit36KeyPress
end
object Edit37: TEdit
Left = 560
Top = 88
Width = 81
Height = 21
TabOrder = 4
end
object BitBtn22: TBitBtn
Left = 560
Top = 120
Width = 75
Height = 25
Caption = '修改周期'
TabOrder = 5
OnClick = BitBtn22Click
end
end
object Panel20: TPanel
Left = 0
Top = 152
Width = 651
Height = 255
Align = alBottom
TabOrder = 1
object Panel23: TPanel
Left = 240
Top = 1
Width = 192
Height = 253
Align = alRight
BevelOuter = bvLowered
TabOrder = 0
object Label56: TLabel
Left = 8
Top = 8
Width = 52
Height = 13
Caption = '工种改名'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label57: TLabel
Left = 8
Top = 104
Width = 52
Height = 13
Caption = '工种删除'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label58: TLabel
Left = 8
Top = 160
Width = 52
Height = 13
Caption = '劳保改名'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label61: TLabel
Left = 8
Top = 32
Width = 52
Height = 13
Caption = '工种编号'
end
object Label63: TLabel
Left = 8
Top = 48
Width = 65
Height = 13
Caption = '新工种名称'
end
object Label64: TLabel
Left = 8
Top = 120
Width = 52
Height = 13
Caption = '工种编号'
end
object Label65: TLabel
Left = 8
Top = 176
Width = 65
Height = 13
Caption = '原劳保名称'
end
object Label66: TLabel
Left = 8
Top = 200
Width = 65
Height = 13
Caption = '新劳保名称'
end
object Edit24: TEdit
Left = 80
Top = 24
Width = 89
Height = 21
TabOrder = 0
OnKeyPress = Edit24KeyPress
end
object Edit26: TEdit
Left = 80
Top = 48
Width = 89
Height = 21
TabOrder = 1
end
object Edit27: TEdit
Left = 80
Top = 112
Width = 89
Height = 21
TabOrder = 2
end
object BitBtn12: TBitBtn
Left = 88
Top = 72
Width = 75
Height = 25
Caption = '工种改名'
TabOrder = 3
OnClick = BitBtn12Click
end
object BitBtn13: TBitBtn
Left = 88
Top = 136
Width = 75
Height = 25
Caption = '删除工种'
TabOrder = 4
OnClick = BitBtn13Click
end
object Edit28: TEdit
Left = 80
Top = 176
Width = 89
Height = 21
TabOrder = 5
OnKeyPress = Edit28KeyPress
end
object Edit29: TEdit
Left = 80
Top = 200
Width = 89
Height = 21
TabOrder = 6
end
object BitBtn14: TBitBtn
Left = 88
Top = 224
Width = 75
Height = 25
Caption = '劳保改名'
TabOrder = 7
OnClick = BitBtn14Click
end
end
object Panel24: TPanel
Left = 432
Top = 1
Width = 218
Height = 253
Align = alRight
BevelOuter = bvLowered
TabOrder = 1
object Label59: TLabel
Left = 8
Top = 8
Width = 52
Height = 13
Caption = '增加劳保'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label60: TLabel
Left = 8
Top = 160
Width = 52
Height = 13
Caption = '删除劳保'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label62: TLabel
Left = 8
Top = 32
Width = 52
Height = 13
Caption = '工种编号'
end
object Label67: TLabel
Left = 8
Top = 56
Width = 52
Height = 13
Caption = '劳保名称'
end
object Label69: TLabel
Left = 8
Top = 80
Width = 52
Height = 13
Caption = '发放周期'
end
object Label70: TLabel
Left = 8
Top = 176
Width = 52
Height = 13
Caption = '工种编号'
end
object Label71: TLabel
Left = 8
Top = 200
Width = 52
Height = 13
Caption = '劳保名称'
end
object Label22: TLabel
Left = 8
Top = 104
Width = 52
Height = 13
Caption = '初始日期'
end
object Edit25: TEdit
Left = 72
Top = 24
Width = 121
Height = 21
TabOrder = 0
OnKeyPress = Edit25KeyPress
end
object Edit30: TEdit
Left = 72
Top = 48
Width = 121
Height = 21
TabOrder = 1
OnKeyPress = Edit30KeyPress
end
object Edit32: TEdit
Left = 72
Top = 72
Width = 121
Height = 21
TabOrder = 2
end
object BitBtn15: TBitBtn
Left = 120
Top = 128
Width = 75
Height = 25
Caption = '增加劳保'
TabOrder = 3
OnClick = BitBtn15Click
end
object Edit33: TEdit
Left = 72
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -