clsrecipeitem_bak.cls

医院门诊医生工作站,vb6 SqlServer

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsRecipeItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Option Explicit

Public ItemCode As String

Public ItemName As String

Public Model As String

Public CPrice As Currency

Public Fair As Currency  '完全取界面

Public Gprice As Currency


Public Amount As Integer

Public Unit As String

Public Factor As Integer

Public RevDepCode As String

Public RevDepName As String

Public Flag As Integer  '  1  位  公费   2 位 合资
Public Property Get Export() As Boolean
    If (Flag And 2) = 2 Then
        Export = True
    End If
End Property
Public Property Let Export(ByVal vData As Boolean)
    Flag = (Flag And &HFFFFFFFD) Or IIf(vData, 2, 0)
End Property
Public Property Get Pub() As Boolean
    If (Flag And 1) = 1 Then
        Pub = True
    End If
End Property
Public Property Let Pub(ByVal vData As Boolean)
    Flag = (Flag And &HFFFFFFFE) Or IIf(vData, 1, 0)
End Property
Public Property Get GMoney() As Currency
    GMoney = Format(Gprice * Amount, "0.00")
End Property