frmupluru.frm

班主任考核管理系统

      Height          =   855
      Left            =   360
      TabIndex        =   7
      Top             =   240
      Width           =   4815
      Begin VB.TextBox Text1 
         Height          =   375
         Left            =   2880
         TabIndex        =   9
         Top             =   360
         Width           =   1575
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         Left            =   840
         TabIndex        =   8
         Text            =   "请选择"
         Top             =   360
         Width           =   1095
      End
      Begin VB.Label Label2 
         Caption         =   "姓名"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   2280
         TabIndex        =   11
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label1 
         Caption         =   "班级"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   10
         Top             =   360
         Width           =   735
      End
   End
   Begin VB.Frame Frame10 
      Caption         =   "考核月份"
      Height          =   855
      Left            =   5520
      TabIndex        =   2
      Top             =   240
      Width           =   3735
      Begin VB.ComboBox Combo2 
         Height          =   300
         ItemData        =   "frmupluru.frx":003E
         Left            =   120
         List            =   "frmupluru.frx":004E
         TabIndex        =   4
         Top             =   360
         Width           =   1335
      End
      Begin VB.ComboBox Combo3 
         Height          =   300
         ItemData        =   "frmupluru.frx":006A
         Left            =   2040
         List            =   "frmupluru.frx":0092
         TabIndex        =   3
         Top             =   360
         Width           =   1095
      End
      Begin VB.Label Label5 
         Caption         =   "年"
         Height          =   375
         Left            =   1560
         TabIndex        =   6
         Top             =   360
         Width           =   495
      End
      Begin VB.Label Label6 
         Caption         =   "月"
         Height          =   255
         Left            =   3240
         TabIndex        =   5
         Top             =   360
         Width           =   375
      End
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   495
      Left            =   2400
      TabIndex        =   1
      Top             =   6240
      Width           =   2175
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      Height          =   495
      Left            =   5400
      TabIndex        =   0
      Top             =   6240
      Width           =   2175
   End
End
Attribute VB_Name = "frmupluru"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Click()
   Dim mrccc As ADODB.Recordset
  Dim msgtext As String
  Dim txtSQL As String
  
' Combo1.Clear
  txtSQL = "select name1 from teacher where class='" & Combo1 & "'"
  Set mrccc = ExecuteSQL(txtSQL, msgtext)
    Text1.Text = mrccc.Fields(0)
    mrccc.MoveNext
   mrccc.Close
  
End Sub


  Private Sub Combo3_Click()
   Dim mrccc As ADODB.Recordset
  Dim msgtext As String
  Dim txtSQL As String
  Dim aa As String
 aa = Format(CDate(Combo2 & "-" & Combo3 & "-" & "1"), "yyyy-mm-dd")
    txtSQL = "select * from kaohe where class='" & Combo1 & "' and yuefen='" & aa & "' "
    Set mrccc = ExecuteSQL(txtSQL, msgtext)
 If mrccc.EOF = True Then
   MsgBox "该班主任本月考核信息还未录入，请录入！", vbOKOnly + vbExclamation, "警告"
   Exit Sub
 End If
End Sub


Private Sub Command1_Click()
  Dim intcount As Integer
  Dim smg As String
  Dim mr As ADODB.Recordset
  Dim msgtext As String
  If Trim(Combo1 & "") = "请选择" Then
   MsgBox "请选择班级", vbOKOnly + vbExclamation, "警告"
    Exit Sub
  End If
  If Trim(Combo2 & "") = "" Then
   MsgBox "请选择年份", vbOKOnly + vbExclamation, "警告"
    Exit Sub
  End If
  If Trim(Combo3 & "") = "" Then
   MsgBox "请选择月份", vbOKOnly + vbExclamation, "警告"
    Exit Sub
  End If
  If Trim(Combo4 & "") = "选择" Then
   MsgBox "选择次数！", vbOKOnly + vbExclamation, "警告"
   Exit Sub
  End If
  If Trim(Text2.Text & "") = "" Then
    MsgBox "班级月扣分不能为空！", vbOKOnly + vbExclamation, "警告"
     Exit Sub
  End If
  If Not IsNumeric(Trim(Text2.Text)) Then
     MsgBox "必须是数字！", vbOKOnly + vbExclamation, "警告"
     Text2.SetFocus
     Exit Sub
  End If
   If Trim(Text3.Text & "") = "" Then
    MsgBox "通报批评次数不能为空！没有用0代替", vbOKOnly + vbExclamation, "警告"
     Exit Sub
  End If
  If Not IsNumeric(Trim(Text3.Text)) Then
     MsgBox "必须是数字！", vbOKOnly + vbExclamation, "警告"
     Text3.SetFocus
     Exit Sub
  End If
  smg = Format(CDate(Combo2 & "-" & Combo3 & "-" & "1"), "yyyy-mm-dd")
  Dim a, b, c, d, e, f, g As Integer

  If Option6(0).Value Then
    a = 0
  ElseIf Option6(1).Value Then
    a = 1
  End If
  If Option1(0).Value Then
    b = 0
  ElseIf Option1(1).Value Then
    b = 1
  End If
  If Option2(0).Value Then
    c = 1
  ElseIf Option2(1).Value Then
    c = 2
  ElseIf Option2(2).Value Then
    c = 0
  End If
  If Option4(0).Value Then
   d = 1
  ElseIf Option4(1).Value Then
    d = 2
  ElseIf Option4(2).Value Then
    d = 3
  ElseIf Option4(3).Value Then
    d = 4
  ElseIf Option4(4).Value Then
    d = 0
  End If
  If Option5(0).Value Then
    e = 0
  ElseIf Option5(1).Value Then
    e = 1
  End If
  If Option7(0).Value Then
    g = 0
  ElseIf Option7(1).Value Then
    g = 1
  End If
  txtSQL = "delete from kaohe where class='" & Trim(Combo1) & "' and yuefen='" & smg & "'"
  Set mr = ExecuteSQL(txtSQL, msgtext)
  txtSQL = "execute kaohesetup'"
  txtSQL = txtSQL & Trim(Text2.Text) & "','"
  
  txtSQL = txtSQL & Trim(Text3.Text) & "','"
  txtSQL = txtSQL & a & "','"
  txtSQL = txtSQL & b & "','"
  txtSQL = txtSQL & c & "','"
  txtSQL = txtSQL & d & "','"
  txtSQL = txtSQL & e & "','"
  txtSQL = txtSQL & Trim(Combo4) & "','"
 
  txtSQL = txtSQL & g & "','"
  txtSQL = txtSQL & Trim(Text4.Text) & "','"
  txtSQL = txtSQL & Trim(Combo1) & "','"
  txtSQL = txtSQL & smg & "'"
 
Set mr = ExecuteSQL(txtSQL, msgtext)
  
  Unload Me
  frmupluru.Show
    MsgBox "修改纪录成功！", vbOKOnly + vbExclamation, "修改纪录"
    
End Sub

Private Sub Command2_Click()
  Unload Me
End Sub

Private Sub Form_Load()
  Me.Width = 9810
  Me.Height = 7305
  Dim mrccc1 As ADODB.Recordset
  Dim msgtext1 As String
  Dim txtSQL As String
  
' Combo1.Clear
  txtSQL = "select class from teacher"
  Set mrccc1 = ExecuteSQL(txtSQL, msgtext1)

   Do While Not mrccc1.EOF
    Combo1.AddItem mrccc1.Fields(0)
    mrccc1.MoveNext
   Loop
   mrccc1.Close
  
End Sub

Private Sub Label8_Click()

End Sub