u_getsubject.dfm

一个简单的学籍管理软件

object Fm_GetSubject: TFm_GetSubject
  Left = 269
  Top = 114
  BorderStyle = bsDialog
  Caption = '请选择一门课程'
  ClientHeight = 308
  ClientWidth = 327
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 14
  object Bevel1: TBevel
    Left = 0
    Top = 258
    Width = 327
    Height = 50
    Align = alBottom
    Shape = bsTopLine
  end
  object Btn_Ok: TButton
    Left = 72
    Top = 273
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '确定'
    ModalResult = 1
    TabOrder = 0
  end
  object Btn_Cancel: TButton
    Left = 181
    Top = 273
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '取消'
    ModalResult = 2
    TabOrder = 1
  end
  object MGrid: THDBGrid
    Left = 6
    Top = 12
    Width = 315
    Height = 234
    CaptionBckColor = clBtnFace
    CaptionHeight = 0
    CaptionPanelFont.Charset = GB2312_CHARSET
    CaptionPanelFont.Color = clWindowText
    CaptionPanelFont.Height = -14
    CaptionPanelFont.Name = '宋体'
    CaptionPanelFont.Style = []
    CaptionTextColor = clBlack
    CaptionUnderLine = usDouble
    DataSource = MDS
    LimitedCol = 0
    LimitedColor = clInfoBk
    IndicatorType = itAlive
    Options = [tgTitles, tgIndicator, tgColSizing, tgColMoving, tgLimitedColMoving, tgColLines, tgRowLines, tgTabs, tgRowSelect, tgLimitedRowSelect, tgConfirmDelete, tgCancelOnExit]
    HeightPerRow = 0
    ReturnDirection = rdNone
    RowAlternate = False
    RowAlternateColor = clWindow
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    TitleRow = 2
    VertAlignment = vgCenter
    Columns = <
      item
        Expanded = False
        FieldName = 'S_KCDHAO'
        KiloFlag = False
        Width = 33
        Visible = True
        MoneyLine = False
        LeftMoneyDouble = True
      end
      item
        Expanded = False
        FieldName = 'S_KCMCHENG'
        KiloFlag = False
        Width = 119
        Visible = True
        MoneyLine = False
        LeftMoneyDouble = True
      end
      item
        Expanded = False
        FieldName = 'S_KCXHAO'
        KiloFlag = False
        Width = 55
        Visible = True
        MoneyLine = False
        LeftMoneyDouble = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'SI_KCLXING'
        KiloFlag = False
        Width = 49
        Visible = True
        MoneyLine = False
        LeftMoneyDouble = True
      end>
  end
  object MQuery: TQuery
    CachedUpdates = True
    DatabaseName = 'LDSTUDATA'
    SQL.Strings = (
      'SELECT * FROM kc ')
    UpdateObject = MUpSQL
    Left = 88
    Top = 77
    object MQueryS_KCDHAO: TStringField
      DisplayWidth = 4
      FieldName = 'S_KCDHAO'
      Size = 4
    end
    object MQueryS_KCMCHENG: TStringField
      DisplayWidth = 16
      FieldName = 'S_KCMCHENG'
      Size = 16
    end
    object MQueryS_KCXHAO: TStringField
      DisplayWidth = 8
      FieldName = 'S_KCXHAO'
      Size = 6
    end
    object MQuerySI_KCLXING: TSmallintField
      DisplayWidth = 6
      FieldName = 'SI_KCLXING'
    end
  end
  object MDS: TDataSource
    DataSet = MQuery
    Left = 140
    Top = 77
  end
  object MUpSQL: TUpdateSQL
    ModifySQL.Strings = (
      'update kc'
      'set'
      '  S_KCDHAO = :S_KCDHAO,'
      '  S_KCMCHENG = :S_KCMCHENG,'
      '  S_KCXHAO = :S_KCXHAO,'
      '  SI_KCLXING = :SI_KCLXING'
      'where'
      '  S_KCDHAO = :OLD_S_KCDHAO')
    InsertSQL.Strings = (
      'insert into kc'
      '  (S_KCDHAO, S_KCMCHENG, S_KCXHAO, SI_KCLXING)'
      'values'
      '  (:S_KCDHAO, :S_KCMCHENG, :S_KCXHAO, :SI_KCLXING)')
    DeleteSQL.Strings = (
      'delete from kc'
      'where'
      '  S_KCDHAO = :OLD_S_KCDHAO')
    Left = 192
    Top = 79
  end
end