u_studentmangeaction.dfm

一个简单的学籍管理软件

            CanEdit = False
            Expanded = False
            FieldName = 'S_XHAO'
            KiloFlag = False
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end
          item
            CanEdit = False
            Expanded = False
            FieldName = 'S_KMHAO'
            KiloFlag = False
            Width = 103
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end
          item
            Expanded = False
            FieldName = 'N_RXCJI'
            KiloFlag = False
            Width = 75
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end>
      end
      object Panel2: TPanel
        Left = 0
        Top = 294
        Width = 614
        Height = 60
        Align = alBottom
        TabOrder = 1
        object Btn_GEdit: TButton
          Left = 269
          Top = 20
          Width = 75
          Height = 25
          Caption = '修改'
          TabOrder = 0
          OnClick = Btn_GEditClick
        end
        object Btn_GOk: TButton
          Left = 369
          Top = 20
          Width = 75
          Height = 25
          Caption = '确认'
          TabOrder = 1
          OnClick = Btn_GOkClick
        end
        object Btn_GCancel: TButton
          Left = 468
          Top = 20
          Width = 75
          Height = 25
          Caption = '取消'
          TabOrder = 2
          OnClick = Btn_GCancelClick
        end
      end
    end
    object Ts_Health: TTabSheet
      Caption = '健康状况'
      ImageIndex = 3
      object HGrid: THDBGrid
        Left = 0
        Top = 0
        Width = 614
        Height = 294
        Align = alClient
        CaptionBckColor = clBtnFace
        CaptionHeight = 0
        CaptionPanelFont.Charset = GB2312_CHARSET
        CaptionPanelFont.Color = clWindowText
        CaptionPanelFont.Height = -14
        CaptionPanelFont.Name = '宋体'
        CaptionPanelFont.Style = []
        CaptionTextColor = clBlack
        CaptionUnderLine = usDouble
        DataSource = DDs_Health
        LimitedCol = 0
        LimitedColor = clInfoBk
        IndicatorType = itAlive
        Options = [tgTitles, tgIndicator, tgColSizing, tgColMoving, tgLimitedColMoving, tgColLines, tgRowLines, tgConfirmDelete, tgCancelOnExit]
        HeightPerRow = 0
        ReturnDirection = rdRight
        RowAlternate = False
        RowAlternateColor = clWindow
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        TitleRow = 2
        VertAlignment = vgCenter
        OnDblClick = FGridDblClick
        OnKeyDown = FGridKeyDown
        Columns = <
          item
            CanEdit = False
            Expanded = False
            FieldName = 'S_XHAO'
            KiloFlag = False
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end
          item
            CanEdit = False
            Expanded = False
            FieldName = 'S_XQHAO'
            KiloFlag = False
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end
          item
            Expanded = False
            FieldName = 'I_SGAO'
            KiloFlag = False
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end
          item
            Expanded = False
            FieldName = 'I_FHLIANG'
            KiloFlag = False
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end
          item
            Expanded = False
            FieldName = 'N_ZYSLI'
            KiloFlag = False
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end
          item
            Expanded = False
            FieldName = 'N_YYSLI'
            KiloFlag = False
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end
          item
            Expanded = False
            FieldName = 'N_TZHONG'
            KiloFlag = False
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end
          item
            Expanded = False
            FieldName = 'N_XSSU'
            KiloFlag = False
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end
          item
            Expanded = False
            FieldName = 'I_XWEI'
            KiloFlag = False
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end
          item
            Expanded = False
            FieldName = 'SI_MBO'
            KiloFlag = False
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end
          item
            Expanded = False
            FieldName = 'SI_QCHI'
            KiloFlag = False
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end
          item
            Expanded = False
            FieldName = 'SI_TYDBIAO'
            KiloFlag = False
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end
          item
            Expanded = False
            FieldName = 'S_YWBSHI'
            KiloFlag = False
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end>
      end
      object Panel3: TPanel
        Left = 0
        Top = 294
        Width = 614
        Height = 60
        Align = alBottom
        TabOrder = 1
        object Btn_HAdd: TButton
          Left = 171
          Top = 21
          Width = 75
          Height = 25
          Caption = '添加'
          TabOrder = 0
          OnClick = Btn_HAddClick
        end
        object Btn_HEdit: TButton
          Left = 270
          Top = 21
          Width = 75
          Height = 25
          Caption = '修改'
          TabOrder = 1
          OnClick = Btn_HEditClick
        end
        object Btn_HDelete: TButton
          Left = 71
          Top = 21
          Width = 75
          Height = 25
          Caption = '删除'
          Enabled = False
          TabOrder = 2
          Visible = False
        end
        object Btn_HOk: TButton
          Left = 369
          Top = 21
          Width = 75
          Height = 25
          Caption = '确认'
          TabOrder = 3
          OnClick = Btn_HOkClick
        end
        object Btn_HCancel: TButton
          Left = 468
          Top = 21
          Width = 75
          Height = 25
          Caption = '取消'
          TabOrder = 4
          OnClick = Btn_HCancelClick
        end
      end
    end
  end
  object Btn_Prev: TButton
    Left = 52
    Top = 397
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '上一步(&L)'
    Enabled = False
    TabOrder = 1
    OnClick = Btn_PrevClick
  end
  object Btn_Next: TButton
    Left = 163
    Top = 397
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '下一步(&N)'
    TabOrder = 2
    OnClick = Btn_NextClick
  end
  object Qry_Family: TQuery
    CachedUpdates = True
    BeforePost = Qry_FamilyBeforePost
    AfterPost = Qry_FamilyAfterPost
    DatabaseName = 'LDSTUDATA'
    SQL.Strings = (
      'SELECT * FROM xsjtcy WHERE s_xhao = :ps_xhao')
    UpdateObject = UpSQL_Family
    Left = 614
    Top = 451
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ps_xhao'
        ParamType = ptUnknown
      end>
    object Qry_FamilyS_XHAO: TStringField
      DisplayWidth = 11
      FieldName = 'S_XHAO'
      Size = 11
    end
    object Qry_FamilyI_SXHAO: TIntegerField
      DisplayWidth = 5
      FieldName = 'I_SXHAO'
    end
    object Qry_FamilyS_XMING: TStringField
      DisplayWidth = 9
      FieldName = 'S_XMING'
      Size = 16
    end
    object Qry_FamilyD_CSRQI: TDateField
      DisplayWidth = 11
      FieldName = 'D_CSRQI'
      OnGetText = Qry_FamilyD_CSRQIGetText
    end
    object Qry_FamilySI_CHU: TSmallintField
      DisplayWidth = 9
      FieldName = 'SI_CHU'
    end
    object Qry_FamilySI_ZZMMIAO: TSmallintField
      DisplayWidth = 11
      FieldName = 'SI_ZZMMIAO'
    end
    object Qry_FamilyS_GZDWEI: TStringField
      DisplayWidth = 23
      FieldName = 'S_GZDWEI'
      Size = 40
    end
  end
  object DDs_Family: TDataSource
    DataSet = Qry_Family
    Left = 614
    Top = 495
  end
  object UpSQL_Family: TUpdateSQL
    ModifySQL.Strings = (
      'update XSJTCY'
      'set'
      '  S_XHAO = :S_XHAO,'
      '  I_SXHAO = :I_SXHAO,'
      '  S_XMING = :S_XMING,'
      '  D_CSRQI = :D_CSRQI,'
      '  SI_CHU = :SI_CHU,'
      '  SI_ZZMMIAO = :SI_ZZMMIAO,'
      '  S_GZDWEI = :S_GZDWEI'
      'where'
      '  S_XHAO = :OLD_S_XHAO and'
      '  I_SXHAO = :OLD_I_SXHAO')
    InsertSQL.Strings = (
      'insert into XSJTCY'
      
        '  (S_XHAO, I_SXHAO, S_XMING, D_CSRQI, SI_CHU, SI_ZZMMIAO, S_GZDW' +
        'EI)'
      'values'
      
        '  (:S_XHAO, :I_SXHAO, :S_XMING, :D_CSRQI, :SI_CHU, :SI_ZZMMIAO, ' +
        ':S_GZDWEI)')
    DeleteSQL.Strings = (
      'delete from XSJTCY'
      'where'
      '  S_XHAO = :OLD_S_XHAO and'
      '  I_SXHAO = :OLD_I_SXHAO')
    Left = 614
    Top = 539
  end
  object Qry_Grades: TQuery
    CachedUpdates = True
    DatabaseName = 'LDSTUDATA'
    SQL.Strings = (
      'SELECT * FROM XSRXCJ WHERE s_xhao = :ps_xhao')
    UpdateObject = UpSQL_Grades
    Left = 654
    Top = 451
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ps_xhao'
        ParamType = ptUnknown
      end>
    object Qry_GradesS_XHAO: TStringField
      FieldName = 'S_XHAO'
      Size = 11
    end
    object Qry_GradesS_KMHAO: TStringField
      FieldName = 'S_KMHAO'
      OnGetText = Qry_GradesS_KMHAOGetText
      OnSetText = Qry_GradesS_KMHAOSetText
      Size = 4
    end
    object Qry_GradesN_RXCJI: TFloatField
      FieldName = 'N_RXCJI'
      DisplayFormat = '0.00'
    end
  end
  object DDs_Grades: TDataSource
    DataSet = Qry_Grades
    Left = 654
    Top = 495
  end
  object UpSQL_Grades: TUpdateSQL
    ModifySQL.Strings = (
      'update XSRXCJ'
      'set'
      '  S_XHAO = :S_XHAO,'
      '  S_KMHAO = :S_KMHAO,'
      '  N_RXCJI = :N_RXCJI'
      'where'
      '  S_XHAO = :OLD_S_XHAO and'
      '  S_KMHAO = :OLD_S_KMHAO')
    InsertSQL.Strings = (
      'insert into XSRXCJ'
      '  (S_XHAO, S_KMHAO, N_RXCJI)'
      'values'
      '  (:S_XHAO, :S_KMHAO, :N_RXCJI)')
    DeleteSQL.Strings = (
      'delete from XSRXCJ'
      'where'
      '  S_XHAO = :OLD_S_XHAO and'
      '  S_KMHAO = :OLD_S_KMHAO')
    Left = 654
    Top = 539
  end
  object Qry_Health: TQuery
    CachedUpdates = True
    BeforePost = Qry_HealthBeforePost
    AfterPost = Qry_HealthAfterPost
    DatabaseName = 'LDSTUDATA'
    SQL.Strings = (
      'SELECT * FROM XSSTZK  WHERE s_xhao = :ps_xhao')
    UpdateObject = UpSQL_Health
    Left = 693
    Top = 451
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ps_xhao'
        ParamType = ptUnknown
      end>
    object Qry_HealthS_XHAO: TStringField
      FieldName = 'S_XHAO'
      Size = 11
    end
    object Qry_HealthS_XQHAO: TStringField
      FieldName = 'S_XQHAO'
      Size = 5
    end
    object Qry_HealthI_SGAO: TIntegerField
      FieldName = 'I_SGAO'
    end
    object Qry_HealthI_FHLIANG: TIntegerField
      FieldName = 'I_FHLIANG'
    end
    object Qry_HealthN_ZYSLI: TFloatField
      FieldName = 'N_ZYSLI'
      DisplayFormat = '0.00'
    end
    object Qry_HealthN_YYSLI: TFloatField
      FieldName = 'N_YYSLI'
      DisplayFormat = '0.00'
    end
    object Qry_HealthN_TZHONG: TFloatField
      FieldName = 'N_TZHONG'
      DisplayFormat = '0.00'
    end
    object Qry_HealthN_XSSU: TFloatField
      FieldName = 'N_XSSU'
      DisplayFormat = '0.00'
    end
    object Qry_HealthI_XWEI: TIntegerField
      FieldName = 'I_XWEI'
    end
    object Qry_HealthSI_MBO: TSmallintField
      FieldName = 'SI_MBO'
    end
    object Qry_HealthSI_QCHI: TSmallintField
      FieldName = 'SI_QCHI'
    end
    object Qry_HealthSI_TYDBIAO: TSmallintField
      FieldName = 'SI_TYDBIAO'
    end
    object Qry_HealthS_YWBSHI: TStringField
      FieldName = 'S_YWBSHI'
      Size = 30
    end
  end
  object DDs_Health: TDataSource
    DataSet = Qry_Health
    Left = 693
    Top = 495
  end
  object UpSQL_Health: TUpdateSQL
    ModifySQL.Strings = (
      'update XSSTZK'
      'set'
      '  S_XHAO = :S_XHAO,'
      '  S_XQHAO = :S_XQHAO,'
      '  I_SGAO = :I_SGAO,'
      '  I_FHLIANG = :I_FHLIANG,'
      '  N_ZYSLI = :N_ZYSLI,'
      '  N_YYSLI = :N_YYSLI,'
      '  N_TZHONG = :N_TZHONG,'
      '  N_XSSU = :N_XSSU,'
      '  I_XWEI = :I_XWEI,'
      '  SI_MBO = :SI_MBO,'
      '  SI_QCHI = :SI_QCHI,'
      '  SI_TYDBIAO = :SI_TYDBIAO,'
      '  S_YWBSHI = :S_YWBSHI'
      'where'
      '  S_XHAO = :OLD_S_XHAO and'
      ' SI_XQHAO = :OLD_S_XQHAO')
    InsertSQL.Strings = (
      'insert into XSSTZK'
      '  (S_XHAO, S_XQHAO, I_SGAO, I_FHLIANG, N_ZYSLI, N_YYSLI, '
      'N_TZHONG, '
      '   N_XSSU, I_XWEI, SI_MBO, SI_QCHI, SI_TYDBIAO, S_YWBSHI)'
      'values'
      '  (:S_XHAO,  :S_XQHAO, :I_SGAO, :I_FHLIANG, :N_ZYSLI, :N_YYSLI, '
      
        '   :N_TZHONG, :N_XSSU, :I_XWEI, :SI_MBO, :SI_QCHI, :SI_TYDBIAO, ' +
        ':S_YWBSHI)')
    DeleteSQL.Strings = (
      'delete from XSSTZK'
      'where'
      '  S_XHAO = :OLD_S_XHAO and'
      '  S_XQHAO = :OLD_S_XQHAO')
    Left = 693
    Top = 539
  end
end