win.vb

强大的教务考勤系统数据库

        Me.rbTea1.Name = "rbTea1"
        Me.rbTea1.Size = New System.Drawing.Size(96, 24)
        Me.rbTea1.TabIndex = 4
        Me.rbTea1.TabStop = True
        Me.rbTea1.Text = "模糊查询"
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(24, 96)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(64, 23)
        Me.Label14.TabIndex = 3
        Me.Label14.Text = "教师姓名"
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(24, 32)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(56, 23)
        Me.Label13.TabIndex = 2
        Me.Label13.Text = "教师ID"
        '
        'tbTeaName
        '
        Me.tbTeaName.Location = New System.Drawing.Point(32, 120)
        Me.tbTeaName.Name = "tbTeaName"
        Me.tbTeaName.Size = New System.Drawing.Size(144, 21)
        Me.tbTeaName.TabIndex = 1
        Me.tbTeaName.Text = ""
        '
        'tbTeaID
        '
        Me.tbTeaID.Location = New System.Drawing.Point(32, 56)
        Me.tbTeaID.Name = "tbTeaID"
        Me.tbTeaID.Size = New System.Drawing.Size(144, 21)
        Me.tbTeaID.TabIndex = 0
        Me.tbTeaID.Text = ""
        '
        'buttonInquire
        '
        Me.buttonInquire.Location = New System.Drawing.Point(64, 280)
        Me.buttonInquire.Name = "buttonInquire"
        Me.buttonInquire.TabIndex = 17
        Me.buttonInquire.Text = "查询"
        '
        'dgResult
        '
        Me.dgResult.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.dgResult.CaptionVisible = False
        Me.dgResult.DataMember = ""
        Me.dgResult.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgResult.Location = New System.Drawing.Point(240, 48)
        Me.dgResult.Name = "dgResult"
        Me.dgResult.Size = New System.Drawing.Size(344, 272)
        Me.dgResult.TabIndex = 18
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(240, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(72, 16)
        Me.Label1.TabIndex = 19
        Me.Label1.Text = "查询结果："
        '
        'buttonChange
        '
        Me.buttonChange.Enabled = False
        Me.buttonChange.Location = New System.Drawing.Point(320, 16)
        Me.buttonChange.Name = "buttonChange"
        Me.buttonChange.TabIndex = 20
        Me.buttonChange.Text = "修改"
        Me.buttonChange.Visible = False
        '
        'buttonDelete
        '
        Me.buttonDelete.Enabled = False
        Me.buttonDelete.Location = New System.Drawing.Point(408, 16)
        Me.buttonDelete.Name = "buttonDelete"
        Me.buttonDelete.TabIndex = 21
        Me.buttonDelete.Text = "删除"
        Me.buttonDelete.Visible = False
        '
        'buttonDelAll
        '
        Me.buttonDelAll.Enabled = False
        Me.buttonDelAll.Location = New System.Drawing.Point(496, 16)
        Me.buttonDelAll.Name = "buttonDelAll"
        Me.buttonDelAll.TabIndex = 22
        Me.buttonDelAll.Text = "删除全部"
        Me.buttonDelAll.Visible = False
        '
        'Win
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(590, 321)
        Me.Controls.Add(Me.buttonDelAll)
        Me.Controls.Add(Me.buttonDelete)
        Me.Controls.Add(Me.buttonChange)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.dgResult)
        Me.Controls.Add(Me.buttonInquire)
        Me.Controls.Add(Me.gbStu)
        Me.Controls.Add(Me.gbTeacher)
        Me.Controls.Add(Me.gbInquire)
        Me.Controls.Add(Me.gbLesson)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Name = "Win"
        Me.Text = "Win"
        Me.gbStu.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.gbLesson.ResumeLayout(False)
        Me.gbInquire.ResumeLayout(False)
        Me.gbInquireM.ResumeLayout(False)
        Me.gbInquireL.ResumeLayout(False)
        Me.gbTeacher.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.dgResult, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private dbset As New DataSet
    Private dbadapter As SqlDataAdapter
    Private Table, Table0 As DataTable

    Private Sub cbInquireContent_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbInquireContent.SelectedIndexChanged
        Select Case cbInquireContent.Text
            Case "缺勤"
                gbInquireM.Enabled = True
                gbInquireL.Enabled = False
                cbInquireL.Text = ""
                tbInquireL.Text = ""
            Case "迟到"
                gbInquireL.Enabled = True
                gbInquireM.Enabled = False
                cbInquireM.Text = ""
                tbInquireM.Text = ""
            Case "缺勤和迟到"
                gbInquireM.Enabled = True
                gbInquireL.Enabled = True
            Case "缺勤或迟到"
                gbInquireM.Enabled = True
                gbInquireL.Enabled = True
        End Select
    End Sub

    Private Sub dgResult_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Table = dbset.Tables.Add("查询结果")
        Table0 = dbset.Tables.Add("对照表")
        dgResult.DataSource = Table

        If Me.Text = "查询课程出勤情况" Then
            Label5.Enabled = True
            cbInquireTime.Enabled = True
        End If
    End Sub

    Private Sub cbLesTime_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If mycon.State = ConnectionState.Closed Then mycon.Open()
        Dim str As String = "select distinct bTime from time"
        Dim mycom As New SqlCommand(str, mycon)
        Dim myread As SqlDataReader
        myread = mycom.ExecuteReader
        While myread.Read()
            cbLesTime.Items.Add(myread(0))
        End While
        myread.Close()
    End Sub

    Private Sub cbLesWeek_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If mycon.State = ConnectionState.Closed Then mycon.Open()
        Dim str As String = "select distinct weekday from time"
        Dim mycom As New SqlCommand(str, mycon)
        Dim myread As SqlDataReader
        myread = mycom.ExecuteReader
        While myread.Read()
            cbLesWeek.Items.Add(myread(0))
        End While
        myread.Close()
    End Sub

    Private Sub cbInquireLesson_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If mycon.State = ConnectionState.Closed Then mycon.Open()
        Dim str As String
        Dim mycom As SqlCommand
        Dim myread As SqlDataReader
        Select Case operiden
            Case "admin"
                str = "select distinct cName from course"
            Case "teacher"
                str = "select distinct cName from course where tID='" & operid & "'"
            Case "student"
                str = "select distinct course.cName from course,schedule where schedule.cNum=course.cNum and schedule.sID='" & operid & "'"
        End Select

        mycom = New SqlCommand(str, mycon)
        myread = mycom.ExecuteReader
        While myread.Read()
            cbInquireLesson.Items.Add(myread(0))
        End While
        myread.Close()
    End Sub

    Private Sub buttonInquire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonInquire.Click
        Select Case Me.Text
            Case "查询学生出勤情况"
                Inquire()
            Case "查询教师出勤情况"
                Inquire()
            Case "查询课程出勤情况"
                Inquire()
            Case "删除课程"
                Lesson()
            Case "修改课程"
                Lesson()
            Case "删除教师"
                Teacher()
            Case "修改教师"
                Teacher()
            Case "删除学生"
                Student()
            Case "修改学生"
                Student()
        End Select
    End Sub

    Private Sub Inquire()
        dgResult.ReadOnly = True

        If buttonInquire.Text = "重新查询" Then
            gbInquire.Enabled = True
            cbInquireLesson.Text = ""
            cbInquireTime.Text = ""
            cbInquireContent.Text = ""
            cbInquireL.Text = ""
            cbInquireM.Text = ""
            tbInquireL.Text = ""
            tbInquireM.Text = ""
            gbInquireM.Enabled = False
            gbInquireL.Enabled = False
            buttonInquire.Text = "查询"
            Table.Clear()
            Exit Sub
        End If

        If cbInquireM.Text <> "" And tbInquireM.Text = "" Then
            MsgBox("课时数不能为空！", , "")
            Exit Sub
        End If
        If cbInquireM.Text = "" And tbInquireM.Text <> "" Then
            MsgBox("请选择大于,等于或者小于" + vbCrLf + "否则默认为等于", , "")
            cbInquireM.Text = "等于"
            Exit Sub
        End If
        If tbInquireM.Text = "0" And cbInquireM.Text = "小于" Then
            MsgBox("查询无意义" + vbCrLf + "请重新选择", , "")
            Exit Sub
        End If

        If cbInquireL.Text <> "" And tbInquireL.Text = "" Then
            MsgBox("课时数不能为空！", , "")
            Exit Sub
        End If
        If cbInquireL.Text = "" And tbInquireL.Text <> "" Then
            MsgBox("请选择大于,等于或者小于" + vbCrLf + "否则默认为等于", , "")
            cbInquireL.Text = "等于"
            Exit Sub
        End If
        If tbInquireL.Text = "0" And cbInquireL.Text = "小于" Then
            MsgBox("查询无意义" + vbCrLf + "请重新选择", , "")
            Exit Sub
        End If