ugrade.~dfm

来自「一.录入学生信息（预计有81个学生」· ~DFM 代码 · 共 435 行

~DFM
435 行
字号 
object frmGrade: TfrmGrade
  Left = 2
  Top = 2
  Width = 638
  Height = 450
  Caption = #23398#29983#25104#32489#24405#20837
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 209
    Height = 423
    Align = alLeft
    Caption = #23398#26399'/'#29677#32423#23545#24212#32467#26500
    TabOrder = 0
    object Tree: TTreeView
      Left = 2
      Top = 14
      Width = 205
      Height = 407
      Align = alClient
      AutoExpand = True
      HideSelection = False
      HotTrack = True
      Images = ImageList1
      Indent = 19
      ReadOnly = True
      TabOrder = 0
      OnClick = TreeClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 209
    Top = 0
    Width = 421
    Height = 423
    Align = alClient
    Caption = #29677#32423'XX'#30340#23398#29983#20449#24687#21015#34920
    TabOrder = 1
    object DBGridEh2: TDBGridEh
      Left = 2
      Top = 14
      Width = 417
      Height = 219
      Align = alClient
      DataSource = DataSource2
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      UseMultiTitle = True
      Columns = <
        item
          EditButtons = <>
          FieldName = 'ID'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'ClassCode'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'SName'
          Footers = <>
          Title.Caption = #22995#21517
          Width = 56
        end
        item
          EditButtons = <>
          FieldName = 'SNumber'
          Footers = <>
          Title.Caption = #23398#21495
          Width = 32
        end
        item
          EditButtons = <>
          FieldName = 'Room'
          Footers = <>
          Title.Caption = #23517#23460
          Width = 52
        end
        item
          EditButtons = <>
          FieldName = 'Address'
          Footers = <>
          Title.Caption = #23478#24237#22320#22336
          Width = 229
        end
        item
          EditButtons = <>
          FieldName = 'PostCode'
          Footers = <>
          Title.Caption = #37038#32534
          Visible = False
          Width = 42
        end
        item
          EditButtons = <>
          FieldName = 'Patriarchy'
          Footers = <>
          Title.Caption = #23478#38271
          Width = 50
        end
        item
          EditButtons = <>
          FieldName = 'HomeTel'
          Footers = <>
          Title.Caption = #23478#24237#30005#35805
          Width = 98
        end
        item
          EditButtons = <>
          FieldName = 'IsTY'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #21542
            #26159)
          Title.Caption = #26159#21542#22242#21592
          Width = 28
        end
        item
          EditButtons = <>
          FieldName = 'HasWJ'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #26080
            #26377)
          Title.Caption = #26377#21542#36829#32426#35760#24405
          Width = 46
        end
        item
          EditButtons = <>
          FieldName = 'WJContent'
          Footers = <>
          Title.Caption = #36829#32426#35828#26126
          Width = 119
        end
        item
          EditButtons = <>
          FieldName = 'IsActive'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #21542
            #22312#26657)
          Title.Caption = #26159#21542#22312#26657
          Width = 33
        end>
    end
    object GroupBox3: TGroupBox
      Left = 2
      Top = 233
      Width = 417
      Height = 188
      Align = alBottom
      Caption = #24405#20837#30340#25104#32489#20449#24687
      TabOrder = 1
      object DBGridEh1: TDBGridEh
        Left = 2
        Top = 14
        Width = 413
        Height = 131
        Align = alClient
        DataSource = DataSource1
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        FooterRowCount = 1
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnDblClick = DBGridEh1DblClick
        OnKeyDown = DBGridEh1KeyDown
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ID'
            Footers = <>
            Title.Alignment = taCenter
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'ClassCode'
            Footers = <>
            Title.Alignment = taCenter
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'SubjectCode'
            Footer.Alignment = taCenter
            Footer.Value = #24635#20998
            Footer.ValueType = fvtStaticText
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #31185#30446#20195#30721
            Width = 88
          end
          item
            EditButtons = <>
            FieldName = 'SubjName'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #31185#30446#21517#31216
            Width = 208
          end
          item
            EditButtons = <>
            FieldName = 'Score'
            Footer.FieldName = 'Score'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #25104#32489#20998#25968
            Width = 74
          end>
      end
      object Panel2: TPanel
        Left = 2
        Top = 145
        Width = 413
        Height = 41
        Align = alBottom
        BevelOuter = bvLowered
        TabOrder = 1
        DesignSize = (
          413
          41)
        object cmdAppend: TBitBtn
          Left = 134
          Top = 9
          Width = 72
          Height = 22
          Anchors = [akTop, akRight]
          Caption = #25104#32489#21021#22987#21270
          TabOrder = 0
          OnClick = cmdAppendClick
        end
        object cmdEdit: TBitBtn
          Left = 214
          Top = 9
          Width = 72
          Height = 22
          Anchors = [akTop, akRight]
          Caption = #20462#25913'(&E)'
          TabOrder = 1
          OnClick = cmdEditClick
        end
        object cmdClose: TBitBtn
          Left = 305
          Top = 9
          Width = 72
          Height = 22
          Anchors = [akTop, akRight]
          Caption = #20851#38381'(&X)'
          TabOrder = 2
          OnClick = cmdCloseClick
        end
      end
    end
  end
  object ImageList1: TImageList
    Left = 80
    Top = 176
    Bitmap = {
      494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000EF3DEF3DEF3DEF3DEF3D
      EF3DEF3DEF3DEF3DEF3DEF3DEF3DEF3DFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      1F0000001F0000000000000000000000000000000000EF3DFF7FEF3DEF3D0000
      00000000000000000000FF7F0000EF3DFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000001F001F00
      0000FF7F00001F000000000000000000000000000000EF3DFF7FEF3D0000FF7F
      0000000000000000EF3DFF7FFF7FEF3DFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000001F0000000000
      FF7F0000FF7F00001F00000000000000000000000000EF3DFF7F0000EF3DFF7F
      FF7F00000000EF3DEF3DEF3D0000EF3DFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000001F0000000000FF7F
      FF7FFF7F0000FF7F00001F0000000000000000000000EF3DFF7F0000EF3DEF3D
      FF7F0000EF3DEF3D000000000000EF3DFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000001F001F000000FF7FFF7FFF7F
      FF7FFF7FFF7F0000FF7F00001F000000000000000000EF3DFF7F00000000EF3D
      FF7FEF3DEF3D0000000000000000EF3DFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000001F0000000000FF7F0000FF7FFF7F
      FF7FFF7FFF7FFF7F0000FF7F00001F00000000000000EF3DFF7F00000000EF3D
      EF3DEF3DFF7F0000000000000000EF3DFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FF7FFF7FFF7F0000FF7F
      FF7FFF7FFF7FFF7FFF7F0000FF7F00001F0000000000EF3DFF7F0000FF7FEF3D
      EF3DEF3DFF7FFF7FFF7F00000000EF3DFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7F0000
      FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F000000000000EF3DFF7FEF3D0000FF7F
      EF3DEF3DEF3DEF3D000000000000EF3DFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7F
      0000FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000EF3DFF7F0000EF3D0000
      EF3DEF3DFF7F0000000000000000EF3DFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000FF7FFF7FFF7FFF7F
      FF7F0000FF7FFF7FFF7F000000000000000000000000EF3DFF7F00000000EF3D
      EF3DEF3DFF7F0000000000000000EF3DFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000FF7FFF7FFF7F
      FF7FFF7F000000000000000000000000000000000000EF3DFF7F000000000000
      EF3DEF3DFF7FFF7F000000000000EF3DFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000FF7FFF7F
      FF7F0000000000000000000000000000000000000000EF3DFF7F000000000000
      0000EF3DEF3DFF7F000000000000EF3DFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000EF3DFF7F000000000000
      0000EF3DEF3D0000000000000000EF3DFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000EF3DFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FEF3DFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000EF3DEF3DEF3DEF3DEF3D
      EF3DEF3DEF3DEF3DEF3DEF3DEF3DEF3D00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFC00000000000FE3FC3F400000000
      F81FC5E000000000F40FC8C400000000E007C89C000000008003CC3C00000000
      4001CC3C000000000000C80C000000000000C41C000000008001CA3C00000000
      C003CC3C00000000E00FCE1C00000000F07FCF1C00000000F8FFCF3C00000000
      FFFFC00000000000FFFFC0010000000000000000000000000000000000000000
      000000000000}
  end
  object dsQuery: TADODataSet
    Connection = DM.ADOLocal
    CursorType = ctStatic
    CommandText = 'select * from TClass'
    Parameters = <>
    Left = 48
    Top = 104
  end
  object dsStudent: TADODataSet
    Connection = DM.ADOLocal
    CursorType = ctStatic
    AfterScroll = dsStudentAfterScroll
    CommandText = 'select * from TStudent'
    Parameters = <>
    Left = 361
    Top = 104
  end
  object DataSource2: TDataSource
    DataSet = dsStudent
    Left = 393
    Top = 104
  end
  object dsGrade: TADODataSet
    Connection = DM.ADOLocal
    CursorType = ctStatic
    CommandText = 
      'SELECT THonoursStd.*,TSubject.SubjName from THonoursStd,TSubject' +
      #13#10' where THonoursStd.SubjectCode=TSubject.SubjCode'#13#10
    Parameters = <>
    Left = 376
    Top = 328
  end
  object DataSource1: TDataSource
    DataSet = dsGrade
    Left = 427
    Top = 328
  end
  object ADOCommand1: TADOCommand
    Connection = DM.ADOLocal
    Parameters = <>
    Left = 233
    Top = 352
  end
  object dsTemp: TADODataSet
    Connection = DM.ADOLocal
    Parameters = <>
    Left = 273
    Top = 352
  end
end

ugrade.~dfm - 源码说明

本页面展示了「一.录入学生信息（预计有81个学生」中的 ugrade.~dfm 源码文件，采用 ~DFM 编程语言编写，共 435 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

⌨️ 快捷键说明

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