clscommodity.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 = "clsCommodity"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
 '***************************************************************
'bcCommodity类模块
'CreateTime:2002-11-8 0:28:55;Editor:RZHOU
'ComputerIP:192.168.3.252;ComputerName:bluepc
'***************************************************************
Option Explicit
'*****************************************
Public m_ID As String 'DBO.bcCommodity.ID;描述:;主键
Public m_ClassID As String 'DBO.bcCommodity.ClassID;描述:;
Public m_ClassNo As String 'DBO.bcCommodity.ClassNo;描述:;
Public m_Code As String 'DBO.bcCommodity.Code;描述:;
Public m_Grade As String 'DBO.bcCommodity.Grade;描述:;
Public m_Status As String 'DBO.bcCommodity.Status;描述:;
Public m_New As String 'DBO.bcCommodity.New;描述:;
Public m_Manufacture As String 'DBO.bcCommodity.Manufacture;描述:;
Public m_Item As String 'DBO.bcCommodity.Item;描述:;
Public m_PArea As String 'DBO.bcCommodity.PArea;描述:;
Public m_Inventory As String 'DBO.bcCommodity.Inventory;描述:;
Public m_PurchaseBatch As Double 'DBO.bcCommodity.PurchaseBatch;描述:;
Public m_SaleBatch As Double 'DBO.bcCommodity.SaleBatch;描述:;
Public m_PurchaseTax As Double 'DBO.bcCommodity.PurchaseTax;描述:;
Public m_SaleTax As Double 'DBO.bcCommodity.SaleTax;描述:;
Public m_Package As String 'DBO.bcCommodity.Package;描述:;
Public m_Unit As String 'DBO.bcCommodity.Unit;描述:;
Public m_Weight As Double 'DBO.bcCommodity.Weight;描述:;
Public m_WeightUnit As String 'DBO.bcCommodity.WeightUnit;描述:;
Public m_Cubage As String 'DBO.bcCommodity.Cubage;描述:;
Public m_CubageUnit As String 'DBO.bcCommodity.CubageUnit;描述:;
Public m_Description As String 'DBO.bcCommodity.Description;描述:;
Public m_Photo1 As String 'DBO.bcCommodity.Photo1;描述:;
Public m_Photo2 As String 'DBO.bcCommodity.Photo2;描述:;
Public m_PurchasePrice As Double 'DBO.bcCommodity.PurchasePrice;描述:;
Public m_SalePrice As Double 'DBO.bcCommodity.SalePrice;描述:;
Public m_OperatorID As String 'DBO.bcCommodity.OperatorID;描述:;记录操作人的ID,从模块中的g_sUserID得到
Private m_CreateDate As Date 'DBO.bcCommodity.CreateDate;描述:;记录加入的时间,在Insert的时候取值getDate(),在Update的时候不用修改
Private m_ModifyDate As Date 'DBO.bcCommodity.ModifyDate;描述:;记录最后修改的时间,在Insert的时候取值getDate(),在Update的时候也取值getDate()
Public m_F11 As String 'DBO.bcCommodity.F11;描述:;
Public m_F12 As String 'DBO.bcCommodity.F12;描述:;
Public m_F13 As String 'DBO.bcCommodity.F13;描述:;
Public m_F14 As String 'DBO.bcCommodity.F14;描述:;
Public m_F15 As String 'DBO.bcCommodity.F15;描述:;
Public m_F16 As String 'DBO.bcCommodity.F16;描述:;
Public m_F17 As String 'DBO.bcCommodity.F17;描述:;
Public m_F18 As String 'DBO.bcCommodity.F18;描述:;
Public m_F19 As String 'DBO.bcCommodity.F19;描述:;
Public m_F20 As String 'DBO.bcCommodity.F20;描述:;
'*****************************************
Dim sSQL As String
'bcCommodity Templet在给对象赋值时使用,可以少写不少代码...
'Public function Templet() as boolean
'On Error Resume Next
       '.m_ID=""
       '.m_ClassID=""
       '.m_ClassNo=""
       '.m_Code=""
       '.m_Grade=""
       '.m_Status=""
       '.m_New=""
       '.m_Manufacture=""
       '.m_Item=""
       '.m_PArea=""
       '.m_Inventory=""
       '.m_PurchaseBatch=""
       '.m_SaleBatch=""
       '.m_PurchaseTax=""
       '.m_SaleTax=""
       '.m_Package=""
       '.m_Unit=""
       '.m_Weight=""
       '.m_WeightUnit=""
       '.m_Cubage=""
       '.m_CubageUnit=""
       '.m_Description=""
       '.m_Photo1=""
       '.m_Photo2=""
       '.m_PurchasePrice=""
       '.m_SalePrice=""
       '.m_OperatorID=""
       '.m_CreateDate=""
       '.m_ModifyDate=""
       '.m_F11=""
       '.m_F12=""
       '.m_F13=""
       '.m_F14=""
       '.m_F15=""
       '.m_F16=""
       '.m_F17=""
       '.m_F18=""
       '.m_F19=""
       '.m_F20=""
