form1.frm

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

VERSION 5.00
Begin VB.Form frmSearch 
   Caption         =   "学员信息检索"
   ClientHeight    =   2625
   ClientLeft      =   465
   ClientTop       =   2325
   ClientWidth     =   4425
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   2625
   ScaleWidth      =   4425
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消(&C)"
      Height          =   350
      Left            =   3360
      TabIndex        =   8
      Top             =   600
      Width           =   975
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定(&O)"
      Default         =   -1  'True
      Height          =   350
      Left            =   3360
      TabIndex        =   7
      Top             =   120
      Width           =   975
   End
   Begin VB.Frame Frame1 
      Caption         =   "查询条件"
      Height          =   2535
      Left            =   158
      TabIndex        =   0
      Top             =   0
      Width           =   3135
      Begin VB.TextBox txtName 
         Height          =   350
         Left            =   1200
         TabIndex        =   2
         Top             =   644
         Width           =   1815
      End
      Begin VB.ComboBox cmbStatu 
         Height          =   300
         ItemData        =   "Form1.frx":3072
         Left            =   1200
         List            =   "Form1.frx":308B
         Style           =   2  'Dropdown List
         TabIndex        =   6
         Top             =   2160
         Width           =   1815
      End
      Begin VB.ComboBox cmbWorkStatu 
         Height          =   300
         ItemData        =   "Form1.frx":30B9
         Left            =   1200
         List            =   "Form1.frx":30C9
         Style           =   2  'Dropdown List
         TabIndex        =   5
         Top             =   1800
         Width           =   1815
      End
      Begin VB.ComboBox cmbSex 
         Height          =   300
         ItemData        =   "Form1.frx":30E5
         Left            =   1200
         List            =   "Form1.frx":30F2
         Style           =   2  'Dropdown List
         TabIndex        =   4
         Top             =   1455
         Width           =   1815
      End
      Begin VB.TextBox txtClass 
         Height          =   350
         Left            =   1200
         TabIndex        =   3
         Top             =   1048
         Width           =   1815
      End
      Begin VB.TextBox txtNo 
         Height          =   350
         Left            =   1200
         TabIndex        =   1
         Top             =   240
         Width           =   1815
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "姓名"
         Height          =   180
         Left            =   240
         TabIndex        =   14
         Top             =   704
         Width           =   360
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "状态"
         Height          =   180
         Left            =   240
         TabIndex        =   13
         Top             =   2220
         Width           =   360
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "工作状态"
         Height          =   180
         Index           =   0
         Left            =   240
         TabIndex        =   12
         Top             =   1841
         Width           =   720
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "性别"
         Height          =   180
         Left            =   240
         TabIndex        =   11
         Top             =   1462
         Width           =   360
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "班级"
         Height          =   180
         Left            =   240
         TabIndex        =   10
         Top             =   1083
         Width           =   360
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "学号"
         Height          =   180
         Left            =   240
         TabIndex        =   9
         Top             =   325
         Width           =   360
      End
   End
End
Attribute VB_Name = "frmSearch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim str As String

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    If txtNo <> Empty Then
        str = "studentNo='" & txtNo & "'"
    End If
    If txtName <> Empty Then
        If str <> Empty Then
            str = str & " And "
        End If
        str = str & "name='" & txtName & "'"
    End If
    If txtClass <> Empty Then
        If str <> Empty Then
            str = str & " And "
        End If
        str = str & "classno='" & txtClass & "'"
    End If
    If cmbSex.Text <> "所有" Then
        If str <> Empty Then
            str = str & " And "
        End If
        str = str & "sex='" & cmbSex.Text & "'"
    End If
    If cmbWorkStatu.Text <> "所有" Then
        If str <> Empty Then
            str = str & " And "
        End If
        str = str & "jobstatus='" & cmbWorkStatu.Text & "'"
    End If
    If cmbStatu.Text <> "所有" Then
        If str <> Empty Then
            str = str & " And "
        End If
        str = str & "status='" & cmbStatu.Text & "'"
    End If
    frmStudentG.strSearch = str
    frmStudentQ.strSearch = str
    Unload Me
End Sub

Private Sub Form_Load()
    str = ""
    cmbSex.ListIndex = 0
    cmbWorkStatu.ListIndex = 0
    cmbStatu.ListIndex = 0
End Sub