📄 main.dfm
字号:
TabOrder = 0
Text = ' '
OnChange = MaskEdit3Change
end
object Edit1: TEdit
Left = 73
Top = 44
Width = 46
Height = 21
TabOrder = 1
end
object Edit2: TEdit
Left = 143
Top = 44
Width = 37
Height = 21
TabOrder = 2
end
object Edit3: TEdit
Left = 202
Top = 44
Width = 38
Height = 21
TabOrder = 3
end
object Edit4: TEdit
Left = 71
Top = 78
Width = 200
Height = 21
TabOrder = 4
end
object Memo1: TMemo
Left = 283
Top = 44
Width = 103
Height = 56
TabOrder = 5
end
object Button1: TButton
Left = 394
Top = 41
Width = 65
Height = 25
Caption = #22686#21152
TabOrder = 6
OnClick = Button1Click
end
object Button2: TButton
Left = 394
Top = 74
Width = 65
Height = 25
Caption = #21462#28040
TabOrder = 7
OnClick = Button2Click
end
object DBGrid4: TDBGrid
Left = 9
Top = 126
Width = 445
Height = 112
DataSource = DataSource4
TabOrder = 8
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'gcheck_Time'
Title.Alignment = taCenter
Title.Caption = #33719#22870#26102#38388
Width = 79
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'gcheck_Title'
Title.Alignment = taCenter
Title.Caption = #33719#22870#21517#31216
Width = 176
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'gcheck_Disc'
Title.Alignment = taCenter
Title.Caption = #20855#20307#25551#36848
Width = 193
Visible = True
end>
end
end
object TabSheet4: TTabSheet
Caption = #32844#21153#20449#24687#31649#29702
ImageIndex = 3
object Label12: TLabel
Left = 14
Top = 12
Width = 39
Height = 13
Caption = #23398#21495#65306' '
end
object Label13: TLabel
Left = 133
Top = 12
Width = 39
Height = 13
Caption = #22995#21517#65306' '
end
object DBText7: TDBText
Left = 169
Top = 12
Width = 49
Height = 17
DataField = 'student_Name'
DataSource = DataSource1
end
object Label14: TLabel
Left = 231
Top = 12
Width = 39
Height = 13
Caption = #29677#32423#65306' '
end
object DBText8: TDBText
Left = 268
Top = 12
Width = 49
Height = 17
DataField = 'student_Class'
DataSource = DataSource1
end
object Label15: TLabel
Left = 333
Top = 12
Width = 39
Height = 13
Caption = #24615#21035#65306' '
end
object DBText9: TDBText
Left = 368
Top = 12
Width = 49
Height = 17
DataField = 'student_Sex'
DataSource = DataSource1
end
object Label28: TLabel
Left = 10
Top = 48
Width = 60
Height = 13
Caption = #20219#32844#26102#38388#65306
end
object Label32: TLabel
Left = 10
Top = 82
Width = 63
Height = 13
Caption = #32844#20219#21517#31216#65306' '
end
object Label33: TLabel
Left = 238
Top = 28
Width = 108
Height = 13
Caption = #32844#21153#20869#23481#20855#20307#25551#36848#65306
end
object Label30: TLabel
Left = 13
Top = 111
Width = 96
Height = 13
Caption = #25285#20219#32844#21153#20449#24687#34920#12288
end
object MaskEdit4: TMaskEdit
Left = 53
Top = 8
Width = 65
Height = 21
EditMask = '00000000;1;'
MaxLength = 8
TabOrder = 0
Text = ' '
end
object Edit8: TEdit
Left = 74
Top = 78
Width = 139
Height = 21
TabOrder = 1
Text = #23459#20256#22996#21592
end
object Memo2: TMemo
Left = 239
Top = 44
Width = 143
Height = 56
TabOrder = 2
end
object Edit5: TEdit
Left = 74
Top = 45
Width = 139
Height = 21
TabOrder = 3
Text = #30740#31350#29983#19968#24180#32423#31532#19968#23398#26399
end
object Button3: TButton
Left = 394
Top = 41
Width = 65
Height = 25
Caption = #22686#21152
TabOrder = 4
end
object Button4: TButton
Left = 394
Top = 74
Width = 65
Height = 25
Caption = #21462#28040
TabOrder = 5
end
object DBGrid5: TDBGrid
Left = 9
Top = 127
Width = 445
Height = 112
DataSource = DataSource5
TabOrder = 6
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
Visible = True
end>
end
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 292
Width = 472
Height = 19
Panels = <>
SimplePanel = False
end
object DBNavigator1: TDBNavigator
Left = 0
Top = 267
Width = 472
Height = 25
DataSource = DataSource1
Align = alBottom
Hints.Strings = (
#39318#35760#24405
#21521#21069#31227
#21521#21518#31227
#26410#35760#24405
#25554#20837#19968#34892
#21024#38500#19968#34892
#32534#36753#35760#24405
#20445#23384#20462#25913
#21462#28040#20462#25913
#21047#26032)
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 52
Top = 216
end
object ADOTable1: TADOTable
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=student;Data Source=WJ'
CursorType = ctStatic
TableName = 'student_Info'
Left = 24
Top = 216
end
object ADOTable2: TADOTable
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=student;Data Source=WJ'
TableName = 'student_coursecode'
Left = 64
Top = 120
end
object DataSource2: TDataSource
DataSet = ADOTable2
Left = 92
Top = 120
end
object ADOTable3: TADOTable
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=student;Data Source=WJ'
TableName = 'student_Course'
Left = 120
Top = 120
end
object DataSource3: TDataSource
DataSet = ADOTable3
Left = 148
Top = 120
end
object ADOTable4: TADOTable
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=student;Data Source=WJ'
CursorType = ctStatic
TableName = 'student_GCheck'
Left = 160
Top = 45
end
object DataSource4: TDataSource
DataSet = ADOTable4
Left = 187
Top = 45
end
object DataSource5: TDataSource
DataSet = ADOTable5
Left = 256
Top = 45
end
object ADOTable5: TADOTable
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=student;Data Source=WJ'
CursorType = ctStatic
TableName = 'student_BCheck'
Left = 230
Top = 45
end
object ADOT_Count: TADOTable
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=student;Data Source=WJ'
CursorType = ctStatic
TableName = 'student_Count'
Left = 376
Top = 32
end
object DataS_Count: TDataSource
DataSet = ADOT_Count
Left = 401
Top = 32
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -