frmtermq.frm

北大青鸟教学管理系统是学习规范编程范本.功能非常完备,代码编写有章法,不可多得

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form frmTermQ 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "年级信息查询"
   ClientHeight    =   4470
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7125
   Icon            =   "frmTermQ.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4470
   ScaleWidth      =   7125
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton cmdNext 
      Caption         =   ">"
      Enabled         =   0   'False
      Height          =   375
      Left            =   960
      TabIndex        =   12
      ToolTipText     =   "下一条"
      Top             =   1248
      Width           =   360
   End
   Begin VB.CommandButton cmdFirst 
      Caption         =   "<<"
      Enabled         =   0   'False
      Height          =   375
      Left            =   240
      TabIndex        =   11
      ToolTipText     =   "最前一条"
      Top             =   1248
      Width           =   360
   End
   Begin VB.CommandButton cmdPrevious 
      Caption         =   "<"
      Enabled         =   0   'False
      Height          =   375
      Left            =   600
      TabIndex        =   10
      ToolTipText     =   "上一条"
      Top             =   1248
      Width           =   360
   End
   Begin VB.CommandButton cmdLast 
      Caption         =   ">>"
      Enabled         =   0   'False
      Height          =   375
      Left            =   1320
      TabIndex        =   9
      ToolTipText     =   "最后一条"
      Top             =   1248
      Width           =   360
   End
   Begin VB.CommandButton cmdRetrieve 
      Caption         =   "检索"
      Default         =   -1  'True
      Height          =   350
      Left            =   5700
      TabIndex        =   8
      ToolTipText     =   "检索符合条件的记录"
      Top             =   1260
      Width           =   1155
   End
   Begin MSFlexGridLib.MSFlexGrid MsflxTerm 
      Height          =   2655
      Left            =   120
      TabIndex        =   7
      ToolTipText     =   "所有符合条件的记录"
      Top             =   1740
      Width           =   6855
      _ExtentX        =   12091
      _ExtentY        =   4683
      _Version        =   393216
      Rows            =   3
      Cols            =   8
      FixedRows       =   2
      FocusRect       =   0
      AllowUserResizing=   1
   End
   Begin VB.Frame Frame1 
      Caption         =   "查询条件"
      Height          =   975
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   6795
      Begin VB.TextBox txtTeacher 
         Height          =   350
         Left            =   5040
         TabIndex        =   6
         ToolTipText     =   "按班主任姓名检索"
         Top             =   360
         Width           =   1335
      End
      Begin VB.ComboBox cmbTerm 
         Height          =   300
         ItemData        =   "frmTermQ.frx":0442
         Left            =   2973
         List            =   "frmTermQ.frx":0452
         Style           =   2  'Dropdown List
         TabIndex        =   5
         ToolTipText     =   "按学期检索"
         Top             =   397
         Width           =   1155
      End
      Begin VB.ComboBox cmbClass 
         Height          =   300
         ItemData        =   "frmTermQ.frx":0468
         Left            =   1026
         List            =   "frmTermQ.frx":046F
         Style           =   2  'Dropdown List
         TabIndex        =   4
         ToolTipText     =   "按班级检索"
         Top             =   397
         Width           =   1215
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "班主任"
         Height          =   180
         Left            =   4314
         TabIndex        =   3
         Top             =   450
         Width           =   540
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "学期"
         Height          =   180
         Left            =   2427
         TabIndex        =   2
         Top             =   450
         Width           =   360
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "班级编号"
         Height          =   180
         Left            =   120
         TabIndex        =   1
         Top             =   450
         Width           =   720
      End
   End
End
Attribute VB_Name = "frmTermQ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'班级编号 学期编号 学期 开学日期 结束日期 班主任 备注
Option Explicit

