clscustomer.cls

来自「很好！ 很实用！ 免费！」· CLS 代码 · 共 300 行

CLS
300 行
字号 
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsCustomer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
 '***************************************************************
'CoCustomer类模块
'CreateTime:2002-11-08 0:46:45;Editor:JLIU
'ComputerIP:192.168.3.3;ComputerName:myco
'***************************************************************
Option Explicit
'*****************************************
Public m_ID As String 'DBO.CoCustomer.ID;描述:;主键
Public m_PatentID As String 'DBO.CoCustomer.PatentID;描述:;
Public m_No As String 'DBO.CoCustomer.No;描述:;
Public m_Type As String 'DBO.CoCustomer.Type;描述:;
Public m_Status As String 'DBO.CoCustomer.Status;描述:;
Public m_Name As String 'DBO.CoCustomer.Name;描述:;
Public m_OwnerShip As String 'DBO.CoCustomer.OwnerShip;描述:;
Public m_Synopsis As String 'DBO.CoCustomer.Synopsis;描述:;
Public m_Management As String 'DBO.CoCustomer.Management;描述:;
Public m_ManNumber As Double 'DBO.CoCustomer.ManNumber;描述:;
Public m_Capital As Double 'DBO.CoCustomer.Capital;描述:;
Public m_Taking As Double 'DBO.CoCustomer.Taking;描述:;
Public m_Service As String 'DBO.CoCustomer.Service;描述:;
Public m_FictitiousMan As String 'DBO.CoCustomer.FictitiousMan;描述:;
Public m_PurchaseMan As String 'DBO.CoCustomer.PurchaseMan;描述:;
Public m_SaleMan As String 'DBO.CoCustomer.SaleMan;描述:;
Public m_FinanceMan As String 'DBO.CoCustomer.FinanceMan;描述:;
Public m_AreaID As String 'DBO.CoCustomer.AreaID;描述:;
Public m_Address As String 'DBO.CoCustomer.Address;描述:;
Public m_PostCode As String 'DBO.CoCustomer.PostCode;描述:;
Public m_Telephone As String 'DBO.CoCustomer.Telephone;描述:;
Public m_Fax As String 'DBO.CoCustomer.Fax;描述:;
Public m_Email As String 'DBO.CoCustomer.Email;描述:;
Public m_Http As String 'DBO.CoCustomer.Http;描述:;
Public m_Credit As String 'DBO.CoCustomer.Credit;描述:;
Public m_ContributeRate As Double 'DBO.CoCustomer.ContributeRate;描述:;
Public m_BackRate As Double 'DBO.CoCustomer.BackRate;描述:;
Public m_Back As String 'DBO.CoCustomer.Back;描述:;
Public m_BackProfile As String 'DBO.CoCustomer.BackProfile;描述:;
Public m_OperatorID As String 'DBO.CoCustomer.OperatorID;描述:;记录操作人的ID,从模块中的g_sUserID得到
Private m_CreateDate As Date 'DBO.CoCustomer.CreateDate;描述:;记录加入的时间,在Insert的时候取值getDate(),在Update的时候不用修改
Private m_ModifyDate As Date 'DBO.CoCustomer.ModifyDate;描述:;记录最后修改的时间,在Insert的时候取值getDate(),在Update的时候也取值getDate()
'*****************************************
Dim sSQL As String
'CoCustomer Templet在给对象赋值时使用,可以少写不少代码...
'Public function Templet() as boolean
'On Error Resume Next
       '.m_ID=""
       '.m_PatentID=""
       '.m_No=""
       '.m_Type=""
       '.m_Status=""
       '.m_Name=""
       '.m_OwnerShip=""
       '.m_Synopsis=""
       '.m_Management=""
       '.m_ManNumber=""
       '.m_Capital=""
       '.m_Taking=""
       '.m_Service=""
       '.m_FictitiousMan=""
       '.m_PurchaseMan=""
       '.m_SaleMan=""
       '.m_FinanceMan=""
       '.m_AreaID=""
       '.m_Address=""
       '.m_PostCode=""
       '.m_Telephone=""
       '.m_Fax=""
       '.m_Email=""
       '.m_Http=""
       '.m_Credit=""
       '.m_ContributeRate=""
       '.m_BackRate=""
       '.m_Back=""
       '.m_BackProfile=""
       '.m_OperatorID=""
       '.m_CreateDate=""
       '.m_ModifyDate=""
'End Function

