新增用户

 Private Sub Btnqueding_Click(sender As Object, e As EventArgs) Handles Btnqueding.Click

        Dim Cmd As New SqlCommand("insert into login values(@yonghu,@mima)", cn)

        Cmd.Parameters.Add("@yonghu", SqlDbType.VarChar, 50, "姓名")

        Cmd.Parameters.Add("@mima", SqlDbType.VarChar, 50, "密码")

        Cmd.Parameters("@yonghu").Value = Txtuser.Text.Trim

        Cmd.Parameters("@mima").Value = Txtmima.Text.Trim

        If Txtuser.Text.Trim = "" Or Txtmima.Text.Trim = "" Or Txtmmqueren.Text.Trim = "" Then

            MessageBox.Show("数据输入不完整，请填写完整!", "提标信息：", MessageBoxButtons.OK, MessageBoxIcon.Stop)

        Else

            If Txtmima.Text.Trim <> Txtmmqueren.Text.Trim Then

                MessageBox.Show("密码输入不一致，请确认重新输入！", "提示信息：", MessageBoxButtons.OK, MessageBoxIcon.Stop)

            Else

                If Txtuser.Text.Trim = "管理员" Then MessageBox.Show("你没有这个权限！请重新填写！", "提示信息：", MessageBoxButtons.OK, MessageBoxIcon.Information) : Exit Sub

                If MessageBox.Show("确认添加此用户吗？", "提示信息：", MessageBoxButtons.YesNo, MessageBoxIcon.Stop) = Windows.Forms.DialogResult.Yes Then

                    cn.Open()

                    Cmd.ExecuteNonQuery()

                    MessageBox.Show("添加成功！")

                    Txtmima.Text = ""

                    Txtmmqueren.Text = ""

                    Txtuser.Text = ""

                    Txtuser.Focus()

                    cn.Close()

                End If

            End If

        End If

    End Sub