frmcjxbzycx.frm

毕业设计的学生成绩管理

VERSION 5.00
Object = "{DD44C0E7-B2CF-11D1-8DD3-444553540000}#1.0#0"; "CELL32.OCX"
Begin VB.Form FrmCjxbzycx 
   Caption         =   "按系别专业查询成绩"
   ClientHeight    =   6615
   ClientLeft      =   135
   ClientTop       =   1545
   ClientWidth     =   11655
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6615
   ScaleWidth      =   11655
   Begin VB.Frame Frame1 
      Caption         =   "成绩查询对象"
      Height          =   735
      Left            =   120
      TabIndex        =   4
      Top             =   120
      Width           =   10095
      Begin VB.ComboBox Combo5 
         Height          =   300
         ItemData        =   "FrmCjxbzycx.frx":0000
         Left            =   6000
         List            =   "FrmCjxbzycx.frx":001C
         Style           =   2  'Dropdown List
         TabIndex        =   9
         Top             =   320
         Width           =   615
      End
      Begin VB.ComboBox Combo2 
         Height          =   300
         Left            =   3480
         Style           =   2  'Dropdown List
         TabIndex        =   8
         Top             =   320
         Width           =   1695
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         Left            =   840
         Style           =   2  'Dropdown List
         TabIndex        =   7
         Top             =   320
         Width           =   1815
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Left            =   7440
         TabIndex        =   6
         Text            =   "2000"
         Top             =   315
         Width           =   975
      End
      Begin VB.TextBox Text2 
         Height          =   270
         Left            =   9240
         TabIndex        =   5
         Top             =   315
         Width           =   735
      End
      Begin VB.Label Label4 
         Caption         =   "学期："
         Height          =   255
         Left            =   5400
         TabIndex        =   14
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label3 
         Caption         =   "专业："
         Height          =   255
         Left            =   2880
         TabIndex        =   13
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label2 
         Caption         =   "系别："
         Height          =   255
         Left            =   240
         TabIndex        =   12
         Top             =   360
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "年级："
         Height          =   255
         Left            =   6840
         TabIndex        =   11
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label5 
         Caption         =   "班级："
         Height          =   255
         Left            =   8640
         TabIndex        =   10
         Top             =   360
         Width           =   615
      End
   End
   Begin VB.CommandButton Command3 
      Caption         =   "返回(&X)"
      Height          =   375
      Left            =   10440
      TabIndex        =   3
      Top             =   2160
      Width           =   1095
   End
   Begin VB.CommandButton Command2 
      Caption         =   "打印(&P)"
      Height          =   375
      Left            =   10440
      TabIndex        =   2
      Top             =   1560
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "查询(&Q)"
      Height          =   375
      Left            =   10440
      TabIndex        =   1
      Top             =   960
      Width           =   1095
   End
   Begin CELLLib.Cell Cell1 
      Height          =   5535
      Left            =   120
      TabIndex        =   0
      Top             =   960
      Width           =   10095
      _Version        =   65536
      _ExtentX        =   17806
      _ExtentY        =   9763
      _StockProps     =   0
   End
End
Attribute VB_Name = "FrmCjxbzycx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***************************************************************************************
'  过程：Command1_Click
'  功能：按系别专业查询成绩
'***************************************************************************************
Private Sub Command1_Click()
    Dim objRs1 As ADODB.Recordset
    Dim numI As Integer, numcol As Integer, numRow As Integer
    Dim strExec As String, strTemp As String
    If Combo1.Text = "" Or Combo2.Text = "" Or Combo5.Text = "" Or Text1.Text = "" Then
        MsgBox "您所指定的对象信息不全，无法查询成绩！", vbCritical, "错误信息"
    Else
        strExec = "Select * From XKQKB Where kcbmc='" & fSckcbmc(Text1.Text, Combo1.Text, Combo2.Text, Combo5.Text) & "'"
        Set objRs = objCon.Execute(strExec)
'       根据系别(Combo1)、专业(Combo2)、年级(Text1)和学期(Combo5)，从选课情况表查询选课情况
        If Not objRs.EOF Then
            Cell_Setup Cell1
'开始设置表头
            Cell1.DoAppendRow 2
'           添加两行，显示表头
            Cell1.DoAppendCol 1
            Cell1.DoSetCellString 0, 0, "学号"
            Cell1.DoSetColWidth 0, 80
            Cell1.DoSetCellAlignment 0, 0, 36
'           居中显示
            Cell1.DoSetCellReadOnly 0, 0, True
            Cell1.DoAppendCol 1
            Cell1.DoSetCellString 1, 0, "姓名"
            Cell1.DoSetCellAlignment 1, 0, 36
            Cell1.DoSetCellReadOnly 1, 0, True
            Cell1.DoJoinCells 0, 0, 0, 1
            Cell1.DoJoinCells 1, 0, 1, 1
'           由于课程名和课程计分形式各占一行，表头中的“学号”和“姓名”将同列的两行合并
            numcol = 2
'           列编号
            For numI = 1 To 10
                If objRs("kcbh" & Trim(Str(numI))) <> "" Then
'               第numI个课程为已排定的课程
                    Cell1.DoAppendCol 1
                    Cell1.DoSetCellString numcol, 0, Trim(fGetKcmc(objRs("kcbh" & Trim(Str(numI)))))