mapidentify.cls

vb做的数据库 客户管理系统

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

Public Function In_DB_NUM(ByVal num As String) As Boolean
    '判断指定的是否已经在数据库中，num表示图号
    Dim rs As New ADODB.Recordset
    SqlStmt = "SELECT * FROM research WHERE mapNum='" + Trim(num) + "'"
    Set rs = Map_QueryExt(SqlStmt)
    If rs.EOF Then
        In_DB_NUM = False
    Else
        In_DB_NUM = True
    End If
    rs.Close
End Function

Public Function In_DB(ByVal name As String) As Boolean
    '判断指定的是否已经在数据库中，name表示图名
    Dim rs As New ADODB.Recordset
    SqlStmt = "SELECT * FROM research WHERE MapName='" + Trim(name) + "'"
    Set rs = QueryExt(SqlStmt)
    If rs.EOF Then
        In_DB = False
    Else
        In_DB = True
    End If
    rs.Close
End Function