drawlist.cls

主要是基本的办公用品管理操作界面, 包含基本信息管理、办公用品管理

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "DrawList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Id As Long
Public DId As Long
Public OId As Long
Public OAmount As Integer

Public Sub Init()
  DId = -1
  OId = -1
  OAmount = 0
End Sub

'删除
Public Sub Delete(ByVal TmpId As Long)
  SqlStmt = "DELETE FROM DrawList WHERE Id=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub
'按领用编号删除
Public Sub DeleteByDId(ByVal TmpId As Long)
  SqlStmt = "DELETE FROM DrawList WHERE DId=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpId As Long) As Boolean
  Dim rs As New ADODB.Recordset  '定义结果集对象
  
  '设置SELECT语句，读取编号为TmpId的记录
  SqlStmt = "SELECT * FROM DrawList WHERE Id=" + Trim(TmpId)
  '将结果集读取到rs中
  Set rs = QueryExt(SqlStmt)

  If rs.EOF Then
    '如果结果集为空，则初始化
    Init
    GetInfo = False
  Else
    '将结果集中的数据赋值到成员变量中
    If IsNull(rs.Fields(0)) Then
      Id = 0
    Else
      Id = rs.Fields(0)
    End If
   
    If IsNull(rs.Fields(1)) Then
      DId = -1
    Else
      DId = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then
      OId = -1
    Else
      OId = rs.Fields(2)
    End If
    If IsNull(rs.Fields(3)) Then
      OAmount = 0
    Else
      OAmount = rs.Fields(3)
    End If
    GetInfo = True
  End If
End Function

'插入分类
Public Sub Insert()
  SqlStmt = "INSERT INTO DrawList(DId,OId,OAmount) VALUES('" _
       + Trim(DId) + "'," + Trim(OId) + "," + Trim(OAmount) + ")"
  SQLExt (SqlStmt)
End Sub

'更新数据
Public Sub Update(ByVal TmpId As Long)
   SqlStmt = "UPDATE DrawList SET DId='" + Trim(DId) _
          + "',OAmount=" + Trim(OAmount) + " Where Id = " + Trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub
'判断是否存在办公用品
Public Function GetOStore(ByVal TmpOId As Long) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM DrawList WHERE OId=" + Trim(Str(TmpOId))
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    GetOStore = True
  Else
    GetOStore = False
  End If
End Function
'按照领用单号读取所有明细，并更改库存数量
Public Sub UpdateStore(ByVal TmpId As Long)
  Dim rs As New ADODB.Recordset  '定义结果集对象
  Dim lAmount As Integer   '领用数量
  Dim TmpOId As Long  '办公用品编号
  
  '设置SELECT语句，读取编号为TmpId的记录
  SqlStmt = "SELECT * FROM DrawList WHERE DId=" + Trim(TmpId)
  '将结果集读取到rs中
  Set rs = QueryExt(SqlStmt)

  Do While Not rs.EOF
    MyStore.OAmount = 0 - rs.Fields(3)      '领用数量
    MyStore.UpdateAmount (rs.Fields(2))     '办公用品编号
    rs.MoveNext
  Loop
End Sub