usubject.dfm

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

object frmSubject: TfrmSubject
  Left = 422
  Top = 229
  BorderStyle = bsDialog
  Caption = #31185#30446#20449#24687#32500#25252
  ClientHeight = 279
  ClientWidth = 439
  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 Panel2: TPanel
    Left = 0
    Top = 238
    Width = 439
    Height = 41
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 0
    DesignSize = (
      439
      41)
    object cmdAppend: TBitBtn
      Left = 86
      Top = 9
      Width = 72
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #28155#21152'(&A)'
      TabOrder = 0
      OnClick = cmdAppendClick
    end
    object cmdEdit: TBitBtn
      Left = 166
      Top = 9
      Width = 72
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #20462#25913'(&E)'
      TabOrder = 1
      OnClick = cmdEditClick
    end
    object cmdDelete: TBitBtn
      Left = 246
      Top = 9
      Width = 72
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #21024#38500'(&D)'
      TabOrder = 2
      OnClick = cmdDeleteClick
    end
    object cmdClose: TBitBtn
      Left = 334
      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 = 439
    Height = 238
    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 = 'SubjCode'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #31185#30446#31616#30721
        Width = 121
      end
      item
        EditButtons = <>
        FieldName = 'SubjName'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #31185#30446#21517#31216
        Width = 282
      end>
  end
  object DataSource1: TDataSource
    DataSet = dsQuery
    Left = 192
    Top = 104
  end
  object dsQuery: TADODataSet
    Connection = DM.ADOLocal
    CursorType = ctStatic
    CommandText = 'select * from TSubject'
    Parameters = <>
    Left = 224
    Top = 104
  end
end