adduserform.vb

千寻销售系统 文件说明：一个采用三层结构的分部式应用程序

Imports System.Data.SqlClient
Public Class AddUserForm

    Dim MyConnection As New SqlConnection("server=(local);database=SaleServerData;integrated security=sspi")

    Private Sub Refurbish()
        Dim ds As New DataSet
        Dim MyAdapter As SqlDataAdapter = New SqlDataAdapter("select id,username from VerifyTable", MyConnection)
        MyAdapter.Fill(ds, "VerifyTable")
        AddUserFormDataGridView.DataSource = ds.Tables(0)
    End Sub

    Private Sub AddUserFormAddButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddUserFormAddButton.Click
        If Trim(AddUserFormNameTextBox.Text) = "" Then
            MsgBox("请输入名称", , "千寻工作室")
            AddUserFormNameTextBox.Focus()
        ElseIf Trim(AddUserFormPasswordTextBox.Text) = "" Then
            MsgBox("请输入密码", , "千寻工作室")
            AddUserFormPasswordTextBox.Focus()
        ElseIf Trim(AddUserFormRePasswordTextBox.Text) = "" Then
            MsgBox("请确认密码", , "千寻工作室")
            AddUserFormRePasswordTextBox.Focus()
        ElseIf Trim(AddUserFormPasswordTextBox.Text) <> Trim(AddUserFormRePasswordTextBox.Text) Then
            MsgBox("两次密码不一致", , "千寻工作室")
            AddUserFormPasswordTextBox.Text = ""
            AddUserFormRePasswordTextBox.Text = ""
            AddUserFormPasswordTextBox.Focus()
        Else

            Dim MyCommand As New SqlCommand
            MyCommand.Connection = MyConnection
            MyCommand.CommandText = "select password from VerifyTable where username='" & Trim(AddUserFormNameTextBox.Text) & "'"
            MyConnection.Open()
            If MyCommand.ExecuteScalar <> Nothing Then
                If MsgBox("此用户已经存在，是否要修改此用户密码", MsgBoxStyle.YesNo, "千寻工作室") = MsgBoxResult.Yes Then
                    Dim temp As String = InputBox("请输入旧密码", "千寻工作室")
                    If temp = "" Then
                        MsgBox("密码错误")
                    Else
                        If Trim(temp) <> Trim(MyCommand.ExecuteScalar) Then
                            MsgBox("旧密码输入错误", , "千寻工作室")
                        Else
                            MyCommand.CommandText = "update VerifyTable set password='" & Trim(AddUserFormPasswordTextBox.Text) & "' where username='" & Trim(AddUserFormNameTextBox.Text) & "'"
                            Try
                                MyCommand.ExecuteNonQuery()
                                MsgBox("修改成功", , "千寻工作室")
                                '刷新
                                Refurbish()

                                AddUserFormNameTextBox.Text = ""
                                AddUserFormPasswordTextBox.Text = ""
                                AddUserFormRePasswordTextBox.Text = ""
                                AddUserFormNameTextBox.Focus()
                            Catch ex As Exception
                                MsgBox("修改失败" & Chr(13) & Chr(10) & ex.ToString, , "千寻工作室")
                            End Try
                        End If
                    End If
                End If

            Else
                MyCommand.CommandText = "insert into VerifyTable (username,password) values ('" & Trim(AddUserFormNameTextBox.Text) & "','" & Trim(AddUserFormPasswordTextBox.Text) & "')"
                Try
                    MyCommand.ExecuteNonQuery()
                    MsgBox("添加成功", , "千寻工作室")
                    '刷新
                    Refurbish()

                    AddUserFormNameTextBox.Text = ""
                    AddUserFormPasswordTextBox.Text = ""
                    AddUserFormRePasswordTextBox.Text = ""
                    AddUserFormNameTextBox.Focus()
                Catch ex As Exception
                    MsgBox("添加失败" & Chr(13) & Chr(10) & ex.ToString, , "千寻工作室")
                End Try
            End If
            MyConnection.Close()
        End If
    End Sub

    Private Sub AddUserFormExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddUserFormExitButton.Click
        Close()
    End Sub

    Private Sub AddUserForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Refurbish()
    End Sub

    Private Sub AddUserFormDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles AddUserFormDataGridView.CellContentClick
       
    End Sub

    Private Sub AddUserFormDataGridView_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles AddUserFormDataGridView.Click
        'If AddUserFormDataGridView.SelectedCells(0).RowIndex < AddUserFormDataGridView.Rows.Count - 1 And AddUserFormDataGridView.SelectedCells(0).RowIndex >= 0 Then
        If AddUserFormDataGridView.SelectedCells(0).RowIndex >= 0 Then
            AddUserFormNameTextBox.Text = AddUserFormDataGridView.Item(1, AddUserFormDataGridView.SelectedCells(0).RowIndex).Value
        End If
    End Sub
End Class