user.vb

本软件设计为在"采购部""工程部""财务部""总经理"等部门之间的采购审核流转等事宜

        Me.Label1.Text = "用 户 号"
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.btnLast)
        Me.GroupBox3.Controls.Add(Me.btnNext)
        Me.GroupBox3.Controls.Add(Me.TextBox3)
        Me.GroupBox3.Controls.Add(Me.btnPrevious)
        Me.GroupBox3.Controls.Add(Me.btnFirst)
        Me.GroupBox3.Location = New System.Drawing.Point(8, 336)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(568, 64)
        Me.GroupBox3.TabIndex = 1
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "导     航"
        '
        'btnLast
        '
        Me.btnLast.Location = New System.Drawing.Point(472, 24)
        Me.btnLast.Name = "btnLast"
        Me.btnLast.Size = New System.Drawing.Size(64, 24)
        Me.btnLast.TabIndex = 4
        Me.btnLast.Text = ">|"
        '
        'btnNext
        '
        Me.btnNext.Location = New System.Drawing.Point(384, 24)
        Me.btnNext.Name = "btnNext"
        Me.btnNext.Size = New System.Drawing.Size(72, 24)
        Me.btnNext.TabIndex = 3
        Me.btnNext.Text = ">"
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(192, 24)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(184, 21)
        Me.TextBox3.TabIndex = 2
        Me.TextBox3.Text = ""
        '
        'btnPrevious
        '
        Me.btnPrevious.Location = New System.Drawing.Point(112, 24)
        Me.btnPrevious.Name = "btnPrevious"
        Me.btnPrevious.Size = New System.Drawing.Size(64, 24)
        Me.btnPrevious.TabIndex = 1
        Me.btnPrevious.Text = "<"
        '
        'btnFirst
        '
        Me.btnFirst.Location = New System.Drawing.Point(40, 24)
        Me.btnFirst.Name = "btnFirst"
        Me.btnFirst.Size = New System.Drawing.Size(64, 24)
        Me.btnFirst.TabIndex = 0
        Me.btnFirst.Text = "|<"
        '
        'Form12
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(586, 416)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.GroupBox3)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.MaximizeBox = False
        Me.Name = "Form12"
        Me.Text = "用户管理"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    '填充用户数据集
    Private Sub FillDataView()
        Try
            objDataView = Nothing
            '清空原来的数据视图
            objDataSet = New DataSet()
            '实例化一个数据集对象
            objSqlConnection.Open()
            '打开数据库连接
            objDataAdpter = New SqlDataAdapter(UserSqlstr, objSqlConnection)
            '将数据库的数据映射到数据适配器
            objDataAdpter.Fill(objDataSet, "UserInfo")
            '填充数据集的数据
            objDataView = New DataView(objDataSet.Tables("UserInfo"))
            '初始化数据视图
            objCurrencyMannager = CType(Me.BindingContext(objDataView), CurrencyManager)
            '获取设置当前窗体的绑定管理对象
            objSqlConnection.Close()
            '关闭数据连接，这一点很重要
            objDataSet = Nothing
            '清空数据集的数据
        Catch
        End Try
    End Sub
    '清除界面数据，然后在绑定最新数据到截面
    Private Sub BindsField()

        Me.TextBox1.DataBindings.Clear()
        Me.TextBox2.DataBindings.Clear()
        Me.ComboBox1.DataBindings.Clear()
        Me.TextBox4.DataBindings.Clear()
        Me.TextBox5.DataBindings.Clear()
        Me.TextBox6.DataBindings.Clear()
        Me.TextBox7.DataBindings.Clear()
        Me.DateTimePicker1.DataBindings.Clear()
        '清除所有的数据绑定

        '否则不能显示所有的数据而只能显示修改后的数据
        Me.DateTimePicker1.DataBindings.Add("Text", objDataView, "出生年月")
        Me.TextBox1.DataBindings.Add("Text", objDataView, "user_id")
        Me.TextBox2.DataBindings.Add("Text", objDataView, "user_pwd")
        Me.ComboBox1.DataBindings.Add("Text", objDataView, "职务")
        Me.TextBox4.DataBindings.Add("Text", objDataView, "姓名")
        Me.TextBox5.DataBindings.Add("Text", objDataView, "住址")
        Me.TextBox6.DataBindings.Add("Text", objDataView, "联系电话")
        Me.TextBox7.DataBindings.Add("Text", objDataView, "备注")

        '重新进行数据绑定

    End Sub


    Private Sub ShowCurrentPosition()
        Me.TextBox3.Text = _
        objCurrencyMannager.Position + 1 & " of " & _
        objCurrencyMannager.Count
        '显示当前数据绑定的管理对象的数据位置
    End Sub

    'load窗体
    Private Sub Form12_Load(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        FillDataView()
        BindsField()
        ShowCurrentPosition()
        Me.btnAdd.Enabled = False
        Me.btnUpdate.Enabled = True
        Me.btnDelete.Enabled = True




    End Sub

    Private Sub btnFirst_Click(ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) _
                               Handles btnFirst.Click
        objCurrencyMannager.Position = 0
        ShowCurrentPosition()
        '显示第一条记录
    End Sub

    Private Sub btnPrevious_Click(ByVal sender As System.Object, _
                                  ByVal e As System.EventArgs) _
                                  Handles btnPrevious.Click
        objCurrencyMannager.Position -= 1
        If objCurrencyMannager.Position = 0 Then
            objCurrencyMannager.Position = objCurrencyMannager.Count - 1
        End If
        ShowCurrentPosition()
        '显示前一条数据，并判断是否已经到了最初一条记录
    End Sub

    Private Sub btnNext_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) _
                              Handles btnNext.Click
        objCurrencyMannager.Position += 1
        If objCurrencyMannager.Position = objCurrencyMannager.Count - 1 Then
            objCurrencyMannager.Position = 0
        End If
        ShowCurrentPosition()
        '显示后一条数据，并判断是否已经到了最后一条记录
    End Sub
    '显示最后一条信息
    Private Sub btnLast_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) _
                              Handles btnLast.Click
        objCurrencyMannager.Position = objCurrencyMannager.Count - 1
        ShowCurrentPosition()
        '显示最后一条记录
    End Sub
    '新建按钮，但不是新建保存到数据库
    Private Sub btnNew_Click(ByVal sender As System.Object, _
                             ByVal e As System.EventArgs) _
                             Handles btnNew.Click
        Me.TextBox1.ReadOnly = False
        Me.TextBox1.Text = ""
        Me.TextBox4.Text = ""
        Me.TextBox5.Text = ""
        Me.TextBox6.Text = ""
        Me.TextBox7.Text = ""
        Me.TextBox2.Text = ""
        Me.btnUpdate.Enabled = False
        Me.btnDelete.Enabled = False
        Me.btnAdd.Enabled = True
        Me.btnquxiao.Enabled = True
        Me.btnAdd.Enabled = True
        Me.btnNew.Enabled = False
        Me.ComboBox1.SelectedIndex = 2
    End Sub
    '更新用户信息
    Private Sub btnUpdate_Click(ByVal sender As System.Object, _
                                ByVal e As System.EventArgs) _
                                Handles btnUpdate.Click
       
        Dim i As Integer = Me.ComboBox1.SelectedIndex
        Dim intPosition As Integer = objCurrencyMannager.Position
        Sqlstr = "UPDATE UserInfo SET  user_pwd=" + Chr(39) + Trim(TextBox2.Text) + Chr(39) + ",姓名=" + Chr(39) + Trim(TextBox4.Text) + Chr(39) + ",职务=" + Chr(39) + Trim(ComboBox1.Text) + Chr(39) + ",住址=" + Chr(39) + Trim(TextBox5.Text) + Chr(39) + ",联系电话=" + Chr(39) + Trim(TextBox6.Text) + Chr(39) + ",出生年月=" + Chr(39) + Trim(DateTimePicker1.Value.Date) + Chr(39) + ",备注=" + Chr(39) + Trim(TextBox7.Text) + Chr(39) + "where user_id=" + Chr(39) + Trim(TextBox1.Text) + Chr(39)
        UpdateData(Sqlstr)
        FillDataView()
        BindsField()
        objCurrencyMannager.Position = intPosition
        ShowCurrentPosition()
        MsgBox("已经成功更新了该用户资料", MsgBoxStyle.OKOnly + _
        MsgBoxStyle.Exclamation, "更新成功")
    End Sub
    
    '删除用户
    Private Sub btnDelete_Click(ByVal sender As System.Object, _
                                ByVal e As System.EventArgs) _
                                Handles btnDelete.Click
        Dim intPosition As Integer
        intPosition = Me.BindingContext(objDataView).Position - 1
        If intPosition < 0 Then
            intPosition = 0
        End If
        Sqlstr = "DELETE FROM UserInfo WHERE user_id='" & Trim(TextBox1.Text) & "'"
        UpdateData(Sqlstr)
        FillDataView()
        BindsField()
        objCurrencyMannager.Position = intPosition
        ShowCurrentPosition()
        MsgBox("已经成功删除了该用户", MsgBoxStyle.OKOnly + _
        MsgBoxStyle.Exclamation, "删除成功")
    End Sub
    '添加新用户
    Private Sub btnAdd_Click(ByVal sender As System.Object, _
                             ByVal e As System.EventArgs) _
                             Handles btnAdd.Click


        If TextBox1.Text.Trim = "" Then
            MsgBox("请输入用户登录名！", MsgBoxStyle.Information, "提示！")
            TextBox1.Focus()
            Exit Sub
        End If


        Dim intPosition As Integer = objCurrencyMannager.Position

        Sqlstr = "INSERT INTO UserInfo " & _
        "(user_id,user_pwd,姓名,职务,住址,联系电话,出生年月,登记时间,备注) " & _
        "VALUES ('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "','" & Me.TextBox4.Text & "','" & Me.ComboBox1.Text & "','" & Me.TextBox5.Text & "','" & Me.TextBox6.Text & "','" & Me.DateTimePicker1.Value.Date & "','" & Now.Date & "','" & Me.TextBox7.Text & "' )"
        UpdateData(Sqlstr)
        FillDataView()
        BindsField()
        objCurrencyMannager.Position = intPosition
        ShowCurrentPosition()
        Me.TextBox1.ReadOnly = True
        Me.btnAdd.Enabled = False
        btnUpdate.Enabled = True
        btnDelete.Enabled = True
        btnquxiao.Enabled = False
        MsgBox("已经成功添加了该新用户", MsgBoxStyle.OKOnly + _
        MsgBoxStyle.Exclamation, "添加成功")

    End Sub
  



    '搜索用户
    'Private Sub btnSearch_Click(ByVal sender As System.Object, _
    '                            ByVal e As System.EventArgs) _
    '                            Handles btnSearch.Click
    '   If Me.ComboBox1.SelectedIndex = 2 Then
    '       Me.GroupBox2.Enabled = True
    '   Else
    '       Me.GroupBox2.Enabled = False
    ''  End If
    ' Dim intPosition As Integer
    '   objDataView.Sort = "user_pepdom"
    '  intPosition = objDataView.Find(Me.ComboBox1.SelectedIndex)
    '  objCurrencyMannager.Position = intPosition
    '  ShowCurrentPosition()
    'End Sub

    '   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
    '                                             ByVal e As System.EventArgs) _
    '                                            Handles ComboBox1.SelectedIndexChanged
    '      If Me.ComboBox1.SelectedIndex = 2 Then
    '         Me.GroupBox2.Enabled = True
    '    Else
    '        Me.GroupBox2.Enabled = False
    '    End If

    ' End Sub



    Private Sub btnquxiao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnquxiao.Click
        btnNew.Enabled = True
        btnAdd.Enabled = False
        Me.btnUpdate.Enabled = True
        Me.btnDelete.Enabled = True
        Me.btnquxiao.Enabled = True
        FillDataView()
        BindsField()
        ShowCurrentPosition()
    End Sub
End Class