📄 unit2.dfm
字号:
object Frmmain: TFrmmain
Left = 139
Top = 156
Width = 846
Height = 550
Caption = #20027#31383#21475
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 88
Top = 64
Width = 36
Height = 13
Caption = #29992#25143#21517
end
object Edcourse: TLabel
Left = 88
Top = 104
Width = 36
Height = 13
Caption = #35838#31243#21517
end
object Edname: TEdit
Left = 168
Top = 64
Width = 193
Height = 21
TabOrder = 0
end
object Edcour: TEdit
Left = 168
Top = 104
Width = 193
Height = 21
TabOrder = 1
end
object btnque: TButton
Left = 440
Top = 80
Width = 75
Height = 25
Caption = #26597#35810
TabOrder = 2
OnClick = Button1Click
end
object DBGrid1: TDBGrid
Left = 24
Top = 160
Width = 801
Height = 225
DataSource = DataSource1
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'SNO'
Title.Caption = #23398#21495
Visible = True
end
item
Expanded = False
FieldName = 'SNAME'
Title.Caption = #22995#21517
Visible = True
end
item
Expanded = False
FieldName = 'GRADE'
Title.Caption = #24180#32423
Visible = True
end
item
Expanded = False
FieldName = 'CNO'
Title.Caption = #35838#31243#21495
Visible = True
end
item
Expanded = False
FieldName = 'CNAME'
Title.Caption = #35838#31243#21517
Visible = True
end
item
Expanded = False
FieldName = 'GRADE'
Title.Caption = #25104#32489
Visible = True
end
item
Expanded = False
FieldName = 'EXAM_DATE'
Title.Caption = #32771#35797#26102#38388
Visible = True
end>
end
object MainMenu1: TMainMenu
Left = 648
object Nstu: TMenuItem
Caption = #23398#29983#31649#29702
OnClick = NstuClick
end
object Ncourse: TMenuItem
Caption = #35838#31243#31649#29702
OnClick = NcourseClick
end
object Nsc: TMenuItem
Caption = #36873#35838#31649#29702
OnClick = NscClick
end
object Nuser: TMenuItem
Caption = #29992#25143#31649#29702
OnClick = NuserClick
end
object Nexit: TMenuItem
Caption = #36864#20986#31995#32479
OnClick = NexitClick
end
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=OraOLEDB.Oracle.1;Password=111;Persist Security Info=Tr' +
'ue;User ID=student;Data Source=ky;Extended Properties="PLSQLRSet' +
'=1"'
LoginPrompt = False
Provider = 'OraOLEDB.Oracle.1'
Left = 568
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 528
end
object ADOQuery1: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select student.sno,student.sname,student.sdept,course.cno,course' +
'.cname,sc.grade,sc.exam_date from sc, course,student where sc.cn' +
'o=course.cno and sc.sno=student.sno')
Left = 608
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -