student.dfm
来自「C++ Builder数据库开发经典案例解析 示例程序都是在C++ Build」· DFM 代码 · 共 433 行
DFM
433 行
inherited fmStudent: TfmStudent
Caption = #23398#29983#20449#24687#32500#25252
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
inherited DBGrid1: TDBGrid
Columns = <
item
Expanded = False
FieldName = #23398#21495
Width = 80
Visible = True
end
item
Expanded = False
FieldName = #22995#21517
Visible = True
end
item
Expanded = False
FieldName = #24615#21035
Visible = True
end
item
Expanded = False
FieldName = #24180#32423
Visible = True
end
item
Expanded = False
FieldName = #29677#32423
Width = 51
Visible = True
end
item
Expanded = False
FieldName = #25919#27835#38754#35980
Width = 52
Visible = True
end
item
Expanded = False
FieldName = #27665#26063
Width = 35
Visible = True
end
item
Expanded = False
FieldName = #31821#36143
Width = 42
Visible = True
end
item
Expanded = False
FieldName = #23398#31821
Width = 39
Visible = True
end
item
Expanded = False
FieldName = #29677#32423#32534#21495
Visible = True
end
item
Expanded = False
FieldName = #25919#27835#38754#35980#32534#21495
Visible = True
end
item
Expanded = False
FieldName = #27665#26063#32534#21495
Visible = True
end
item
Expanded = False
FieldName = #31821#36143#32534#21495
Visible = True
end
item
Expanded = False
FieldName = #36523#20221#35777#21495
Visible = True
end
item
Expanded = False
FieldName = #23398#31821#32534#21495
Visible = True
end>
end
inherited Panel2: TPanel
object Label4: TLabel
Left = 38
Top = 22
Width = 28
Height = 13
Caption = #23398#21495
FocusControl = EditDBEdit
end
object Label5: TLabel
Left = 157
Top = 22
Width = 28
Height = 13
Caption = #22995#21517
FocusControl = EditDBEdit2
end
object Label6: TLabel
Left = 43
Top = 72
Width = 56
Height = 13
Caption = #29677#32423#32534#21495
end
object Label7: TLabel
Left = 254
Top = 22
Width = 28
Height = 13
Caption = #24615#21035
end
object Label8: TLabel
Left = 325
Top = 22
Width = 28
Height = 13
Caption = #24180#32423
FocusControl = EditDBEdit3
end
object Label9: TLabel
Left = 219
Top = 72
Width = 84
Height = 13
Caption = #25919#27835#38754#35980#32534#21495
end
object Label10: TLabel
Left = 401
Top = 72
Width = 56
Height = 13
Caption = #27665#26063#32534#21495
end
object Label11: TLabel
Left = 38
Top = 124
Width = 56
Height = 13
Caption = #31821#36143#32534#21495
end
object Label12: TLabel
Left = 400
Top = 22
Width = 56
Height = 13
Caption = #36523#20221#35777#21495
FocusControl = EditDBEdit4
end
object Label13: TLabel
Left = 220
Top = 124
Width = 56
Height = 13
Caption = #23398#31821#32534#21495
end
object EditDBEdit: TDBEdit
Left = 38
Top = 37
Width = 107
Height = 21
DataField = #23398#21495
DataSource = DataSource1
TabOrder = 0
end
object EditDBEdit2: TDBEdit
Left = 157
Top = 37
Width = 84
Height = 21
DataField = #22995#21517
DataSource = DataSource1
TabOrder = 1
end
object EditDBEdit3: TDBEdit
Left = 325
Top = 37
Width = 55
Height = 21
DataField = #24180#32423
DataSource = DataSource1
TabOrder = 2
end
object EditDBEdit4: TDBEdit
Left = 400
Top = 37
Width = 149
Height = 21
DataField = #36523#20221#35777#21495
DataSource = DataSource1
TabOrder = 3
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 40
Top = 88
Width = 153
Height = 21
DataField = #29677#32423#32534#21495
DataSource = DataSource1
KeyField = #29677#32423#32534#21495
ListField = #29677#32423#21517#31216
ListSource = DataSource2
TabOrder = 4
end
object DBComboBox1: TDBComboBox
Left = 256
Top = 37
Width = 49
Height = 21
DataField = #24615#21035
DataSource = DataSource1
ItemHeight = 13
Items.Strings = (
#30007
#22899)
TabOrder = 5
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 220
Top = 88
Width = 161
Height = 21
DataField = #25919#27835#38754#35980#32534#21495
DataSource = DataSource1
KeyField = #25919#27835#38754#35980#32534#21495
ListField = #25919#27835#38754#35980
ListSource = DataSource3
TabOrder = 6
end
object DBLookupComboBox3: TDBLookupComboBox
Left = 400
Top = 88
Width = 153
Height = 21
DataField = #27665#26063#32534#21495
DataSource = DataSource1
KeyField = #27665#26063#32534#21495
ListField = #27665#26063
ListSource = DataSource4
TabOrder = 7
end
object DBLookupComboBox4: TDBLookupComboBox
Left = 40
Top = 140
Width = 153
Height = 21
DataField = #31821#36143#32534#21495
DataSource = DataSource1
KeyField = #31821#36143#32534#21495
ListField = #31821#36143
ListSource = DataSource5
TabOrder = 8
end
object DBLookupComboBox5: TDBLookupComboBox
Left = 220
Top = 140
Width = 161
Height = 21
DataField = #23398#31821#32534#21495
DataSource = DataSource1
KeyField = #23398#31821#32534#21495
ListField = #23398#31821#21517#31216
ListSource = DataSource6
TabOrder = 9
end
end
inherited Table1: TTable
TableName = 'dbo.'#23398#29983#20449#24687
object Table1BDEDesigner: TStringField
FieldName = #23398#21495
Required = True
Size = 50
end
object Table1BDEDesigner2: TStringField
FieldName = #22995#21517
Size = 8
end
object Table1BDEDesigner3: TStringField
FieldName = #29677#32423#32534#21495
Size = 14
end
object Table1BDEDesigner4: TStringField
FieldName = #24615#21035
Size = 2
end
object Table1BDEDesigner5: TIntegerField
FieldName = #24180#32423
end
object Table1BDEDesigner6: TStringField
FieldName = #25919#27835#38754#35980#32534#21495
Size = 2
end
object Table1BDEDesigner7: TStringField
FieldName = #27665#26063#32534#21495
Required = True
Size = 2
end
object Table1BDEDesigner8: TStringField
FieldName = #31821#36143#32534#21495
Required = True
Size = 2
end
object Table1BDEDesigner9: TStringField
FieldName = #36523#20221#35777#21495
Size = 15
end
object Table1BDEDesigner10: TStringField
FieldName = #23398#31821#32534#21495
Required = True
Size = 2
end
object Table1Field: TStringField
FieldKind = fkLookup
FieldName = #29677#32423
LookupDataSet = Table2
LookupKeyFields = #29677#32423#32534#21495
LookupResultField = #29677#32423#21517#31216
KeyFields = #29677#32423#32534#21495
Lookup = True
end
object Table1Field2: TStringField
FieldKind = fkLookup
FieldName = #25919#27835#38754#35980
LookupDataSet = Table3
LookupKeyFields = #25919#27835#38754#35980#32534#21495
LookupResultField = #25919#27835#38754#35980
KeyFields = #25919#27835#38754#35980#32534#21495
Lookup = True
end
object Table1Field3: TStringField
FieldKind = fkLookup
FieldName = #27665#26063
LookupDataSet = Table4
LookupKeyFields = #27665#26063#32534#21495
LookupResultField = #27665#26063
KeyFields = #27665#26063#32534#21495
Lookup = True
end
object Table1Field4: TStringField
FieldKind = fkLookup
FieldName = #31821#36143
LookupDataSet = Table5
LookupKeyFields = #31821#36143#32534#21495
LookupResultField = #31821#36143
KeyFields = #31821#36143#32534#21495
Size = 0
Lookup = True
end
object Table1Field5: TStringField
FieldKind = fkLookup
FieldName = #23398#31821
LookupDataSet = Table6
LookupKeyFields = #23398#31821#32534#21495
LookupResultField = #23398#31821#21517#31216
KeyFields = #23398#31821#32534#21495
Lookup = True
end
end
object DataSource2: TDataSource
AutoEdit = False
DataSet = Table2
Left = 616
Top = 280
end
object Table2: TTable
Active = True
DatabaseName = 'db'
TableName = 'dbo.'#29677#32423#20449#24687
Left = 648
Top = 280
end
object Table3: TTable
Active = True
DatabaseName = 'db'
TableName = 'dbo.'#25919#27835#38754#35980#20195#30721#34920
Left = 648
Top = 312
end
object DataSource3: TDataSource
AutoEdit = False
DataSet = Table3
Left = 616
Top = 312
end
object Table4: TTable
Active = True
DatabaseName = 'db'
TableName = 'dbo.'#27665#26063#20195#30721#34920
Left = 648
Top = 344
end
object DataSource4: TDataSource
AutoEdit = False
DataSet = Table4
Left = 616
Top = 344
end
object Table5: TTable
Active = True
DatabaseName = 'db'
TableName = 'dbo.'#31821#36143#20195#30721#34920
Left = 648
Top = 376
end
object DataSource5: TDataSource
AutoEdit = False
DataSet = Table5
Left = 616
Top = 376
end
object DataSource6: TDataSource
AutoEdit = False
DataSet = Table6
Left = 616
Top = 408
end
object Table6: TTable
Active = True
DatabaseName = 'db'
TableName = 'dbo.'#23398#31821#20195#30721#34920
Left = 648
Top = 408
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?