frmzongping.frm

班主任考核管理系统

         Index           =   4
         Left            =   120
         TabIndex        =   17
         Top             =   2220
         Width           =   390
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "学生测评"
         Height          =   180
         Index           =   0
         Left            =   3240
         TabIndex        =   16
         Top             =   480
         Width           =   720
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "学生会"
         Height          =   180
         Left            =   120
         TabIndex        =   15
         Top             =   1755
         Width           =   540
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "任课教师"
         Height          =   180
         Left            =   120
         TabIndex        =   14
         Top             =   1125
         Width           =   720
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "教务处"
         Height          =   180
         Left            =   120
         TabIndex        =   13
         Top             =   480
         Width           =   540
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "违纪扣分"
         Height          =   180
         Index           =   1
         Left            =   3240
         TabIndex        =   12
         Top             =   1140
         Width           =   720
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "学生处"
         Height          =   180
         Index           =   2
         Left            =   3240
         TabIndex        =   11
         Top             =   1740
         Width           =   540
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "操作"
      Height          =   855
      Left            =   120
      TabIndex        =   0
      Top             =   5280
      Width           =   5775
      Begin VB.CommandButton Command2 
         Caption         =   "取消"
         Height          =   375
         Left            =   3600
         TabIndex        =   2
         Top             =   360
         Width           =   975
      End
      Begin VB.CommandButton Command1 
         Caption         =   "确定"
         Height          =   375
         Left            =   1080
         TabIndex        =   1
         Top             =   360
         Width           =   975
      End
   End
End
Attribute VB_Name = "frmzongping"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Form_Load()
  Me.Height = 6660
  Me.Width = 6165
Dim mrccc As ADODB.Recordset
  Dim msgtext As String
  Dim txtSQL As String
  
' Combo1.Clear
  txtSQL = "select id from class"
  Set mrccc = ExecuteSQL(txtSQL, msgtext)

   Do While Not mrccc.EOF
    Combo1.AddItem mrccc.Fields(0)
    mrccc.MoveNext
   Loop
   mrccc.Close
End Sub
Private Sub Command2_Click()
  Unload Me
End Sub
Private Sub Combo1_Click()
 Dim mrccc As ADODB.Recordset
  Dim msgtext As String
  Dim txtSQL As String
  Dim aa As String
  txtSQL = "select name1 from teacher  where class='" & Combo1 & "' "
  Set mrccc = ExecuteSQL(txtSQL, msgtext)
  If Not mrccc.EOF Then
    Text1.Text = mrccc.Fields(0)
  Else: MsgBox "该班级没有班主任，检查数据库设置"
  End If
 
End Sub

