checkstore.cls

vb与access数据库的操作实例

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CheckStore"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 Id 自动编号 数字 长整型 盘点编号
'2 BookNo  文本 50  书号
'3 OrgCount 数字 长整型 图书库存原始数量
'4 RealCount 数字 长整型 实际盘点数量
'5 UserName 文本 20 盘点人
'6 CreateDate Varchar2 50 盘点日期
'7 Flag 数字 字节 审核标记：0-未审核；1-审核

Public Id As Long
Public BookNo As String
Public OrgCount As Long
Public RealCount As Long
Public UserName As String
Public CreateDate As String
Public Flag As Integer

Public Sub Init()
  BookNo = ""
  OrgCount = 0
  RealCount = 0
  UserName = ""
  CreateDate = ""
  Flag = 0
End Sub

'删除
Public Sub Delete(ByVal TmpId As Long)
  SqlStmt = "DELETE FROM CheckStore WHERE Id=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub

Public Sub Insert()
  SqlStmt = "INSERT INTO CheckStore(BookNo,OrgCount,RealCount,UserName,CreateDate,Flag) VALUES('" _
      + Trim(BookNo) + "'," + Trim(OrgCount) + "," + Trim(RealCount) + ",'" + Trim(UserName) _
      + "','" + Trim(CreateDate) + "',0)"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal TmpId As Long)
  SqlStmt = "UPDATE CheckStore SET BookNo='" + Trim(BookNo) + "',OrgCount=" + Trim(OrgCount) + "," _
      + "RealCount=" + Trim(RealCount) + ",UserName='" + Trim(UserName) + "'," _
      + "CreateDate='" + Trim(CreateDate) + "' WHERE Id=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub

'更新确认标记，确认后不能修改和删除
Public Sub UpdateFlag(ByVal TmpId As Long)
  SqlStmt = "UPDATE CheckStore SET Flag=1 WHERE Id=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub