login__class.vb

这是电脑销售管理系统

Imports System.Data
Imports System.Data.OleDb
#Region "Login Form 窗口的数据操作类"
Public Class Login__Class

    Private MyConnectionstr As String = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Sellsystem.mdb"
    Private MyConnection As New OleDbConnection(MyConnectionstr)
    Private GetAddstate As Integer = 0
    Public User__Authority As Integer
    Public SUM As Integer


#Region "类中用户验证方法"
    Public Function Select_MyConnection(ByVal Uid As String, ByVal Pass As String) As Integer
        Dim Uidname As String = Replace(Uid, "'", "")
        Dim UidPass As String = Replace(Pass, "'", "")
        Dim MyReader As OleDbDataReader
        Dim MySQL As String = "Select * From Staff_Table Where Staff_UID='" & Uid & "' and  Staff_PWD='" & UidPass & "'"
        Dim MyCommand As New OleDbCommand(MySQL, MyConnection)
        Try
            MyConnection.Open()
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
        MyReader = MyCommand.ExecuteReader()
        Do While MyReader.Read
            User__Authority = MyReader.Item("Staff_Authority")
        Loop
        If MyConnection.State = ConnectionState.Open Then
            MyConnection.Close()
        End If
        SUM = User__Authority
        Return SUM
    End Function
#End Region


#Region "类中的注册员工方法代码"

    Public Sub Addnews(ByVal Uid As String, ByVal Pass As String)
        If MyConnection.State = ConnectionState.Closed Then
            MyConnection.Open()
        End If
        Dim Add_Command As OleDbCommand
        Dim Add_Adapter As New OleDbDataAdapter
        Dim Add_Dataset As New DataSet
        Dim Add_Builder As New OleDbCommandBuilder(Add_Adapter)
        Dim Add_Row As DataRow
        Dim Add_Transaction As OleDbTransaction


        Add_Command = New OleDbCommand("Select * From Staff_Table", MyConnection)
        Add_Adapter.SelectCommand = Add_Command
        Add_Adapter.Fill(Add_Dataset, "AddTable")
        'Add_Adapter.InsertCommand = Add_Builder.GetInsertCommand
        'Add_Adapter.UpdateCommand = Add_Builder.GetUpdateCommand
        'Add_Adapter.DeleteCommand = Add_Builder.GetDeleteCommand
        Add_Row = Add_Dataset.Tables("AddTable").NewRow
        Add_Row("Staff_UID") = Uid
        Add_Row("Staff_PWD") = Pass
        Add_Row("Staff_Authority") = "1"
        Add_Dataset.Tables("AddTable").Rows.Add(Add_Row)
        'Add_Transaction = MyConnection.BeginTransaction
        'Add_Adapter.InsertCommand.Transaction = Add_Transaction
        'Add_Adapter.UpdateCommand.Transaction = Add_Transaction
        'Add_Adapter.DeleteCommand.Transaction = Add_Transaction
        'Try
        Add_Adapter.Update(Add_Dataset, "AddTable")
        'Catch ex As Exception
        'If Not Add_Transaction Is Nothing Then
        'Add_Transaction.Rollback()
        'Add_Transaction = Nothing
        'End If
        'MessageBox.Show(ex.Message, "更新错误", MessageBoxButtons.OK)
        'Finally
        'If Not Add_Transaction Is Nothing Then
        'Add_Transaction.Rollback()
        'Add_Transaction = Nothing
        'End If
        'End Try
        'Add_Transaction = Nothing
        MyConnection.Close()
        GetAddstate = 1
    End Sub
#End Region


    Public Property GetState_Add() As Integer
        Get
            Return GetAddstate
        End Get
        Set(ByVal Value As Integer)
            GetAddstate = Value
        End Set
    End Property

    Public Sub EndSub()
        End
    End Sub

End Class

#End Region