frmbook.vb

师生情况管理系统

        Me.Controls.Add(Me.txtID)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Name = "FrmBook"
        Me.Text = "FrmBook"
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.dgDate, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private sqlConn As SqlConnection
    Private sqlComm As SqlCommand
    Private daDate As SqlDataAdapter
    Private dsData As DataSet
    Private flag As Int32                   '标明添加还是修改还是能够查询
    Private strSelect As String             '查询框是否有值
    Private tableNum As Int32               '查询框没值则为0，有值则为1

    Private Sub FrmBook_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        sqlConn = New SqlConnection(FrmMain.DBCONN.DataConStr)
        sqlComm = New SqlCommand("select * from dbo.Content", sqlConn)
        daDate = New SqlDataAdapter("select BID 书籍编号, Bname 书名, Bprice 价格 from bookInfo", sqlConn)
        dsData = New DataSet
        sqlConn.Open()
        daDate.Fill(dsData, "Table")
        dgDate.SetDataBinding(dsData, "Table")

        Me.txtID.Enabled = True
        Me.txtName.Enabled = False
        Me.txtPrice.Enabled = False
        Me.btnSave.Enabled = False

        flag = 3

    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        flag = 1            'flag为1，则是添加操作

        txtID.Text = ""
        txtName.Text = ""
        txtPrice.Text = ""

        txtID.Enabled = True
        txtName.Enabled = True
        txtPrice.Enabled = True
        btnAdd.Enabled = False
        btnUpdate.Enabled = False
        btnDelete.Enabled = False
        btnCancel.Enabled = True
        btnSave.Enabled = True
    End Sub

    Private Function check() As Boolean
        If txtID.Text = "" Then
            MsgBox("专业编号不能为空")
            Return False
        End If
        If txtName.Text = "" Then
            MsgBox("专业名称不能为空")
            Return False
        End If
        If txtID.Text = "" Then
            MsgBox("学费不能为空")
            Return False
        End If
        Return True
    End Function

    Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        If Me.check() = False Then
            Exit Sub
        End If

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

        txtName.Text = ""
        txtPrice.Text = ""

        txtID.Enabled = False
        txtName.Enabled = True
        txtPrice.Enabled = True
        btnAdd.Enabled = False
        btnUpdate.Enabled = False
        btnDelete.Enabled = False
        btnCancel.Enabled = True
        btnSave.Enabled = True

    End Sub

    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        If Me.check() = False Then
            Exit Sub
        End If

        sqlComm.CommandText = "delete BookInfo where BID = '" & txtID.Text & "'"
        daDate.DeleteCommand = sqlComm

        Try
            sqlComm.ExecuteNonQuery()
            MsgBox("删除成功")
            dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Delete()

            txtID.Enabled = False
            txtName.Enabled = False
            txtPrice.Enabled = False
            btnAdd.Enabled = False
            btnUpdate.Enabled = False
            btnDelete.Enabled = False
            btnCancel.Enabled = True
            btnSave.Enabled = False
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        txtID.Enabled = True
        txtName.Enabled = False
        txtPrice.Enabled = False
        btnAdd.Enabled = True
        btnUpdate.Enabled = True
        btnDelete.Enabled = True
        btnCancel.Enabled = False
        btnSave.Enabled = False
        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

        If flag = 1 Then        '添加操作
            Dim objRow As DataRow
            objRow = dsData.Tables(0).NewRow()
            objRow(0) = txtID.Text
            objRow(1) = txtName.Text
            objRow(2) = txtPrice.Text
            dsData.Tables(0).Rows.Add(objRow)

            sqlComm.CommandText = "insert into BookInfo values ('" & txtID.Text & "', '" & txtName.Text & "', " & txtPrice.Text & ")"
            daDate.InsertCommand = sqlComm

            Try
                sqlComm.ExecuteNonQuery()
                MsgBox("添加成功")

                txtID.Enabled = False
                txtName.Enabled = False
                txtPrice.Enabled = False
                btnAdd.Enabled = False
                btnUpdate.Enabled = False
                btnDelete.Enabled = False
                btnCancel.Enabled = True
                btnSave.Enabled = False
            Catch ex As Exception
                MsgBox(ex.Message)
                dsData.Tables(0).Rows(dsData.Tables(0).Rows.Count - 1).Delete()
            End Try
        End If

        If flag = 2 Then        '更新操作
            dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(0) = txtID.Text
            dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(1) = txtName.Text
            dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(2) = txtPrice.Text

            sqlComm.CommandText = "update BookInfo set Bname = '" & txtName.Text & "', Bprice = " & txtPrice.Text & " where BID = '" & txtID.Text & "'"
            daDate.UpdateCommand = sqlComm

            Try
                sqlComm.ExecuteNonQuery()
                MsgBox("更新成功")

                txtID.Enabled = False
                txtName.Enabled = False
                txtPrice.Enabled = False
                btnAdd.Enabled = False
                btnUpdate.Enabled = False
                btnDelete.Enabled = False
                btnCancel.Enabled = True
                btnSave.Enabled = False
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        sqlConn.Close()
        Me.Close()
    End Sub

    Private Sub dgDate_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgDate.CurrentCellChanged
        txtID.Text = dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(0)
        txtName.Text = dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(1)
        txtPrice.Text = dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(2)
    End Sub

    Private Sub txtID_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtID.KeyUp
        If flag = 3 Then
            strSelect += txtID.Text
            If strSelect = "" Then
                tableNum = 0
                dsData.Tables(0).Clear()
                daDate.Fill(dsData, "Table")
                dgDate.SetDataBinding(dsData, "Table")
            Else
                tableNum = 1
                sqlComm.CommandText = "select BID 书籍编号, Bname 书名, Bprice 价格 from bookInfo where BID like '" & txtID.Text & "%'"
                daDate.SelectCommand = sqlComm
                If dsData.Tables.Count > 1 Then
                    dsData.Tables(1).Clear()
                End If
                daDate.Fill(dsData, "TableSelect")
                dgDate.SetDataBinding(dsData, "TableSelect")
            End If
        End If
    End Sub
End Class