Private Sub Command1_Click()
  Dim intcount As Integer
  Dim smg, smg1, zong As String
  Dim mr As ADODB.Recordset
  Dim msgtext As String
 
  If Trim(Combo1 & "") = "选择" Then
   MsgBox "请选择班级", vbOKOnly + vbExclamation, "警告"
   Exit Sub
  End If
   If Trim(Combo3(0) & "") = "" Then
   MsgBox "请选择年份", vbOKOnly + vbExclamation, "警告"
   Exit Sub
  End If
  If Trim(Combo4(0) & "") = "" Then
   MsgBox "请选择月份", vbOKOnly + vbExclamation, "警告"
   Exit Sub
  End If
  If Trim(Combo3(1) & "") = "" Then
   MsgBox "请选择年份", vbOKOnly + vbExclamation, "警告"
   Exit Sub
  End If
  If Trim(Combo4(1) & "") = "" Then
   MsgBox "请选择月份", vbOKOnly + vbExclamation, "警告"
   Exit Sub
  End If
  smg = Format(CDate(Combo3(0) & "-" & Combo4(0) & "-" & "1"), "yyyy-mm-dd")
  smg1 = Format(CDate(Combo3(1) & "-" & Combo4(1) & "-" & "1"), "yyyy-mm-dd")
  If smg1 <= smg Then
     MsgBox "错误！请检查学期的起止日期", vbOKOnly + vbExclamation, "警告"
   Exit Sub
  End If
  txtSQL = "select 总评 from xueshenghui where 班级='" & Trim(Combo1) & "' and 学期1='" & smg & "' and 学期2='" & smg1 & "'"
  Set mr = ExecuteSQL(txtSQL, msgtext)
  If Not mr.EOF Then
    Text3(2).Text = mr.Fields(0)
  Else
    MsgBox "本学期学生会对本班级测评结果未能找到,请输入有关数据或检查学期是否选择正确", vbOKOnly + vbExclamation, "警告"
    Exit Sub
  End If
   txtSQL = "select 总评 from xueshengchu where 班级='" & Trim(Combo1) & "' and 学期1='" & smg & "' and 学期2='" & smg1 & "'"
  Set mr = ExecuteSQL(txtSQL, msgtext)
  If Not mr.EOF Then
    Text3(6).Text = mr.Fields(0)
  Else
    MsgBox "本学期学生处对本班级测评结果未能找到,请输入有关数据或检查学期是否选择正确", vbOKOnly + vbExclamation, "警告"
    Exit Sub
  End If
   txtSQL = "select 总评 from xuesheng where 班级='" & Trim(Combo1) & "' and 学期1='" & smg & "' and 学期2='" & smg1 & "'"
  Set mr = ExecuteSQL(txtSQL, msgtext)
  If Not mr.EOF Then
    Text3(4).Text = mr.Fields(0)
  Else
    MsgBox "本学期学生对本班级测评结果未能找到,请输入有关数据或检查学期是否选择正确", vbOKOnly + vbExclamation, "警告"
    Exit Sub
  End If
  txtSQL = "select 总评 from jiaowuchu where 班级='" & Trim(Combo1) & "' and 学期1='" & smg & "' and 学期2='" & smg1 & "'"
  Set mr = ExecuteSQL(txtSQL, msgtext)
  If Not mr.EOF Then
    Text3(0).Text = mr.Fields(0)
  Else
    MsgBox "本学期教务处对本班级测评结果未能找到,请输入有关数据或检查学期是否选择正确", vbOKOnly + vbExclamation, "警告"
    Exit Sub
 End If
  txtSQL = "select 总评 from renkejiaoshizongping where 班级='" & Trim(Combo1) & "' and 学期1='" & smg & "' and 学期2='" & smg1 & "'"
  Set mr = ExecuteSQL(txtSQL, msgtext)
  If Not mr.EOF Then
    Text3(1).Text = mr.Fields(0)
  Else
    MsgBox "本学期人课教师对本班级总测评结果未能找到,请输入有关数据或检查学期是否选择正确", vbOKOnly + vbExclamation, "警告"
    Exit Sub
 End If
  txtSQL = "select zhi from koufen where class='" & Trim(Combo1) & "' and xueqi1='" & smg & "' and xueqi2='" & smg1 & "'"
  Set mr = ExecuteSQL(txtSQL, msgtext)
  If Not mr.EOF Then
    Text3(5).Text = mr.Fields(0)
  Else
    MsgBox "本学期本班级扣分情况未能查到,请确认输入有关数据或检查学期是否选择正确", vbOKOnly + vbExclamation, "警告"
    Exit Sub
 End If
 zong = (Int(Text3(0).Text) + Int(Text3(1).Text) + Int(Text3(2).Text) + Int(Text3(5).Text) + Int(Text3(4).Text) + Int(Text3(6).Text)) / 6
 txtSQL = "delete from ceping where 班级='" & Trim(Combo1) & "' and 学期1='" & smg & "' and 学期1='" & smg1 & "'"
 Set mr = ExecuteSQL(txtSQL, msgtext)
 txtSQL = "execute cepingsetup'"
  txtSQL = txtSQL & Trim(Text3(0)) & "','"
  txtSQL = txtSQL & Trim(Text3(1)) & "','"
  txtSQL = txtSQL & Trim(Text3(4)) & "','"
  txtSQL = txtSQL & Trim(Text3(5).Text) & "','"
  txtSQL = txtSQL & Trim(Text3(2).Text) & "','"
  txtSQL = txtSQL & Trim(Text3(6).Text) & "','"
  txtSQL = txtSQL & zong & "','"
  txtSQL = txtSQL & smg & "','"
  txtSQL = txtSQL & Trim(Text1.Text) & "','"
  txtSQL = txtSQL & Trim(Combo1) & "','"
  txtSQL = txtSQL & smg1 & "'"
  Set mr = ExecuteSQL(txtSQL, msgtext)
  MsgBox "添加纪录成功！", vbOKOnly + vbExclamation, "添加纪录"
  
End Sub