clsallocate.cls

一套鞋厂的销售管理系统

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 1  'vbDataSource
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsAllocate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private WithEvents rs As ADODB.Recordset
Attribute rs.VB_VarHelpID = -1

Private Sub Class_GetDataMember(DataMember As String, Data As Object)
    Set Data = rs
End Sub

Private Sub Class_Initialize()
    Set rs = New ADODB.Recordset
    With rs
        .Fields.Append "ordercode", adChar, 20, adFldKeyColumn
        .Fields.Append "ordername", adVarChar, 100
        .Fields.Append "number", adCurrency
        .Fields.Append "Size1", adCurrency
        .Fields.Append "Size2", adCurrency
        .Fields.Append "Size3", adCurrency
        .Fields.Append "Size4", adCurrency
        .Fields.Append "Size5", adCurrency
        .Fields.Append "Size6", adCurrency
        .Fields.Append "Size7", adCurrency
        .Fields.Append "Size8", adCurrency
        .Fields.Append "Size9", adCurrency
        .Fields.Append "Size10", adCurrency
        .Fields.Append "Size11", adCurrency
        .Fields.Append "Size12", adCurrency
        .Fields.Append "Size13", adCurrency
        .Fields.Append "Size14", adCurrency
        .Fields.Append "Size15", adCurrency
        .Fields.Append "Size16", adCurrency
        .Fields.Append "Size17", adCurrency
        .Fields.Append "Size18", adCurrency
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .Open
    End With
    
End Sub
Public Sub AddNew()
If rs.EOF Then
    rs.AddNew
    rs!OrderCode = ""
    rs!ordername = ""
'    rs!Number = 0
'    rs!size1 = 0
'    rs!size2 = 0
'    rs!size3 = 0
'    rs!size4 = 0
'    rs!size5 = 0
'    rs!size6 = 0
'    rs!size7 = 0
'    rs!size8 = 0
'    rs!size9 = 0
'    rs!size10 = 0
'    rs!size11 = 0
'    rs!size12 = 0
'    rs!size13 = 0
'    rs!size14 = 0
'    rs!size15 = 0
'    rs!size16 = 0
'    rs!size17 = 0
'    rs!size18 = 0
ElseIf rs.EditMode = adEditAdd Then
    rs.AddNew
    rs!OrderCode = ""
    rs!ordername = ""
'    rs!Number = 0
'    rs!size1 = 0
'    rs!size2 = 0
'    rs!size3 = 0
'    rs!size4 = 0
'    rs!size5 = 0
'    rs!size6 = 0
'    rs!size7 = 0
'    rs!size8 = 0
'    rs!size9 = 0
'    rs!size10 = 0
'    rs!size11 = 0
'    rs!size12 = 0
'    rs!size13 = 0
'    rs!size14 = 0
'    rs!size15 = 0
'    rs!size16 = 0
'    rs!size17 = 0
'    rs!size18 = 0
End If
End Sub

Public Sub LoadData(vformcode As String)  '装入数据
Dim ss As New ADODB.Recordset
Dim SQL As String
SQL = "SELECT allocate_form_sub.formcode, allocate_form_sub.ordercode, order_list.OrderName, allocate_form_sub.[count] as number, allocate_form_sub.S340, allocate_form_sub.S345, allocate_form_sub.S350, allocate_form_sub.S355, allocate_form_sub.S360, allocate_form_sub.S365, allocate_form_sub.S370, allocate_form_sub.S375, allocate_form_sub.S380, allocate_form_sub.S385, allocate_form_sub.S390, allocate_form_sub.S395, allocate_form_sub.S400, allocate_form_sub.S405, allocate_form_sub.S410, allocate_form_sub.S415, allocate_form_sub.S420, allocate_form_sub.S425, allocate_form_sub.S430, allocate_form_sub.S435, allocate_form_sub.S440, allocate_form_sub.S445, allocate_form_sub.S450, allocate_form_sub.S455, allocate_form_sub.S460, allocate_form_sub.S465, allocate_form_sub.S470, allocate_form_sub.S990 FROM allocate_form_sub LEFT JOIN order_list ON allocate_form_sub.ordercode = order_list.FullCode WHERE allocate_form_sub.formcode='" & Trim(vformcode) & "' "
ss.Open SQL, GetConnect, adOpenStatic, adLockOptimistic

If ss.BOF And ss.EOF Then
   MsgBox ss.RecordCount
Else
  ss.MoveFirst
  Do Until ss.EOF
  rs.AddNew
    rs!OrderCode = ss!OrderCode
    rs!ordername = ss!ordername
    rs!Number = ss!Number
    rs!size1 = ss!s340
    rs!size2 = ss!s345
    rs!size3 = ss!s350
    rs!size4 = ss!s355
    rs!size5 = ss!s360
    rs!size6 = ss!s365
    rs!size7 = ss!s370
    rs!size8 = ss!s375
    rs!size9 = ss!s380
    rs!size10 = ss!s385
    rs!size11 = ss!s390
    rs!size12 = ss!s395
    rs!size13 = ss!s400
    rs!size14 = ss!s405
    rs!size15 = ss!s410
    rs!size16 = ss!s415
    rs!size17 = ss!s420
    ss.MoveNext
    rs.Update
  Loop
  ss.Close
End If
End Sub

Public Sub SaveData(vformcode As String)  '保存数据
On Error Resume Next
Dim ss As New ADODB.Recordset
Dim SQL As String
SQL = "SELECT allocate_form_sub.* FROM allocate_form_sub; "
ss.Open SQL, GetConnect, adOpenStatic, adLockOptimistic
rs.MoveFirst
Do Until rs.EOF
ss.AddNew
    ss!Formcode = Trim(vformcode)
    ss!OrderCode = rs!OrderCode
    ss!Count = rs!Number
    ss!s340 = rs!size1
    ss!s345 = rs!size2
    ss!s350 = rs!size3
    ss!s355 = rs!size4
    ss!s360 = rs!size5
    ss!s365 = rs!size6
    ss!s370 = rs!size7
    ss!s375 = rs!size8
    ss!s380 = rs!size9
    ss!s385 = rs!size10
    ss!s380 = rs!size9
    ss!s390 = rs!size11
    ss!s395 = rs!size12
    ss!s400 = rs!size13
    ss!s405 = rs!size14
    ss!s410 = rs!size15
    ss!s415 = rs!size16
    ss!s420 = rs!size17
ss.Update
rs.MoveNext
Loop
ss.Close
End Sub
Public Sub delete() '删除数据
If rs.BOF And rs.EOF Then
Else
    rs.MoveFirst
    Do Until rs.EOF
        rs.delete
        rs.MoveNext
    Loop
End If
End Sub
Public Function Recordset() As Recordset
Set Recordset = rs
End Function