'End Function

'修改数据开始
'bcCommodity Insert SQL
Public Function Insert() As Boolean
'On Error Resume Next
   sSQL = ""
   sSQL = sSQL + " insert into bcCommodity"
   sSQL = sSQL + " ("
   sSQL = sSQL + "ID,ClassID,ClassNo,Code,Grade,Status,New,Manufacture,Item,PArea,Inventory,PurchaseBatch,SaleBatch,PurchaseTax,SaleTax,Package,Unit,Weight,WeightUnit,Cubage,CubageUnit,Description,PurchasePrice,SalePrice,OperatorID,CreateDate,ModifyDate,F11,F12,F13,F14,F15,F16,F17,F18,F19,F20" 'Photo1,Photo2,
   sSQL = sSQL + ") Values ("
   sSQL = sSQL + CheckString(m_ID) + ","
   sSQL = sSQL + CheckString(m_ClassID) + ","
   sSQL = sSQL + CheckString(m_ClassNo) + ","
   sSQL = sSQL + CheckString(m_Code) + ","
   sSQL = sSQL + CheckString(m_Grade) + ","
   sSQL = sSQL + CheckString(m_Status) + ","
   sSQL = sSQL + CheckString(m_New) + ","
   sSQL = sSQL + CheckString(m_Manufacture) + ","
   sSQL = sSQL + CheckString(m_Item) + ","
   sSQL = sSQL + CheckString(m_PArea) + ","
   sSQL = sSQL + CheckString(m_Inventory) + ","
   sSQL = sSQL + "convert(Float," + CheckString(m_PurchaseBatch) + ")" + ","
   sSQL = sSQL + "convert(Float," + CheckString(m_SaleBatch) + ")" + ","
   sSQL = sSQL + "convert(Float," + CheckString(m_PurchaseTax) + ")" + ","
   sSQL = sSQL + "convert(Float," + CheckString(m_SaleTax) + ")" + ","
   sSQL = sSQL + CheckString(m_Package) + ","
   sSQL = sSQL + CheckString(m_Unit) + ","
   sSQL = sSQL + "convert(Float," + CheckString(m_Weight) + ")" + ","
   sSQL = sSQL + CheckString(m_WeightUnit) + ","
   sSQL = sSQL + CheckString(m_Cubage) + ","
   sSQL = sSQL + CheckString(m_CubageUnit) + ","
   sSQL = sSQL + CheckString(m_Description) + ","
   'sSQL = sSQL + CheckString(m_Photo1) + ","
   'sSQL = sSQL + CheckString(m_Photo2) + ","
   sSQL = sSQL + "convert(Float," + CheckString(m_PurchasePrice) + ")" + ","
   sSQL = sSQL + "convert(Float," + CheckString(m_SalePrice) + ")" + ","
   sSQL = sSQL + CheckString(g_sUserID) + ","
   sSQL = sSQL + "getDate()" + ","
   sSQL = sSQL + "getDate()" + ","
   sSQL = sSQL + CheckString(m_F11) + ","
   sSQL = sSQL + CheckString(m_F12) + ","
   sSQL = sSQL + CheckString(m_F13) + ","
   sSQL = sSQL + CheckString(m_F14) + ","
   sSQL = sSQL + CheckString(m_F15) + ","
   sSQL = sSQL + CheckString(m_F16) + ","
   sSQL = sSQL + CheckString(m_F17) + ","
   sSQL = sSQL + CheckString(m_F18) + ","
   sSQL = sSQL + CheckString(m_F19) + ","
   sSQL = sSQL + CheckString(m_F20)
   sSQL = sSQL + ")"
   g_cn.BeginTrans
      g_cn.Execute sSQL
      If Err.Number = 0 Then
         g_cn.CommitTrans
         Call UpdatePhoto
         'Add Log*********************'
         g_System.AddLog "bcCommodity", sSQL
         
         Insert = True
      Else
         g_cn.RollbackTrans
         Insert = False
         Err.Clear
      End If
End Function
Private Sub UpdatePhoto()
Dim rsTemp As ADODB.Recordset
    If m_Photo1 = "" And m_Photo2 = "" Then Exit Sub
    
    Set rsTemp = New Recordset
    rsTemp.Open "select ID,Photo1,Photo2 from bcCommodity where ID=" + CheckString(m_ID), g_cnString, 3, 3
    Call g_System.File.ImageToField(rsTemp.Fields("Photo1"), m_Photo1)
    Call g_System.File.ImageToField(rsTemp.Fields("Photo2"), m_Photo2)
    rsTemp.Update
    rsTemp.Close
    Set rsTemp = Nothing
End Sub
'bcCommodity Update SQL
Public Function Update() As Boolean
On Error Resume Next
    sSQL = ""
    sSQL = sSQL + " update bcCommodity Set "
    sSQL = sSQL + "ClassID=" + CheckString(m_ClassID) + ","
    sSQL = sSQL + "ClassNo=" + CheckString(m_ClassNo) + ","
    sSQL = sSQL + "Code=" + CheckString(m_Code) + ","
    sSQL = sSQL + "Grade=" + CheckString(m_Grade) + ","
    sSQL = sSQL + "Status=" + CheckString(m_Status) + ","
    sSQL = sSQL + "New=" + CheckString(m_New) + ","
    sSQL = sSQL + "Manufacture=" + CheckString(m_Manufacture) + ","
    sSQL = sSQL + "Item=" + CheckString(m_Item) + ","
    sSQL = sSQL + "PArea=" + CheckString(m_PArea) + ","
    sSQL = sSQL + "Inventory=" + CheckString(m_Inventory) + ","
    sSQL = sSQL + "PurchaseBatch=" + "convert(Float," + CheckString(m_PurchaseBatch) + ")" + ","
    sSQL = sSQL + "SaleBatch=" + "convert(Float," + CheckString(m_SaleBatch) + ")" + ","
    sSQL = sSQL + "PurchaseTax=" + "convert(Float," + CheckString(m_PurchaseTax) + ")" + ","
    sSQL = sSQL + "SaleTax=" + "convert(Float," + CheckString(m_SaleTax) + ")" + ","
    sSQL = sSQL + "Package=" + CheckString(m_Package) + ","
    sSQL = sSQL + "Unit=" + CheckString(m_Unit) + ","
    sSQL = sSQL + "Weight=" + "convert(Float," + CheckString(m_Weight) + ")" + ","
    sSQL = sSQL + "WeightUnit=" + CheckString(m_WeightUnit) + ","
    sSQL = sSQL + "Cubage=" + CheckString(m_Cubage) + ","
    sSQL = sSQL + "CubageUnit=" + CheckString(m_CubageUnit) + ","
    sSQL = sSQL + "Description=" + CheckString(m_Description) + ","
    'sSQL = sSQL + "Photo1=" + CheckString(m_Photo1) + ","
    'sSQL = sSQL + "Photo2=" + CheckString(m_Photo2) + ","
    sSQL = sSQL + "PurchasePrice=" + "convert(Float," + CheckString(m_PurchasePrice) + ")" + ","
    sSQL = sSQL + "SalePrice=" + "convert(Float," + CheckString(m_SalePrice) + ")" + ","
    sSQL = sSQL + "OperatorID=" + CheckString(g_sUserID) + ","
    sSQL = sSQL + "ModifyDate=" + "getDate()" + ","
    sSQL = sSQL + "F11=" + CheckString(m_F11) + ","
    sSQL = sSQL + "F12=" + CheckString(m_F12) + ","
    sSQL = sSQL + "F13=" + CheckString(m_F13) + ","
    sSQL = sSQL + "F14=" + CheckString(m_F14) + ","
    sSQL = sSQL + "F15=" + CheckString(m_F15) + ","
    sSQL = sSQL + "F16=" + CheckString(m_F16) + ","
    sSQL = sSQL + "F17=" + CheckString(m_F17) + ","
    sSQL = sSQL + "F18=" + CheckString(m_F18) + ","
    sSQL = sSQL + "F19=" + CheckString(m_F19) + ","
    sSQL = sSQL + "F20=" + CheckString(m_F20)
    sSQL = sSQL + " where ID=" + CheckString(m_ID)
    g_cn.BeginTrans
      g_cn.Execute sSQL
      If Err.Number = 0 Then
         g_cn.CommitTrans
         Call UpdatePhoto
         'Add Log*********************'
         g_System.AddLog "bcCommodity", sSQL
         Update = True
      Else
         g_cn.RollbackTrans
         Update = False
         Err.Clear
      End If
End Function
'bcCommodity Delete SQL
Public Function Delete() As Boolean
On Error Resume Next
    sSQL = ""
    sSQL = sSQL + " Delete bcCommodity where ID=" + CheckString(m_ID)
    g_cn.BeginTrans
      g_cn.Execute sSQL
      If Err.Number = 0 Then
         g_cn.CommitTrans
         'Add Log*********************'
         g_System.AddLog "bcCommodity", sSQL
         Delete = True
      Else
         g_cn.RollbackTrans
         Delete = False
         Err.Clear
      End If
