b学籍报告.frm

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

VERSION 5.00
Begin VB.Form B学籍报告 
   Caption         =   "学籍报告"
   ClientHeight    =   6870
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9240
   LinkTopic       =   "Form1"
   ScaleHeight     =   6870
   ScaleWidth      =   9240
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtReport 
      Height          =   5895
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   4
      Top             =   720
      Width           =   9015
   End
   Begin VB.Frame Frame 
      Caption         =   "选择学生"
      Height          =   735
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   9015
      Begin VB.CommandButton CmdExit 
         BackColor       =   &H00C0C0C0&
         Caption         =   "退出"
         Height          =   360
         Left            =   7920
         Style           =   1  'Graphical
         TabIndex        =   5
         Top             =   240
         Width           =   800
      End
      Begin VB.CommandButton CmdReport 
         Caption         =   "学籍报告"
         Height          =   375
         Left            =   6240
         TabIndex        =   3
         Top             =   240
         Width           =   1095
      End
      Begin VB.ComboBox CboStu 
         Height          =   315
         Left            =   4320
         TabIndex        =   1
         Top             =   240
         Width           =   1815
      End
      Begin VB.Label Label9 
         Caption         =   "选择学生："
         Height          =   255
         Left            =   3360
         TabIndex        =   2
         Top             =   270
         Width           =   1095
      End
   End
End
Attribute VB_Name = "B学籍报告"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As ADODB.Recordset
Dim SQL As String
Dim msg As String
Dim Index As Integer
Dim strClassNo As String
Dim strReport As String '存储报表
Private Sub ShowData()
    Dim stuNo As String
    If CboStu.ListCount > 0 Then
        stuNo = Left(Trim(CboStu.Text), 8)
    Else
        Exit Sub
    End If
    '开始写报表
    '（1）学生基本信息
    SQL = " select * from 学生基本信息表"
    SQL = SQL & " where 学号='" & stuNo & "' "
    Set rs = Nothing
    Set rs = SelectSQL(SQL, msg)
    strReport = "【学生基本信息】" & vbCrLf
    If rs.RecordCount > 0 Then
        If (Not rs.BOF) Then
            rs.MoveFirst
            '写学生信息
            For Index = 0 To 14
                If rs.Fields(Index) <> "" Then
                    strReport = strReport & rs.Fields(Index).Name & "：" & rs.Fields(Index) & vbCrLf
                Else
                    strReport = strReport & rs.Fields(Index).Name & "：" & "暂无" & vbCrLf
                End If
            Next Index
        End If
        
    Else
        strReport = "目前没有学生信息....." & vbCrLf
    End If
    '（2）家庭成员信息
    SQL = " select * from 家庭成员信息表"
    SQL = SQL & " where 学号='" & stuNo & "' "
    Set rs = Nothing
    Set rs = SelectSQL(SQL, msg)
    strReport = strReport & "【家庭成员信息】" & vbCrLf
    If rs.RecordCount > 0 Then
        '写成员信息
        Do While (Not rs.EOF)
            For Index = 2 To 6
                If rs.Fields(Index) <> "" Then
                    strReport = strReport & rs.Fields(Index).Name & "：" & rs.Fields(Index) & "   "
                Else
                    strReport = strReport & rs.Fields(Index).Name & "：" & "暂无" & "   "
                End If
            Next Index
            strReport = strReport & vbCrLf
            rs.MoveNext
        Loop
    Else
        strReport = strReport & "目前没有家庭成员信息....." & vbCrLf
    End If
    '（3）学生注册信息
    SQL = " select * from 注册信息表"
    SQL = SQL & " where 学号='" & stuNo & "' "
    Set rs = Nothing
    Set rs = SelectSQL(SQL, msg)
    strReport = strReport & "【注册信息】" & vbCrLf
    If rs.RecordCount > 0 Then
       '写注册信息
        Do While (Not rs.EOF)
            For Index = 1 To 8
                If rs.Fields(Index) <> "" Then
                    strReport = strReport & rs.Fields(Index).Name & "：" & rs.Fields(Index) & vbCrLf
                Else
                    strReport = strReport & rs.Fields(Index).Name & "：" & "暂无" & vbCrLf
                End If
            Next Index
            rs.MoveNext
        Loop
    Else
        strReport = strReport & "没有注册信息....." & vbCrLf
    End If
    '（4）学生异动信息
    SQL = " select * from 学籍异动信息表"
    SQL = SQL & " where 学号='" & stuNo & "' "
    Set rs = Nothing
    Set rs = SelectSQL(SQL, msg)
    strReport = strReport & "【异动信息】" & vbCrLf
    If rs.RecordCount > 0 Then
        Do While (Not rs.EOF)
            '写异动信息
            For Index = 2 To 4
                If rs.Fields(Index) <> "" Then
                    strReport = strReport & rs.Fields(Index).Name & "：" & rs.Fields(Index) & "   "
                Else
                    strReport = strReport & rs.Fields(Index).Name & "：" & "暂无" & "   "
                End If
            Next Index
            strReport = strReport & vbCrLf
            rs.MoveNext
        Loop
        
    Else
        strReport = strReport & "没有异动信息....." & vbCrLf
    End If
    txtReport.Text = strReport '在文本框中显示
End Sub

Private Sub CmdExit_Click()
'退出操作
    学生档案管理.Enabled = True
    rs.Close
    B学生查询.Enabled = True
    Unload Me
End Sub
Private Sub CmdReport_Click()
    Call ShowData  '重新显示数据
End Sub
Private Sub Form_Load()
    Dim strItem As String
    '得到班号
    strClassNo = B学生查询.strQuery
    '初始化学生下拉框
    SQL = " select 学号,姓名 from 学生基本信息表"
    SQL = SQL & " where 班号='" & strClassNo & "'  order by 学号"
    Set rs = Nothing
    Set rs = SelectSQL(SQL, msg)
    CboStu.Clear
    If rs.RecordCount > 0 Then
        Do While (Not rs.EOF) And (Not rs.BOF)
            strItem = rs.Fields(0) & " " & rs.Fields(1)
            CboStu.AddItem (strItem)
            rs.MoveNext
        Loop
        rs.MoveFirst
        CboStu.ListIndex = 0
    Else
        MsgBox ("目前没有学生信息！")
        '控件可用性
        CmdReport.Enabled = False
        Exit Sub
    End If
    Call ShowData '显示学生学籍报表
End Sub
Private Sub Form_Unload(Cancel As Integer)
'退出操作
    学生档案管理.Enabled = True
    B学生查询.Enabled = True
    Unload Me
End Sub