store.cls

来自「办公用品管理系统」· CLS 代码 · 共 115 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Store"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

Public OId As Long
Public OName As String
Public OStyle As String
Public TypeId As Long
Public OAmount As Integer
Public OMin As Integer
Public Memos As String

Public Sub Init()
  OId = -1
  OName = ""
  OStyle = ""
  TypeId = -1
  OAmount = 0
  OMin = 0
  Memos = ""
End Sub

Public Sub Delete(ByVal TmpOId As Long)
  SqlStmt = "DELETE FROM Store WHERE OId=" + Trim(Str(TmpOId))
  SQLExt (SqlStmt)
End Sub

'判断是否存在指定的分类编号
Public Function HaveTId(ByVal TmpTId As Long) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM Store WHERE TypeId =" + Trim(TmpTId)
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    HaveTId = True
  Else
    HaveTId = False
  End If
End Function

'获取指定的信息
Public Sub GetInfo(ByVal TmpOId As Long)
  Dim rs As New ADODB.Recordset
  OId = TmpOId
  
  SqlStmt = "SELECT * FROM Store WHERE OId=" + Trim(Str(TmpOId))
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    OName = Trim(rs.Fields(1))
    If IsNull(rs.Fields(2)) Then
      OStyle = ""
    Else
      OStyle = Trim(rs.Fields(2))
    End If
    If IsNull(rs.Fields(3)) Then
      TypeId = -1
    Else
      TypeId = rs.Fields(3)
    End If
    If IsNull(rs.Fields(4)) Then
      OAmount = 0
    Else
      OAmount = rs.Fields(4)
    End If
    If IsNull(rs.Fields(5)) Then
      OMin = 0
    Else
      OMin = rs.Fields(5)
    End If
    If IsNull(rs.Fields(6)) Then
      Memos = ""
    Else
      Memos = Trim(rs.Fields(6))
    End If
  Else
    Init
  End If
End Sub

Public Sub Insert()
  SqlStmt = "INSERT INTO Store(OName,OStyle,TypeId,OAmount,OMin,Memos)" _
          + " Values('" + Trim(OName) + "','" + Trim(OStyle) _
          + "'," + Trim(TypeId) + "," + Trim(OAmount) _
          + "," + Trim(OMin) + ",'" + Trim(Memos) + "')"
          
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal OriOId As Long)
  SqlStmt = "UPDATE Store Set OName='" + Trim(OName) _
          + "',OStyle='" + Trim(OStyle) + "',TypeId=" _
          + Trim(TypeId) + ",OAmount=" + Trim(OAmount) _
          + ",OMin=" + Trim(OMin) + ",Memos='" _
          + Trim(Memos) + "' WHERE OId=" + Trim(Str(OriOId))
  SQLExt (SqlStmt)
End Sub
'更新库存数量
Public Sub UpdateAmount(ByVal OriOId As Long)
  SqlStmt = "UPDATE Store Set OAmount=OAmount+" + Trim(OAmount) _
          + " WHERE OId=" + Trim(Str(OriOId))
  SQLExt (SqlStmt)
End Sub