user.vb

采用Visual Basic.NET开发的单机版餐饮服务管理系统

        Me.btnNext.Size = New System.Drawing.Size(32, 21)
        Me.btnNext.TabIndex = 3
        Me.btnNext.Text = ">"
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(104, 16)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(80, 21)
        Me.TextBox3.TabIndex = 2
        Me.TextBox3.Text = ""
        '
        'btnPrevious
        '
        Me.btnPrevious.Location = New System.Drawing.Point(72, 16)
        Me.btnPrevious.Name = "btnPrevious"
        Me.btnPrevious.Size = New System.Drawing.Size(32, 21)
        Me.btnPrevious.TabIndex = 1
        Me.btnPrevious.Text = "<"
        '
        'btnFirst
        '
        Me.btnFirst.Location = New System.Drawing.Point(40, 16)
        Me.btnFirst.Name = "btnFirst"
        Me.btnFirst.Size = New System.Drawing.Size(32, 21)
        Me.btnFirst.TabIndex = 0
        Me.btnFirst.Text = "|<"
        '
        'Form12
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(304, 269)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox1, Me.GroupBox3})
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.MaximizeBox = False
        Me.Name = "Form12"
        Me.Text = "用户管理"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.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.CheckBox1.DataBindings.Clear()
        Me.CheckBox2.DataBindings.Clear()
        Me.CheckBox3.DataBindings.Clear()
        Me.CheckBox4.DataBindings.Clear()

        '清除所有的数据绑定
        '否则不能显示所有的数据而只能显示修改后的数据

        Me.TextBox1.DataBindings.Add("Text", objDataView, "user_id")
        Me.TextBox2.DataBindings.Add("Text", objDataView, "user_pwd")
        Me.ComboBox1.DataBindings.Add("SelectedIndex", objDataView, "user_pepdom")
        Me.CheckBox1.DataBindings.Add("Checked", objDataView, "user_mod1")
        Me.CheckBox2.DataBindings.Add("Checked", objDataView, "user_mod2")
        Me.CheckBox3.DataBindings.Add("Checked", objDataView, "user_mod3")
        Me.CheckBox4.DataBindings.Add("Checked", objDataView, "user_mod4")
        '重新进行数据绑定

    End Sub


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


    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.GroupBox2.Enabled = False
    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.TextBox2.Text = ""
        If Me.ComboBox1.SelectedIndex = 0 Then
            Me.CheckBox1.Checked = False
            Me.CheckBox2.Checked = False
            Me.CheckBox3.Checked = False
            Me.CheckBox4.Checked = False
        End If
        If Me.ComboBox1.SelectedIndex = 1 Then
            Me.CheckBox1.Checked = True
            Me.CheckBox2.Checked = True
            Me.CheckBox3.Checked = True
            Me.CheckBox4.Checked = True
        End If
        If Me.ComboBox1.SelectedIndex = 2 Then
            Me.CheckBox1.Checked = False
            Me.CheckBox2.Checked = False
            Me.CheckBox3.Checked = False
            Me.CheckBox4.Checked = False
            Me.GroupBox2.Enabled = True
        End If
        btnAdd.Enabled = True
        '新建一条记录
    End Sub

    Private Sub btnUpdate_Click(ByVal sender As System.Object, _
                                ByVal e As System.EventArgs) _
                                Handles btnUpdate.Click
        chk1 = CInt(Me.CheckBox1.CheckState)
        chk2 = CInt(Me.CheckBox2.CheckState)
        chk3 = CInt(Me.CheckBox3.CheckState)
        chk4 = CInt(Me.CheckBox4.CheckState)
        Dim i As Integer = Me.ComboBox1.SelectedIndex
        Dim intPosition As Integer = objCurrencyMannager.Position
        Sqlstr = "UPDATE UserInfo SET user_pwd=" & _
        "'" & Me.TextBox2.Text & "',user_pepdom='" & i & "',user_mod1=" & _
        "'" & chk1 & "',user_mod2='" & chk2 & "',user_mod3='" & chk3 & "'," & _
        "user_mod4='" & chk4 & "'"
        UpdateData(Sqlstr)
        FillDataView()
        BindsField()
        objCurrencyMannager.Position = intPosition
        ShowCurrentPosition()
        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 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='" & Me.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
        chk1 = CInt(Me.CheckBox1.CheckState)
        chk2 = CInt(Me.CheckBox2.CheckState)
        chk3 = CInt(Me.CheckBox3.CheckState)
        chk4 = CInt(Me.CheckBox4.CheckState)
        Dim i As Integer = Me.ComboBox1.SelectedIndex
        Dim intPosition As Integer = objCurrencyMannager.Position
        Sqlstr = "INSERT INTO UserInfo " & _
        "(user_id,user_pwd,user_pepdom,user_mod1,user_mod2,user_mod3,user_mod4) " & _
        "VALUES ('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "','" & i & "'," & _
        "'" & chk1 & "','" & chk2 & "','" & chk3 & "','" & chk4 & "')"
        UpdateData(Sqlstr)
        FillDataView()
        BindsField()
        objCurrencyMannager.Position = intPosition
        ShowCurrentPosition()
        Me.TextBox1.ReadOnly = True
        Me.btnAdd.Enabled = False
        MsgBox("已经成功添加了该新用户", MsgBoxStyle.OKOnly + _
        MsgBoxStyle.Exclamation, "添加成功")
    End Sub
End Class