📄 mainfrm.~dfm
字号:
object Mainform: TMainform
Left = 671
Top = 200
Width = 510
Height = 341
Caption = #25171#21360#34920#21333
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 24
Top = 40
Width = 28
Height = 13
Caption = #34920#22836
end
object Label2: TLabel
Left = 336
Top = 16
Width = 105
Height = 13
Caption = #21015#34920#21333#20301#20026'0.1inch'
end
object DBGrid1: TDBGrid
Left = 16
Top = 176
Width = 473
Height = 120
DataSource = DS_print
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object btn_headerfont: TButton
Left = 72
Top = 32
Width = 89
Height = 25
Caption = #34920#22836#23383#20307
TabOrder = 1
OnClick = btn_headerfontClick
end
object StringGrid1: TStringGrid
Left = 272
Top = 40
Width = 201
Height = 120
ColCount = 2
RowCount = 1
FixedRows = 0
TabOrder = 2
end
object i_header: TEdit
Left = 24
Top = 72
Width = 145
Height = 21
TabOrder = 3
Text = 'i_header'
end
object Btn_print: TButton
Left = 144
Top = 112
Width = 105
Height = 25
Caption = #24320#22987#25171#21360
TabOrder = 4
OnClick = Btn_printClick
end
object Q_print: TQuery
DatabaseName = 'TEACH'
SQL.Strings = (
'select student.class,student.id,student.name'
'from student,score'
'where score.course_id=:course_id'
'and score.student=student.id'
'order by student.id')
Left = 16
ParamData = <
item
DataType = ftString
Name = 'course_id'
ParamType = ptUnknown
end>
end
object DS_print: TDataSource
DataSet = Q_print
Left = 56
end
object FontDialog: TFontDialog
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Left = 104
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -