frmstuinfomanager.vb

师生情况管理系统

        Me.Controls.Add(Me.txtName)
        Me.Controls.Add(Me.txtID)
        Me.Controls.Add(Me.Label12)
        Me.Controls.Add(Me.Label11)
        Me.Controls.Add(Me.Label10)
        Me.Controls.Add(Me.Label9)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Name = "FrmStuInfoManager"
        Me.Text = "StuInfoManager"
        CType(Me.dgDate, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub FrmStuInfoManager_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        sqlConn = New SqlConnection(FrmMain.DBCONN.DataConStr)
        sqlConn.Open()
        daDate = New SqlDataAdapter("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 ", sqlConn)
        dsDate = New DataSet
        daDate.Fill(dsDate, "Table")
        dgDate.SetDataBinding(dsDate, "Table")

        Me.cmbSex.Items.Add("男")
        Me.cmbSex.Items.Add("女")
        Me.cmbSex.SelectedIndex = 0

        Me.cmbMoney.Items.Add(3)
        Me.cmbMoney.Items.Add(2)
        Me.cmbMoney.Items.Add(1)
        Me.cmbMoney.Items.Add(0.5)
        Me.cmbMoney.SelectedIndex = 0

        Dim drDate As SqlDataReader

        sqlComm = New SqlCommand("select BID from bedInfo", sqlConn)
        drDate = sqlComm.ExecuteReader()
        While drDate.Read()
            Me.cmbSleep.Items.Add(drDate(0))
        End While
        Me.cmbSleep.SelectedIndex = 0
        drDate.Close()

        sqlComm.CommandText = "select Cname from dbo.ClassInfo"
        drDate = sqlComm.ExecuteReader()
        While drDate.Read()
            Me.cmbClass.Items.Add(drDate(0))
        End While
        Me.cmbClass.SelectedIndex = 0
        drDate.Close()
        cmbClass.SelectedIndex = 0

        sqlComm.CommandText = "select SDname from sduty"
        drDate = sqlComm.ExecuteReader()
        While drDate.Read
            cmbDuty.Items.Add(drDate(0))
        End While
        drDate.Close()
        cmbDuty.SelectedIndex = 0

        Me.cmbPolity.Items.Add("团员")
        Me.cmbPolity.Items.Add("党员")
        Me.cmbPolity.Items.Add("参会议员")
        Me.cmbPolity.SelectedIndex = 0

        Me.cmbMode.Items.Add("按学号查询")
        Me.cmbMode.Items.Add("按姓名查询")
        Me.cmbMode.Items.Add("按班级查询")
        Me.cmbMode.SelectedIndex = -1

        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.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.btnSave.Enabled = False
        Me.btnCancel.Enabled = False
        Me.cmbDuty.Enabled = False

        flag = 3
    End Sub

    Private Sub dgDate_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgDate.CurrentCellChanged
        txtID.Text = dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(0)
        txtName.Text = dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(1)
        Dim strSex As String = dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(2)
        If strSex.Equals("男") Then
            cmbSex.SelectedIndex = 0
        Else
            cmbSex.SelectedIndex = 1
        End If
        cmbDuty.SelectedItem = dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(3)
        txtHome.Text = dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(4)
        Dim strSleep As String = dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(5)
        cmbSleep.SelectedItem = strSleep
        datatimeBirthday.Value = dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(6)
        txtCard.Text = dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(7)
        cmbPolity.SelectedItem = dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(8)
        txtPhone.Text = dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(9)
        cmbMoney.SelectedItem = dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(10)
        cmbClass.SelectedItem = dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(11)
        datatimeCome.Value = dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(12)
        txtRemark.Text = dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(13)
    End Sub

    Private Function check() As Boolean
        If (txtID.Text.Trim.Equals("")) Then
            MsgBox("学号信息不能为空")
            Return False
        End If

        If (txtName.Text.Trim.Equals("")) Then
            MsgBox("姓名信息不能为空")
            Return False
        End If

        If (txtHome.Text.Trim.Equals("")) Then
            MsgBox("籍贯信息不能为空")
            Return False
        End If

        If (txtPhone.Text.Trim.Equals("")) Then
            MsgBox("联系电话信息不能为空")
            Return False
        End If

        If (txtCard.Text.Trim.Equals("")) Then
            MsgBox("身份证信息不能为空")
            Return False
        End If
        Return True
    End Function
   
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.sqlConn.Close()
        Me.Close()
    End Sub

    Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        If dgDate.CurrentCell.RowNumber < 0 Then
            MsgBox("你还没选中信息")
        End If
        flag = 2        'flag为2时，为更改数据
        Me.txtCard.Enabled = False
        Me.txtRemark.Enabled = True
        Me.txtPhone.Enabled = True
        Me.txtName.Enabled = True
        Me.txtMode.Enabled = True
        Me.txtID.Enabled = False
        Me.txtHome.Enabled = True
        Me.labDuty.Enabled = True
        Me.cmbDuty.Enabled = True
        Me.cmbMode.Enabled = True
        Me.cmbClass.Enabled = True
        Me.cmbMoney.Enabled = True
        Me.cmbPolity.Enabled = True
        Me.cmbSex.Enabled = True
        Me.cmbSleep.Enabled = True
        Me.datatimeBirthday.Enabled = True
        Me.datatimeCome.Enabled = True
        Me.btnAdd.Enabled = False
        Me.btnUpdate.Enabled = False
        Me.btnDelete.Enabled = False
        Me.btnCancel.Enabled = True
        Me.btnSave.Enabled = True
    End Sub

    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        If dgDate.CurrentCell.RowNumber < 0 Then
            MsgBox("你还没选中信息")
        End If

        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.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.btnCancel.Enabled = True
        Me.btnSave.Enabled = True

        Dim strSID As String
        strSID = dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(0)
        If MsgBox("你真的要删除该信息吗？", MsgBoxStyle.OKCancel, "删除") = MsgBoxResult.OK Then
            sqlComm.CommandText = "delete stuInfo where SID = '" & strSID & "'"
            daDate.DeleteCommand = sqlComm
            Try
                sqlComm.ExecuteNonQuery()
                MsgBox("删除成功")
                dsDate.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Delete()

                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 btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        flag = 1        'flag为1时，为添加数据
        Me.txtCard.Enabled = True
        Me.txtRemark.Enabled = True
        Me.txtPhone.Enabled = True
        Me.txtName.Enabled = True
        Me.txtMode.Enabled = False
        Me.txtID.Enabled = True
        Me.txtHome.Enabled = True
        Me.labDuty.Enabled = True
        Me.cmbMode.Enabled = False
        Me.cmbClass.Enabled = True
        Me.cmbMoney.Enabled = True
        Me.cmbPolity.Enabled = True