e奖惩单生成.frm

人事管理系统:包括员工公资的管理,考勤的管理,还有各种考核等功能

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 & "号学生奖惩单:"
     strReport = strReport & stuNo & "号学生奖惩单" & vbCrLf
     '得到奖惩单
      SQL = "SELECT 类别,名称,日期,单位,原因 FROM 奖惩信息表 "
      SQL = SQL & " WHERE (学号 = '" & stuNo & "') order by 奖惩ID"
      Set rs = Nothing
      Set rs = SelectSQL(SQL, msg)
      If rs.RecordCount > 0 Then
           '写奖惩信息
          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()
'退出操作
    学生档案管理.Enabled = True
    E奖惩查询.Enabled = True
    Unload Me
End Sub
Private Sub Form_Load()
 '得到学号
    stuNo = E奖惩查询.strQuery
    Call LoadData(stuNo)
End Sub
Private Sub Form_Unload(Cancel As Integer)
'退出操作
    Unload Me
    学生档案管理.Enabled = True
    E奖惩查询.Enabled = True
End Sub