utermtoclass.dfm

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

object frmTermToClass: TfrmTermToClass
  Left = 233
  Top = 143
  BorderStyle = bsDialog
  Caption = #23398#26399'/'#29677#32423#23545#24212#20851#31995#35774#32622
  ClientHeight = 378
  ClientWidth = 673
  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 = 169
    Height = 378
    Align = alLeft
    Caption = #23398#26399#20449#24687#21015#34920
    TabOrder = 0
    object DBGridEh1: TDBGridEh
      Left = 2
      Top = 14
      Width = 165
      Height = 362
      Align = alClient
      DataSource = DataSource1
      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 = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'ID'
          Footers = <>
          Title.Alignment = taCenter
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'TermCode'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #23398#26399#32534#21495
          Width = 53
        end
        item
          EditButtons = <>
          FieldName = 'TermName'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #23398#26399#21517#31216
          Width = 95
        end>
    end
  end
  object Panel1: TPanel
    Left = 169
    Top = 0
    Width = 504
    Height = 378
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object GroupBox2: TGroupBox
      Left = 0
      Top = 0
      Width = 504
      Height = 137
      Align = alTop
      Caption = #23398#26399'..'#26377#25928#30340#29677#32423
      TabOrder = 0
      object DBGridEh2: TDBGridEh
        Left = 2
        Top = 14
        Width = 500
        Height = 121
        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 = []
        OnDblClick = DBGridEh2DblClick
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ID'
            Footers = <>
            Title.Alignment = taCenter
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'ClassCode'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #29677#32423#31616#30721
            Width = 88
          end
          item
            EditButtons = <>
            FieldName = 'ClassName'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #29677#32423#21517#31216
            Width = 276
          end>
      end
    end
    object Panel2: TPanel
      Left = 0
      Top = 137
      Width = 504
      Height = 41
      Align = alTop
      BevelOuter = bvLowered
      TabOrder = 1
      object sbUp: TSpeedButton
        Left = 16
        Top = 9
        Width = 60
        Height = 22
        Caption = #8593
        OnClick = sbUpClick
      end
      object sbDown: TSpeedButton
        Left = 88
        Top = 9
        Width = 60
        Height = 22
        Caption = #8595
        OnClick = sbDownClick
      end
    end
    object GroupBox3: TGroupBox
      Left = 0
      Top = 178
      Width = 504
      Height = 200
      Align = alClient
      Caption = #21487#36873#25321#30340#29677#32423
      TabOrder = 2
      object DBGridEh3: TDBGridEh
        Left = 2
        Top = 14
        Width = 500
        Height = 184
        Align = alClient
        DataSource = DataSource3
        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 = []
        OnDblClick = DBGridEh3DblClick
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ID'
            Footers = <>
            Title.Alignment = taCenter
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'ClassCode'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #29677#32423#31616#30721
            Width = 88
          end
          item
            EditButtons = <>
            FieldName = 'ClassName'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #29677#32423#21517#31216
            Width = 276
          end>
      end
    end
  end
  object dsQuery: TADODataSet
    Connection = DM.ADOLocal
    CursorType = ctStatic
    AfterScroll = dsQueryAfterScroll
    CommandText = 'select * from TClass'
    Parameters = <>
    Left = 48
    Top = 104
  end
  object DataSource1: TDataSource
    DataSet = dsQuery
    Left = 80
    Top = 104
  end
  object dsClass: TADODataSet
    Connection = DM.ADOLocal
    CursorType = ctStatic
    CommandText = 'elect TTermToClass.*,TClass.ClassName from TTermToClass,TClass'
    Parameters = <>
    Left = 344
    Top = 40
  end
  object DataSource2: TDataSource
    DataSet = dsClass
    Left = 377
    Top = 40
  end
  object dsClassMain: TADODataSet
    Connection = DM.ADOLocal
    CursorType = ctStatic
    CommandText = 'elect TTermToClass.*,TClass.ClassName from TTermToClass,TClass'
    Parameters = <>
    Left = 352
    Top = 240
  end
  object DataSource3: TDataSource
    DataSet = dsClassMain
    Left = 393
    Top = 240
  end
  object ADOCommand1: TADOCommand
    Connection = DM.ADOLocal
    Parameters = <>
    Left = 377
    Top = 145
  end
end