📄 unit4.~dfm
字号:
object Form4: TForm4
Left = 387
Top = 269
Width = 483
Height = 457
Caption = #22870#24809#24773#20917#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 PageControl1: TPageControl
Left = 8
Top = 8
Width = 457
Height = 401
ActivePage = TabSheet2
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #33719#22870#24773#20917#36755#20837
object Label2: TLabel
Left = 56
Top = 64
Width = 56
Height = 13
AutoSize = False
Caption = #36755#20837#23398#21495':'
end
object Label6: TLabel
Left = 16
Top = 208
Width = 57
Height = 13
AutoSize = False
Caption = #20855#20307#25551#36848
end
object i_stud_id_2: TMaskEdit
Left = 121
Top = 56
Width = 72
Height = 21
EditMask = '000000;1;_'
MaxLength = 6
TabOrder = 0
Text = ' '
OnChange = i_stud_id_2Change
end
object GroupBox1: TGroupBox
Left = 232
Top = 16
Width = 185
Height = 97
Caption = #35813#29983#22522#26412#24773#20917
TabOrder = 1
object Label3: TLabel
Left = 24
Top = 24
Width = 33
Height = 13
AutoSize = False
Caption = #22995#21517':'
end
object Label4: TLabel
Left = 24
Top = 48
Width = 33
Height = 13
AutoSize = False
Caption = #29677#32423':'
end
object Label5: TLabel
Left = 24
Top = 72
Width = 33
Height = 13
AutoSize = False
Caption = #38498#31995':'
end
object DBText1: TDBText
Left = 72
Top = 24
Width = 65
Height = 17
DataField = 'NAME'
DataSource = DS_stud_info_2
end
object DBText2: TDBText
Left = 72
Top = 48
Width = 65
Height = 17
DataField = 'NAME'
DataSource = DS_class_info_2
end
object DBText3: TDBText
Left = 72
Top = 72
Width = 65
Height = 17
DataField = 'NAME'
DataSource = DS_depart_info_2
end
end
object i_reward: TRadioGroup
Left = 16
Top = 128
Width = 401
Height = 65
Caption = #23398#31821#21464#26356#24773#20917
Columns = 3
ItemIndex = 0
Items.Strings = (
#22269#23478#19968#31561#22870#23398#37329
#26657#29305#31561#22870#23398#37329
#26657#19968#31561#22870#23398#37329
#26657#20108#31561#22870#23398#37329
#26657#19977#31561#22870#23398#37329)
TabOrder = 2
end
object i_descrip_2: TMemo
Left = 16
Top = 232
Width = 409
Height = 89
ImeMode = imOpen
ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
Lines.Strings = (
'')
TabOrder = 3
end
object Button2: TButton
Left = 78
Top = 336
Width = 75
Height = 25
Caption = #28155#21152
TabOrder = 4
OnClick = Button2Click
end
object Button1: TButton
Left = 278
Top = 336
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 5
OnClick = Button1Click
end
end
object TabSheet2: TTabSheet
Caption = #22788#32602#24773#20917#36755#20837
ImageIndex = 1
object Label9: TLabel
Left = 56
Top = 64
Width = 56
Height = 13
AutoSize = False
Caption = #36755#20837#23398#21495':'
end
object Label10: TLabel
Left = 16
Top = 208
Width = 57
Height = 13
AutoSize = False
Caption = #20855#20307#25551#36848
end
object GroupBox2: TGroupBox
Left = 232
Top = 16
Width = 184
Height = 97
Caption = #35813#29983#22522#26412#24773#20917
TabOrder = 0
object Label1: TLabel
Left = 24
Top = 24
Width = 33
Height = 13
AutoSize = False
Caption = #22995#21517':'
end
object Label7: TLabel
Left = 24
Top = 48
Width = 33
Height = 13
AutoSize = False
Caption = #29677#32423':'
end
object Label8: TLabel
Left = 24
Top = 72
Width = 33
Height = 13
AutoSize = False
Caption = #38498#31995':'
end
object DBText4: TDBText
Left = 72
Top = 24
Width = 65
Height = 17
DataField = 'NAME'
DataSource = DS_stud_info_3
end
object DBText5: TDBText
Left = 72
Top = 48
Width = 65
Height = 17
DataField = 'NAME'
DataSource = DS_class_info_3
end
object DBText6: TDBText
Left = 72
Top = 72
Width = 65
Height = 17
DataField = 'NAME'
DataSource = DS_depart_info_3
end
end
object i_stud_id_3: TMaskEdit
Left = 121
Top = 56
Width = 72
Height = 21
EditMask = '000000;1;_'
MaxLength = 6
TabOrder = 1
Text = ' '
OnChange = i_stud_id_3Change
end
object i_punish: TRadioGroup
Left = 16
Top = 128
Width = 401
Height = 65
Caption = #23398#31821#21464#26356#24773#20917
Columns = 3
ItemIndex = 0
Items.Strings = (
#35686#21578
#20005#37325#35686#21578
#35760#36807
#35760#22823#36807
#24320#38500)
TabOrder = 2
end
object i_descrip_3: TMemo
Left = 16
Top = 232
Width = 409
Height = 89
ImeMode = imOpen
ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
Lines.Strings = (
'')
TabOrder = 3
end
object Button3: TButton
Left = 78
Top = 336
Width = 75
Height = 25
Caption = #28155#21152
TabOrder = 4
OnClick = Button3Click
end
object Button4: TButton
Left = 278
Top = 336
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 5
OnClick = Button4Click
end
end
end
object DS_depart_info_2: TDataSource
DataSet = T_depart_info_2
Left = 144
Top = 40
end
object T_depart_info_2: TTable
DatabaseName = 'mydb1'
MasterSource = DS_stud_info_2
TableName = 'DEPARTMENT'
Left = 112
Top = 40
end
object DS_class_info_2: TDataSource
DataSet = T_class_info_2
Left = 56
Top = 40
end
object T_class_info_2: TTable
DatabaseName = 'mydb1'
MasterSource = DS_stud_info_2
TableName = 'CLASS'
Left = 24
Top = 40
end
object DS_stud_info_2: TDataSource
DataSet = T_stud_info_2
Left = 224
Top = 40
end
object T_stud_info_2: TTable
DatabaseName = 'mydb1'
Filter = 'ID='#39#39
Filtered = True
TableName = 'STUDENT'
Left = 192
Top = 40
end
object T_counter_r: TTable
DatabaseName = 'mydb1'
Filter = 'ID='#39'R'#39
Filtered = True
TableName = 'COUNTER'
Left = 176
Top = 232
end
object T_reward: TTable
DatabaseName = 'mydb1'
TableName = 'REWARD'
Left = 216
Top = 232
end
object T_punish: TTable
DatabaseName = 'mydb1'
TableName = 'PUNISHMENT'
Left = 324
Top = 232
end
object T_counter_p: TTable
DatabaseName = 'mydb1'
Filter = 'ID='#39'P'#39
Filtered = True
TableName = 'COUNTER'
Left = 360
Top = 232
end
object DS_stud_info_3: TDataSource
DataSet = T_stud_info_3
Left = 216
Top = 120
end
object T_stud_info_3: TTable
DatabaseName = 'mydb1'
Filter = 'ID='#39#39
Filtered = True
TableName = 'STUDENT'
Left = 184
Top = 120
end
object DS_depart_info_3: TDataSource
DataSet = T_depart_info_3
Left = 136
Top = 120
end
object T_depart_info_3: TTable
DatabaseName = 'mydb1'
MasterSource = DS_stud_info_3
TableName = 'DEPARTMENT'
Left = 104
Top = 120
end
object DS_class_info_3: TDataSource
DataSet = T_class_info_3
Left = 48
Top = 120
end
object T_class_info_3: TTable
DatabaseName = 'mydb1'
MasterSource = DS_stud_info_3
TableName = 'CLASS'
Left = 16
Top = 120
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -