frmclassquery.frm

来自「学生信息管理系统,学生入学时间及毕业时间,学生成绩,学生所在系」· FRM 代码 · 共 229 行

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form FrmClassQuery 
   BackColor       =   &H00E7DFE7&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "班级信息查询"
   ClientHeight    =   5490
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6105
   Icon            =   "FrmClassQuery.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   5490
   ScaleWidth      =   6105
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   2640
      Top             =   360
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   1
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmClassQuery.frx":2CFA
            Key             =   "print"
         EndProperty
      EndProperty
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00E7DFE7&
      Caption         =   "查询条件"
      Height          =   3135
      Left            =   240
      TabIndex        =   4
      Top             =   2160
      Width           =   5655
      Begin VB.CommandButton cmdExit 
         Caption         =   "关闭"
         Height          =   495
         Left            =   2160
         TabIndex        =   9
         Top             =   2400
         Width           =   1335
      End
      Begin VB.CommandButton cmdFind 
         Caption         =   "查找"
         Height          =   495
         Left            =   480
         TabIndex        =   8
         Top             =   2400
         Width           =   1335
      End
      Begin VB.ComboBox cboUserid 
         Height          =   300
         Left            =   1320
         TabIndex        =   2
         Top             =   1740
         Width           =   2295
      End
      Begin VB.ComboBox cboGradeno 
         Height          =   300
         Left            =   1320
         TabIndex        =   1
         Top             =   1140
         Width           =   2295
      End
      Begin VB.ComboBox cboClassno 
         Height          =   300
         Left            =   1320
         TabIndex        =   0
         Top             =   540
         Width           =   2295
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "班主任编号："
         Height          =   180
         Left            =   240
         TabIndex        =   7
         Top             =   1800
         Width           =   1080
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "年级编号："
         Height          =   180
         Left            =   240
         TabIndex        =   6
         Top             =   1200
         Width           =   900
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "班级编号："
         Height          =   180
         Left            =   240
         TabIndex        =   5
         Top             =   600
         Width           =   900
      End
   End
   Begin MSHierarchicalFlexGridLib.MSHFlexGrid ClassQueryGrid 
      Height          =   1815
      Left            =   240
      TabIndex        =   3
      Top             =   120
      Width           =   5655
      _ExtentX        =   9975
      _ExtentY        =   3201
      _Version        =   393216
      BackColorFixed  =   15196135
      BackColorBkg    =   15196135
      BackColorUnpopulated=   15196135
      _NumberOfBands  =   1
      _Band(0).Cols   =   2
   End
End
Attribute VB_Name = "FrmClassQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ClassQuery As OpenRs

Private Sub cboClassno_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If Not ((Chr(KeyAscii) <= "Z" And Chr(KeyAscii) >= "A") Or (Chr(KeyAscii) <= "9" And Chr(KeyAscii) >= "0") Or KeyAscii = 8) Then
    KeyAscii = 0
End If
End Sub

Private Sub cboGradeno_KeyPress(KeyAscii As Integer)
If Not ((UCase(Chr(KeyAscii)) <= "Z" And UCase(Chr(KeyAscii)) >= "A") Or (Chr(KeyAscii) <= "9" And Chr(KeyAscii) >= "0") Or KeyAscii = 8) Then
    KeyAscii = 0
End If
End Sub

Private Sub cboUserid_KeyPress(KeyAscii As Integer)
If Not ((UCase(Chr(KeyAscii)) <= "Z" And UCase(Chr(KeyAscii)) >= "A") Or (Chr(KeyAscii) <= "9" And Chr(KeyAscii) >= "0") Or KeyAscii = 8) Then
    KeyAscii = 0
End If
End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub Cmdfind_Click()
Dim sql As String
Dim sql1 As String
Dim sql2 As String
Dim sql3 As String
sql = "select c.class_no,s.grade_no,grade_name,u.user_id,user_name from class_info c inner join schoolgrade_info s on c.grade_no=s.grade_no inner join user_info u on c.user_id=u.user_id where 1=1"
If cboClassNo.Text <> "" Then
   sql1 = " and c.class_no='" & cboClassNo.Text & "'"
Else
   sql1 = " "
End If

If cboGradeNo.Text <> "" Then
   sql2 = " and s.grade_no='" & cboGradeNo.Text & "'"
Else
   sql2 = " "
End If

If cboUserId.Text <> "" Then
   sql3 = " and u.user_id='" & cboUserId.Text & "'"
Else
   sql3 = " "
End If

sql = sql & sql1 & sql2 & sql3
ClassQuery.rsDK1 sql
If ClassQuery.rs1.EOF Then
    ClassQueryGrid.Clear
    ClassQueryGrid.FormatString = "|    班 号|  年级编号|   年级名称| 班主任编号|  班主任名称"
    MsgBox "没有找到符合条件的记录！", vbOKOnly + vbInformation, "提示"
Else
    Set ClassQueryGrid.DataSource = ClassQuery.rs1
    ClassQueryGrid.FormatString = "|    班 号|  年级编号|   年级名称| 班主任编号|  班主任名称"
End If
End Sub

Private Sub Form_Load()
Set ClassQuery = New OpenRs
ClassQuery.rsDK1 "select c.class_no,s.grade_no,grade_name,u.user_id,user_name from class_info c inner join schoolgrade_info s on c.grade_no=s.grade_no inner join user_info u on c.user_id=u.user_id"
If ClassQuery.rs1.EOF Then
    ClassQueryGrid.Clear
    ClassQueryGrid.FormatString = "|    班 号|  年级编号|   年级名称| 班主任编号|  班主任名称"
Else
    Set ClassQueryGrid.DataSource = ClassQuery.rs1
    ClassQueryGrid.FormatString = "|    班 号|  年级编号|   年级名称| 班主任编号|  班主任名称"
End If
'****
ClassQuery.rsDK1 "select class_no from class_info"
Do While ClassQuery.rs1.EOF = False
cboClassNo.AddItem ClassQuery.rs1!Class_no
ClassQuery.rs1.MoveNext
Loop
'***
ClassQuery.rsDK1 "select grade_no from schoolgrade_info"
Do While ClassQuery.rs1.EOF = False
cboGradeNo.AddItem ClassQuery.rs1!grade_no
ClassQuery.rs1.MoveNext
Loop
'***
ClassQuery.rsDK1 "select user_id from user_info"
ClassQuery.rs1.MoveFirst
Do While ClassQuery.rs1.EOF = False
cboUserId.AddItem ClassQuery.rs1!user_id
ClassQuery.rs1.MoveNext
Loop

End Sub