mdlsize.bas

一套鞋厂的销售管理系统

Attribute VB_Name = "mdlSize"
Option Explicit

Public Sub SizeBuildingOther(vSizeControl As Object)
On Error Resume Next
   vSizeControl.DataBindings("SizeField1").DataField = "S340"
   vSizeControl.DataBindings("SizeField2").DataField = "S345"
   vSizeControl.DataBindings("SizeField3").DataField = "S350"
   vSizeControl.DataBindings("SizeField4").DataField = "S355"
   vSizeControl.DataBindings("SizeField5").DataField = "S360"
   vSizeControl.DataBindings("SizeField6").DataField = "S365"
   vSizeControl.DataBindings("SizeField7").DataField = "S370"
   vSizeControl.DataBindings("SizeField8").DataField = "S375"
   vSizeControl.DataBindings("SizeField9").DataField = "S380"
   vSizeControl.DataBindings("SizeField10").DataField = "S385"
   vSizeControl.DataBindings("SizeField11").DataField = "S390"
   vSizeControl.DataBindings("SizeField12").DataField = "S395"
   vSizeControl.DataBindings("SizeField13").DataField = "S400"
   vSizeControl.DataBindings("SizeField14").DataField = "S405"
   vSizeControl.DataBindings("SizeField15").DataField = "S410"
   vSizeControl.DataBindings("SizeField16").DataField = "S415"
   vSizeControl.DataBindings("SizeField17").DataField = "S420"
  
End Sub

Public Sub SizeBuilding(vSizeControl As Object, Optional ByVal HeadString As String = "Size")
   vSizeControl.DataBindings("SizeField1").DataField = HeadString & "1"
   vSizeControl.DataBindings("SizeField2").DataField = HeadString & "2"
   vSizeControl.DataBindings("SizeField3").DataField = HeadString & "3"
   vSizeControl.DataBindings("SizeField4").DataField = HeadString & "4"
   vSizeControl.DataBindings("SizeField5").DataField = HeadString & "5"
   vSizeControl.DataBindings("SizeField6").DataField = HeadString & "6"
   vSizeControl.DataBindings("SizeField7").DataField = HeadString & "7"
   vSizeControl.DataBindings("SizeField8").DataField = HeadString & "8"
   vSizeControl.DataBindings("SizeField9").DataField = HeadString & "9"
   vSizeControl.DataBindings("SizeField10").DataField = HeadString & "10"
   vSizeControl.DataBindings("SizeField11").DataField = HeadString & "11"
   vSizeControl.DataBindings("SizeField12").DataField = HeadString & "12"
   vSizeControl.DataBindings("SizeField13").DataField = HeadString & "13"
   vSizeControl.DataBindings("SizeField14").DataField = HeadString & "14"
   vSizeControl.DataBindings("SizeField15").DataField = HeadString & "15"
   vSizeControl.DataBindings("SizeField16").DataField = HeadString & "16"
   vSizeControl.DataBindings("SizeField17").DataField = HeadString & "17"
'   vSizeControl.DataBindings("SizeField18").DataField = HeadString & "18"
End Sub

Public Function SetSizeType(vSizeControl As Object, ByVal vSizeName As String) As Boolean
    Dim Rst1 As New ADODB.Recordset
    Rst1.Open "select * from Size where SizeName='" & vSizeName & "'", GetConnect, adOpenForwardOnly, adLockReadOnly
    If Rst1.EOF Then
        SetSizeType = False
        vSizeControl.SetSize vSizeName, 0, "", ""
    Else
        SetSizeType = True
        vSizeControl.SetSize vSizeName, Rst1![SizeNumber], Rst1![SizeHead], Rst1![SizeKey], Rst1![SizeType]
    End If
End Function

Public Function FindSizeName(ByVal vCode As String) As String
    Dim Rst1 As New ADODB.Recordset
    Rst1.Open "select SizeName from ItemMaster Where ItemCode='" & vCode & "'", GetConnect, adOpenForwardOnly, adLockReadOnly
    If Rst1.EOF Then
        FindSizeName = "000"
    Else
        If IsNull(Rst1![SizeName]) Then
            FindSizeName = "000"
        Else
            FindSizeName = Rst1![SizeName]
        End If
    End If
End Function