product.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 = "Product"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public ProId As String
Public ProName As String
Public ProMark As String
Public ProStyle As String
Public ProUnit As String

Public Sub Init()
  ProId = ""
  ProName = ""
  ProMark = ""
  ProStyle = ""
  ProUnit = ""
End Sub

'删除
Public Sub Delete(ByVal TmpProId As String)
  SqlStmt = "DELETE FROM Product WHERE ProId='" + Trim(TmpProId) + "'"
  SQLExt (SqlStmt)
End Sub

Public Sub GetInfo(ByVal TmpProId As String)
  Dim rs As New ADODB.Recordset
  ProId = TmpProId
  If TmpProId = "" Then
    Init
    Exit Sub
  End If
  
  SqlStmt = "SELECT * FROM Product WHERE ProId='" + Trim(TmpProId) + "'"
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    ' 产品名称
    If IsNull(rs.Fields(1)) Then
      ProName = ""
    Else
      ProName = Trim(rs.Fields(1))
    End If
    ' 产品商标
    If IsNull(rs.Fields(2)) Then
      ProMark = ""
    Else
      ProMark = Trim(rs.Fields(2))
    End If
    ' 产品型号
    If IsNull(rs.Fields(3)) Then
      ProStyle = ""
    Else
      ProStyle = Trim(rs.Fields(3))
    End If
    ' 计量单位
    If IsNull(rs.Fields(4)) Then
      ProUnit = ""
    Else
      ProUnit = Trim(rs.Fields(4))
    End If
  Else
    Init
  End If
  rs.Close
End Sub

Public Function GetName(ByVal TmpProId As String) As String
  Dim rs As New ADODB.Recordset
  SqlStmt = "SELECT ProName FROM Product WHERE ProId='" + Trim(TmpProId) + "'"
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    If IsNull(rs.Fields(0)) Then
      GetName = ""
    Else
      GetName = Trim(rs.Fields(0))
    End If
  Else
    GetName = ""
  End If
  rs.Close
End Function

Public Function In_DB(ByVal TmpProId As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT ProId FROM Product WHERE ProId='" + Trim(TmpProId) + "'"
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    In_DB = True
  Else
    In_DB = False
  End If
  rs.Close
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO Product VALUES('" + Trim(ProId) + "','" _
            + Trim(ProName) + "','" + Trim(ProMark) _
            + "','" + Trim(ProStyle) + "','" + Trim(ProUnit) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Load_ProId()
  Dim rs As New ADODB.Recordset
  Erase Arr_ProId()
  ReDim Arr_ProId(0)
  SqlStmt = "SELECT ProId FROM Product ORDER BY ProId"
  i = 0
  Set rs = QueryExt(SqlStmt)
  Do Until rs.EOF
    ReDim Preserve Arr_ProId(i + 1)
    If IsNull(rs.Fields(0)) Then
      Arr_ProId(i) = 0
    Else
      Arr_ProId(i) = Trim(rs.Fields(0))
    End If
    i = i + 1
    rs.MoveNext
  Loop
  rs.Close
End Sub

'更新地域数据
Public Sub Update(ByVal TmpProId As String)
  SqlStmt = "UPDATE Product SET ProName='" + Trim(ProName) _
          + "',ProMark='" + Trim(ProMark) + "',ProStyle='" _
          + Trim(ProStyle) + "',ProUnit='" + Trim(ProUnit) _
          + "' WHERE ProId='" + Trim(TmpProId) + "'"
  SQLExt (SqlStmt)
End Sub