selcourse.dfm

来自「C++ Builder数据库开发经典案例解析 示例程序都是在C++ Build」· DFM 代码 · 共 448 行

DFM
448 行
字号 
object fmSelCourse: TfmSelCourse
  Left = 222
  Top = 107
  Width = 696
  Height = 480
  Caption = #23398#29983#36873#35838
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 688
    Height = 57
    Align = alTop
    Caption = #23398#29983#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 35
      Top = 24
      Width = 24
      Height = 13
      Caption = #23398#21495
    end
    object Label2: TLabel
      Left = 176
      Top = 24
      Width = 24
      Height = 13
      Caption = #22995#21517
    end
    object Label3: TLabel
      Left = 280
      Top = 24
      Width = 24
      Height = 13
      Caption = #29677#32423
    end
    object Label9: TLabel
      Left = 425
      Top = 11
      Width = 249
      Height = 41
      AutoSize = False
      Caption = #36825#37324#36755#20837#23398#21495#21518#22238#36710#65292#27491#24120#25805#20316#26159#23398#29983#29992#33258#24049#30340#23398#21495#30331#24405#21040#31995#32479#65292#21482#33021#36873#25321#33258#24049#30340#35838#31243#12290#22240#20026#31995#32479#27809#26377#21046#20316#30331#24405#21151#33021#65292#25152#20197#36825#20040#22788#29702#12290
      WordWrap = True
    end
    object edStuNum: TEdit
      Left = 64
      Top = 20
      Width = 97
      Height = 21
      TabOrder = 0
      Text = 'edStuNum'
      OnKeyPress = edStuNumKeyPress
    end
    object edStuName: TEdit
      Left = 203
      Top = 20
      Width = 62
      Height = 21
      Enabled = False
      ReadOnly = True
      TabOrder = 1
      Text = 'edStuName'
    end
    object edStuClass: TEdit
      Left = 307
      Top = 20
      Width = 102
      Height = 21
      Enabled = False
      ReadOnly = True
      TabOrder = 2
      Text = 'edStuClass'
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 57
    Width = 688
    Height = 152
    Align = alTop
    Caption = #24050#36873#35838#31243
    TabOrder = 1
    object DBGrid2: TDBGrid
      Left = 2
      Top = 15
      Width = 684
      Height = 135
      Align = alClient
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #23398#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #35838#24207#21495
          Width = 71
          Visible = True
        end
        item
          Expanded = False
          FieldName = #35838#31243#21517#31216
          Width = 148
          Visible = True
        end
        item
          Expanded = False
          FieldName = #25945#24072
          Width = 41
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24320#35838#31995#21035
          Width = 55
          Visible = True
        end
        item
          Expanded = False
          FieldName = #19978#35838#26102#38388#22825
          Visible = True
        end
        item
          Expanded = False
          FieldName = #19978#35838#26102#38388#33410
          Visible = True
        end
        item
          Expanded = False
          FieldName = #19978#35838#22320#28857
          Visible = True
        end>
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 209
    Width = 688
    Height = 244
    Align = alClient
    Caption = #35838#31243#20449#24687
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 2
      Top = 113
      Width = 684
      Height = 129
      Align = alClient
      DataSource = DataSource2
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #35838#24207#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #35838#31243#32534#21495
          Width = 52
          Visible = True
        end
        item
          Expanded = False
          FieldName = #35838#31243#21517#31216
          Width = 125
          Visible = True
        end
        item
          Expanded = False
          FieldName = #25945#24072
          Width = 53
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24320#35838#31995#21035
          Visible = True
        end
        item
          Expanded = False
          FieldName = #19978#35838#26102#38388#22825
          Visible = True
        end
        item
          Expanded = False
          FieldName = #19978#35838#26102#38388#33410
          Visible = True
        end
        item
          Expanded = False
          FieldName = #19978#35838#22320#28857
          Width = 59
          Visible = True
        end>
    end
    object GroupBox4: TGroupBox
      Left = 2
      Top = 15
      Width = 684
      Height = 98
      Align = alTop
      Ctl3D = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
      object Label4: TLabel
        Left = 27
        Top = 24
        Width = 52
        Height = 13
        Caption = #35838#31243#25340#38899
      end
      object Label5: TLabel
        Left = 168
        Top = 24
        Width = 52
        Height = 13
        Caption = #35838#31243#21517#31216
      end
      object Label6: TLabel
        Left = 27
        Top = 56
        Width = 52
        Height = 13
        Caption = #35838#31243#32534#21495
      end
      object Label7: TLabel
        Left = 180
        Top = 56
        Width = 39
        Height = 13
        Caption = #35838#24207#21495
      end
      object Label8: TLabel
        Left = 336
        Top = 44
        Width = 329
        Height = 41
        AutoSize = False
        Caption = 
          #36873#25321#30456#24212#30340#35838#31243#24207#21495#65292#21333#20987#12304#36873#35838#12305#25353#38062#65292#31995#32479#20808#26816#26597#35813#35838#31243#32534#21495#26159#21542#24050#36873#25110#19978#35838#26102#38388#26159#21542#20914#31361#65292#27880#24847#19968#20010#35838#31243#32534#21495#21487#20197#23545#24212#22810#20010#35838#24207#21495#65292#26082#19968#38376 +
          #35838#22312#22810#20010#26102#38388#19978#30340#24773#20917
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object edCouPY: TEdit
        Left = 80
        Top = 20
        Width = 65
        Height = 21
        TabOrder = 0
        Text = 'edCouPY'
        OnKeyPress = edCouPYKeyPress
      end
      object edCouName: TEdit
        Left = 220
        Top = 20
        Width = 93
        Height = 21
        TabOrder = 1
        Text = 'edCouName'
        OnKeyPress = edCouPYKeyPress
      end
      object edCouID: TEdit
        Left = 80
        Top = 52
        Width = 65
        Height = 21
        TabOrder = 2
        Text = 'edCouID'
        OnKeyPress = edCouPYKeyPress
      end
      object edCouSer: TEdit
        Left = 220
        Top = 52
        Width = 93
        Height = 21
        TabOrder = 3
        Text = 'edCouSer'
        OnKeyPress = edCouPYKeyPress
      end
      object btFind: TBitBtn
        Left = 334
        Top = 12
        Width = 75
        Height = 25
        Caption = #26597#35810
        TabOrder = 4
        OnClick = btFindClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888888888808888888888888800088888888888800088888888888800
          0888888800000000888888800BBB000888888800BBBBB0088888880BBBBBBB08
          8888880BBB0BBB088888880BB080BB0888888800BB0BB008888888800BBB0088
          8888888800000888888888888888888888888888888888888888}
      end
      object btSelect: TBitBtn
        Left = 414
        Top = 12
        Width = 75
        Height = 25
        Caption = #36873#35838
        TabOrder = 5
        OnClick = btSelectClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object btShow: TBitBtn
        Left = 574
        Top = 12
        Width = 81
        Height = 25
        Caption = #26174#31034#35838#34920
        TabOrder = 6
        OnClick = btShowClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888880008888
          8000888880808888808088888000788870008888800000000000000000800008
          00000888808000080000080080000000000008888800008000080CCCCCC00CCC
          00888C888880088800888C800800080800888C8888888888C8888CCCCCCCCCCC
          C8888C8CC8CC8CC8C8888CCCCCCCCCCCC8888888888888888888}
      end
      object btDelete: TBitBtn
        Left = 494
        Top = 12
        Width = 75
        Height = 25
        Caption = #21024#35838
        TabOrder = 7
        OnClick = btDeleteClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333333333000033338833333333333333333F333333333333
          0000333911833333983333333388F333333F3333000033391118333911833333
          38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
          911118111118333338F3338F833338F3000033333911111111833333338F3338
          3333F8330000333333911111183333333338F333333F83330000333333311111
          8333333333338F3333383333000033333339111183333333333338F333833333
          00003333339111118333333333333833338F3333000033333911181118333333
          33338333338F333300003333911183911183333333383338F338F33300003333
          9118333911183333338F33838F338F33000033333913333391113333338FF833
          38F338F300003333333333333919333333388333338FFF830000333333333333
          3333333333333333333888330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = queSelected
    Left = 616
    Top = 144
  end
  object queSelected: TQuery
    DatabaseName = 'db'
    SQL.Strings = (
      
        'select c.'#23398#21495',a.'#35838#24207#21495',b.'#35838#31243#21517#31216',b.'#25945#24072',b.'#24320#35838#31995#21035',a.'#19978#35838#26102#38388#22825',a.'#19978#35838#26102#38388#33410',a.'#19978#35838#22320#28857' from' +
        ' '#36873#35838#34920' as c, '#35838#31243#34920' as a, '#35838#31243#20449#24687' as b where a.'#35838#31243#32534#21495'=b.'#35838#31243#32534#21495' and c.'#35838#24207#21495'=a.'#35838 +
        #24207#21495)
    Left = 576
    Top = 144
  end
  object queCourse: TQuery
    DatabaseName = 'db'
    SQL.Strings = (
      
        'select a.'#35838#24207#21495',b.'#35838#31243#21517#31216',b.'#25945#24072',b.'#24320#35838#31995#21035',a.'#19978#35838#26102#38388#22825',a.'#19978#35838#26102#38388#33410',a.'#19978#35838#22320#28857',b.'#35838#31243#32534#21495' fr' +
        'om '#35838#31243#34920' as a, '#35838#31243#20449#24687' as b where a.'#35838#31243#32534#21495'=b.'#35838#31243#32534#21495)
    Left = 584
    Top = 408
  end
  object DataSource2: TDataSource
    DataSet = queCourse
    Left = 624
    Top = 408
  end
  object queQuery: TQuery
    DatabaseName = 'db'
    Left = 8
    Top = 16
  end
end

selcourse.dfm - 源码说明

本页面展示了「C++ Builder数据库开发经典案例解析 示例程序都是在C++ Builder 6.0（Enterprise）和SQL Server 2000个人版下调试通过的」中的 selcourse.dfm 源码文件，采用 DFM 编程语言编写，共 448 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与C++相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?