📄 addnewfrm.dfm
字号:
object AddNewForm: TAddNewForm
Left = 202
Top = 112
Width = 452
Height = 307
Caption =
' '#22686#21152#23398#29983#25104#32489' '#65293#65293#23567 +
#39532#24037#20316#23460
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -10
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 0
Top = 20
Width = 443
Height = 260
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object Label1: TLabel
Left = 13
Top = 67
Width = 60
Height = 13
Caption = #26159#21542#32771#35797#65306
end
object Label2: TLabel
Left = 13
Top = 37
Width = 60
Height = 13
Caption = #23398#29983#32534#21495#65306
end
object Label4: TLabel
Left = 221
Top = 37
Width = 60
Height = 13
Caption = #23398#29983#22995#21517#65306
end
object Label5: TLabel
Left = 228
Top = 67
Width = 48
Height = 13
Caption = #24471' '#20998#65306
end
object sbAdd: TSpeedButton
Left = 72
Top = 215
Width = 62
Height = 24
Caption = #22686' '#21152
OnClick = sbAddClick
end
object sbDelete: TSpeedButton
Left = 150
Top = 215
Width = 62
Height = 24
Caption = #21024' '#38500
Enabled = False
OnClick = sbDeleteClick
end
object sbExit: TSpeedButton
Left = 228
Top = 215
Width = 62
Height = 24
Caption = #20851' '#38381
OnClick = sbExitClick
end
object GroupBox2: TGroupBox
Left = 2
Top = 98
Width = 434
Height = 104
TabOrder = 2
object Label6: TLabel
Left = 14
Top = 15
Width = 111
Height = 13
Caption = #36755#20837#21508#39064#24471#20998' --> '
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object sbShortCut: TSpeedButton
Left = 129
Top = 11
Width = 158
Height = 24
Caption = #24555#36895#38190#20837
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = sbShortCutClick
end
object DBGrid: TDBGrid
Left = 7
Top = 39
Width = 423
Height = 53
DataSource = dsQuery
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #31532#19968#39064
Visible = True
end
item
Expanded = False
FieldName = #31532#20108#39064
Visible = True
end
item
Expanded = False
FieldName = #31532#19977#39064
Visible = True
end
item
Expanded = False
FieldName = #31532#22235#39064
Visible = True
end
item
Expanded = False
FieldName = #31532#20116#39064
Visible = True
end
item
Expanded = False
FieldName = #31532#20845#39064
Visible = True
end
item
Expanded = False
FieldName = #31532#19971#39064
Visible = True
end
item
Expanded = False
FieldName = #31532#20843#39064
Visible = True
end
item
Expanded = False
FieldName = #31532#20061#39064
Visible = True
end
item
Expanded = False
FieldName = #31532#21313#39064
Visible = True
end
item
Expanded = False
FieldName = #31532#21313#19968
Visible = True
end
item
Expanded = False
FieldName = #31532#21313#20108
Visible = True
end
item
Expanded = False
FieldName = #31532#21313#19977
Visible = True
end
item
Expanded = False
FieldName = #31532#21313#22235
Visible = True
end
item
Expanded = False
FieldName = #31532#21313#20116
Visible = True
end
item
Expanded = False
FieldName = #31532#21313#20845
Visible = True
end
item
Expanded = False
FieldName = #31532#21313#19971
Visible = True
end
item
Expanded = False
FieldName = #31532#21313#20843
Visible = True
end
item
Expanded = False
FieldName = #31532#21313#20061
Visible = True
end
item
Expanded = False
FieldName = #31532#20108#21313
Visible = True
end
item
Expanded = False
FieldName = #20108#21313#19968
Visible = True
end
item
Expanded = False
FieldName = #20108#21313#20108
Visible = True
end
item
Expanded = False
FieldName = #20108#21313#19977
Visible = True
end
item
Expanded = False
FieldName = #20108#21313#22235
Visible = True
end
item
Expanded = False
FieldName = #20108#21313#20116
Visible = True
end
item
Expanded = False
FieldName = #20108#21313#20845
Visible = True
end
item
Expanded = False
FieldName = #20108#21313#19971
Visible = True
end
item
Expanded = False
FieldName = #20108#21313#20843
Visible = True
end
item
Expanded = False
FieldName = #20108#21313#20061
Visible = True
end
item
Expanded = False
FieldName = #31532#19977#21313
Visible = True
end
item
Expanded = False
FieldName = #19977#21313#19968
Visible = True
end
item
Expanded = False
FieldName = #19977#21313#20108
Visible = True
end
item
Expanded = False
FieldName = #19977#21313#19977
Visible = True
end
item
Expanded = False
FieldName = #19977#21313#22235
Visible = True
end
item
Expanded = False
FieldName = #19977#21313#20116
Visible = True
end
item
Expanded = False
FieldName = #19977#21313#20845
Visible = True
end
item
Expanded = False
FieldName = #19977#21313#19971
Visible = True
end
item
Expanded = False
FieldName = #19977#21313#20843
Visible = True
end
item
Expanded = False
FieldName = #19977#21313#20061
Visible = True
end
item
Expanded = False
FieldName = #31532#22235#21313
Visible = True
end>
end
end
object CbAbsent: TComboBox
Left = 87
Top = 66
Width = 79
Height = 21
BevelInner = bvLowered
BevelKind = bkFlat
Style = csDropDownList
Enabled = False
ItemHeight = 13
TabOrder = 1
OnClick = CbAbsentClick
Items.Strings = (
#21442#21152#32771#35797
#19981#21442#21152#32771#35797)
end
object EdtStuNo: TEdit
Left = 86
Top = 35
Width = 80
Height = 21
BevelInner = bvLowered
BevelKind = bkFlat
BevelOuter = bvSpace
HideSelection = False
MaxLength = 10
TabOrder = 0
OnExit = EdtStuNoExit
end
object EdtStuName: TEdit
Left = 294
Top = 33
Width = 80
Height = 21
BevelInner = bvLowered
BevelKind = bkFlat
BevelOuter = bvSpace
Enabled = False
TabOrder = 3
Text = ' '
end
object EdtGrade: TEdit
Left = 294
Top = 63
Width = 80
Height = 21
TabStop = False
BevelInner = bvLowered
BevelKind = bkFlat
BevelOuter = bvSpace
Enabled = False
ReadOnly = True
TabOrder = 4
Text = '0'
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 443
Height = 36
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object Label7: TLabel
Left = 119
Top = 11
Width = 168
Height = 13
Caption = #39640#25968#25945#30740#23460#65293#23398#29983#25104#32489#31649#29702#31995#32479
end
end
object dsQuery: TDataSource
DataSet = Query1
Left = 376
Top = 8
end
object Query1: TQuery
DatabaseName = 'StudentScore'
SessionName = 'Default'
RequestLive = True
SQL.Strings = (
'select * from studentScore where '#23398#21495' like : param1')
Left = 328
Top = 8
ParamData = <
item
DataType = ftString
Name = 'param1'
ParamType = ptUnknown
Value = '%533%'
end>
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -