devices.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 = "Devices"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

Public DevNo As String
Public TypeID As Long
Public EnterpriseID As Long
Public Model As String
Public Price As Long
Public Place As String
Public BranchID As Integer
Public StartDate As String
Public Administrator As String
Public Poster As String
Public Status As String

Public Sub Init()
  Place = ""
  TypeID = 0
  EnterpriseID = 0
  Model = ""
  Price = 0
  Place = ""
  BranchID = 0
  StartDate = ""
  Administrator = ""
  Poster = ""
  Status = ""
End Sub

'删除设备信息
Public Sub Delete(ByVal TmpNo As String)
  SqlStmt = "DELETE FROM Device WHERE DevNo='" + Trim(TmpNo) + "'"
  SQLExt (SqlStmt)
End Sub

Public Function In_DB(ByVal TmpNo As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM Device WHERE DevNo='" + Trim(TmpNo) + "'"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    In_DB = False
  Else
    In_DB = True
  End If
End Function

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

  If rs.EOF Then
    '如果结果集为空，则初始化
    Init
    GetInfo = False
  Else
    '将结果集中的数据赋值到成员变量中
    If IsNull(rs.Fields(0)) Then
      DevNo = ""
    Else
      DevNo = rs.Fields(0)
    End If
    If IsNull(rs.Fields(1)) Then
      TypeID = 0
    Else
      TypeID = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then
      EnterpriseID = 0
    Else
      EnterpriseID = rs.Fields(2)
    End If
    If IsNull(rs.Fields(3)) Then
      Model = ""
    Else
      Model = rs.Fields(3)
    End If
    If IsNull(rs.Fields(4)) Then
      Price = 0
    Else
      Price = rs.Fields(4)
    End If
    If IsNull(rs.Fields(5)) Then
      Place = ""
    Else
      Place = rs.Fields(5)
    End If

    If IsNull(rs.Fields(6)) Then
      BranchID = ""
    Else
      BranchID = rs.Fields(6)
    End If
    If IsNull(rs.Fields(7)) Then
      StartDate = ""
    Else
      StartDate = rs.Fields(7)
    End If
    
    If IsNull(rs.Fields(8)) Then
      Administrator = ""
    Else
      Administrator = rs.Fields(8)
    End If
    If IsNull(rs.Fields(9)) Then
      Poster = ""
    Else
      Poster = rs.Fields(9)
    End If
    If IsNull(rs.Fields(10)) Then
      Status = ""
    Else
      Status = rs.Fields(10)
    End If
    GetInfo = True
  End If
End Function
   
'插入分类
Public Sub Insert()
  SqlStmt = "INSERT INTO Device VALUES('" + Trim(DevNo) + "'," + Trim(TypeID) + "," _
          + Trim(EnterpriseID) + ",'" + Trim(Model) + "'," + Trim(Price) + ",'" _
          + Trim(Place) + "'," + Trim(BranchID) + ",'" + Trim(StartDate) + "','" _
          + Trim(Administrator) + "','" + Trim(Poster) + "','" + Trim(Status) + "')"
  SQLExt (SqlStmt)
End Sub
'更新数据
Public Sub Update(ByVal TmpNo As String)
   SqlStmt = "UPDATE Device SET Place='" + Trim(Place) + "', BranchID=" + Trim(BranchID) & _
          ",Model='" + Trim(Model) + "',TypeId=" + Trim(TypeID) + "," & _
          "Price=" + Trim(Price) + ",EnterpriseID=" + Trim(EnterpriseID) + ",Administrator='" & _
          Trim(Administrator) + "',StartDate='" + Trim(StartDate) + "',Poster='" & _
          Trim(Poster) + "' Where DevNo='" + Trim(TmpNo) + "'"
  SQLExt (SqlStmt)
End Sub
'更新设备状态
Public Sub UpdateStatus(ByVal TmpNo As String)
   SqlStmt = "UPDATE Device SET Status='" + Trim(Status) + "'" & _
          " Where DevNo='" + Trim(TmpNo) + "'"
  SQLExt (SqlStmt)
End Sub

'更新设备移机信息
Public Sub UpdateMove(ByVal TmpNo As String)
   SqlStmt = "UPDATE Device SET Place='" _
          + Trim(Place) + "', Administrator='" + Trim(Administrator) _
          + "' Where DevNo='" + Trim(TmpNo) + "'"
  SQLExt (SqlStmt)
End Sub