clsgetdrug.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 = "clsGetDrug"
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"
Option Explicit

'摆药明细
Public ADVSerial As String
Public Num As Integer

Public ItemCode As String
Public ItemName As String
Public Model As String
Public ModelAmount As Double
Public PreMarkDate As String
Public ADVFreqID As String
Public ADVUsID As String
Public Unit As String
Public CPrice As Currency
Public Gprice As Currency
Public BeginDate As String
Public EndDate As String
Public Mount As Integer
Public Flag As Integer '药品字典的信息
Public Status As Integer  '1 -- 选中  2  -- 记帐 0 -未
Public IsTemp As Boolean

Public Property Get UpMode() As Integer '进位方式 0- 次 1-天 2- 频率周期 3-摆药周期
    Select Case (Flag And 192)
        Case 0
            UpMode = 0
        Case 64
            UpMode = 1
        Case 128
            UpMode = 2
        Case 192
            UpMode = 3
    End Select
End Property
Public Property Get UnitModelAmount() As Double
    UnitModelAmount = Val(Model)
End Property


Public Property Get Fair() As Currency
    Fair = Format(Mount * CPrice, "0.00")
End Property
Public Property Get GMoney() As Currency
    GMoney = Format(Mount * Gprice, "0.00")
End Property
Public Property Get InFair() As Currency
    InFair = Fair
End Property

Public Sub GetMount(ByVal Days As Integer) '摆药结束日期
    Dim TmpEndDate As String
    
    Mount = gfnGetMount(PreMarkDate, Days, EndDate, ADVFreqID, ModelAmount, UnitModelAmount, UpMode, IsTemp)
End Sub
Public Property Get FreqDes() As String
    
    If ADVUsID = "" Then
        FreqDes = gADVFreqsObj(ADVFreqID).Des
    Else
        If Not (gADVUsagesObj(ADVUsID) Is Nothing) Then
            FreqDes = gADVFreqsObj(ADVFreqID).Des & "(" & gADVUsagesObj(ADVUsID).Des & ")"
        Else
            FreqDes = gADVFreqsObj(ADVFreqID).Des
        End If
    End If
End Property
Public Property Get ModelUnit() As String
    Dim I As Integer
    
    For I = 1 To Len(Model)
        If Not (IsNumeric(mID(Model, I, 1)) Or mID(Model, I, 1) = ".") Then
            Exit For
        End If
    Next I
    ModelUnit = mID(Model, I, Len(Model))
End Property