business.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 = "Business"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 BusiId  Int 商业交往编号
'2 BusiDate  Char 10 商业交往日期
'3 CltId Int 客户编号
'4 BusiType  Varchar 30  商业往来类型（1 - 购进，2 - 销售，3 - 合作开发，4 - 日常交往，5 - 其他）
'5 Amount  Decimal 15,2  涉及金额
'6 Describe  Varchar 400 活动描述
'7 Operator  Varchar 30  经办人姓名

Public BusiId As Integer
Public BusiDate As String
Public CltId As Integer
Public BusiType As String
Public Amount As Single
Public Describe As String
Public Operator As String

Public Sub Init()
  BusiId = 0
  BusiDate = ""
  CltId = 0
  BusiType = ""
  Amount = 0
  Describe = ""
  Operator = ""
End Sub

'判断指定职务名称是否在数据库中
Public Function Clt_In_Business(ByVal TmpCltId As Integer) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT BusiDate FROM Business WHERE CltId=" _
          + Trim(Str(TmpCltId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    Clt_In_Business = True
  Else
    Clt_In_Business = False
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

'删除客户职务
Public Sub Delete(ByVal TmpBusiId As String)
  DB_Connect
  
  SqlStmt = "DELETE FROM Business WHERE BusiId=" + Trim(Str(TmpBusiId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Function GetNewId() As Long
  Dim TmpBh As Long
  
  DB_Connect
  
  SqlStmt = "SELECT BusiId FROM Business ORDER BY BusiId"
  OdbcExt (SqlStmt)
  i = 1
  Do While SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    TmpBh = Val(ColVal)
    If TmpBh = i Then
      i = i + 1
    Else
      GetNewId = i
      Rc = SQLFreeStmt(Hstmt, SQL_DROP)
      DB_Disconnect
      Exit Function
    End If
  Loop
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
  
  GetNewId = i
End Function

Public Sub Insert()
  BusiId = GetNewId
  
  DB_Connect
  
  SqlStmt = "INSERT INTO Business VALUES(" + Trim(Str(BusiId)) _
          + "," + Trim(Str(CltId)) + ",'" + Trim(BusiDate) + "','" _
          + Trim(BusiType) + "'," + Trim(Str(Amount)) + ",'" _
          + Trim(Describe) + "','" + Trim(Operator) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Sub Update(ByVal TmpBusiId As String)
  DB_Connect
  
  SqlStmt = "UPDATE Business SET BusiDate='" + Trim(BusiDate) _
          + "',CltId=" + Trim(Str(CltId)) + ",BusiType='" _
          + Trim(BusiType) + "',Amount=" + Trim(Str(Amount)) _
          + ",Describe='" + Trim(Describe) + "',Operator='" _
          + Trim(Operator) + "' WHERE BusiId=" + Trim(Str(TmpBusiId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub