clsxiaoshou.cls

来自「音像店(CD刻录)进销存管理系统」· CLS 代码 · 共 234 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsXiaoShou"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public XS_ID As Long
Public LR_Date As String  '录入日期
Public DD_Date As String  '订单日期
Public DLS_DaiHao As String  '代理商代号
Public DLS_name As String '代理商名称
Public DDLX As String '订单类型
Public GQLX As String '歌曲类型
Public YD As String '用碟
Public D_DLDJ As Single '碟代理单价
Public D_LSDJ As Single '碟零售单价
Public D_ShuLiang As Integer '碟数量
Public D_DLJE As Single '碟代理金额
Public D_LSJE As Single '碟零售金额
Public GDH As String '光碟盒
Public H_DLDJ As Single '盒代理单价
Public H_LSDJ As Single '盒零售单价
Public H_ShuLiang As Integer '盒数量
Public H_DLJE As Single '盒代理金额
Public H_LSJE As Single '盒零售金额
Public DYGC As Boolean  '打印歌词
Public GC_ShuLiang As Integer '歌词数量
Public GC_DLJE As Single '歌词代理金额
Public GC_LSJE As Single '歌词零售金额
Public TBSF_JE As Single '特别收费金额
Public TBSFYY As String '特别收费原因
Public DLZJE As Single '代理总金额
Public LSZJE As Single '零售总金额
Public GK_Name As String '顾客姓名
Public GK_DH As String '顾客电话
Public TD As Boolean '退单

Dim RS As ADODB.Recordset


Public Sub Update(ByVal TmpId As Long)
  SQL = "Update 销售 set 录入日期='" & Trim(LR_Date) & "',订单日期='" & Trim(DD_Date) _
             & "',代理商代号='" & Trim(DLS_DaiHao) & "',代理商名称='" & Trim(DLS_name) _
             & "',订单类型='" & Trim(DDLX) & "',歌曲类型='" & Trim(GQLX) _
             & "',用碟='" & Trim(YD) & "',碟代理单价=" & Trim(Str(D_DLDJ)) & ",碟零售单价=" & Trim(Str(D_LSDJ)) _
             & ",碟数量=" & Trim(Str(D_ShuLiang)) & ",碟代理金额=" & Trim(Str(D_DLJE)) _
             & ",碟零售金额=" & Trim(Str(D_LSJE)) & ",光碟盒='" & Trim(GDH) _
             & "',盒代理单价=" & Trim(Str(H_DLDJ)) & ",盒零售单价=" & Trim(Str(H_LSDJ)) _
             & ",盒数量=" & Trim(Str(H_ShuLiang)) & ",盒代理金额=" & Trim(Str(H_DLJE)) _
             & ",盒零售金额=" & Trim(Str(H_LSJE)) & ",打印歌词=" & Trim(Str(DYGC)) _
             & ",歌词数量=" & Trim(Str(GC_ShuLiang)) & ",歌词代理金额=" & Trim(Str(GC_DLJE)) _
             & ",歌词零售金额=" & Trim(Str(GC_LSJE)) & ",特别收费金额=" & Trim(Str(TBSF_JE)) _
             & ",特别收费原因='" & Trim(TBSFYY) & "',代理总金额=" & Trim(Str(DLZJE)) _
             & ",零售总金额=" & Trim(Str(LSZJE)) & ",顾客姓名='" & Trim(GK_Name) _
             & "',顾客电话='" & Trim(GK_DH) & "',退单=" & Trim(Str(TD)) _
             & " where 销售_ID=" & Trim(Str(TmpId))
  
  ExecuteSQL (Trim(SQL))
End Sub


Public Sub Insert()
  XS_ID = GetNewId
  'SQL = "Insert into 销售 (商品_ID,零售价,品名,计量单位,属类,代理价) Values(" & Trim(CStr(SP_ID)) & "," & Trim(Str(LSJ)) & ",'" & Trim(PinMing) & "','" & Trim(JLDW) & "','" & Trim(ShuLei) & "'," & Trim(Str(DLJ)) & ")"
  SQL = "Insert into 销售 (销售_ID,录入日期,订单日期,代理商代号,代理商名称,订单类型,歌曲类型,用碟,碟代理单价,碟零售单价,碟数量,碟代理金额,碟零售金额,光碟盒,盒代理单价,盒零售单价,盒数量,盒代理金额,盒零售金额,打印歌词,歌词数量,歌词代理金额,歌词零售金额,特别收费金额,特别收费原因,代理总金额,零售总金额,顾客姓名,顾客电话,退单) values(" _
             & Trim(Str(XS_ID)) & ",'" & Trim(LR_Date) & "','" & Trim(DD_Date) _
             & "','" & Trim(DLS_DaiHao) & "','" & Trim(DLS_name) _
             & "','" & Trim(DDLX) & "','" & Trim(GQLX) _
             & "','" & Trim(YD) & "'," & Trim(Str(D_DLDJ)) & "," & Trim(Str(D_LSDJ)) _
             & "," & Trim(Str(D_ShuLiang)) & "," & Trim(Str(D_DLJE)) _
             & "," & Trim(Str(D_LSJE)) & ",'" & Trim(GDH) _
             & "'," & Trim(Str(H_DLDJ)) & "," & Trim(Str(H_LSDJ)) _
             & "," & Trim(Str(H_ShuLiang)) & "," & Trim(Str(H_DLJE)) _
             & "," & Trim(Str(H_LSJE)) & "," & Trim(Str(DYGC)) _
             & "," & Trim(Str(GC_ShuLiang)) & "," & Trim(Str(GC_DLJE)) _
             & "," & Trim(Str(GC_LSJE)) & "," & Trim(Str(TBSF_JE)) _
             & ",'" & Trim(TBSFYY) & "'," & Trim(Str(DLZJE)) _
             & "," & Trim(Str(LSZJE)) & ",'" & Trim(GK_Name) _
             & "','" & Trim(GK_DH) & "'," & Trim(Str(TD)) & ")"
  
  ExecuteSQL (SQL)
