?? unit2.dfm
字號:
object Formstu: TFormstu
Left = 714
Top = 335
Width = 567
Height = 429
Caption = #23398#29983#29992#25143#30028#38754
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 32
Top = 176
Width = 73
Height = 25
Caption = #24050#36873#35838#31243#65306
end
object DBGrid1: TDBGrid
Left = 40
Top = 32
Width = 393
Height = 137
DataSource = DataSource1
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object DBGrid2: TDBGrid
Left = 32
Top = 208
Width = 505
Height = 177
DataSource = DataSource2
ReadOnly = True
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object Button1: TButton
Left = 472
Top = 32
Width = 75
Height = 25
Caption = #36873#35838
TabOrder = 2
OnClick = Button1Click
end
object Button2: TButton
Left = 472
Top = 88
Width = 75
Height = 25
Caption = #36864#36873
TabOrder = 3
OnClick = Button1Click
end
object Button3: TButton
Left = 472
Top = 136
Width = 75
Height = 25
Caption = #20462#25913#23494#30721
TabOrder = 4
OnClick = Button1Click
end
object DataSource1: TDataSource
DataSet = Query1
Left = 80
Top = 96
end
object DataSource2: TDataSource
DataSet = Table1
Left = 96
Top = 328
end
object Table1: TTable
DatabaseName = 'course'
TableName = 'course'
Left = 144
Top = 112
end
object Query1: TQuery
ObjectView = True
DatabaseName = 'course'
SQL.Strings = (
#39'select select.'#35838#31243#32534#21495#65292'subject.'#35838#31243#21517#31216#65292'subject.'#20219#35838#25945#24072#65292'subject.'#21608#23398#26102#65292'subjec' +
't.'#23398#20998#65292'subject.'#36215#22987#21608#65292'subject.'#32467#26463#21608#65292#39'+'
#39'subject.'#19978#35838#22320#28857#65292#39
#39'From "select" '#24050#36873#35838#31243#39
#39'Inner Join "subject" '#35838#31243#39
#39'On(course.'#35838#31243#32534#21495'=subject.'#35838#31243#32534#21495')'#39
#39'Where select.'#23398#21495'='#65306'User;'#39
'paramData=<'
' item'
' DataType=ftUnknown'
' Name='#39'User'#39
' paramType=ptUnknown'
' end>'
'end')
Left = 408
Top = 176
end
object Query2: TQuery
DatabaseName = 'course'
Left = 144
Top = 336
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -