📄 insuranceunit.dfm
字号:
object insurance: Tinsurance
Left = 188
Top = 110
BorderIcons = [biSystemMenu, biMaximize]
BorderStyle = bsSingle
Caption = '养老金'
ClientHeight = 343
ClientWidth = 602
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnCanResize = FormCanResize
OnPaint = FormPaint
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 8
Top = 40
Width = 585
Height = 297
Shape = bsFrame
end
object xpButton2: TxpButton
Left = 312
Top = 4
Width = 67
Height = 25
Caption = '修改'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
TabOrder = 0
TabStop = True
OnClick = xpButton2Click
end
object xpButton3: TxpButton
Left = 480
Top = 4
Width = 65
Height = 25
Caption = '删除'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
TabOrder = 1
TabStop = True
OnClick = xpButton3Click
end
object ComboBox1: TComboBox
Left = 8
Top = 8
Width = 113
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 2
Items.Strings = (
'按工号查看'
'按姓名查看'
'按部门查看'
'按工种查看')
end
object Edit1: TEdit
Left = 128
Top = 8
Width = 113
Height = 21
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 3
Text = 'Edit1'
end
object xpButton1: TxpButton
Left = 247
Top = 5
Width = 66
Height = 25
Caption = '查询'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
TabOrder = 4
TabStop = True
OnClick = xpButton1Click
end
object DBGrid1: TDBGrid
Left = 16
Top = 48
Width = 569
Height = 281
DataSource = sl_data.DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 5
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
OnDrawColumnCell = DBGrid1DrawColumnCell
OnDblClick = DBGrid1DblClick
end
object xpButton4: TxpButton
Left = 379
Top = 4
Width = 57
Height = 25
Caption = '浏览'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
TabOrder = 6
TabStop = True
OnClick = DBGrid1DblClick
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -