frmxueshenghui.frm

班主任考核管理系统

         AutoSize        =   -1  'True
         Caption         =   "文艺部"
         Height          =   180
         Index           =   0
         Left            =   3240
         TabIndex        =   9
         Top             =   480
         Width           =   540
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "舍务部"
         Height          =   180
         Left            =   120
         TabIndex        =   8
         Top             =   1755
         Width           =   540
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "组织部"
         Height          =   180
         Left            =   120
         TabIndex        =   7
         Top             =   1125
         Width           =   540
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "宣传部"
         Height          =   180
         Left            =   120
         TabIndex        =   6
         Top             =   480
         Width           =   540
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "体育部"
         Height          =   180
         Index           =   1
         Left            =   3240
         TabIndex        =   5
         Top             =   1140
         Width           =   540
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "生活部"
         Height          =   180
         Index           =   2
         Left            =   3240
         TabIndex        =   4
         Top             =   1740
         Width           =   540
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "操作"
      Height          =   855
      Left            =   240
      TabIndex        =   0
      Top             =   5400
      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 = "frmxueshenghui"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  Me.Height = 6960
  Me.Width = 6390
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 shewubu where 班级='" & Trim(Combo1) & "' and 学期1='" & smg & "' and 学期2='" & smg1 & "'"
  Set mr = ExecuteSQL(txtSQL, msgtext)
  If Not mr.EOF Then
    Text2(2).Text = mr.Fields(0)
  Else
    MsgBox "本学期舍务部还没有对本班级测评,请输入有关数据或检查学期是否选择正确", vbOKOnly + vbExclamation, "警告"
    Exit Sub
  End If
   txtSQL = "select 总评 from wenyibu where 班级='" & Trim(Combo1) & "' and 学期1='" & smg & "' and 学期2='" & smg1 & "'"
  Set mr = ExecuteSQL(txtSQL, msgtext)
  If Not mr.EOF Then
    Text2(4).Text = mr.Fields(0)
  Else
    MsgBox "本学期文艺部还没有对本班级测评,请输入有关数据或检查学期是否选择正确", vbOKOnly + vbExclamation, "警告"
    Exit Sub
  End If
   txtSQL = "select 总评 from tiyubu where 班级='" & Trim(Combo1) & "' and 学期1='" & smg & "' and 学期2='" & smg1 & "'"
  Set mr = ExecuteSQL(txtSQL, msgtext)
  If Not mr.EOF Then
    Text2(5).Text = mr.Fields(0)
  Else
    MsgBox "本学期体育部还没有对本班级测评,请输入有关数据或检查学期是否选择正确", vbOKOnly + vbExclamation, "警告"
    Exit Sub
  End If
   txtSQL = "select 总评 from shewulaoshi where 班级='" & Trim(Combo1) & "' and 学期1='" & smg & "' and 学期2='" & smg1 & "'"
  Set mr = ExecuteSQL(txtSQL, msgtext)
  If Not mr.EOF Then
    Text2(3).Text = mr.Fields(0)
  Else
    MsgBox "本学期舍务老师还没有对本班级测评,请输入有关数据或检查学期是否选择正确", vbOKOnly + vbExclamation, "警告"
    Exit Sub
 End If
  txtSQL = "select 总评 from shenghuobu  where 班级='" & Trim(Combo1) & "' and 学期1='" & smg & "' and 学期2='" & smg1 & "'"
  Set mr = ExecuteSQL(txtSQL, msgtext)
  If Not mr.EOF Then
    Text2(6).Text = mr.Fields(0)
  Else
    MsgBox "本学期生活部还没有对本班级测评,请输入有关数据或检查学期是否选择正确", vbOKOnly + vbExclamation, "警告"
    Exit Sub
 End If
  txtSQL = "select 总评 from zuzhibu where 班级='" & Trim(Combo1) & "' and 学期1='" & smg & "' and 学期2='" & smg1 & "'"
  Set mr = ExecuteSQL(txtSQL, msgtext)
  If Not mr.EOF Then
    Text2(1).Text = mr.Fields(0)
  Else
    MsgBox "本学期组织部还没有对本班级测评,请输入有关数据或检查学期是否选择正确", vbOKOnly + vbExclamation, "警告"
    Exit Sub
 End If
  txtSQL = "select 总评 from xuanchuanbu where 班级='" & Trim(Combo1) & "' and 学期1='" & smg & "' and 学期2='" & smg1 & "'"
  Set mr = ExecuteSQL(txtSQL, msgtext)
  If Not mr.EOF Then
    Text2(0).Text = mr.Fields(0)
  Else
    MsgBox "本学期宣传部还没有对本班级测评,请输入有关数据或检查学期是否选择正确", vbOKOnly + vbExclamation, "警告"
    Exit Sub
 End If
 zong = (Int(Text2(0).Text) + Int(Text2(1).Text) + Int(Text2(2).Text) + Int(Text2(3).Text) + Int(Text2(4).Text) + Int(Text2(5).Text) + Int(Text2(6).Text)) / 7
 txtSQL = "delete from xueshenghui where 班级='" & Trim(Combo1) & "' and 学期1='" & smg & "' and 学期1='" & smg1 & "'"
 Set mr = ExecuteSQL(txtSQL, msgtext)
 txtSQL = "execute xueshenghuisetup'"
  txtSQL = txtSQL & Trim(Text2(0)) & "','"
  txtSQL = txtSQL & Trim(Text2(1)) & "','"
  txtSQL = txtSQL & Trim(Text2(2)) & "','"
  txtSQL = txtSQL & Trim(Text2(3)) & "','"
  txtSQL = txtSQL & Trim(Text2(4).Text) & "','"
  txtSQL = txtSQL & Trim(Text2(5).Text) & "','"
  txtSQL = txtSQL & Trim(Text2(6).Text) & "','"
  txtSQL = txtSQL & zong & "','"
  txtSQL = txtSQL & Trim(Text1.Text) & "','"
  txtSQL = txtSQL & Trim(Combo1) & "','"
  txtSQL = txtSQL & smg & "','"
  txtSQL = txtSQL & smg1 & "'"
  Set mr = ExecuteSQL(txtSQL, msgtext)
  MsgBox "添加纪录成功！", vbOKOnly + vbExclamation, "添加纪录"
  
End Sub