'修改数据开始
'CoCustomer Insert SQL
Public Function Insert() As Boolean
On Error Resume Next
   sSQL = ""
   sSQL = sSQL + " insert into CoCustomer"
   sSQL = sSQL + " ("
   sSQL = sSQL + "ID,PatentID,No,Type,Status,Name,OwnerShip,Synopsis,Management,ManNumber,Capital,Taking,Service,FictitiousMan,PurchaseMan,SaleMan,FinanceMan,AreaID,Address,PostCode,Telephone,Fax,Email,Http,Credit,ContributeRate,BackRate,Back,BackProfile,OperatorID,CreateDate,ModifyDate"
   sSQL = sSQL + ") Values ("
   sSQL = sSQL + CheckString(m_ID) + ","
   If m_PatentID = "" Then
    sSQL = sSQL + "Null" + ","
   Else
    sSQL = sSQL + CheckString(m_PatentID) + ","
   End If
   sSQL = sSQL + CheckString(m_No) + ","
   sSQL = sSQL + CheckString(m_Type) + ","
   sSQL = sSQL + CheckString(m_Status) + ","
   sSQL = sSQL + CheckString(m_Name) + ","
   sSQL = sSQL + CheckString(m_OwnerShip) + ","
   sSQL = sSQL + CheckString(m_Synopsis) + ","
   sSQL = sSQL + CheckString(m_Management) + ","
   sSQL = sSQL + "convert(Float," + CheckString(m_ManNumber) + ")" + ","
   sSQL = sSQL + "convert(Float," + CheckString(m_Capital) + ")" + ","
   sSQL = sSQL + "convert(Float," + CheckString(m_Taking) + ")" + ","
   sSQL = sSQL + CheckString(m_Service) + ","
   sSQL = sSQL + CheckString(m_FictitiousMan) + ","
   sSQL = sSQL + CheckString(m_PurchaseMan) + ","
   sSQL = sSQL + CheckString(m_SaleMan) + ","
   sSQL = sSQL + CheckString(m_FinanceMan) + ","
   sSQL = sSQL + CheckString(m_AreaID) + ","
   sSQL = sSQL + CheckString(m_Address) + ","
   sSQL = sSQL + CheckString(m_PostCode) + ","
   sSQL = sSQL + CheckString(m_Telephone) + ","
   sSQL = sSQL + CheckString(m_Fax) + ","
   sSQL = sSQL + CheckString(m_Email) + ","
   sSQL = sSQL + CheckString(m_Http) + ","
   sSQL = sSQL + CheckString(m_Credit) + ","
   sSQL = sSQL + "convert(Float," + CheckString(m_ContributeRate) + ")" + ","
   sSQL = sSQL + "convert(Float," + CheckString(m_BackRate) + ")" + ","
   sSQL = sSQL + CheckString(m_Back) + ","
   sSQL = sSQL + CheckString(m_BackProfile) + ","
   sSQL = sSQL + CheckString(g_sUserID) + ","
   sSQL = sSQL + "getDate()" + ","
   sSQL = sSQL + "getDate()"
   sSQL = sSQL + ")"
   g_cn.BeginTrans
      g_cn.Execute sSQL
      If Err.Number = 0 Then
         g_cn.CommitTrans
         'Add Log*********************'
         g_System.AddLog "CoCustomer", sSQL
         Insert = True
      Else
         g_cn.RollbackTrans
         Insert = False
         Err.Clear
      End If
End Function
'CoCustomer Update SQL
Public Function Update() As Boolean
On Error Resume Next
    sSQL = ""
    sSQL = sSQL + " update CoCustomer Set "
    If m_PatentID = "" Then
        sSQL = sSQL + "PatentID=Null" + ","
    Else
        sSQL = sSQL + "PatentID=" + CheckString(m_PatentID) + ","
    End If
    sSQL = sSQL + "No=" + CheckString(m_No) + ","
    sSQL = sSQL + "Type=" + CheckString(m_Type) + ","
    sSQL = sSQL + "Status=" + CheckString(m_Status) + ","
    sSQL = sSQL + "Name=" + CheckString(m_Name) + ","
    sSQL = sSQL + "OwnerShip=" + CheckString(m_OwnerShip) + ","
    sSQL = sSQL + "Synopsis=" + CheckString(m_Synopsis) + ","
    sSQL = sSQL + "Management=" + CheckString(m_Management) + ","
    sSQL = sSQL + "ManNumber=" + "convert(Float," + CheckString(m_ManNumber) + ")" + ","
    sSQL = sSQL + "Capital=" + "convert(Float," + CheckString(m_Capital) + ")" + ","
    sSQL = sSQL + "Taking=" + "convert(Float," + CheckString(m_Taking) + ")" + ","
    sSQL = sSQL + "Service=" + CheckString(m_Service) + ","
    sSQL = sSQL + "FictitiousMan=" + CheckString(m_FictitiousMan) + ","
    sSQL = sSQL + "PurchaseMan=" + CheckString(m_PurchaseMan) + ","
    sSQL = sSQL + "SaleMan=" + CheckString(m_SaleMan) + ","
    sSQL = sSQL + "FinanceMan=" + CheckString(m_FinanceMan) + ","
    sSQL = sSQL + "AreaID=" + CheckString(m_AreaID) + ","
    sSQL = sSQL + "Address=" + CheckString(m_Address) + ","
    sSQL = sSQL + "PostCode=" + CheckString(m_PostCode) + ","
    sSQL = sSQL + "Telephone=" + CheckString(m_Telephone) + ","
    sSQL = sSQL + "Fax=" + CheckString(m_Fax) + ","
    sSQL = sSQL + "Email=" + CheckString(m_Email) + ","
    sSQL = sSQL + "Http=" + CheckString(m_Http) + ","
    sSQL = sSQL + "Credit=" + CheckString(m_Credit) + ","
    sSQL = sSQL + "ContributeRate=" + "convert(Float," + CheckString(m_ContributeRate) + ")" + ","
    sSQL = sSQL + "BackRate=" + "convert(Float," + CheckString(m_BackRate) + ")" + ","
    sSQL = sSQL + "Back=" + CheckString(m_Back) + ","
    sSQL = sSQL + "BackProfile=" + CheckString(m_BackProfile) + ","
    sSQL = sSQL + "OperatorID=" + CheckString(g_sUserID) + ","
    sSQL = sSQL + "ModifyDate=" + "getDate()"
    sSQL = sSQL + " 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 "CoCustomer", sSQL
         Update = True
      Else
         g_cn.RollbackTrans
         Update = False
         Err.Clear
      End If
End Function
'CoCustomer Delete SQL
Public Function Delete() As Boolean
On Error Resume Next
    sSQL = ""
    sSQL = sSQL + " Delete CoCustomer 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 "CoCustomer", sSQL
         Delete = True
      Else
         g_cn.RollbackTrans
         Delete = False
         Err.Clear
      End If
End Function
'CoCustomer 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 CoCustomer where ID=" + CheckString(sID)
    rsTemp.Open sSQL, g_cn
      If rsTemp.RecordCount > 0 Then
         m_ID = rsTemp.Fields("ID").value
         If Not IsNull(rsTemp.Fields("PatentID").value) Then
            m_PatentID = rsTemp.Fields("PatentID").value
         End If
         m_No = rsTemp.Fields("No").value
         m_Type = rsTemp.Fields("Type").value
         m_Status = rsTemp.Fields("Status").value
         m_Name = rsTemp.Fields("Name").value
         m_OwnerShip = rsTemp.Fields("OwnerShip").value
         m_Synopsis = rsTemp.Fields("Synopsis").value
         m_Management = rsTemp.Fields("Management").value
         m_ManNumber = rsTemp.Fields("ManNumber").value
         m_Capital = rsTemp.Fields("Capital").value
         m_Taking = rsTemp.Fields("Taking").value
         m_Service = rsTemp.Fields("Service").value
         m_FictitiousMan = rsTemp.Fields("FictitiousMan").value
         m_PurchaseMan = rsTemp.Fields("PurchaseMan").value
         m_SaleMan = rsTemp.Fields("SaleMan").value
         m_FinanceMan = rsTemp.Fields("FinanceMan").value
         m_AreaID = rsTemp.Fields("AreaID").value
         m_Address = rsTemp.Fields("Address").value
         m_PostCode = rsTemp.Fields("PostCode").value
         m_Telephone = rsTemp.Fields("Telephone").value
         m_Fax = rsTemp.Fields("Fax").value
         m_Email = rsTemp.Fields("Email").value
         m_Http = rsTemp.Fields("Http").value
         m_Credit = rsTemp.Fields("Credit").value
         m_ContributeRate = rsTemp.Fields("ContributeRate").value
         m_BackRate = rsTemp.Fields("BackRate").value
         m_Back = rsTemp.Fields("Back").value
         m_BackProfile = rsTemp.Fields("BackProfile").value
         m_OperatorID = rsTemp.Fields("OperatorID").value
         m_CreateDate = rsTemp.Fields("CreateDate").value
         m_ModifyDate = rsTemp.Fields("ModifyDate").value
         FillByID = True
      Else
         FillByID = False
      End If
End Function
'CoCustomer 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 CoCustomer"
    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
'CoCustomer 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 CoCustomer 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

clscustomer.cls - 源码说明

本页面展示了「很好！ 很实用！ 免费！」中的 clscustomer.cls 源码文件，采用 CLS 编程语言编写，共 300 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?