storein.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 = "StoreIn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public InId As Long
Public OId As Long
Public InDate As String
Public SId As Long
Public InAmount As Integer
Public InSum As Double
Public Memos As String
Public Flag As Integer

Public Sub Init()
  InId = -1
  OId = -1
  InDate = ""
  SId = -1
  InAmount = 0
  InSum = 0
  Memos = ""
  Flag = 0
End Sub

Public Sub Delete(ByVal TmpInId As Long)
  SqlStmt = "DELETE FROM StoreIn WHERE InId=" + Trim(Str(TmpInId))
  SQLExt (SqlStmt)
End Sub

'获取指定的信息
Public Sub GetInfo(ByVal TmpInId As Long)
  Dim rs As New ADODB.Recordset
  InId = TmpInId
  
  SqlStmt = "SELECT * FROM StoreIn WHERE InId=" + Trim(Str(TmpInId))
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    OId = rs.Fields(1)
    If IsNull(rs.Fields(2)) Then
      InDate = ""
    Else
      InDate = Trim(rs.Fields(2))
    End If
    If IsNull(rs.Fields(3)) Then
      SId = -1
    Else
      SId = rs.Fields(3)
    End If
    If IsNull(rs.Fields(4)) Then
      InAmount = 0
    Else
      InAmount = rs.Fields(4)
    End If
    If IsNull(rs.Fields(5)) Then
      InSum = 0
    Else
      InSum = rs.Fields(5)
    End If
    If IsNull(rs.Fields(6)) Then
      Memos = ""
    Else
      Memos = Trim(rs.Fields(6))
    End If
    If IsNull(rs.Fields(7)) Then
      Flag = 0
    Else
      Flag = rs.Fields(7)
    End If
  Else
    Init
  End If
End Sub

Public Sub Insert()
  SqlStmt = "INSERT INTO StoreIn(OId,InDate,SId,InAmount,InSum,Memos,Flag)" _
          + " Values(" + Trim(OId) + ",'" + Trim(InDate) _
          + "'," + Trim(SId) + "," + Trim(InAmount) _
          + "," + Trim(InSum) + ",'" + Trim(Memos) + "',0)"
          
  SQLExt (SqlStmt)
End Sub
Public Sub Update(ByVal OriInId As Long)
  SqlStmt = "UPDATE StoreIn Set OId=" + Trim(OId) _
          + ",InDate='" + Trim(InDate) + "',SId=" _
          + Trim(SId) + ",InAmount=" + Trim(InAmount) _
          + ",InSum=" + Trim(InSum) + ",Memos='" _
          + Trim(Memos) + "' WHERE InId=" + Trim(Str(OriInId))
  SQLExt (SqlStmt)
End Sub

Public Sub UpdateFlag(ByVal OriInId As Long)
  SqlStmt = "UPDATE StoreIn Set Flag=1 WHERE InId=" + Trim(Str(OriInId))
  SQLExt (SqlStmt)
End Sub
'判断是否存在供应商
Public Function GetSupplier(ByVal TmpSId As Long) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM StoreIn WHERE SId=" + Trim(Str(TmpSId))
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    GetSupplier = True
  Else
    GetSupplier = False
  End If
End Function
'判断是否存在办公用品
Public Function GetOStore(ByVal TmpOId As Long) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM StoreIn WHERE OId=" + Trim(Str(TmpOId))
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    GetOStore = True
  Else
    GetOStore = False
  End If
End Function