clsdrugitem.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 = "clsDrugItem"
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 Amount As Long
Public Gprice As Single '批发价
Public CPrice As Single  '零售价
Public Unit As String '界面单位
Public Factor As Integer
'Public ValidAmount As Integer  '判断库存
'Public VsValidAmount As Integer  '判断库存

Private Sub Class_Initialize()
    Factor = 1#
End Sub
Public Property Get GMoney() As Currency
    GMoney = Format(Gprice * Amount, "0.00")
End Property
Public Property Get CMoney() As Currency
    CMoney = Format(CPrice * Amount, "0.00")
End Property