area.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 = "Area"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 AreaId  Int 地域编号
'2 AreaName  Varchar 40  地域名称
'3 AreaType  Smallint  地域类型，1 - 本市地域、2 - 外埠地域、3 - 国外地域
Public AreaId As Long
Public AreaName As String
Public AreaType As Integer

Public Sub Init()
  AreaId = 0
  AreaName = ""
  AreaType = 0
End Sub

'删除Area
Public Sub Delete(ByVal TmpId As Integer)
  DB_Connect
  
  SqlStmt = "DELETE FROM Area WHERE AreaId=" + Trim(TmpId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Function GetId(ByVal TmpName As String) As Long
  DB_Connect
  
  SqlStmt = "SELECT AreaId FROM Area WHERE AreaName='" _
          + Trim(TmpName) + "'"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    GetId = Val(ColVal)
  Else
    GetId = 0
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Function

Public Sub GetInfo(ByVal TmpId As Long)
  DB_Connect
  
  SqlStmt = "SELECT * FROM Area WHERE AreaId=" + Trim(TmpId)
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    AreaName = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    AreaType = Val(ColVal)
  Else
    Init
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Sub

Public Function In_DB(ByVal TmpName As String) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT * FROM Area WHERE AreaName='" _
          + Trim(TmpName) + "'"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    In_DB = True
  Else
    In_DB = False
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Function

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO Area (AreaName, AreaType) VALUES('" _
            + Trim(AreaName) + "'," + Trim(AreaType) + ")"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Sub Load_Area()
  Dim i1, i2, i3 As Integer
  Dim TmpType As Integer
  
  Erase d1
  Erase d2
  Erase d3
  ReDim d1(0)
  ReDim d2(0)
  ReDim d3(0)
  
  DB_Connect
  
  SqlStmt = "SELECT AreaType, AreaName FROM Area ORDER BY AreaName"
  OdbcExt (SqlStmt)
  i1 = 0
  i2 = 0
  i3 = 0
  Do Until SQLFetch(Hstmt) = SQL_NO_DATA_FOUND
    ColVal = String(5, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    TmpType = Val(ColVal)
    '根据地域类型，将地域名称读取到不同的数组中
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    Select Case TmpType '地域类型
      Case 1  '本市地域
        ReDim Preserve d1(i1 + 1)
        d1(i1) = TrimStr(ColVal)
        i1 = i1 + 1
      Case 2  '外埠地域
        ReDim Preserve d2(i2 + 1)
        d2(i2) = TrimStr(ColVal)
        i2 = i2 + 1
      Case 3  '国外地域
        ReDim Preserve d3(i3 + 1)
        d3(i3) = TrimStr(ColVal)
        i3 = i3 + 1
    End Select
  Loop
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
 
  DB_Disconnect
End Sub

'更新地域数据
Public Sub Update(ByVal OriId As Long)
  DB_Connect
  
  SqlStmt = "UPDATE Area SET AreaName='" + Trim(AreaName) _
          + "' WHERE AreaId=" + Trim(OriId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub