Visual Basic 2010 数据库开发之超市管理系统10添加用户草稿

'用户表类
    Public Class user
        Private mName As String
        Private mPassword As String
        Public Property Name As String
            Get
                Return mName
            End Get
            Set(ByVal value As String)
                mName = value
            End Set
        End Property
        Public Property Password As String
            Get
                Return mPassword
            End Get
            Set(ByVal value As String)
                mPassword = value
            End Set
        End Property

        Public Function GetAllUser() As DataTable
            Dim conn As SqlConnection = GetConnection()
            conn.Open()
            Dim strSql As String = "Select * from usertable"
            Dim da As New SqlDataAdapter(strSql, conn)
            Dim dt As New DataTable
            da.Fill(dt)
            conn.Close()
            Return dt
        End Function

        Public Function GetByValue(ByVal strName As String, ByVal strpwd As String) As DataTable
            Dim conn As SqlConnection = GetConnection()
            conn.Open()
            Dim strSql As String = "Select * from usertable where name='{0}' and password='{1}'"
            strSql = String.Format(strSql, strName, strpwd)
            Dim da As New SqlDataAdapter(strSql, conn)
            Dim dt As New DataTable
            da.Fill(dt)
            conn.Close()
            Return dt
        End Function

        '添加
        Public Sub Add()
            Dim conn As SqlConnection = GetConnection()
            Try
                conn.Open()
                Dim sql As String = "INSERT INTO usertable (name,password) VALUES (@name,@password)"
                Dim comm As SqlCommand = New SqlCommand(sql, conn)
                Dim p1 As SqlParameter = New SqlParameter("@name", Name)
                Dim p2 As SqlParameter = New SqlParameter("@password", Password)

                comm.Parameters.Add(p1)
                comm.Parameters.Add(p2)

                comm.ExecuteNonQuery()

            Finally
                conn.Close()
            End Try
        End Sub

        '更新
        Public Sub Update()
            Dim conn As SqlConnection = GetConnection()
            Try
                conn.Open()
                Dim sql As String = "UPDATE usertable SET password=@password WHERE name='" + Name + "'"
                MsgBox(sql)
                Dim comm As SqlCommand = New SqlCommand(sql, conn)
                Dim p1 As SqlParameter = New SqlParameter("@name", Name)
                Dim p2 As SqlParameter = New SqlParameter("@password", Password)
                comm.Parameters.Add(p1)
                comm.Parameters.Add(p2)
                comm.ExecuteNonQuery()
            Catch ex As Exception
            Finally
                conn.Close()
            End Try
        End Sub

        '删除
        Public Sub Delete(ByVal nm As String)
            Dim conn As SqlConnection = GetConnection()
            Try
                conn.Open()
                Dim sql As String = String.Format("DELETE FROM usertable WHERE name={0}", Name)
                Dim comm As SqlCommand = New SqlCommand(sql, conn)
                comm.ExecuteNonQuery()

            Catch ex As Exception
            Finally
                conn.Close()
            End Try
        End Sub
    End Class

Imports System.Data.SqlClient
Imports 超市管理系统.tableclass
Public Class FrmAddUser

    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        Dim newUser As New user
        newUser.Name = txtName.Text
        newUser.Password = txtPwdConfirm.Text
        newUser.Add()
    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub
End Class