mysize.ctl

一套鞋厂的销售管理系统

    If m_SizeNumber >= 7 Then
        TSize(7).Text = m_SizeField7
    End If
    PropertyChanged "SizeField7"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField8() As Currency
Attribute SizeField8.VB_MemberFlags = "141c"
    SizeField8 = m_SizeField8
End Property

Public Property Let SizeField8(ByVal New_SizeField8 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField8 = New_SizeField8
    If m_SizeNumber >= 8 Then
        TSize(8).Text = m_SizeField8
    End If
    PropertyChanged "SizeField8"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField9() As Currency
Attribute SizeField9.VB_MemberFlags = "141c"
    SizeField9 = m_SizeField9
End Property

Public Property Let SizeField9(ByVal New_SizeField9 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField9 = New_SizeField9
    If m_SizeNumber >= 9 Then
        TSize(9).Text = m_SizeField9
    End If
    PropertyChanged "SizeField9"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField10() As Currency
Attribute SizeField10.VB_MemberFlags = "141c"
    SizeField10 = m_SizeField10
End Property

Public Property Let SizeField10(ByVal New_SizeField10 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField10 = New_SizeField10
    If m_SizeNumber >= 10 Then
        TSize(10).Text = m_SizeField10
    End If
    PropertyChanged "SizeField10"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField11() As Currency
Attribute SizeField11.VB_MemberFlags = "141c"
    SizeField11 = m_SizeField11
End Property

Public Property Let SizeField11(ByVal New_SizeField11 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField11 = New_SizeField11
    If m_SizeNumber >= 11 Then
        TSize(11).Text = m_SizeField11
    End If
    PropertyChanged "SizeField11"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField12() As Currency
Attribute SizeField12.VB_MemberFlags = "141c"
    SizeField12 = m_SizeField12
End Property

Public Property Let SizeField12(ByVal New_SizeField12 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField12 = New_SizeField12
    If m_SizeNumber >= 12 Then
        TSize(12).Text = m_SizeField12
    End If
    PropertyChanged "SizeField12"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField13() As Currency
Attribute SizeField13.VB_MemberFlags = "141c"
    SizeField13 = m_SizeField13
End Property

Public Property Let SizeField13(ByVal New_SizeField13 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField13 = New_SizeField13
    If m_SizeNumber >= 13 Then
        TSize(13).Text = m_SizeField13
    End If
    PropertyChanged "SizeField13"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField14() As Currency
Attribute SizeField14.VB_MemberFlags = "141c"
    SizeField14 = m_SizeField14
End Property

Public Property Let SizeField14(ByVal New_SizeField14 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField14 = New_SizeField14
    If m_SizeNumber >= 14 Then
        TSize(14).Text = m_SizeField14
    End If
    PropertyChanged "SizeField14"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField15() As Currency
Attribute SizeField15.VB_MemberFlags = "141c"
    SizeField15 = m_SizeField15
End Property

Public Property Let SizeField15(ByVal New_SizeField15 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField15 = New_SizeField15
    If m_SizeNumber >= 15 Then
        TSize(15).Text = m_SizeField15
    End If
    PropertyChanged "SizeField15"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField16() As Currency
Attribute SizeField16.VB_MemberFlags = "141c"
    SizeField16 = m_SizeField16
End Property

Public Property Let SizeField16(ByVal New_SizeField16 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField16 = New_SizeField16
    If m_SizeNumber >= 16 Then
        TSize(16).Text = m_SizeField16
    End If
    PropertyChanged "SizeField16"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField17() As Currency
Attribute SizeField17.VB_MemberFlags = "141c"
    SizeField17 = m_SizeField17
End Property

Public Property Let SizeField17(ByVal New_SizeField17 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField17 = New_SizeField17
    If m_SizeNumber >= 17 Then
        TSize(17).Text = m_SizeField17
    End If
    PropertyChanged "SizeField17"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField18() As Currency
    SizeField18 = m_SizeField18
End Property

Public Property Let SizeField18(ByVal New_SizeField18 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField18 = New_SizeField18
    If m_SizeNumber >= 18 Then
        TSize(18).Text = m_SizeField18
    End If
    PropertyChanged "SizeField18"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField19() As Currency
Attribute SizeField19.VB_MemberFlags = "141c"
    SizeField19 = m_SizeField19
End Property

Public Property Let SizeField19(ByVal New_SizeField19 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField19 = New_SizeField19
    If m_SizeNumber >= 19 Then
        TSize(19).Text = m_SizeField19
    End If
    PropertyChanged "SizeField19"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField20() As Currency
Attribute SizeField20.VB_MemberFlags = "141c"
    SizeField20 = m_SizeField20
End Property

Public Property Let SizeField20(ByVal New_SizeField20 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField20 = New_SizeField20
    If m_SizeNumber >= 20 Then
        TSize(20).Text = m_SizeField20
    End If
    PropertyChanged "SizeField20"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField21() As Currency
    SizeField21 = m_SizeField21
End Property

Public Property Let SizeField21(ByVal New_SizeField21 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField21 = New_SizeField21
    If m_SizeNumber >= 21 Then
        TSize(21).Text = m_SizeField21
    End If
    PropertyChanged "SizeField21"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField22() As Currency
    SizeField22 = m_SizeField22
End Property

Public Property Let SizeField22(ByVal New_SizeField22 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField22 = New_SizeField22
    If m_SizeNumber >= 22 Then
        TSize(22).Text = m_SizeField22
    End If
    PropertyChanged "SizeField22"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField23() As Currency
    SizeField23 = m_SizeField23
End Property

Public Property Let SizeField23(ByVal New_SizeField23 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField23 = New_SizeField23
    If m_SizeNumber >= 23 Then
        TSize(23).Text = m_SizeField23
    End If
    PropertyChanged "SizeField23"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField24() As Currency
    SizeField24 = m_SizeField24
End Property

Public Property Let SizeField24(ByVal New_SizeField24 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField24 = New_SizeField24
    If m_SizeNumber >= 24 Then
        TSize(24).Text = m_SizeField24
    End If
    PropertyChanged "SizeField24"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField25() As Currency
    SizeField25 = m_SizeField25
End Property

Public Property Let SizeField25(ByVal New_SizeField25 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField25 = New_SizeField25
    If m_SizeNumber >= 25 Then
        TSize(25).Text = m_SizeField25
    End If
    PropertyChanged "SizeField25"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField26() As Currency
    SizeField26 = m_SizeField26
End Property

Public Property Let SizeField26(ByVal New_SizeField26 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField26 = New_SizeField26
    If m_SizeNumber >= 26 Then
        TSize(26).Text = m_SizeField26
    End If
    PropertyChanged "SizeField26"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField27() As Currency
    SizeField27 = m_SizeField27
End Property

Public Property Let SizeField27(ByVal New_SizeField27 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField27 = New_SizeField27
    If m_SizeNumber >= 27 Then
        TSize(27).Text = m_SizeField27
    End If
    PropertyChanged "SizeField27"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField28() As Currency
    SizeField28 = m_SizeField28
End Property

Public Property Let SizeField28(ByVal New_SizeField28 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField28 = New_SizeField28
    If m_SizeNumber >= 28 Then
        TSize(28).Text = m_SizeField28
    End If
    PropertyChanged "SizeField28"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField29() As Currency
    SizeField29 = m_SizeField29
End Property

Public Property Let SizeField29(ByVal New_SizeField29 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField29 = New_SizeField29
    If m_SizeNumber >= 29 Then
        TSize(29).Text = m_SizeField29
    End If
    PropertyChanged "SizeField29"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=2,0,2,0
Public Property Get SizeField30() As Currency
    SizeField30 = m_SizeField30
End Property

Public Property Let SizeField30(ByVal New_SizeField30 As Currency)
    If Ambient.UserMode = False Then Err.Raise 387
    m_SizeField30 = New_SizeField30
    If m_SizeNumber >= 30 Then
        TSize(30).Text = m_SizeField30
    End If
    PropertyChanged "SizeField30"
End Property

Public Sub SetCount(ByVal vCount As Currency)
    TSize(0).Text = vCount
End Sub