movement.cls

银行设备管理系统,采用VB+SQL实现,包含源程序及数据库备份,完美运行,完整无缺.

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Movement"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public MoveID As Long
Public DevNo As String
Public MoveDate As String
Public Reason As String
Public NewPlace As String
Public NewAdmin As String

Public Sub Init()
  MoveID = 0
  DevNo = ""
  MoveDate = ""
  Comment = ""
  FindError = 0
  Reason = ""
  ChangeAccessory = 0
  NewPlace = ""
  NewAdmin = ""
End Sub

'删除分配信息
Public Sub Delete(ByVal TmpId As Long)
  SqlStmt = "DELETE FROM Movement WHERE MoveID=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub

Public Function In_DB(ByVal TmpId As Long) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM Movement WHERE MoveID=" + Trim(TmpId)
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    In_DB = False
  Else
    In_DB = True
  End If
End Function

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

  If rs.EOF Then
    '如果结果集为空，则初始化
    Init
    GetInfo = False
  Else
    '将结果集中的数据赋值到成员变量中
    If IsNull(rs.Fields(0)) Then
      MoveID = 0
    Else
      MoveID = rs.Fields(0)
    End If
    
    If IsNull(rs.Fields(1)) Then
      DevNo = ""
    Else
      DevNo = Trim(rs.Fields(1))
    End If
    
    If IsNull(rs.Fields(2)) Then
      MoveDate = ""
    Else
      MoveDate = Trim(rs.Fields(2))
    End If
    
    If IsNull(rs.Fields(3)) Then
      Reason = ""
    Else
      Reason = rs.Fields(3)
    End If
  
    If IsNull(rs.Fields(4)) Then
      NewPlace = ""
    Else
      NewPlace = rs.Fields(4)
    End If
    
    If IsNull(rs.Fields(5)) Then
      NewAdmin = ""
    Else
      NewAdmin = rs.Fields(5)
    End If
  
    GetInfo = True
  End If
End Function
   
'插入
Public Sub Insert()
  SqlStmt = "INSERT INTO Movement VALUES('" + Trim(DevNo) + "','" + Trim(MoveDate) _
          + "','" + Trim(Reason) + "','" + Trim(NewPlace) + "','" + Trim(NewAdmin) + "')"
  SQLExt (SqlStmt)
End Sub
'更新数据
Public Sub Update(ByVal TmpId As Long)
   SqlStmt = "UPDATE Movement SET DevNo='" + Trim(DevNo) + "', MoveDate='" _
          + Trim(MoveDate) + "', Reason='" + Trim(Reason) + "', NewPlace='" + Trim(NewPlace) _
          + "', NewAdmin='" + Trim(NewAdmin) + "' Where MoveID=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub