📄 tap.dfm
字号:
inherited frmTap: TfrmTap
Left = 67
Top = 100
ActiveControl = CoolBar1
Caption = '调职单'
ClientHeight = 432
ClientWidth = 705
OldCreateOrder = True
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
inherited sbBar: TStatusBar
Top = 410
Width = 705
end
inherited CoolBar1: TCoolBar
Width = 705
Bands = <
item
Control = tbMainBar
ImageIndex = -1
MinHeight = 35
Width = 705
end>
inherited tbMainBar: TToolBar
Width = 692
inherited tbDeleteHead: TToolButton
Visible = False
end
end
end
object sgTap: TSDGrid [2]
Left = 0
Top = 39
Width = 325
Height = 371
Align = alLeft
Color = clWhite
Ctl3D = False
DefaultRowHeight = 22
FixedColor = 8564917
FixedCols = 0
RowCount = 1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '宋体'
Font.Style = []
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
ParentCtl3D = False
ParentFont = False
TabOrder = 2
OnClick = sgTapClick
SelectColor = clBackground
EvenGridColor = clWhite
OddGridColor = clWhite
Columns = <
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -13
ColumnFont.Name = '宋体'
ColumnFont.Style = []
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -13
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '调职单'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -13
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '员工号'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -13
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '旧职务'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -13
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '新职务'
ColumnWidth = 0
end>
ColWidths = (
10
72
73
77
79)
end
object FloatPanel1: TFloatPanel [3]
Left = 325
Top = 39
Width = 380
Height = 371
Align = alClient
Color = clWhite
Caption = 'FloatPanel1'
ParentColor = False
TabOrder = 3
object Label1: TLabel
Left = 12
Top = 15
Width = 60
Height = 12
Caption = '调职单号:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 11
Top = 38
Width = 60
Height = 12
Caption = '员工编号:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 192
Top = 65
Width = 60
Height = 12
Caption = '制单日期:'
end
object Label4: TLabel
Left = 192
Top = 98
Width = 60
Height = 12
Caption = '生效日期:'
end
object Label5: TLabel
Left = 36
Top = 65
Width = 36
Height = 12
Caption = '主管:'
end
object Label9: TLabel
Left = 36
Top = 97
Width = 36
Height = 12
Caption = '状态:'
end
object Label13: TLabel
Left = 175
Top = 259
Width = 60
Height = 12
Caption = '系统日期:'
end
object Label14: TLabel
Left = 24
Top = 260
Width = 48
Height = 12
Caption = '操作员:'
end
object Label15: TLabel
Left = 35
Top = 291
Width = 36
Height = 12
Caption = '备注:'
end
object lbTapSysDate: TLabel
Left = 248
Top = 258
Width = 72
Height = 12
Caption = 'lbTapSysDate'
end
object seTapCode: TSDEdit
Left = 72
Top = 13
Width = 178
Height = 18
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
MaxLength = 18
ParentColor = True
ParentCtl3D = False
ParentFont = False
TabOrder = 0
Text = 'seTapCode'
OnKeyDown = seTapCodeKeyDown
SplitSymbol = ' | '
end
object memTapDesc: TMemo
Left = 72
Top = 292
Width = 281
Height = 49
Color = clWhite
Ctl3D = False
Lines.Strings = (
'memTapDesc')
ParentCtl3D = False
TabOrder = 6
end
object scTapEmployee: TSDComboBox
Left = 75
Top = 35
Width = 178
Height = 20
Style = csDropDownList
Color = clWhite
Ctl3D = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 1
OnClick = scTapEmployeeClick
KeyItem = cbItem2
end
object scTapMgr: TSDComboBox
Left = 72
Top = 59
Width = 105
Height = 20
Color = clWhite
Ctl3D = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 2
Text = 'scTapMgr'
end
object deTapDate: TDateEdit
Left = 257
Top = 62
Width = 89
Height = 18
LineOffset = 2
LineColor = clGreen
LineVisible = False
CDate = '2001-03-21'
InitDate = '2001-03-21'
ModalResult = 0
TabOrder = 4
Color = 50331647
Ctl3D = False
ParentCtl3D = False
end
object deTapEdate: TDateEdit
Left = 257
Top = 94
Width = 89
Height = 18
LineOffset = 2
LineColor = clGreen
LineVisible = False
CDate = '2001-03-21'
InitDate = '2001-03-21'
ModalResult = 0
TabOrder = 5
Color = 50331647
Ctl3D = False
ParentCtl3D = False
end
object scTapState: TSDComboBox
Left = 72
Top = 91
Width = 105
Height = 20
Color = clWhite
Ctl3D = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 3
Text = 'scTapState'
KeyItem = cbItem2
end
object GroupBox1: TGroupBox
Left = 15
Top = 123
Width = 351
Height = 121
Caption = '职务变更'
TabOrder = 7
object Label6: TLabel
Left = 8
Top = 26
Width = 48
Height = 12
Caption = '原职务:'
end
object Label7: TLabel
Left = 8
Top = 58
Width = 48
Height = 12
Caption = '原车间:'
end
object Label8: TLabel
Left = 8
Top = 91
Width = 48
Height = 12
Caption = '原班组:'
end
object Label10: TLabel
Left = 184
Top = 26
Width = 48
Height = 12
Caption = '新职务:'
end
object Label11: TLabel
Left = 172
Top = 59
Width = 60
Height = 12
Caption = '调入车间:'
end
object Label12: TLabel
Left = 172
Top = 91
Width = 60
Height = 12
Caption = '调入班组:'
end
object scTapNRank: TSDComboBox
Left = 227
Top = 23
Width = 114
Height = 20
Style = csDropDownList
Color = clWhite
Ctl3D = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 0
KeyItem = cbItem2
end
object scTapNShop: TSDComboBox
Left = 227
Top = 55
Width = 114
Height = 20
Style = csDropDownList
Color = clWhite
Ctl3D = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 1
OnClick = scTapNShopClick
KeyItem = cbItem2
end
object scTapNTeam: TSDComboBox
Left = 227
Top = 87
Width = 114
Height = 20
Style = csDropDownList
Color = clWhite
Ctl3D = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 2
KeyItem = cbItem2
end
object seTapORank: TSDEdit
Left = 55
Top = 24
Width = 114
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 3
Text = 'seTapORank'
KeyItem = cbItem2
DispItem = cbItem1
SplitSymbol = ' | '
end
object seTapOShop: TSDEdit
Left = 55
Top = 56
Width = 114
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 4
Text = 'seTapOShop'
KeyItem = cbItem2
DispItem = cbItem1
SplitSymbol = ' | '
end
object seTapOTeam: TSDEdit
Left = 55
Top = 88
Width = 114
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 5
Text = 'seTapOTeam'
KeyItem = cbItem2
DispItem = cbItem1
SplitSymbol = ' | '
end
end
object seTapUser: TSDEdit
Left = 76
Top = 256
Width = 89
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 8
Text = 'seTapUser'
KeyItem = cbItem2
DispItem = cbItem1
SplitSymbol = ' | '
end
end
inherited RecPrintDlg: TPrintDialog
Top = 23
end
inherited PrnSetupDlg: TPrinterSetupDialog
Left = 563
Top = 15
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -