frmstuinfomanager.vb

师生情况管理系统

        Me.cmbSex.Enabled = True
        Me.cmbSleep.Enabled = True
        Me.datatimeBirthday.Enabled = True
        Me.datatimeCome.Enabled = True
        Me.cmbDuty.Enabled = True
        Me.txtRemark.Text = ""
        Me.txtPhone.Text = ""
        Me.txtName.Text = ""
        Me.txtMode.Text = ""
        Me.txtID.Text = ""
        Me.txtHome.Text = ""
        Me.txtCard.Text = ""
        Me.cmbDuty.SelectedIndex = 0
        Me.datatimeBirthday.Value = "1980-01-01"
        Me.datatimeCome.Value = "2001-01-01"
        Me.btnAdd.Enabled = False
        Me.btnUpdate.Enabled = False
        Me.btnDelete.Enabled = False
        Me.btnCancel.Enabled = True
        Me.btnSave.Enabled = True
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.txtCard.Enabled = False
        Me.txtRemark.Enabled = False
        Me.txtPhone.Enabled = False
        Me.txtName.Enabled = False
        Me.txtMode.Enabled = True
        Me.txtID.Enabled = False
        Me.txtHome.Enabled = False
        Me.cmbDuty.Enabled = False
        Me.labDuty.Enabled = False
        Me.cmbMode.Enabled = True
        Me.cmbClass.Enabled = False
        Me.cmbMoney.Enabled = False
        Me.cmbPolity.Enabled = False
        Me.cmbSex.Enabled = False
        Me.cmbSleep.Enabled = False
        Me.datatimeBirthday.Enabled = False
        Me.datatimeCome.Enabled = False
        Me.btnAdd.Enabled = True
        Me.btnUpdate.Enabled = True
        Me.btnDelete.Enabled = True

        cmbMode.SelectedIndex = -1

        flag = 3
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        If Me.check() = False Then
            Exit Sub
        End If
        'Dim objDateRow As DataRow
        'Dim objDataReader As SqlDataReader
        'objDateRow = dsDate.Tables(0).NewRow()
        'objDateRow(0) = txtID.Text
        'objDateRow(1) = txtName.Text
        'objDateRow(2) = cmbSex.SelectedItem
        'Dim strDuty As String = txtDuty.Text
        'sqlComm.CommandText = "select SDID from Sduty where SDname = '" & strDuty & "'"
        'objDataReader = sqlComm.ExecuteReader()
        'Dim strDID As String
        'While objDataReader.Read()
        '    strDID = objDataReader(0)
        'End While
        'objDataReader.Close()
        'objDateRow(3) = strDID
        'objDateRow(4) = txtHome.Text
        'objDateRow(5) = cmbSleep.SelectedItem
        'objDateRow(6) = datatimeBirthday.Value
        'objDateRow(7) = txtCard.Text
        'objDateRow(8) = cmbPolity.SelectedItem
        'objDateRow(9) = txtPhone.Text
        'objDateRow(10) = cmbMoney.SelectedItem
        'objDateRow(11) = cmbClass.SelectedItem
        'objDateRow(12) = datatimeCome.Value
        'objDateRow(13) = txtRemark.Text
        'dsDate.Tables(0).Rows.Add(objDateRow)

        'Try
        '    'daDate.Update(dsDate, "Table")
        '    'MsgBox("成功")

        'Catch ex As Exception
        '    MsgBox(ex.Message)
        'End Try

        Dim strDID As String
        Dim strCID As String
        Dim objReader As SqlDataReader

        sqlComm.CommandText = "select SDID from Sduty where SDname = '" & cmbDuty.SelectedItem & "'"
        objReader = sqlComm.ExecuteReader()
        While objReader.Read
            strDID = objReader(0)
        End While
        objReader.Close()
        sqlComm.CommandText = "select CID from classInfo where Cname = '" & cmbClass.SelectedItem & "'"
        objReader = sqlComm.ExecuteReader()
        While objReader.Read
            strCID = objReader(0)
        End While
        objReader.Close()

        If flag = 1 Then            'flag为1，则是添加操作
            Dim objDataRow As DataRow
            objDataRow = dsDate.Tables(0).NewRow()
            objDataRow(0) = txtID.Text
            objDataRow(1) = txtName.Text
            objDataRow(2) = cmbSex.SelectedItem
            objDataRow(3) = cmbDuty.SelectedItem
            objDataRow(4) = txtHome.Text
            objDataRow(5) = cmbSleep.SelectedItem
            objDataRow(6) = datatimeBirthday.Value
            objDataRow(7) = txtCard.Text
            objDataRow(8) = cmbPolity.SelectedItem
            objDataRow(9) = txtPhone.Text
            objDataRow(10) = cmbMoney.SelectedItem
            objDataRow(11) = cmbClass.SelectedItem
            objDataRow(12) = datatimeCome.Value
            objDataRow(13) = txtRemark.Text
            dsDate.Tables(0).Rows.Add(objDataRow)

            sqlComm.CommandText = "insert into stuInfo values ('" & txtID.Text & "', '" & txtName.Text & "', '" & cmbSex.SelectedItem & "', '" & strDID & "', '" & txtHome.Text & "', '" & cmbSleep.SelectedItem & "', '" & datatimeBirthday.Value & "', '" & txtCard.Text & "', '" & cmbPolity.SelectedItem & "', '" & txtPhone.Text & "', " & cmbMoney.SelectedItem & ", '" & strCID & "', '" & datatimeCome.Value & "', '" & txtRemark.Text & "')"
            daDate.InsertCommand = sqlComm
            Try
                sqlComm.ExecuteNonQuery()
                MsgBox("添加数据成功")

                Me.txtCard.Enabled = False
                Me.txtRemark.Enabled = False
                Me.txtPhone.Enabled = False
                Me.txtName.Enabled = False
                Me.txtMode.Enabled = False
                Me.txtID.Enabled = False
                Me.txtHome.Enabled = False
                Me.cmbDuty.Enabled = False
                Me.labDuty.Enabled = False
                Me.cmbMode.Enabled = False
                Me.cmbClass.Enabled = False
                Me.cmbMoney.Enabled = False
                Me.cmbPolity.Enabled = False
                Me.cmbSex.Enabled = False
                Me.cmbSleep.Enabled = False
                Me.datatimeBirthday.Enabled = False
                Me.datatimeCome.Enabled = False
                Me.btnAdd.Enabled = False
                Me.btnUpdate.Enabled = False
                Me.btnDelete.Enabled = False
                Me.btnSave.Enabled = False
                Me.btnCancel.Enabled = True

            Catch ex As Exception
                MsgBox(ex.Message)
                dsDate.Tables(0).Rows(dsDate.Tables(0).Rows.Count - 1).Delete()
            End Try
        End If

        If flag = 2 Then             'flag为2，则是更新操作

            dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(0) = txtID.Text
            dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(1) = txtName.Text
            dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(2) = cmbSex.SelectedItem
            dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(3) = cmbDuty.SelectedItem
            dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(4) = txtHome.Text
            dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(5) = cmbSleep.SelectedItem
            dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(6) = datatimeBirthday.Value
            dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(7) = txtCard.Text
            dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(8) = cmbPolity.SelectedItem
            dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(9) = txtPhone.Text
            dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(10) = cmbMoney.SelectedItem
            dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(11) = cmbClass.SelectedItem
            dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(12) = datatimeCome.Value
            dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(13) = txtRemark.Text

            sqlComm.CommandText = "update stuInfo set SID = '" & txtID.Text & "', Sname = '" & txtName.Text & "', Ssex = '" & cmbSex.SelectedItem & "', SDID = '" & strDID & "', Saddress = '" & txtHome.Text & "', Sbed = '" & cmbSleep.SelectedItem & "', Sbirthday = '" & datatimeBirthday.Value & "', Scard = '" & txtCard.Text & "', Spolity = '" & cmbPolity.SelectedItem & "', Sphone = '" & txtPhone.Text & "', Smoney = " & cmbMoney.SelectedItem & ", CID = '" & strCID & "', STime = '" & datatimeCome.Value & "', SRemark = '" & txtRemark.Text & "' where SID = '" & txtID.Text & "'"
            daDate.UpdateCommand = sqlComm
            Try
                sqlComm.ExecuteNonQuery()
                MsgBox("更新数据成功")

                Me.txtCard.Enabled = False
                Me.txtRemark.Enabled = False
                Me.txtPhone.Enabled = False
                Me.txtName.Enabled = False
                Me.txtMode.Enabled = False
                Me.txtID.Enabled = False
                Me.txtHome.Enabled = False
                Me.cmbDuty.Enabled = False
                Me.labDuty.Enabled = False
                Me.cmbMode.Enabled = False
                Me.cmbClass.Enabled = False
                Me.cmbMoney.Enabled = False
                Me.cmbPolity.Enabled = False
                Me.cmbSex.Enabled = False
                Me.cmbSleep.Enabled = False
                Me.datatimeBirthday.Enabled = False
                Me.datatimeCome.Enabled = False
                Me.btnAdd.Enabled = False
                Me.btnUpdate.Enabled = False
                Me.btnDelete.Enabled = False
                Me.btnSave.Enabled = False
                Me.btnCancel.Enabled = True

            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
    End Sub

    Private Sub txtMode_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtMode.KeyUp

        If flag = 3 Then
            strSelect += txtID.Text
            If strSelect = "" Then
                tableNum = 0
                dsDate.Tables(0).Clear()
                daDate.Fill(dsDate, "Table")
                dgDate.SetDataBinding(dsDate, "Table")

            End If

        ElseIf flag = 4 Then
            tableNum = 1
            sqlComm.CommandText = "select dbo.StuInfo.SID 学号, dbo.StuInfo.Sname 姓名, dbo.StuInfo.Ssex 性别, dbo.Sduty.SDname 职务, dbo.StuInfo.Saddress 籍贯, dbo.StuInfo.Sbed 宿舍, dbo.StuInfo.Sbirthday 出生日期, dbo.StuInfo.Scard 身份证, dbo.StuInfo.Spolity 政治面貌, dbo.StuInfo.Sphone 联系电话, dbo.StuInfo.Smoney 学费类型, dbo.ClassInfo.Cname 班级, dbo.StuInfo.STime 入学日期, dbo.StuInfo.SRemark 备注 from  dbo.StuInfo, dbo.Sduty, dbo.ClassInfo where dbo.StuInfo.SDID = dbo.Sduty.SDID and dbo.StuInfo.CID = dbo.ClassInfo.CID and SID like '" & txtMode.Text & "%'"
            daDate.SelectCommand = sqlComm
            If dsDate.Tables.Count > 1 Then
                dsDate.Tables(1).Clear()
            End If
            daDate.Fill(dsDate, "TableSelect")
            dgDate.SetDataBinding(dsDate, "TableSelect")

        ElseIf flag = 5 Then
            tableNum = 1
            sqlComm.CommandText = "select dbo.StuInfo.SID 学号, dbo.StuInfo.Sname 姓名, dbo.StuInfo.Ssex 性别, dbo.Sduty.SDname 职务, dbo.StuInfo.Saddress 籍贯, dbo.StuInfo.Sbed 宿舍, dbo.StuInfo.Sbirthday 出生日期, dbo.StuInfo.Scard 身份证, dbo.StuInfo.Spolity 政治面貌, dbo.StuInfo.Sphone 联系电话, dbo.StuInfo.Smoney 学费类型, dbo.ClassInfo.Cname 班级, dbo.StuInfo.STime 入学日期, dbo.StuInfo.SRemark 备注 from  dbo.StuInfo, dbo.Sduty, dbo.ClassInfo where dbo.StuInfo.SDID = dbo.Sduty.SDID and dbo.StuInfo.CID = dbo.ClassInfo.CID and Sname like '" & txtMode.Text & "%'"
            daDate.SelectCommand = sqlComm
            If dsDate.Tables.Count > 1 Then
                dsDate.Tables(1).Clear()
            End If
            daDate.Fill(dsDate, "TableSelect")
            dgDate.SetDataBinding(dsDate, "TableSelect")

        ElseIf flag = 6 Then
            tableNum = 1
            'Dim strCID As String
            'Dim objReader As SqlDataReader
            'sqlComm.CommandText = "select CID from classInfo where Cname in '" & t & "'"

            sqlComm.CommandText = "select dbo.StuInfo.SID 学号, dbo.StuInfo.Sname 姓名, dbo.StuInfo.Ssex 性别, dbo.Sduty.SDname 职务, dbo.StuInfo.Saddress 籍贯, dbo.StuInfo.Sbed 宿舍, dbo.StuInfo.Sbirthday 出生日期, dbo.StuInfo.Scard 身份证, dbo.StuInfo.Spolity 政治面貌, dbo.StuInfo.Sphone 联系电话, dbo.StuInfo.Smoney 学费类型, dbo.ClassInfo.Cname 班级, dbo.StuInfo.STime 入学日期, dbo.StuInfo.SRemark 备注 from  dbo.StuInfo, dbo.Sduty, dbo.ClassInfo where dbo.StuInfo.SDID = dbo.Sduty.SDID and dbo.StuInfo.CID = dbo.ClassInfo.CID and StuInfo.CID like '" & txtMode.Text & "%' "
            daDate.SelectCommand = sqlComm
            If dsDate.Tables.Count > 1 Then
                dsDate.Tables(1).Clear()
            End If
            daDate.Fill(dsDate, "TableSelect")
            dgDate.SetDataBinding(dsDate, "TableSelect")
        End If
    End Sub

    Private Sub cmbMode_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbMode.SelectedIndexChanged
        flag = 0
        flag = flag + cmbMode.SelectedIndex + 4
    End Sub
End Class