mysize.ctl

一套鞋厂的销售管理系统

    m_SizeField6 = m_def_SizeField
    m_SizeField7 = m_def_SizeField
    m_SizeField8 = m_def_SizeField
    m_SizeField9 = m_def_SizeField
    m_SizeField10 = m_def_SizeField
    m_SizeField11 = m_def_SizeField
    m_SizeField12 = m_def_SizeField
    m_SizeField13 = m_def_SizeField
    m_SizeField14 = m_def_SizeField
    m_SizeField15 = m_def_SizeField
    m_SizeField16 = m_def_SizeField
    m_SizeField17 = m_def_SizeField
    m_SizeField18 = m_def_SizeField
    m_SizeField19 = m_def_SizeField
    m_SizeField20 = m_def_SizeField
    m_SizeField21 = m_def_SizeField
    m_SizeField22 = m_def_SizeField
    m_SizeField23 = m_def_SizeField
    m_SizeField24 = m_def_SizeField
    m_SizeField25 = m_def_SizeField
    m_SizeField26 = m_def_SizeField
    m_SizeField27 = m_def_SizeField
    m_SizeField28 = m_def_SizeField
    m_SizeField29 = m_def_SizeField
    m_SizeField30 = m_def_SizeField
End Sub

'从存贮器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

    UserControl.Enabled = PropBag.ReadProperty("Enabled", True)
    UserControl.BorderStyle = PropBag.ReadProperty("BorderStyle", 0)
    UserControl.Appearance = PropBag.ReadProperty("Appearance", 1)
    LSize(0).ForeColor = PropBag.ReadProperty("HeadForeColor", &H80000008)
    LSize(0).BackColor = PropBag.ReadProperty("HeadBackColor", &H80000000)
    Set LSize(0).Font = PropBag.ReadProperty("HeadFont", Ambient.Font)
    TSize(0).ForeColor = PropBag.ReadProperty("TextForeColor", &H0&)
    TSize(0).BackColor = PropBag.ReadProperty("TextBackColor", &H80000005)
    UserControl.BackColor = TSize(0).BackColor
    Set TSize(0).Font = PropBag.ReadProperty("TextFont", Ambient.Font)
    Lines(0).BorderColor = PropBag.ReadProperty("LineColor", -2147483640)
    m_PrintCount = PropBag.ReadProperty("PrintCount", m_def_PrintCount)
    m_PrintHead = PropBag.ReadProperty("PrintHead", m_def_PrintHead)
    m_HeadForeColor = PropBag.ReadProperty("HeadForeColor", m_def_HeadForeColor)
    m_HeadBackColor = PropBag.ReadProperty("HeadBackColor", m_def_HeadBackColor)
    Set m_HeadFont = PropBag.ReadProperty("HeadFont", Ambient.Font)
    m_TextForeColor = PropBag.ReadProperty("TextForeColor", m_def_TextForeColor)
    m_TextBackColor = PropBag.ReadProperty("TextBackColor", m_def_TextBackColor)
    Set m_TextFont = PropBag.ReadProperty("TextFont", Ambient.Font)
    m_LineColor = PropBag.ReadProperty("LineColor", m_def_LineColor)
    m_SizeName = PropBag.ReadProperty("SizeName", m_def_SizeName)
    m_SizeNumber = PropBag.ReadProperty("SizeNumber", m_def_SizeNumber)
    m_SizeType = PropBag.ReadProperty("SizeType", m_def_SizeType)
    m_SizeHead = PropBag.ReadProperty("SizeHead", m_def_SizeHead)
    m_SizeKey = PropBag.ReadProperty("SizeKey", m_def_SizeKey)
    TSize(0).Text = PropBag.ReadProperty("SizeCount", m_def_SizeCount)
    m_SizeField1 = PropBag.ReadProperty("SizeField1", m_def_SizeField)
    m_SizeField2 = PropBag.ReadProperty("SizeField2", m_def_SizeField)
    m_SizeField3 = PropBag.ReadProperty("SizeField3", m_def_SizeField)
    m_SizeField4 = PropBag.ReadProperty("SizeField4", m_def_SizeField)
    m_SizeField5 = PropBag.ReadProperty("SizeField5", m_def_SizeField)
    m_SizeField6 = PropBag.ReadProperty("SizeField6", m_def_SizeField)
    m_SizeField7 = PropBag.ReadProperty("SizeField7", m_def_SizeField)
    m_SizeField8 = PropBag.ReadProperty("SizeField8", m_def_SizeField)
    m_SizeField9 = PropBag.ReadProperty("SizeField9", m_def_SizeField)
    m_SizeField10 = PropBag.ReadProperty("SizeField10", m_def_SizeField)
    m_SizeField11 = PropBag.ReadProperty("SizeField11", m_def_SizeField)
    m_SizeField12 = PropBag.ReadProperty("SizeField12", m_def_SizeField)
    m_SizeField13 = PropBag.ReadProperty("SizeField13", m_def_SizeField)
    m_SizeField14 = PropBag.ReadProperty("SizeField14", m_def_SizeField)
    m_SizeField15 = PropBag.ReadProperty("SizeField15", m_def_SizeField)
    m_SizeField16 = PropBag.ReadProperty("SizeField16", m_def_SizeField)
    m_SizeField17 = PropBag.ReadProperty("SizeField17", m_def_SizeField)
    m_SizeField18 = PropBag.ReadProperty("SizeField18", m_def_SizeField)
    m_SizeField19 = PropBag.ReadProperty("SizeField19", m_def_SizeField)
    m_SizeField20 = PropBag.ReadProperty("SizeField20", m_def_SizeField)
    m_SizeField21 = PropBag.ReadProperty("SizeField21", m_def_SizeField)
    m_SizeField22 = PropBag.ReadProperty("SizeField22", m_def_SizeField)
    m_SizeField23 = PropBag.ReadProperty("SizeField23", m_def_SizeField)
    m_SizeField24 = PropBag.ReadProperty("SizeField24", m_def_SizeField)
    m_SizeField25 = PropBag.ReadProperty("SizeField25", m_def_SizeField)
    m_SizeField26 = PropBag.ReadProperty("SizeField26", m_def_SizeField)
    m_SizeField27 = PropBag.ReadProperty("SizeField27", m_def_SizeField)
    m_SizeField28 = PropBag.ReadProperty("SizeField28", m_def_SizeField)
    m_SizeField29 = PropBag.ReadProperty("SizeField29", m_def_SizeField)
    m_SizeField30 = PropBag.ReadProperty("SizeField30", m_def_SizeField)
End Sub

Private Sub UserControl_Resize()
    PrintSize
End Sub

'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

    Call PropBag.WriteProperty("Enabled", UserControl.Enabled, True)
    Call PropBag.WriteProperty("BorderStyle", UserControl.BorderStyle, 0)
    Call PropBag.WriteProperty("Appearance", UserControl.Appearance, 1)
    Call PropBag.WriteProperty("HeadForeColor", LSize(0).ForeColor, &H80000008)
    Call PropBag.WriteProperty("HeadBackColor", LSize(0).BackColor, &H80000000)
    Call PropBag.WriteProperty("HeadFont", LSize(0).Font, Ambient.Font)
    Call PropBag.WriteProperty("TextForeColor", TSize(0).ForeColor, &H0&)
    Call PropBag.WriteProperty("TextBackColor", TSize(0).BackColor, &H80000005)
    Call PropBag.WriteProperty("TextFont", TSize(0).Font, Ambient.Font)
    Call PropBag.WriteProperty("LineColor", Lines(0).BorderColor, -2147483640)
    Call PropBag.WriteProperty("PrintCount", m_PrintCount, m_def_PrintCount)
    Call PropBag.WriteProperty("PrintHead", m_PrintHead, m_def_PrintHead)
    Call PropBag.WriteProperty("HeadForeColor", m_HeadForeColor, m_def_HeadForeColor)
    Call PropBag.WriteProperty("HeadBackColor", m_HeadBackColor, m_def_HeadBackColor)
    Call PropBag.WriteProperty("HeadFont", m_HeadFont, Ambient.Font)
    Call PropBag.WriteProperty("TextForeColor", m_TextForeColor, m_def_TextForeColor)
    Call PropBag.WriteProperty("TextBackColor", m_TextBackColor, m_def_TextBackColor)
    Call PropBag.WriteProperty("TextFont", m_TextFont, Ambient.Font)
    Call PropBag.WriteProperty("LineColor", m_LineColor, m_def_LineColor)
    Call PropBag.WriteProperty("SizeName", m_SizeName, m_def_SizeName)
    Call PropBag.WriteProperty("SizeNumber", m_SizeNumber, m_def_SizeNumber)
    Call PropBag.WriteProperty("SizeType", m_SizeType, m_def_SizeType)
    Call PropBag.WriteProperty("SizeHead", m_SizeHead, m_def_SizeHead)
    Call PropBag.WriteProperty("SizeKey", m_SizeKey, m_def_SizeKey)
    Call PropBag.WriteProperty("SizeCount", TSize(0).Text, m_def_SizeCount)
    Call PropBag.WriteProperty("SizeField1", m_SizeField1, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField2", m_SizeField2, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField3", m_SizeField3, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField4", m_SizeField4, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField5", m_SizeField5, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField6", m_SizeField6, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField7", m_SizeField7, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField8", m_SizeField8, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField9", m_SizeField9, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField10", m_SizeField10, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField11", m_SizeField11, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField12", m_SizeField12, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField13", m_SizeField13, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField14", m_SizeField14, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField15", m_SizeField15, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField16", m_SizeField16, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField17", m_SizeField17, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField18", m_SizeField18, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField19", m_SizeField19, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField20", m_SizeField20, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField21", m_SizeField21, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField22", m_SizeField22, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField23", m_SizeField23, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField24", m_SizeField24, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField25", m_SizeField25, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField26", m_SizeField26, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField27", m_SizeField27, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField28", m_SizeField28, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField29", m_SizeField29, m_def_SizeField)
    Call PropBag.WriteProperty("SizeField30", m_SizeField30, m_def_SizeField)
End Sub

'注意！不要删除或修改下列被注释的行！
'MemberInfo=10,0,0,
Public Property Get HeadForeColor() As OLE_COLOR
Attribute HeadForeColor.VB_Description = "返回/设置对象中文本和图形的前景色。"
    HeadForeColor = m_HeadForeColor
End Property

Public Property Let HeadForeColor(ByVal New_HeadForeColor As OLE_COLOR)
    m_HeadForeColor = New_HeadForeColor
    PropertyChanged "HeadForeColor"
    Dim i As Long
    For i = 0 To m_SizeNumber
        LSize(i).ForeColor = m_HeadForeColor
    Next
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=10,0,0,
Public Property Get HeadBackColor() As OLE_COLOR
Attribute HeadBackColor.VB_Description = "返回/设置对象中文本和图形的背景色。"
    HeadBackColor = m_HeadBackColor
End Property

Public Property Let HeadBackColor(ByVal New_HeadBackColor As OLE_COLOR)
    m_HeadBackColor = New_HeadBackColor
    PropertyChanged "HeadBackColor"
    Dim i As Long
    For i = 0 To m_SizeNumber
        LSize(i).BackColor = m_HeadBackColor
    Next
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=6,0,0,
Public Property Get HeadFont() As Font
Attribute HeadFont.VB_Description = "返回一个 Font 对象。"
    Set HeadFont = m_HeadFont
End Property

Public Property Set HeadFont(ByVal New_HeadFont As Font)
    Set m_HeadFont = New_HeadFont
    PropertyChanged "HeadFont"
    Dim i As Long
    For i = 0 To m_SizeNumber
        LSize(i).Font = m_HeadFont
    Next
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=10,0,0,
Public Property Get TextForeColor() As OLE_COLOR
Attribute TextForeColor.VB_Description = "返回/设置对象中文本和图形的前景色。"
    TextForeColor = m_TextForeColor
End Property

Public Property Let TextForeColor(ByVal New_TextForeColor As OLE_COLOR)
    m_TextForeColor = New_TextForeColor
    PropertyChanged "TextForeColor"
    Dim i As Long
    For i = 0 To m_SizeNumber
        TSize(i).ForeColor = m_TextForeColor
    Next
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=10,1,2,0
Public Property Get TextBackColor() As OLE_COLOR
Attribute TextBackColor.VB_Description = "返回/设置对象中文本和图形的背景色。"
    TextBackColor = m_TextBackColor
End Property

Public Property Let TextBackColor(ByVal New_TextBackColor As OLE_COLOR)
    m_TextBackColor = New_TextBackColor
    PropertyChanged "TextBackColor"
    Dim i As Long
    For i = 0 To m_SizeNumber
        TSize(i).BackColor = m_TextBackColor
    Next
  '  UserControl.BackColor = m_TextBackColor
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=6,0,0,0
Public Property Get TextFont() As Font
Attribute TextFont.VB_Description = "返回一个 Font 对象。"
    Set TextFont = m_TextFont
End Property

Public Property Set TextFont(ByVal New_TextFont As Font)
    Set m_TextFont = New_TextFont
    PropertyChanged "TextFont"
    Dim i As Long
    For i = 0 To m_SizeNumber
        TSize(i).Font = m_TextFont
    Next
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=8,0,0,
Public Property Get LineColor() As OLE_COLOR
Attribute LineColor.VB_Description = "返回/设置对象的边框颜色。"
    LineColor = m_LineColor
End Property

Public Property Let LineColor(ByVal New_LineColor As OLE_COLOR)
    m_LineColor = New_LineColor
    PropertyChanged "LineColor"
    Dim i As Long
    For i = 0 To m_SizeNumber
        Lines(i).BorderColor = m_LineColor
    Next
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=14,1,2,0
Public Property Get SizeName() As String
Attribute SizeName.VB_MemberFlags = "400"
    SizeName = m_SizeName
End Property

Public Property Let SizeName(ByVal New_SizeName As String)
    If Ambient.UserMode = False Then Err.Raise 387
    If Ambient.UserMode Then Err.Raise 382
    m_SizeName = New_SizeName
    PropertyChanged "SizeName"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=14,1,2,0
Public Property Get SizeNumber() As Long
Attribute SizeNumber.VB_MemberFlags = "400"
    SizeNumber = m_SizeNumber
End Property

Public Property Let SizeNumber(ByVal New_SizeNumber As Long)
    If Ambient.UserMode = False Then Err.Raise 387
    If Ambient.UserMode Then Err.Raise 382
    m_SizeNumber = New_SizeNumber
    PropertyChanged "SizeNumber"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=14,1,2,0
Public Property Get SizeType() As String
Attribute SizeType.VB_MemberFlags = "400"
    SizeType = m_SizeType
End Property

Public Property Let SizeType(ByVal New_SizeType As String)
    If Ambient.UserMode = False Then Err.Raise 387
    If Ambient.UserMode Then Err.Raise 382
    m_SizeType = New_SizeType
    PropertyChanged "SizeType"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,1,2,
Public Property Get SizeHead() As String
Attribute SizeHead.VB_MemberFlags = "400"
    SizeHead = m_SizeHead
End Property

Public Property Let SizeHead(ByVal New_SizeHead As String)
    If Ambient.UserMode = False Then Err.Raise 387
    If Ambient.UserMode Then Err.Raise 382
    m_SizeHead = New_SizeHead
    PropertyChanged "SizeHead"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=14,1,2,0
Public Property Get SizeKey() As String
Attribute SizeKey.VB_MemberFlags = "400"
    SizeKey = m_SizeKey
End Property

Public Property Let SizeKey(ByVal New_SizeKey As String)
    If Ambient.UserMode = False Then Err.Raise 387
    If Ambient.UserMode Then Err.Raise 382
    m_SizeKey = New_SizeKey
    PropertyChanged "SizeKey"
End Property

Public Sub SetSize(Optional ByVal vSizeName As String = "None", Optional ByVal vSizeNumber As Long = 0, Optional ByVal vSizeHead As String = "", Optional ByVal vSizeKey As String = "", Optional ByVal vSizeType As String = "Integer")
    Dim i As Long, j As Long, s As String
    If m_SizeNumber > vSizeNumber Then
        For i = m_SizeNumber To vSizeNumber + 1 Step -1
            Unload LSize(i)
            Unload TSize(i)
            Unload Lines(i)
        Next
    End If
    If m_SizeNumber < vSizeNumber Then
        For i = m_SizeNumber + 1 To vSizeNumber
            Load Lines(i)
        Next
        LSize(0).ZOrder 1
        For i = m_SizeNumber + 1 To vSizeNumber
            Load LSize(i)
            Load TSize(i)
            LSize(i).Caption = ""
            TSize(i).Text = 0
            LSize(i).ZOrder 1
        Next
        For i = 0 To vSizeNumber
            TSize(i).Locked = IIf(i = 0, True, False)
        Next
    End If
    m_SizeName = vSizeName
    m_SizeNumber = vSizeNumber
    m_SizeType = vSizeType
    m_SizeHead = vSizeHead
    m_SizeKey = vSizeKey
    If vSizeNumber > 0 Then
        ReDim SizeKeyArray(1 To vSizeNumber)
    End If
    s = ""
    j = 1
    For i = 1 To Len(SizeHead)