frm_sjss.frm

一个用VB做的试卷分析评估系统

VERSION 5.00
Begin VB.Form frm_sjss 
   Caption         =   "试卷搜索"
   ClientHeight    =   5115
   ClientLeft      =   3345
   ClientTop       =   3705
   ClientWidth     =   8910
   Icon            =   "frm_sjss.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   5115
   ScaleMode       =   0  'User
   ScaleWidth      =   9013.949
   WindowState     =   2  'Maximized
   Begin VB.Frame Frame1 
      Caption         =   "试卷搜索"
      Height          =   4455
      Left            =   840
      TabIndex        =   0
      Top             =   240
      Width           =   7335
      Begin VB.CommandButton Command2 
         Caption         =   "开始搜索(&S)"
         Default         =   -1  'True
         Height          =   375
         Left            =   4680
         TabIndex        =   15
         Top             =   3600
         Width           =   1455
      End
      Begin VB.CommandButton Command1 
         Cancel          =   -1  'True
         Caption         =   "取消搜索(&Q)"
         Height          =   375
         Left            =   1200
         TabIndex        =   14
         Top             =   3600
         Width           =   1575
      End
      Begin VB.ComboBox cmb_term 
         Height          =   300
         ItemData        =   "frm_sjss.frx":030A
         Left            =   4800
         List            =   "frm_sjss.frx":0317
         TabIndex        =   7
         Text            =   "1"
         Top             =   2760
         Width           =   1935
      End
      Begin VB.ComboBox cmb_year 
         Height          =   300
         Left            =   4800
         TabIndex        =   6
         Text            =   "Combo5"
         Top             =   2040
         Width           =   1935
      End
      Begin VB.ComboBox cmb_classes 
         Height          =   300
         Left            =   4800
         TabIndex        =   5
         Text            =   "Combo4"
         Top             =   1320
         Width           =   1935
      End
      Begin VB.ComboBox cmb_course 
         Height          =   300
         Left            =   1320
         TabIndex        =   4
         Text            =   "Combo3"
         Top             =   2760
         Width           =   1815
      End
      Begin VB.ComboBox cmb_teacher 
         Height          =   300
         Left            =   1320
         TabIndex        =   3
         Text            =   "Combo2"
         Top             =   2040
         Width           =   1815
      End
      Begin VB.ComboBox cmb_institute 
         Height          =   300
         ItemData        =   "frm_sjss.frx":0323
         Left            =   1320
         List            =   "frm_sjss.frx":0325
         TabIndex        =   2
         Top             =   1320
         Width           =   1815
      End
      Begin VB.Label Label7 
         Caption         =   "学 期："
         Height          =   375
         Left            =   3840
         TabIndex        =   13
         Top             =   2880
         Width           =   975
      End
      Begin VB.Label Label6 
         Caption         =   "学 年："
         Height          =   375
         Left            =   3840
         TabIndex        =   12
         Top             =   2160
         Width           =   975
      End
      Begin VB.Label Label5 
         Caption         =   "班 级："
         Height          =   495
         Left            =   3840
         TabIndex        =   11
         Top             =   1440
         Width           =   975
      End
      Begin VB.Label Label4 
         Caption         =   "课 程："
         Height          =   255
         Left            =   360
         TabIndex        =   10
         Top             =   2880
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "教 师："
         Height          =   255
         Left            =   360
         TabIndex        =   9
         Top             =   2160
         Width           =   855
      End
      Begin VB.Label Label2 
         Caption         =   "学 院："
         Height          =   375
         Left            =   360
         TabIndex        =   8
         Top             =   1440
         Width           =   975
      End
      Begin VB.Label Label1 
         Caption         =   "（提示：可以选择部分条件）"
         Height          =   375
         Left            =   2280
         TabIndex        =   1
         Top             =   600
         Width           =   3015
      End
   End
End
Attribute VB_Name = "frm_sjss"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Public Sub combo_in2(tname As String, cmb As ComboBox)
Set RS = DB.OpenRecordset("select name from " + tname + " order by ID desc")
RS.MoveFirst
cmb.Clear
cmb.AddItem ("")
Do While Not RS.EOF
   cmb.AddItem (RS.Fields("name").Value)
  RS.MoveNext
Loop
cmb.Text = ""
End Sub

Private Sub cmb_classes_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub cmb_course_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub cmb_institute_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub cmb_teacher_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub cmb_term_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub cmb_year_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Command2_Click()
Dim sql As String
sql = "select * from shijuan where "

If cmb_institute.Text <> "" Then
   sql = sql + " Institute='" + cmb_institute.Text + "' and "
End If

If cmb_classes.Text <> "" Then
   sql = sql + " classes='" + cmb_classes.Text + "' and "
End If

If cmb_teacher.Text <> "" Then
   sql = sql + " teacher='" + cmb_teacher.Text + "' and "
End If

If cmb_year.Text <> "" Then
   sql = sql + " year='" + cmb_year.Text + "' and "
End If

If cmb_course.Text <> "" Then
   sql = sql + " course='" + cmb_course.Text + "' and "
End If

If cmb_term.Text <> "" Then
   sql = sql + " term='" + cmb_term.Text + "' "
End If
If VBA.Right(sql, 4) = "and " Then
   sql = VBA.Left(sql, Len(sql) - 4)
End If


Set RS = DB.OpenRecordset(sql)
If RS.RecordCount <= 0 Then
    MsgBox "没有满足搜索条件的试卷！", vbCritical, "搜索结果"
Else
    Unload Me
    Frm_main.tform = "sjss2"
    frm_sjss2.sql = sql
    frm_sjss2.Show
End If
End Sub

Private Sub Form_Load()
Dim i As Integer

Call Frm_main.menu_show(False) '菜单控制
Call combo_in2("institute", cmb_institute)
Call combo_in2("teacher", cmb_teacher)
Call combo_in2("course", cmb_course)
Call combo_in2("classes", cmb_classes)
cmb_year.AddItem ("")
For i = 0 To 9
    cmb_year.AddItem (VBA.Trim(VBA.Str(2000 + i) + "-" + VBA.Str(2001 + i)))
    If 2000 + i = Year(Now) Then
       cmb_year.ListIndex = i + 1
    End If
Next i
cmb_term.Clear
cmb_term.AddItem ("")
cmb_term.AddItem ("1")
cmb_term.AddItem ("2")
cmb_term.ListIndex = 1

End Sub

Private Sub Form_Unload(Cancel As Integer)
Call Frm_main.menu_show(True) '菜单控制
End Sub