End Sub

Public Sub Init()
  XS_ID = -1
  LR_Date = "" '录入日期
  DD_Date = "" '订单日期
  DLS_DaiHao = "" '代理商代号
  DLS_name = "" '代理商名称
  DDLX = "" '订单类型
  GQLX = "" '歌曲类型
  YD = "" '用碟
  D_DLDJ = 0 '碟代理单价
  D_LSDJ = 0 '碟零售单价
  D_ShuLiang = 0 '碟数量
  D_DLJE = 0 '碟代理金额
  D_LSJE = 0 '碟零售金额
  GDH = "" '光碟盒
  H_DLDJ = 0 '盒代理单价
  H_LSDJ = 0 '盒零售单价
  H_ShuLiang = 0 '盒数量
  H_DLJE = 0 '盒代理金额
  H_LSJE = 0 '盒零售金额
  DYGC = False  '打印歌词
  GC_ShuLiang = 0 '歌词数量
  GC_DLJE = 0 '歌词代理金额
  GC_LSJE = 0 '歌词零售金额
  TBSF_JE = 0 '特别收费金额
  TBSFYY = "" '特别收费原因
  DLZJE = 0 '代理总金额
  LSZJE = 0 '零售总金额
  GK_Name = "" '顾客姓名
  GK_DH = "" '顾客电话
  TD = False '退单
End Sub


Public Sub Delete(TmpId As Long)
  SQL = "DELETE from 销售 WHERE 销售_ID=" & Trim(Str(TmpId))
  ExecuteSQL (Trim(SQL))
End Sub


Public Sub GetInfo(TmpId As Long)
  XS_ID = TmpId
  If TmpId = 0 Then
    Init
    Exit Sub
  End If
  
  On Error GoTo GetInfo_error
  SQL = "SELECT * FROM 销售 WHERE 销售_Id=" & Trim(Str(TmpId))
  Set RS = ExecuteSQL(Trim(SQL))
  With RS
    If .EOF = False Then
      LR_Date = !录入日期
      DD_Date = !订单日期
      DLS_DaiHao = !代理商代号
      DLS_name = !代理商名称
      DDLX = !订单类型
      GQLX = !歌曲类型
      YD = !用碟
      D_DLDJ = !碟代理单价
      D_LSDJ = !碟零售单价
      D_ShuLiang = !碟数量
      D_DLJE = !碟代理金额
      D_LSJE = !碟零售金额
      GDH = !光碟盒
      H_DLDJ = !盒代理单价
      H_LSDJ = !盒零售单价
      H_ShuLiang = !盒数量
      H_DLJE = !盒代理金额
      H_LSJE = !盒零售金额
      DYGC = !打印歌词
      GC_ShuLiang = !歌词数量
      GC_DLJE = !歌词代理金额
      GC_LSJE = !歌词零售金额
      TBSF_JE = !特别收费金额
      TBSFYY = !特别收费原因
      DLZJE = !代理总金额
      LSZJE = !零售总金额
      GK_Name = !顾客姓名
      GK_DH = !顾客电话
      TD = !退单
    Else
      Init
    End If
  End With
  
GetInfo_exit:
  If Not RS Is Nothing Then
    RS.Close
    Set RS = Nothing
  End If
  Exit Sub
  
GetInfo_error:
  If Err.Description <> "" Then
    MsgBox Err.Description
    Err.Clear
  End If
  Resume GetInfo_exit
End Sub


Private Function GetNewId() As Long
  Dim lngTmpID As Long
  Dim i As Long
  
  On Error GoTo GetNewID_error
  i = 1
  SQL = "select 销售_ID from 销售 order by 销售_ID"
  Set RS = ExecuteSQL(Trim(SQL))
  With RS
  Do While .EOF = False
    If !销售_ID = i Then
      i = i + 1
    Else
      GetNewId = i
      GoTo GetNewID_exit '当销售_ID不连续时
    End If
    RS.MoveNext
  Loop
  End With
  GetNewId = i '当销售_ID连续时
  
GetNewID_exit:
  If Not RS Is Nothing Then
    RS.Close
    Set RS = Nothing
  End If
  Exit Function
  
GetNewID_error:
  If Err.Description <> "" Then
    MsgBox Err.Description
    Err.Clear
  End If
  Resume GetNewID_exit
End Function


'Insert into 销售 (销售_ID,录入日期,订单日期,代理商代号,代理商名称,订单类型,歌曲类型,用碟,碟代理单价,碟零售单价,碟数量,碟代理金额,碟零售金额,光碟盒,盒代理单价,盒零售单价,盒数量,盒代理金额,盒零售金额,打印歌词,歌词数量,歌词代理金额,歌词零售金额,特别收费金额,特别收费原因,代理总金额,零售总金额,顾客姓名,顾客电话,退单)
'            values(1, '1998-1-1','1998-1-1','re',          'r',      '',     '',   '',      -1,        -1,    1,        -1,       -1,     '',      -1,       -1,     0,        0,         0,   False,       0,         0,           0,          0,         '',       =0,        0,       '',     '',False