VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsUsers"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Name As String
Public Password As String
Public EngineerUse As String
Public PurchaseUse As String
Public SalesUse As String
Public StocksUse As String
Public ManpowerUse As String
Public ClientUse As String
Public ManageUse As String

Public Function GetInfo(ByVal TmpName As String, ByVal TmpPassWord As String) As Boolean
    
    '連接數(shù)據(jù)庫(kù)
    MyDB.openDB
    
    SqlStmt = "SELECT * FROM Users WHERE Name='" _
               + Trim(TmpName) + "'"
    
    '執(zhí)行SQL語(yǔ)句
    Dim Isexe As Boolean
    Dim rsUsers As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsUsers, True)
    
    If Trim(rsUsers.Fields("Password")) <> TmpPassWord Then
        GetInfo = False
        
        '斷開(kāi)與數(shù)據(jù)庫(kù)的連接
        MyDB.closeDB
        Exit Function
        
    End If
    GetInfo = True
    
    '斷開(kāi)與數(shù)據(jù)庫(kù)的連接
    MyDB.closeDB
End Function

Public Sub Init()
    BuyerID = ""
    BuyerName = ""
    Department = ""
End Sub


Public Sub Insert()
    
    '連接數(shù)據(jù)庫(kù)
    MyDB.openDB
    
    '設(shè)置Insert語(yǔ)句
    SqlStmt = "INSERT INTO Users (Name, Password,EngineerUse,PurchaseUse,SalesUse,StocksUse,ManpowerUse,ClientUse,ManageUse)" _
               + " Values('" + Trim(Name) + "','" + Trim(Password) _
               + "','" + Trim(EngineerUse) + "','" + Trim(PurchaseUse) _
               + "','" + Trim(SalesUse) + "','" + Trim(StocksUse) _
               + "','" + Trim(ManpowerUse) + "','" + Trim(ClientUse) _
               + "','" + Trim(ManageUse) + "')"
    
    '執(zhí)行SQL語(yǔ)句
    Dim Isexe As Boolean
    Dim rsUsers As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsUsers, True)
    
    '斷開(kāi)與數(shù)據(jù)庫(kù)的連接
    MyDB.closeDB
End Sub


Public Sub Update(ByVal OriName As String)
    
    '連接數(shù)據(jù)庫(kù)
    MyDB.openDB
    
    '設(shè)置Update語(yǔ)句
    SqlStmt = "Update Users Set Name='" + Trim(Name) + "',Password='" + Trim(Password) _
               + "',EngineerUse='" + Trim(EngineerUse) _
               + "',PurchaseUse='" + Trim(PurchaseUse) + "',SalesUse='" + Trim(SalesUse) _
               + "',StocksUse='" + Trim(StocksUse) + "',ManpowerUse='" + Trim(ManpowerUse) _
               + "',ClientUse='" + Trim(ClientUse) + "',ManageUse='" + Trim(ManageUse) _
               + "' WHERE Name='" + Trim(OriName) + "'"
    
    '執(zhí)行SQL語(yǔ)句
    Dim Isexe As Boolean
    Dim rsUsers As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsUsers, True)
    
    '斷開(kāi)與數(shù)據(jù)庫(kù)的連接
    MyDB.closeDB
End Sub


Public Sub Delete(ByVal TempName As Integer)
    '連接數(shù)據(jù)庫(kù)
    MyDB.openDB
    
    '設(shè)置Delete語(yǔ)句
    SqlStmt = "Delete FROM Users WHERE Name='" + Trim(TempName) + "'"
    
    '執(zhí)行SQL語(yǔ)句
    Dim Isexe As Boolean
    Dim rsUsers As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsUsers, True)
    
    '斷開(kāi)與數(shù)據(jù)庫(kù)的連接
    MyDB.closeDB
End Sub


Public Function In_DB(ByVal TempName As String) As Boolean
    '連接數(shù)據(jù)庫(kù)
    MyDB.openDB
    
    '設(shè)置查詢語(yǔ)句
    SqlStmt = "SELECT Name FROM Users WHERE Name='" + Trim(TempName) + "'"
    
    '執(zhí)行SQL語(yǔ)句
    Dim Isexe As Boolean
    Dim rsUsers As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsUsers, False)
    
    '判斷是否存在
    If rsUsers.RecordCount <> 0 Then
        In_DB = True
    Else
        In_DB = False
    End If
    
    '斷開(kāi)與數(shù)據(jù)庫(kù)的連接
    MyDB.closeDB
End Function