📄 unit3.dfm
字号:
TabOrder = 3
OnClick = BitBtn20Click
end
object BitBtn23: TBitBtn
Left = 11
Top = 328
Width = 113
Height = 25
Caption = '初始化发放数据库'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = BitBtn23Click
end
object BitBtn24: TBitBtn
Left = 11
Top = 232
Width = 113
Height = 25
Caption = '打印部门发放清单'
TabOrder = 5
OnClick = BitBtn24Click
end
object BitBtn25: TBitBtn
Left = 11
Top = 264
Width = 113
Height = 25
Caption = '打印部门汇总数据'
TabOrder = 6
OnClick = BitBtn25Click
end
object BitBtn26: TBitBtn
Left = 11
Top = 296
Width = 113
Height = 25
Caption = '打印所有汇总数据'
TabOrder = 7
OnClick = BitBtn26Click
end
end
end
object TabSheet5: TTabSheet
Caption = '部门维护'
ImageIndex = 4
OnShow = TabSheet5Show
object Panel14: TPanel
Left = 0
Top = 0
Width = 193
Height = 407
Align = alLeft
TabOrder = 0
object Label40: TLabel
Left = 48
Top = 8
Width = 91
Height = 13
Caption = '部门名称及编号'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBGrid7: TDBGrid
Left = 1
Top = 32
Width = 191
Height = 374
Align = alBottom
DataSource = DataSource8
Options = [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 = DBGrid7CellClick
end
end
object Panel15: TPanel
Left = 193
Top = 0
Width = 456
Height = 407
Align = alLeft
TabOrder = 1
object Panel16: TPanel
Left = 1
Top = 65
Width = 454
Height = 40
Align = alTop
TabOrder = 0
object Label42: TLabel
Left = 8
Top = 12
Width = 52
Height = 13
Caption = '删除部门'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label46: TLabel
Left = 128
Top = 12
Width = 52
Height = 13
Caption = '部门编号'
end
object BitBtn9: TBitBtn
Left = 352
Top = 8
Width = 83
Height = 25
Caption = '删除部门'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = BitBtn9Click
end
object Edit21: TEdit
Left = 192
Top = 8
Width = 121
Height = 21
TabOrder = 1
end
end
object Panel17: TPanel
Left = 1
Top = 105
Width = 454
Height = 64
Align = alTop
TabOrder = 2
object Label47: TLabel
Left = 128
Top = 32
Width = 39
Height = 13
Caption = '新名称'
end
object Label48: TLabel
Left = 8
Top = 16
Width = 78
Height = 13
Caption = '更改部门名称'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label49: TLabel
Left = 8
Top = 32
Width = 92
Height = 13
Caption = '(部门编号不变)'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentColor = False
ParentFont = False
WordWrap = True
end
object Label73: TLabel
Left = 128
Top = 8
Width = 143
Height = 13
Caption = '请在左边选择原部门名称'
end
object Edit22: TEdit
Left = 192
Top = 32
Width = 121
Height = 21
TabOrder = 0
end
object BitBtn10: TBitBtn
Left = 352
Top = 16
Width = 83
Height = 25
Caption = '更改名称'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn10Click
end
end
object Panel18: TPanel
Left = 1
Top = 169
Width = 454
Height = 232
Align = alTop
TabOrder = 3
object Label51: TLabel
Left = 8
Top = 16
Width = 52
Height = 13
Caption = '部门合并'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label52: TLabel
Left = 128
Top = 32
Width = 143
Height = 13
Caption = '在下面选择目的部门名称'
end
object Label45: TLabel
Left = 128
Top = 8
Width = 143
Height = 13
Caption = '请在左边选择原部门名称'
end
object DBGrid10: TDBGrid
Left = 128
Top = 48
Width = 185
Height = 177
DataSource = DataSource10
Options = [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 = []
end
object BitBtn11: TBitBtn
Left = 352
Top = 16
Width = 81
Height = 25
Caption = '部门合并'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn11Click
end
end
object Panel28: TPanel
Left = 1
Top = 1
Width = 454
Height = 64
Align = alTop
TabOrder = 1
object Label41: TLabel
Left = 8
Top = 19
Width = 52
Height = 13
Caption = '添加部门'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label43: TLabel
Left = 128
Top = 15
Width = 52
Height = 13
Caption = '部门名称'
end
object Label44: TLabel
Left = 128
Top = 37
Width = 52
Height = 13
Caption = '部门编号'
end
object Edit16: TEdit
Left = 192
Top = 11
Width = 121
Height = 21
TabOrder = 0
end
object Edit15: TEdit
Left = 192
Top = 35
Width = 121
Height = 21
TabOrder = 1
OnKeyPress = Edit15KeyPress
end
object BitBtn8: TBitBtn
Left = 352
Top = 23
Width = 83
Height = 25
Caption = '添加部门'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = BitBtn8Click
end
end
end
end
object TabSheet6: TTabSheet
Caption = '员工维护'
ImageIndex = 5
OnShow = TabSheet6Show
object Label39: TLabel
Left = 192
Top = 392
Width = 260
Height = 13
Caption = '注意：上面这个表格中的内容是不可修改的！'
end
object Panel7: TPanel
Left = 0
Top = 273
Width = 651
Height = 54
Align = alTop
TabOrder = 0
object DBGrid2: TDBGrid
Left = 1
Top = 1
Width = 649
Height = 52
Align = alClient
DataSource = DataSource6
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = '宋体'
TitleFont.Style = []
end
end
object Panel8: TPanel
Left = 0
Top = 241
Width = 651
Height = 32
Align = alTop
TabOrder = 1
object Label36: TLabel
Left = 8
Top = 8
Width = 377
Height = 13
Caption = '可修改资料，姓名同时修改拼音。修改完毕请按向下方向键保存！'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label37: TLabel
Left = 424
Top = 8
Width = 52
Height = 13
Caption = '员工编号'
end
object Edit20: TEdit
Left = 488
Top = 8
Width = 57
Height = 21
TabOrder = 0
end
object BitBtn6: TBitBtn
Left = 560
Top = 4
Width = 75
Height = 25
Caption = '调出资料'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn6Click
end
end
object Panel9: TPanel
Left = 0
Top = 0
Width = 651
Height = 241
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 2
object Label26: TLabel
Left = 72
Top = 8
Width = 84
Height = 12
Caption = '请输入姓名拼音'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBGrid6: TDBGrid
Left = 8
Top = 56
Width = 233
Height = 177
DataSource = DataSource3
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clBlue
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
OnCellClick = DBGrid6CellClick
end
object Edit14: TEdit
Left = 72
Top = 32
Width = 89
Height = 20
TabOrder = 1
OnChange = Edit14Change
end
object Panel11: TPanel
Left = 248
Top = 9
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -