📄 unit_setupdiploma.dfm
字号:
inherited Frm_SetupDiploma: TFrm_SetupDiploma
Left = 106
Top = 65
Caption = '学历设置'
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 14
inherited DBGrid_PUB: TDBGrid
Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
Columns = <
item
Expanded = False
FieldName = 'PAR_SEQ'
PickList.Strings = ()
Title.Alignment = taCenter
Visible = False
end
item
Expanded = False
FieldName = 'PAR_NAME'
PickList.Strings = ()
Title.Alignment = taCenter
Visible = False
end
item
Expanded = False
FieldName = 'PAR_VALUES'
PickList.Strings = ()
Title.Alignment = taCenter
Visible = False
end
item
Expanded = False
FieldName = 'PAR_DESC'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '学历'
Width = 287
Visible = True
end
item
Expanded = False
FieldName = 'PAR_OTHER'
PickList.Strings = ()
Title.Alignment = taCenter
Visible = False
end>
end
inherited Pal_button: TPanel
inherited BitBtnAdd: TFlatButton
OnClick = BitBtnAddClick
end
inherited BitBtnAlter: TFlatButton
OnClick = BitBtnAlterClick
end
inherited BitBtnSave: TFlatButton
OnClick = BitBtnSaveClick
end
end
inherited Panel2: TPanel
inherited Label3: TLabel
Left = 19
Width = 28
Caption = '学历'
end
inherited FlatEdit1: TFlatEdit
Left = 61
Width = 516
MaxLength = 100
Text = ''
OnKeyPress = FlatEdit1KeyPress
end
end
inherited DataSource_Pub: TDataSource
Left = 112
end
inherited Query_PUB: TQuery
CachedUpdates = True
AfterScroll = Query_PUBAfterScroll
SQL.Strings = (
'select * from T_D_Config where PAR_NAME='#39'Diploma_ID'#39
'')
UpdateObject = UpdateSQL1
Left = 208
Top = 48
end
inherited Query_Tmp: TQuery
Left = 168
Top = 136
end
object Query: TQuery
DatabaseName = 'db_vipdl'
Left = 176
Top = 200
end
object Table_PUBTemp: TTable
DatabaseName = 'db_vipdl'
TableName = 'T_D_CONFIG'
Left = 336
Top = 136
end
object UpdateSQL1: TUpdateSQL
Left = 296
Top = 56
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -