u_examselect.dfm

一个简单的学籍管理软件

object Fm_ExamSelect: TFm_ExamSelect
  Left = 88
  Top = 52
  BorderStyle = bsDialog
  Caption = '选择参加考试学生'
  ClientHeight = 430
  ClientWidth = 633
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 14
  object Label3: TLabel
    Left = 15
    Top = 14
    Width = 63
    Height = 14
    Caption = '选择班级:'
  end
  object Label1: TLabel
    Left = 15
    Top = 48
    Width = 70
    Height = 14
    Caption = '学生列表：'
  end
  object Bevel1: TBevel
    Left = 0
    Top = 374
    Width = 633
    Height = 56
    Align = alBottom
    Shape = bsTopLine
  end
  object Label2: TLabel
    Left = 347
    Top = 46
    Width = 98
    Height = 14
    Caption = '参加考试学生：'
  end
  object SGrid: THDBGrid
    Left = 15
    Top = 69
    Width = 270
    Height = 295
    CaptionBckColor = clBtnFace
    CaptionHeight = 0
    CaptionPanelFont.Charset = DEFAULT_CHARSET
    CaptionPanelFont.Color = clWindowText
    CaptionPanelFont.Height = -14
    CaptionPanelFont.Name = '宋体'
    CaptionPanelFont.Style = []
    CaptionTextColor = clBlack
    CaptionUnderLine = usDouble
    DataSource = SDs
    LimitedCol = 1
    LimitedColor = clInfoBk
    IndicatorType = itAlive
    Options = [tgTitles, tgIndicator, tgColSizing, tgLimitedColMoving, tgColLines, tgRowLines, tgTabs, tgRowSelect, tgLimitedRowSelect, tgConfirmDelete, tgCancelOnExit]
    HeightPerRow = 0
    ReturnDirection = rdNone
    RowAlternate = False
    RowAlternateColor = clWindow
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    TitleRow = 2
    VertAlignment = vgCenter
    Columns = <
      item
        Expanded = False
        FieldName = 'S_XHAO'
        KiloFlag = False
        Title.Caption = '学号'
        Width = 82
        Visible = True
        MoneyLine = False
        LeftMoneyDouble = True
      end
      item
        Expanded = False
        FieldName = 'S_XMING'
        KiloFlag = False
        Title.Caption = '姓名'
        Width = 73
        Visible = True
        MoneyLine = False
        LeftMoneyDouble = True
      end
      item
        Expanded = False
        FieldName = 'S_BJHAO'
        KiloFlag = False
        Title.Caption = '班级号'
        Width = 68
        Visible = True
        MoneyLine = False
        LeftMoneyDouble = True
      end>
  end
  object Btn_DFTJYGe: TButton
    Left = 300
    Top = 70
    Width = 33
    Height = 25
    Caption = '>'
    TabOrder = 1
    OnClick = Btn_DFTJYGeClick
  end
  object DGrid: THDBGrid
    Left = 347
    Top = 69
    Width = 270
    Height = 295
    CaptionBckColor = clBtnFace
    CaptionHeight = 0
    CaptionPanelFont.Charset = DEFAULT_CHARSET
    CaptionPanelFont.Color = clWindowText
    CaptionPanelFont.Height = -14
    CaptionPanelFont.Name = '宋体'
    CaptionPanelFont.Style = []
    CaptionTextColor = clBlack
    CaptionUnderLine = usDouble
    DataSource = DDs
    LimitedCol = 1
    LimitedColor = clInfoBk
    IndicatorType = itAlive
    Options = [tgTitles, tgIndicator, tgColSizing, tgLimitedColMoving, tgColLines, tgRowLines, tgTabs, tgRowSelect, tgLimitedRowSelect, tgConfirmDelete, tgCancelOnExit]
    HeightPerRow = 0
    ReturnDirection = rdNone
    RowAlternate = False
    RowAlternateColor = clWindow
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    TitleRow = 2
    VertAlignment = vgCenter
    Columns = <
      item
        Expanded = False
        FieldName = 's_xhao'
        KiloFlag = False
        Title.Caption = '学号'
        Visible = True
        MoneyLine = False
        LeftMoneyDouble = True
      end
      item
        Expanded = False
        FieldName = 's_xming'
        KiloFlag = False
        Title.Caption = '姓名'
        Width = 74
        Visible = True
        MoneyLine = False
        LeftMoneyDouble = True
      end
      item
        Expanded = False
        FieldName = 's_bjhao'
        KiloFlag = False
        Title.Caption = '班级号'
        Width = 68
        Visible = True
        MoneyLine = False
        LeftMoneyDouble = True
      end>
  end
  object Btn_DFTJSYou: TButton
    Left = 300
    Top = 102
    Width = 33
    Height = 25
    Caption = '>>'
    TabOrder = 3
    Visible = False
    OnClick = Btn_DFTJSYouClick
  end
  object Btn_DFSCYGe: TButton
    Left = 300
    Top = 102
    Width = 33
    Height = 25
    Caption = '<'
    TabOrder = 4
    OnClick = Btn_DFSCYGeClick
  end
  object Btn_DFSCSYou: TButton
    Left = 300
    Top = 167
    Width = 33
    Height = 25
    Caption = '<<'
    TabOrder = 5
    Visible = False
    OnClick = Btn_DFSCSYouClick
  end
  object Btn_Ok: TButton
    Left = -6
    Top = 384
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '确定'
    ModalResult = 1
    TabOrder = 6
    Visible = False
  end
  object Btn_Cancel: TButton
    Left = 185
    Top = 391
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '退出'
    ModalResult = 2
    TabOrder = 7
  end
  object Btn_Help: TButton
    Left = 374
    Top = 391
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '帮助'
    TabOrder = 8
  end
  object CmbBox_Grade: TComboBox
    Left = 89
    Top = 10
    Width = 146
    Height = 22
    Style = csDropDownList
    ItemHeight = 14
    TabOrder = 9
    OnChange = CmbBox_GradeChange
  end
  object SDs: TDataSource
    DataSet = SQuery
    Left = 47
    Top = 199
  end
  object SQuery: TQuery
    CachedUpdates = True
    DatabaseName = 'LDSTUDATA'
    SQL.Strings = (
      'SELECT * FROM xsjbxx WHERE s_bjhao LIKE  :ps_bjhao')
    UpdateObject = SUpSQL
    Left = 95
    Top = 199
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ps_bjhao'
        ParamType = ptUnknown
      end>
    object SQueryS_XHAO: TStringField
      FieldName = 'S_XHAO'
      Size = 11
    end
    object SQueryS_XMING: TStringField
      FieldName = 'S_XMING'
      Size = 16
    end
    object SQueryS_BJHAO: TStringField
      FieldName = 'S_BJHAO'
      OnGetText = SQueryS_BJHAOGetText
      Size = 9
    end
  end
  object DQuery: TQuery
    CachedUpdates = True
    DatabaseName = 'LDSTUDATA'
    SQL.Strings = (
      'SELECT d1.i_kshao, d1.s_xhao, d2.s_xming, d1.s_bjhao, d1.si_nji '
      '  FROM ckry d1, xsjbxx d2'
      'WHERE d1.i_kshao=:pi_kshao AND d1.s_xhao=d2.s_xhao AND'
      '  d1.s_bjhao LIKE :ps_bjhao')
    UpdateObject = DUpSQL
    Left = 362
    Top = 195
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pi_kshao'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ps_bjhao'
        ParamType = ptUnknown
      end>
    object DQueryi_kshao: TIntegerField
      FieldName = 'i_kshao'
    end
    object DQuerys_xhao: TStringField
      FieldName = 's_xhao'
      Size = 11
    end
    object DQuerys_xming: TStringField
      FieldName = 's_xming'
      Size = 16
    end
    object DQuerys_bjhao: TStringField
      FieldName = 's_bjhao'
      OnGetText = SQueryS_BJHAOGetText
      Size = 9
    end
    object DQuerysi_nji: TSmallintField
      FieldName = 'si_nji'
    end
  end
  object DDs: TDataSource
    DataSet = DQuery
    Left = 321
    Top = 197
  end
  object SUpSQL: TUpdateSQL
    ModifySQL.Strings = (
      'update xsjbxx'
      'set'
      '  S_XHAO = :S_XHAO,'
      '  S_XMING = :S_XMING,'
      '  SI_XBIE = :SI_XBIE,'
      '  SI_MZU = :SI_MZU,'
      '  D_CSRQI = :D_CSRQI,'
      '  S_ZPWJIAN = :S_ZPWJIAN,'
      '  S_JGUAN = :S_JGUAN,'
      '  S_XXZZHI = :S_XXZZHI,'
      '  S_LXFSHI = :S_LXFSHI,'
      '  D_RDSJIAN = :D_RDSJIAN,'
      '  D_RTSJIAN = :D_RTSJIAN,'
      '  D_RXSJIAN = :D_RXSJIAN,'
      '  S_BYXXIAO = :S_BYXXIAO,'
      '  S_BJHAO = :S_BJHAO'
      'where'
      '  S_XHAO = :OLD_S_XHAO')
    InsertSQL.Strings = (
      'insert into xsjbxx'
      
        '  (S_XHAO, S_XMING, SI_XBIE, SI_MZU, D_CSRQI, S_ZPWJIAN, S_JGUAN' +
        ', S_XXZZHI, '
      
        '   S_LXFSHI, D_RDSJIAN, D_RTSJIAN, D_RXSJIAN, S_BYXXIAO, S_BJHAO' +
        ')'
      'values'
      
        '  (:S_XHAO, :S_XMING, :SI_XBIE, :SI_MZU, :D_CSRQI, :S_ZPWJIAN, :' +
        'S_JGUAN, '
      
        '   :S_XXZZHI, :S_LXFSHI, :D_RDSJIAN, :D_RTSJIAN, :D_RXSJIAN, :S_' +
        'BYXXIAO, '
      '   :S_BJHAO)')
    DeleteSQL.Strings = (
      'delete from xsjbxx'
      'where'
      '  S_XHAO = :OLD_S_XHAO')
    Left = 142
    Top = 198
  end
  object DUpSQL: TUpdateSQL
    ModifySQL.Strings = (
      'update ckry'
      'set'
      '  i_kshao = :i_kshao,'
      '  s_xhao = :s_xhao,'
      '  s_bjhao = :s_bjhao,'
      '  si_nji = :si_nji'
      'where'
      '  i_kshao = :OLD_i_kshao and'
      '  s_xhao = :OLD_s_xhao')
    InsertSQL.Strings = (
      'insert into ckry'
      '  (i_kshao, s_xhao, s_bjhao, si_nji)'
      'values'
      '  (:i_kshao, :s_xhao, :s_bjhao, :si_nji)')
    DeleteSQL.Strings = (
      'delete from ckry'
      'where'
      '  i_kshao = :OLD_i_kshao and'
      '  s_xhao = :OLD_s_xhao')
    Left = 408
    Top = 197
  end
end