Private Sub cmdRetrieve_Click()
    Dim intIndex
    Dim strSearch As String
    On Error GoTo Err_Term
    
    Do While MsflxTerm.Rows > 3   '以下8行为清空列表
        MsflxTerm.RemoveItem MsflxTerm.Rows - 1
    Loop
    MsflxTerm.Row = 2
    For intIndex = 0 To 7
        MsflxTerm.Col = intIndex
        MsflxTerm.Text = Empty
    Next intIndex
    
    Set Rst = Nothing
    Call Fun_Rst("TermInfo")
    If cmbClass.Text <> "所有" Then
        strSearch = "classNo='" & cmbClass.Text & "'"
    End If
    If cmbTerm.Text <> "所有" Then
        If strSearch <> "" Then
            strSearch = strSearch & "And "
        End If
        strSearch = strSearch & "term='" & cmbTerm.Text & "'"
    End If
    If txtTeacher <> "" Then
        If strSearch <> "" Then
            strSearch = strSearch & "And "
        End If
        strSearch = strSearch & "Director='" & txtTeacher
    End If
    
    Rst.Filter = (strSearch)
    
    If Rst.BOF = True And Rst.EOF = True Then
        MsgBox "没有任何记录....", vbInformation + vbOKOnly, "检索记录"
    Else
        Rst.MoveFirst
        Do While Rst.EOF = False                '读取记录
            MsflxTerm.Row = MsflxTerm.Rows - 1
            MsflxTerm.Col = 0
            MsflxTerm.Text = MsflxTerm.Rows - 2   '序号
            MsflxTerm.Col = 1
            MsflxTerm.Text = Rst.Fields("TermNo")
            MsflxTerm.Col = 2
            MsflxTerm.Text = Rst.Fields("Term")
            MsflxTerm.Col = 3
            MsflxTerm.Text = Rst.Fields("ClassNo")
            MsflxTerm.Col = 4
            MsflxTerm.Text = Rst.Fields("Begdate")
            MsflxTerm.Col = 5
            MsflxTerm.Text = Rst.Fields("Enddate")
            MsflxTerm.Col = 6
            MsflxTerm.Text = Rst.Fields("Director")
            MsflxTerm.Col = 7
            If Rst.Fields("remark") <> Null Then
                MsflxTerm.Text = Rst.Fields("remark")
            Else
                  MsflxTerm.Text = Empty
            End If

            Rst.MoveNext
            If Rst.EOF = False Then
                MsflxTerm.AddItem Empty
            End If
        Loop
        cmdPrevious.Enabled = True          '按下检索按扭后启用下列按扭
        cmdFirst.Enabled = True
        cmdNext.Enabled = True
        cmdLast.Enabled = True
        MsflxTerm.Row = 2
        Call MsflxTerm_Click
        MsgBox "检索信息成功....", vbInformation + vbOKOnly, "检索记录"
    End If
    Exit Sub
Err_Term:
    If Err.Number = 94 Then
        Resume Next
    Else
        MsgBox "未知错误:" & Err.Description & vbCrLf & "错误代号:" & Err.Number, vbCritical + vbOKOnly, "未知错误"
    End If
End Sub

Private Sub Form_Load()
    Call InitMsflx
    
    Set Rst = Nothing
    Call Fun_Rst("classinfo")           '初始化班级
    Do While Rst.EOF = False
        cmbClass.AddItem Rst.Fields("classNo")
        Rst.MoveNext
    Loop
    cmbClass.ListIndex = 0
    Rst.Close
    cmbTerm.ListIndex = 3
End Sub

Private Sub InitMsflx()
    Dim intIndex As Integer
    MsflxTerm.MergeCells = flexMergeFree
    MsflxTerm.Row = 0
    MsflxTerm.ColWidth(0) = 600                '设定第一列宽为600
    For intIndex = 1 To MsflxTerm.Cols - 1
        MsflxTerm.Col = intIndex
        MsflxTerm.Text = "班级信息列表"
        MsflxTerm.ColWidth(intIndex) = 1100

    Next intIndex
    MsflxTerm.MergeRow(0) = True
    
    MsflxTerm.Row = 1
    MsflxTerm.Col = 0
    MsflxTerm.Text = "序号"
    
    MsflxTerm.Col = 1
    MsflxTerm.Text = "学期编号"
    
    MsflxTerm.Col = 2
    MsflxTerm.Text = "学期"
    
    MsflxTerm.Col = 3
    MsflxTerm.Text = "班级编号"

    MsflxTerm.Col = 4
    MsflxTerm.Text = "开学日期"

    
    MsflxTerm.Col = 5
    MsflxTerm.Text = "结束日期"
    
    MsflxTerm.Col = 6
    MsflxTerm.Text = "班主任"
    
    MsflxTerm.Col = 7
    MsflxTerm.Text = "备注"
    
End Sub

Private Sub MsflxTerm_Click()
        
    Dim intCol As Integer
    Dim intRow As Integer
    Dim TmpRow As Integer
    TmpRow = MsflxTerm.Row
    For intRow = 2 To MsflxTerm.Rows - 1
        MsflxTerm.Row = intRow
        If TmpRow = intRow Then
            For intCol = 1 To MsflxTerm.Cols - 1
                MsflxTerm.Col = intCol
                MsflxTerm.CellForeColor = vbYellow
                MsflxTerm.CellBackColor = &H8000000D
            Next intCol
        Else
            For intCol = 1 To MsflxTerm.Cols - 1
                MsflxTerm.Col = intCol
                MsflxTerm.CellBackColor = vbWhite
                MsflxTerm.CellForeColor = vbBlack
            Next intCol
        End If
    Next intRow
    MsflxTerm.Row = TmpRow
End Sub

Private Sub cmdLast_Click()
    MsflxTerm.Row = MsflxTerm.Rows - 1
    Call MsflxTerm_Click
End Sub

Private Sub cmdNext_Click()
    If MsflxTerm.Row < MsflxTerm.Rows - 1 Then
        MsflxTerm.Row = MsflxTerm.Row + 1
        Call MsflxTerm_Click
    End If
End Sub

Private Sub cmdPrevious_Click()
    If MsflxTerm.Row > 2 Then
        MsflxTerm.Row = MsflxTerm.Row - 1
        Call MsflxTerm_Click
    End If
End Sub

Private Sub cmdFirst_Click()
    MsflxTerm.Row = 2
    Call MsflxTerm_Click
End Sub