📄 unit3.~dfm
字号:
object student: Tstudent
Left = 220
Top = 167
Width = 696
Height = 510
Caption = #23398#29983#22522#26412#20449#24687#32500#25252
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 Panel1: TPanel
Left = 0
Top = 0
Width = 688
Height = 483
Align = alClient
TabOrder = 0
object Label1: TLabel
Left = 264
Top = 256
Width = 34
Height = 16
Caption = #22995#21517
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 40
Top = 254
Width = 34
Height = 16
Caption = #23398#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 40
Top = 288
Width = 34
Height = 16
Caption = #24615#21035
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 40
Top = 352
Width = 34
Height = 16
Caption = #19987#19994
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 40
Top = 320
Width = 34
Height = 16
Caption = #23398#38498
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 464
Top = 288
Width = 68
Height = 16
Caption = #20986#29983#26085#26399
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 264
Top = 320
Width = 34
Height = 16
Caption = #31821#36143
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 472
Top = 352
Width = 68
Height = 16
Caption = #32852#31995#26041#24335
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 496
Top = 320
Width = 34
Height = 16
Caption = #27665#26063
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 464
Top = 256
Width = 68
Height = 16
Caption = #25919#27835#38754#35980
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 264
Top = 288
Width = 34
Height = 16
Caption = #32844#21153
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object DBGrid1: TDBGrid
Left = 0
Top = 16
Width = 689
Height = 225
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = DBGrid1DblClick
end
object Edit1: TEdit
Left = 88
Top = 256
Width = 121
Height = 21
TabOrder = 1
OnKeyPress = Edit1KeyPress
end
object Edit2: TEdit
Left = 312
Top = 256
Width = 121
Height = 21
TabOrder = 2
end
object Edit6: TEdit
Left = 312
Top = 320
Width = 121
Height = 21
TabOrder = 3
end
object Edit7: TEdit
Left = 552
Top = 352
Width = 121
Height = 21
TabOrder = 4
end
object Button1: TButton
Left = 40
Top = 432
Width = 85
Height = 35
Caption = #26032#22635
TabOrder = 5
OnClick = Button1Click
end
object Button2: TButton
Left = 176
Top = 432
Width = 85
Height = 35
Caption = #20462#25913
Enabled = False
TabOrder = 6
OnClick = Button2Click
end
object Button3: TButton
Left = 576
Top = 432
Width = 85
Height = 35
Caption = #36820#22238
TabOrder = 7
OnClick = Button3Click
end
object DateTimePicker1: TDateTimePicker
Left = 552
Top = 288
Width = 121
Height = 21
Date = 38707.841369537040000000
Time = 38707.841369537040000000
TabOrder = 8
end
object Button4: TButton
Left = 312
Top = 432
Width = 85
Height = 35
Caption = #21024#38500
Enabled = False
TabOrder = 9
OnClick = Button4Click
end
object sex: TComboBox
Left = 88
Top = 288
Width = 121
Height = 21
ItemHeight = 13
TabOrder = 10
Text = #30007
Items.Strings = (
#30007
#22899)
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 88
Top = 320
Width = 121
Height = 21
KeyField = #23398#38498#21517#31216
ListSource = DataSource2
TabOrder = 11
OnCloseUp = DBLookupComboBox1CloseUp
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 88
Top = 352
Width = 121
Height = 21
KeyField = #31995#21517#31216
ListField = #31995#21517#31216
ListSource = DataSource3
TabOrder = 12
end
object ComboBox2: TComboBox
Left = 552
Top = 256
Width = 121
Height = 21
ItemHeight = 13
TabOrder = 13
Items.Strings = (
#32676#20247
#22242#21592
#20826#21592
#20854#20182)
end
object Edit3: TEdit
Left = 552
Top = 320
Width = 121
Height = 21
TabOrder = 14
end
object Edit4: TEdit
Left = 312
Top = 288
Width = 121
Height = 21
TabOrder = 15
end
object Button5: TButton
Left = 448
Top = 432
Width = 81
Height = 33
Caption = #21047#26032
TabOrder = 16
OnClick = Button5Click
end
end
object ADOQuery1: TADOQuery
Active = True
Connection = Form2.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select *from '#23398#29983#22522#26412#20449#24687#34920)
Left = 256
Top = 80
end
object ADOQuery2: TADOQuery
Active = True
Connection = Form2.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select DISTINCT '#23398#38498#21517#31216' from '#38498#31995)
Left = 256
Top = 120
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 296
Top = 80
end
object DataSource2: TDataSource
DataSet = ADOQuery2
Left = 296
Top = 120
end
object ADOQuery3: TADOQuery
Active = True
Connection = Form2.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select DISTINCT '#31995#21517#31216' from '#38498#31995)
Left = 256
Top = 160
end
object DataSource3: TDataSource
DataSet = ADOQuery3
Left = 296
Top = 160
end
object ADOQuery4: TADOQuery
Connection = Form2.ADOConnection1
Parameters = <>
SQL.Strings = (
'select * from +DBLookupComboBox2.keyvalue+')
Left = 432
Top = 144
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -