📄 unit9.dfm
字号:
Width = 265
Height = 21
DataField = 'x3b'
DataSource = DataModule4.DataSource_readpro
TabOrder = 2
end
object DBEdit14: TDBEdit
Left = 64
Top = 200
Width = 265
Height = 21
DataField = 'x3c'
DataSource = DataModule4.DataSource_readpro
TabOrder = 3
end
object DBEdit15: TDBEdit
Left = 64
Top = 224
Width = 265
Height = 21
DataField = 'x3d'
DataSource = DataModule4.DataSource_readpro
TabOrder = 4
end
object DBRadioGroup3: TDBRadioGroup
Left = 13
Top = 248
Width = 316
Height = 33
Caption = #21442#32771#31572#26696
Columns = 4
DataField = 'answer3'
DataSource = DataModule4.DataSource_readpro
Items.Strings = (
'A'
'B'
'C'
'D')
TabOrder = 5
end
end
end
object DBEdit6: TDBEdit
Left = 360
Top = 352
Width = 65
Height = 21
DataField = 'score'
DataSource = DataModule4.DataSource_readpro
TabOrder = 3
end
object DBComboBox1: TDBComboBox
Left = 488
Top = 352
Width = 65
Height = 21
DataField = 'difficulty'
DataSource = DataModule4.DataSource_readpro
ItemHeight = 13
Items.Strings = (
'1'
'2'
'3'
'4'
'5')
TabOrder = 4
end
end
object TabSheet5: TTabSheet
Caption = ' '#31243#24207#38405#35835#39064#24635#35272' '
ImageIndex = 1
OnShow = TabSheet5Show
object Label20: TLabel
Left = 176
Top = 8
Width = 275
Height = 24
Caption = #31243' '#24207' '#38405' '#35835' '#39064' '#24635' '#35272' '#34920' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label21: TLabel
Left = 24
Top = 40
Width = 48
Height = 13
Caption = #39064' '#30446': '
Transparent = True
end
object Label22: TLabel
Left = 208
Top = 40
Width = 42
Height = 13
Caption = #20998#39064#24178'1'
Transparent = True
end
object Label23: TLabel
Left = 328
Top = 40
Width = 42
Height = 13
Caption = #20998#39064#24178'2'
Transparent = True
end
object Label24: TLabel
Left = 448
Top = 40
Width = 42
Height = 13
Caption = #20998#39064#24178'3'
Transparent = True
end
object DBGrid1: TDBGrid
Left = 24
Top = 208
Width = 537
Height = 169
DataSource = DataModule4.DataSource_readpro
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'tno'
Title.Caption = ' '#39064#21495
Visible = True
end
item
Expanded = False
FieldName = 'x1a'
Title.Caption = ' '#39064#24178'1'#36873#39033'A'
Visible = True
end
item
Expanded = False
FieldName = 'x1b'
Title.Caption = ' '#39064#24178'1'#36873#39033'B'
Visible = True
end
item
Expanded = False
FieldName = 'x1c'
Title.Caption = ' '#39064#24178'1'#36873#39033'C'
Visible = True
end
item
Expanded = False
FieldName = 'x1d'
Title.Caption = ' '#39064#24178'1'#36873#39033'D'
Visible = True
end
item
Expanded = False
FieldName = 'answer1'
Title.Caption = ' '#39064#24178'1'#31572#26696
Visible = True
end
item
Expanded = False
FieldName = 'x2a'
Title.Caption = ' '#39064#24178'2'#36873#39033'A'
Visible = True
end
item
Expanded = False
FieldName = 'x2b'
Title.Caption = ' '#39064#24178'2'#36873#39033'B'
Visible = True
end
item
Expanded = False
FieldName = 'x2c'
Title.Caption = ' '#39064#24178'2'#36873#39033'C'
Visible = True
end
item
Expanded = False
FieldName = 'x2d'
Title.Caption = ' '#39064#24178'2'#36873#39033'D'
Visible = True
end
item
Expanded = False
FieldName = 'answer2'
Title.Caption = ' '#39064#24178'2'#31572#26696
Visible = True
end
item
Expanded = False
FieldName = 'x3a'
Title.Caption = ' '#39064#24178'3'#36873#39033'A'
Visible = True
end
item
Expanded = False
FieldName = 'x3b'
Title.Caption = ' '#39064#24178'3'#36873#39033'B'
Visible = True
end
item
Expanded = False
FieldName = 'x3c'
Title.Caption = ' '#39064#24178'3'#36873#39033'C'
Visible = True
end
item
Expanded = False
FieldName = 'x3d'
Title.Caption = ' '#39064#24178'3'#36873#39033'D'
Visible = True
end
item
Expanded = False
FieldName = 'answer3'
Title.Caption = ' '#39064#24178'3'#31572#26696
Visible = True
end
item
Expanded = False
FieldName = 'score'
Title.Caption = ' '#21442#32771#20998#25968
Visible = True
end
item
Expanded = False
FieldName = 'difficulty'
Title.Caption = ' '#38590#26131#24230
Visible = True
end
item
Expanded = False
FieldName = 'note'
Title.Caption = ' '#22791#27880
Visible = True
end>
end
object DBMemo5: TDBMemo
Left = 24
Top = 56
Width = 169
Height = 145
DataField = 'tigan'
DataSource = DataModule4.DataSource_readpro
ScrollBars = ssBoth
TabOrder = 1
end
object DBMemo6: TDBMemo
Left = 208
Top = 56
Width = 105
Height = 145
DataField = 'ctigan1'
DataSource = DataModule4.DataSource_readpro
ScrollBars = ssBoth
TabOrder = 2
end
object DBMemo7: TDBMemo
Left = 328
Top = 56
Width = 105
Height = 145
DataField = 'ctigan2'
DataSource = DataModule4.DataSource_readpro
ScrollBars = ssBoth
TabOrder = 3
end
object DBMemo8: TDBMemo
Left = 448
Top = 56
Width = 105
Height = 145
DataField = 'ctigan3'
DataSource = DataModule4.DataSource_readpro
ScrollBars = ssBoth
TabOrder = 4
end
end
end
object Query1: TQuery
Active = True
DatabaseName = 'abao'
SQL.Strings = (
'select * from ti_readpro where tno=0000')
Left = 284
Top = 8
end
object DataSource1: TDataSource
DataSet = Query1
Left = 196
Top = 16
end
object Query2: TQuery
Active = True
DatabaseName = 'abao'
SQL.Strings = (
'select * from ti_readpro')
Left = 332
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -