VERSION 5.00
Begin VB.Form E獎懲單生成 
   Caption         =   "獎懲單生成"
   ClientHeight    =   4845
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5205
   LinkTopic       =   "Form1"
   ScaleHeight     =   4845
   ScaleWidth      =   5205
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame1 
      Caption         =   "獎懲單"
      Height          =   4815
      Index           =   0
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5175
      Begin VB.CommandButton CmdExit 
         Caption         =   "退出"
         Height          =   375
         Left            =   3000
         TabIndex        =   2
         Top             =   120
         Width           =   1455
      End
      Begin VB.TextBox txtReport 
         Height          =   4095
         Left            =   120
         MultiLine       =   -1  'True
         ScrollBars      =   3  'Both
         TabIndex        =   1
         Top             =   600
         Width           =   4935
      End
      Begin VB.Label LblNotes 
         Caption         =   "獎懲單"
         Height          =   375
         Left            =   240
         TabIndex        =   3
         Top             =   240
         Width           =   2775
      End
   End
End
Attribute VB_Name = "E獎懲單生成"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim SQL As String
Dim stuNo As String
Dim msg As String
Private Sub LoadData(stuNo As String) '顯示獎懲報表
    Dim strReport As String
    Dim strJLXX As String
    Dim strCCXX As String
    Dim strTemp As String
     LblNotes.Caption = stuNo & "號學(xué)生獎懲單:"
     strReport = strReport & stuNo & "號學(xué)生獎懲單" & vbCrLf
     '得到獎懲單
      SQL = "SELECT 類別,名稱,日期,單位,原因 FROM 獎懲信息表 "
      SQL = SQL & " WHERE (學(xué)號 = '" & stuNo & "') order by 獎懲ID"
      Set rs = Nothing
      Set rs = SelectSQL(SQL, msg)
      If rs.RecordCount > 0 Then
           '寫?yīng)剳托畔?          Do While (Not rs.EOF)
              For Index = 0 To 4
                  If rs.Fields(Index) <> "" Then
                      strTemp = strTemp & rs.Fields(Index).Name & "：" & rs.Fields(Index) & vbCrLf
                  Else
                      strTemp = strTemp & rs.Fields(Index).Name & "：" & "無" & vbCrLf
                  End If
              Next Index
              strTemp = strTemp & "--------------" & vbCrLf
              If rs.Fields(0) = "獎勵" Then
                  strJLXX = strJLXX & strTemp
              Else
                  strCCXX = strCCXX & strTemp
              End If
              strTemp = ""
              rs.MoveNext
          Loop
      Else
          strJLXX = strJLXX & "沒有獎勵信息....." & vbCrLf
          strCCXX = strCCXX & "沒有懲處信息....." & vbCrLf
      End If
    
      If strJLXX = "" Then
          strJLXX = strJLXX & "沒有獎勵信息....." & vbCrLf
      ElseIf strCCXX = "" Then
          strCCXX = strCCXX & "沒有懲處信息....." & vbCrLf
      End If
      strJLXX = "【獎勵】" & vbCrLf & strJLXX
      strCCXX = "【懲處】" & vbCrLf & strCCXX
      txtReport.Text = strReport & strJLXX & strCCXX '顯示成績單
End Sub
Private Sub CmdExit_Click()
'退出操作
    學(xué)生檔案管理.Enabled = True
    E獎懲查詢.Enabled = True
    Unload Me
End Sub
Private Sub Form_Load()
 '得到學(xué)號
    stuNo = E獎懲查詢.strQuery
    Call LoadData(stuNo)
End Sub
Private Sub Form_Unload(Cancel As Integer)
'退出操作
    Unload Me
    學(xué)生檔案管理.Enabled = True
    E獎懲查詢.Enabled = True
End Sub