clsrecipeitem.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 batchid As String
Public Comment As String

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