clsfairmarkdrugsub.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 = "clsFairMarkDrugSub"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

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

Public ItemCode As String
Public ItemName As String
Public model As String
Public unit As String
Public MarkDate As String
Public Flag As Integer '药品字典的信息
Public Status As Integer  '1 -- 选中  2  -- 记帐 0 -未
Public DcCode As String
Public Amount As Integer
Public Cprice As Currency
Public gprice As Currency
Public Fair As Currency
Public InFair As Currency
Public gmoney As Currency
Public Factor As Integer
Public batchid As String