End Function
'bcCommodity Fill By ID SQL ,根据ID填充本对象
'参数  iID:对象的ID值
Public Function FillByID(ByVal sID As String) As Boolean
Dim rsTemp As ADODB.Recordset
    Set rsTemp = New ADODB.Recordset
    sSQL = ""
    sSQL = sSQL + " Select * from bcCommodity where ID=" + CheckString(sID)
    rsTemp.Open sSQL, g_cn
      If rsTemp.RecordCount > 0 Then
         m_ID = rsTemp.Fields("ID").value
         m_ClassID = rsTemp.Fields("ClassID").value
         m_ClassNo = rsTemp.Fields("ClassNo").value
         m_Code = rsTemp.Fields("Code").value
         m_Grade = rsTemp.Fields("Grade").value
         m_Status = rsTemp.Fields("Status").value
         m_New = rsTemp.Fields("New").value
         m_Manufacture = rsTemp.Fields("Manufacture").value
         m_Item = rsTemp.Fields("Item").value
         m_PArea = rsTemp.Fields("PArea").value
         m_Inventory = rsTemp.Fields("Inventory").value
         m_PurchaseBatch = rsTemp.Fields("PurchaseBatch").value
         m_SaleBatch = rsTemp.Fields("SaleBatch").value
         m_PurchaseTax = rsTemp.Fields("PurchaseTax").value
         m_SaleTax = rsTemp.Fields("SaleTax").value
         m_Package = rsTemp.Fields("Package").value
         m_Unit = rsTemp.Fields("Unit").value
         m_Weight = rsTemp.Fields("Weight").value
         m_WeightUnit = rsTemp.Fields("WeightUnit").value
         m_Cubage = rsTemp.Fields("Cubage").value
         m_CubageUnit = rsTemp.Fields("CubageUnit").value
         m_Description = rsTemp.Fields("Description").value
         m_Photo1 = g_System.File.FieldToImage(rsTemp.Fields("Photo1"))
         m_Photo2 = g_System.File.FieldToImage(rsTemp.Fields("Photo2"))
         m_PurchasePrice = rsTemp.Fields("PurchasePrice").value
         m_SalePrice = rsTemp.Fields("SalePrice").value
         m_OperatorID = rsTemp.Fields("OperatorID").value
         m_CreateDate = rsTemp.Fields("CreateDate").value
         m_ModifyDate = rsTemp.Fields("ModifyDate").value
         m_F11 = rsTemp.Fields("F11").value
         m_F12 = rsTemp.Fields("F12").value
         m_F13 = rsTemp.Fields("F13").value
         m_F14 = rsTemp.Fields("F14").value
         m_F15 = rsTemp.Fields("F15").value
         m_F16 = rsTemp.Fields("F16").value
         m_F17 = rsTemp.Fields("F17").value
         m_F18 = rsTemp.Fields("F18").value
         m_F19 = rsTemp.Fields("F19").value
         m_F20 = rsTemp.Fields("F20").value
         FillByID = True
      Else
         FillByID = False
      End If
End Function
'bcCommodity get List Recordset SQL,根据条件返回本数据库的记录集
'参数  sFields:查找到的记录集的字段列表;sWhere:找到记录的条件;sOrder:记录集的排序字段及方式
Public Function GetList(Optional ByVal sFields As String = "*", Optional ByVal sWhere As String = "", Optional ByVal sOrder As String = "") As Recordset
Dim rsTemp As ADODB.Recordset
    Set rsTemp = New ADODB.Recordset
    sSQL = ""
    sSQL = sSQL + " Select " + sFields + " from bcCommodity"
    If Len(sWhere) > 0 Then
       sSQL = sSQL + " where " + sWhere
    End If
    If Len(sOrder) > 0 Then
       sSQL = sSQL + " Order by " + sOrder
    End If
    rsTemp.Open sSQL, g_cn
    Set GetList = rsTemp
End Function
'bcCommodity get Recordset By ID SQL,根据ID返回本数据库的记录集
'参数  iID:对象的ID值;sFields:查找到的记录集的字段列表;sOrder:记录集的排序字段及方式
Public Function GetRecordsetByID(ByVal sID As String, Optional ByVal sFields As String = "*", Optional ByVal sOrder As String = "") As ADODB.Recordset
Dim rsTemp As ADODB.Recordset
    Set rsTemp = New ADODB.Recordset
    sSQL = ""
    sSQL = sSQL + " Select " + sFields + " from bcCommodity where ID=" + CheckString(sID)
    If Len(sOrder) > 0 Then
       sSQL = sSQL + " Order by " + sOrder
    End If
    rsTemp.Open sSQL, g_cn
    Set GetRecordsetByID = rsTemp
End Function