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

Public SkId As String
Public Name As String
Public medtype As String
Public inhosptype As String
Public InDate As Date
Public OutDate As Date
Public outhosptype As String
Public totalfair As Currency
Public socifair As Currency
Public muchfair As Currency
Public selfgeld As Currency
Public topin As Currency
Public selfmoney As Currency

'类型描述
Public medtypedes As String
Public inhosptypedes As String
Public outhosptypedes As String