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 + -
显示快捷键?