📄 reptitle.dfm
字号:
object Form7: TForm7
Left = 176
Top = 178
Width = 671
Height = 601
Caption = #25253#34920#26631#39064#36755#20837
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 GroupBox1: TGroupBox
Left = 8
Top = 16
Width = 649
Height = 89
Caption = #25253#34920#26631#39064
TabOrder = 0
object Title: TEdit
Left = 24
Top = 32
Width = 513
Height = 21
TabOrder = 0
end
end
object Button1: TButton
Left = 136
Top = 528
Width = 75
Height = 25
Caption = #39044#35272#25253#34920
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 416
Top = 528
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 272
Top = 528
Width = 75
Height = 25
Caption = #36820#22238
TabOrder = 3
OnClick = Button3Click
end
object PageControl1: TPageControl
Left = 8
Top = 112
Width = 649
Height = 409
ActivePage = TabSheet1
TabIndex = 0
TabOrder = 4
object TabSheet1: TTabSheet
Caption = #24517#20462#25104#32489#25253#34920
OnShow = TabSheet1Show
object con: TComboBox
Left = 16
Top = 16
Width = 121
Height = 21
ItemHeight = 13
TabOrder = 0
Text = #25353#24180#32423#29983#25104
Items.Strings = (
#25353#24180#32423#29983#25104
#25353#29677#32423#29983#25104)
end
object cName: TComboBox
Left = 320
Top = 16
Width = 97
Height = 21
ItemHeight = 13
TabOrder = 1
Text = #35831#36873#25321#29677#32423
Items.Strings = (
#19968#29677
#20108#29677
'')
end
object grade: TComboBox
Left = 168
Top = 16
Width = 113
Height = 21
ItemHeight = 13
TabOrder = 2
Text = #35831#36873#25321#24180#32423
OnChange = gradeChange
Items.Strings = (
#21021#19968
#21021#20108
#21021#19977)
end
object kindCB: TComboBox
Left = 448
Top = 16
Width = 97
Height = 21
ItemHeight = 13
TabOrder = 3
Text = #26399#26411#32771
Items.Strings = (
#21322#26399#32771
#26399#26411#32771)
end
object Button4: TButton
Left = 232
Top = 56
Width = 75
Height = 25
Caption = #30830#23450
TabOrder = 4
OnClick = Button4Click
end
object DBGrid1: TDBGrid
Left = 8
Top = 96
Width = 617
Height = 241
DataSource = DataSource1
TabOrder = 5
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object DBNavigator4: TDBNavigator
Left = 8
Top = 344
Width = 168
Height = 25
DataSource = DataSource1
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
TabOrder = 6
end
end
object TabSheet2: TTabSheet
Caption = #36873#20462#25104#32489#25253#34920
ImageIndex = 1
OnShow = TabSheet2Show
object GroupBox2: TGroupBox
Left = 184
Top = 8
Width = 217
Height = 193
Caption = #27983#35272#36873#20462#35838#34920#65306
TabOrder = 0
object DBGrid2: TDBGrid
Left = 8
Top = 16
Width = 193
Height = 129
DataSource = DataSource2
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object DBNavigator1: TDBNavigator
Left = 8
Top = 152
Width = 136
Height = 26
DataSource = DataSource2
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
TabOrder = 1
end
end
object GroupBox3: TGroupBox
Left = 400
Top = 8
Width = 233
Height = 193
Caption = #27983#35272#25945#24072#34920#65306
TabOrder = 1
object DBGrid3: TDBGrid
Left = 16
Top = 16
Width = 193
Height = 129
DataSource = DataSource3
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object DBNavigator2: TDBNavigator
Left = 8
Top = 152
Width = 128
Height = 25
DataSource = DataSource3
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
TabOrder = 1
end
end
object GroupBox4: TGroupBox
Left = 0
Top = 8
Width = 185
Height = 193
Caption = #36873#25321#29983#25104#25253#34920#26465#20214
TabOrder = 2
object Label6: TLabel
Left = 16
Top = 24
Width = 41
Height = 13
AutoSize = False
Caption = #26465#20214#65306
end
object Label1: TLabel
Left = 16
Top = 56
Width = 36
Height = 13
AutoSize = False
Caption = #23398#21495#65306
end
object Label2: TLabel
Left = 8
Top = 88
Width = 57
Height = 13
AutoSize = False
Caption = #35838#31243#21495#65306
end
object Label5: TLabel
Left = 8
Top = 124
Width = 57
Height = 13
AutoSize = False
Caption = #25945#24072#21495#65306
end
object conditionCB: TComboBox
Left = 64
Top = 16
Width = 97
Height = 21
ItemHeight = 13
TabOrder = 0
Text = #25353#23398#21495#29983#25104
OnChange = conditionCBChange
Items.Strings = (
#25353#23398#21495#29983#25104
#25353#35838#31243#29983#25104
#25353#20219#35838#25945#24072#29983#25104)
end
object numEd: TEdit
Left = 64
Top = 48
Width = 97
Height = 21
TabOrder = 1
end
object cNumCB: TComboBox
Left = 64
Top = 80
Width = 97
Height = 21
ItemHeight = 13
TabOrder = 2
end
object tNumCB: TComboBox
Left = 64
Top = 116
Width = 97
Height = 21
ItemHeight = 13
TabOrder = 3
end
object Button5: TButton
Left = 16
Top = 160
Width = 57
Height = 25
Caption = #30830#23450
TabOrder = 4
OnClick = Button5Click
end
object Button6: TButton
Left = 112
Top = 160
Width = 57
Height = 25
Caption = #37325#32622
TabOrder = 5
OnClick = Button6Click
end
end
object DBGrid4: TDBGrid
Left = 0
Top = 208
Width = 633
Height = 137
DataSource = DataSource4
ReadOnly = True
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object DBNavigator3: TDBNavigator
Left = 8
Top = 352
Width = 152
Height = 25
DataSource = DataSource4
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
TabOrder = 4
end
end
end
object DataSource1: TDataSource
DataSet = qry
Left = 80
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kaoShi.mdb;Persist ' +
'Security Info=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 120
end
object qry: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'')
Left = 168
end
object kindQry: TADOQuery
Connection = ADOConnection1
Parameters = <>
SQL.Strings = (
'select distinct('#32771#35797#31867#21035') from grade1_mark')
Left = 40
Top = 120
end
object DataSource2: TDataSource
DataSet = optionQry
Left = 280
Top = 224
end
object DataSource3: TDataSource
DataSet = teacherQry
Left = 552
Top = 208
end
object optionQry: TADOQuery
Active = True
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select '#35838#31243#21495', '#35838#31243#21517' from option_course')
Left = 248
Top = 232
end
object teacherQry: TADOQuery
Active = True
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select '#25945#24072#32534#21495', '#22995#21517' from teacher')
Left = 480
Top = 224
end
object DataSource4: TDataSource
DataSet = qry
Left = 272
Top = 384
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -