clsusers.cls

一个ERP系统可以用来学习之用

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 ManageDindan As String   '订单管理子糸统
Public Chenbenheshuan As String '成本核算子糸统
Public Jinxiaochun As String             '进销存管理糸统


Public Sub Init()
 BuyerID = ""
 BuyerName = ""
 Department = ""
End Sub
Public Sub insert() '向USERS表中增加资料
  
  '连接数据库
  MyDB.opendb
  
  '设置Insert语句
  sqlstmt = "INSERT INTO Users (Name, Password,EngineerUse,PurchaseUse,SalesUse,StocksUse,ManpowerUse,ClientUse,ManageUse,managedindan,chenbenheshuan,Jinxiaochun)" _
     + " Values('" + Trim(Name) + "','" + Trim(Password) _
     + "','" + Trim(EngineerUse) + "','" + Trim(PurchaseUse) _
     + "','" + Trim(SalesUse) + "','" + Trim(StocksUse) _
     + "','" + Trim(ManpowerUse) + "','" + Trim(ClientUse) _
     + "','" + Trim(ManageUse) + "','" + Trim(ManageDindan) + "','" + Trim(Chenbenheshuan) + "','" + Trim(Jinxiaochun) + "')"
    
  '执行SQL语句
  Dim isexe As Boolean
  Dim rsUsers As ADODB.Recordset
  isexe = MyDB.exesql(sqlstmt, rsUsers, True)
  
  '断开与数据库的连接
  MyDB.closedb
End Sub
Public Sub update(ByVal oriname As String) '修改更新料
   
  '连接数据库
  MyDB.opendb
  
   '设置Update语句
   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) _
   + "',managedindan='" + Trim(ManageDindan) + "',chenbenheshuan='" + Trim(Chenbenheshuan) + "',Jinxiaochun ='" + Trim(Jinxiaochun) + "' WHERE Name='" + Trim(oriname) + "'"
  
  '执行SQL语句
  Dim isexe As Boolean
  Dim rsUsers As ADODB.Recordset
  isexe = MyDB.exesql(sqlstmt, rsUsers, True)
  
  '断开与数据库的连接
  MyDB.closedb
End Sub
Public Sub delete(ByVal Tempname As String)
   '连接数据库
  MyDB.opendb
  
  '设置Delete语句
  sqlstmt = "Delete FROM Users WHERE Name='" + Trim(Tempname) + "'"
  
  '执行SQL语句
  Dim isexe As Boolean
  Dim rsUsers As ADODB.Recordset
  isexe = MyDB.exesql(sqlstmt, rsUsers, True)
  
  '断开与数据库的连接
  MyDB.closedb
End Sub
Public Function In_DB(ByVal Tempname As String) As Boolean
  '连接数据库
  MyDB.opendb
  
  '设置查询语句
  sqlstmt = "SELECT Name FROM Users WHERE Name='" + Trim(Tempname) + "'"
  
  '执行SQL语句
  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
  
  '断开与数据库的连接
  MyDB.closedb
  
End Function