cjll.frm

学生管理系统 很不错的一个课程设计 适合大学生毕业设计用

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form 成绩浏览 
   Caption         =   "成绩管理-成绩浏览"
   ClientHeight    =   4920
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7590
   LinkTopic       =   "Form19"
   ScaleHeight     =   4920
   ScaleWidth      =   7590
   StartUpPosition =   3  '窗口缺省
   Begin MSFlexGridLib.MSFlexGrid MSF1 
      Height          =   4395
      Left            =   -30
      TabIndex        =   10
      Top             =   1710
      Width           =   7575
      _ExtentX        =   13361
      _ExtentY        =   7752
      _Version        =   393216
   End
   Begin VB.Frame Frame1 
      Caption         =   "输入显示信息"
      Height          =   1095
      Left            =   30
      TabIndex        =   1
      Top             =   570
      Width           =   7515
      Begin VB.CommandButton Command2 
         Caption         =   "取消"
         Height          =   285
         Left            =   5970
         TabIndex        =   9
         Top             =   720
         Width           =   615
      End
      Begin VB.CommandButton Command1 
         Caption         =   "确定"
         Height          =   285
         Left            =   4920
         TabIndex        =   8
         Top             =   720
         Width           =   615
      End
      Begin VB.ComboBox Combo4 
         Height          =   300
         Left            =   750
         Style           =   2  'Dropdown List
         TabIndex        =   7
         Top             =   660
         Width           =   2775
      End
      Begin VB.ComboBox Combo3 
         Height          =   300
         Left            =   4530
         Style           =   2  'Dropdown List
         TabIndex        =   5
         Top             =   240
         Width           =   2745
      End
      Begin VB.ComboBox Combo2 
         Height          =   300
         Left            =   750
         Style           =   2  'Dropdown List
         TabIndex        =   3
         Top             =   210
         Width           =   2775
      End
      Begin VB.Label Label5 
         Caption         =   "科目"
         Height          =   225
         Left            =   180
         TabIndex        =   6
         Top             =   720
         Width           =   555
      End
      Begin VB.Label Label4 
         Caption         =   "学期"
         Height          =   225
         Left            =   3960
         TabIndex        =   4
         Top             =   270
         Width           =   495
      End
      Begin VB.Label Label3 
         Caption         =   "班级"
         Height          =   225
         Left            =   150
         TabIndex        =   2
         Top             =   300
         Width           =   435
      End
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "成 绩 浏 览"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   60
      TabIndex        =   0
      Top             =   60
      Width           =   7485
   End
End
Attribute VB_Name = "成绩浏览"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mrc As ADODB.Recordset
'Dim mrc1 As ADODB.Recordset
Dim kc As String
Dim xq As String
Dim bj As String

'Dim kc1 As String
'Dim xq1 As String
'Dim bj1 As String
'Dim yx1 As String
Dim j As Integer

Private Sub Command1_Click()
j = 0
xq = ""
kc = ""
bj = ""
'检查院系组合框内容是否为空

'检查班级组合框内容是否为空
If Combo2.Text <> "" Then
j = j + 1
txtsql = "select * from 班级 where 班级名称='" & Trim(Combo2.Text) & "'"
Set mrc = ExecuteSQL(txtsql)
bj = Trim(mrc.Fields(0))
mrc.Close
End If

'检查学期组合框内容是否为空
If Combo3.Text <> "" Then
j = j + 1
txtsql = "select * from 学期 where 学期名称='" & Trim(Combo3.Text) & "'"
Set mrc = ExecuteSQL(txtsql)
 xq = Trim(mrc.Fields(0))
mrc.Close
End If
'检查课程组合框内容是否为空
If Combo4.Text <> "" Then
j = j + 1
txtsql = "select * from 课程 where 课程名称='" & Trim(Combo4.Text) & "'"
Set mrc = ExecuteSQL(txtsql)
kc = Trim(mrc.Fields(0))
mrc.Close
End If
'组合数据库查询语句
txtsql = ""

If bj <> "" Then
    If txtsql = "" Then
        txtsql = "班级代码='" & Trim(bj) & "' "
    Else
        txtsql = txtsql & " and 班级代码='" & Trim(bj) & "'"
    End If
End If

If xq <> "" Then
If txtsql = "" Then
        txtsql = "学期代码='" & Trim(xq) & "' "
    Else
        txtsql = txtsql & " and 学期代码='" & Trim(xq) & "'"
    End If
End If
If kc <> "" Then
If txtsql = "" Then
        txtsql = "课程号='" & Trim(kc) & "' "
    Else
        txtsql = txtsql & " and 课程号='" & Trim(kc) & "'"
    End If
End If
If j = 0 Then
MsgBox " 必须选择一个查询条件！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
txtsql = "select * from 学生成绩 where " & txtsql
Me.cjshowtitle
Me.cjshowdata
End Sub
Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
'******************************************
'加载院系代码

'***************************************
'加载班级代码
txtsql = "select * from 班级"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
MsgBox " 无班级记录！", vbExclamation + vbOKOnly, "警告"
mrc.Close
Exit Sub
End If
Do While Not mrc.EOF
Combo2.AddItem mrc.Fields(1)
mrc.MoveNext
Loop
mrc.Close
'************************
'加载学期代码
txtsql = "select * from 学期"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
MsgBox " 无学期记录！", vbExclamation + vbOKOnly, "警告"
mrc.Close
Exit Sub
End If
Do While Not mrc.EOF
Combo3.AddItem mrc.Fields(1)
mrc.MoveNext
Loop
mrc.Close
'**********************************
'加载课程代码
txtsql = "select * from 课程"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
MsgBox " 无课程记录！", vbExclamation + vbOKOnly, "警告"
mrc.Close
Exit Sub
End If
Do While Not mrc.EOF
Combo4.AddItem mrc.Fields(1)
mrc.MoveNext
Loop
mrc.Close
End Sub
Public Sub cjshowtitle()
    Dim i As Integer
    MSF1.Clear
    With MSF1
        .Cols = 7
        .TextMatrix(0, 1) = "学号"
        .TextMatrix(0, 2) = "姓名"
        .TextMatrix(0, 3) = "班级代码"
        .TextMatrix(0, 4) = "学期代码"
        .TextMatrix(0, 5) = "课程代码"
        .TextMatrix(0, 6) = "成绩"
        .ColWidth(0) = 200
        .ColWidth(1) = 1000
        .ColWidth(2) = 1400
        .ColWidth(3) = 600
        .ColWidth(4) = 600
        .ColWidth(5) = 600
        .ColWidth(6) = 600
        .FixedRows = 1
       
        .FillStyle = flexFillSingle
        .Col = 0
        .Row = 0
        .RowSel = 1
        .ColSel = .Cols - 1
        .CellAlignment = 4
        .Row = 1
    End With
End Sub

'显示MSFlexGrid的内容
Public Sub cjshowdata()
    Dim j As Integer
    Dim i As Integer

    Dim mrc1 As ADODB.Recordset
    Set mrc1 = ExecuteSQL(Trim(txtsql))
    If mrc1.EOF = False Then
        mrc1.MoveFirst
        With MSF1
            .Rows = 1
            Do While Not mrc1.EOF
                .Rows = .Rows + 1
                For i = 1 To mrc1.Fields.Count
                    .TextMatrix(.Rows - 1, i) = mrc1.Fields(i - 1)
                Next i
                mrc1.MoveNext
            Loop
            mrc1.Close
        End With
    End If
End Sub