uterm.dfm

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

object frmTerm: TfrmTerm
  Left = 192
  Top = 107
  BorderStyle = bsDialog
  Caption = #23398#26399#20449#24687#32500#25252
  ClientHeight = 264
  ClientWidth = 419
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Panel2: TPanel
    Left = 0
    Top = 223
    Width = 419
    Height = 41
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 0
    DesignSize = (
      419
      41)
    object cmdAppend: TBitBtn
      Left = 66
      Top = 9
      Width = 72
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #28155#21152'(&A)'
      TabOrder = 0
      OnClick = cmdAppendClick
    end
    object cmdEdit: TBitBtn
      Left = 146
      Top = 9
      Width = 72
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #20462#25913'(&E)'
      TabOrder = 1
      OnClick = cmdEditClick
    end
    object cmdDelete: TBitBtn
      Left = 226
      Top = 9
      Width = 72
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #21024#38500'(&D)'
      TabOrder = 2
      OnClick = cmdDeleteClick
    end
    object cmdClose: TBitBtn
      Left = 314
      Top = 9
      Width = 72
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #20851#38381'(&X)'
      TabOrder = 3
      OnClick = cmdCloseClick
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 0
    Width = 419
    Height = 223
    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 = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGridEh1DblClick
    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 = 61
      end
      item
        EditButtons = <>
        FieldName = 'TermName'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #23398#26399#21517#31216
        Width = 284
      end>
  end
  object DataSource1: TDataSource
    DataSet = dsQuery
    Left = 192
    Top = 104
  end
  object dsQuery: TADODataSet
    Connection = DM.ADOLocal
    CursorType = ctStatic
    CommandText = 'select * from TTerm order by TermCode'
    Parameters = <>
    Left = 224
    Top = 104
  end
end