datamodule.dfm

某大型医院护士站

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 65532
  Top = 100
  Height = 499
  Width = 806
  object PROJHISADT: TDatabase
    AliasName = 'hisadtdb2'
    Connected = True
    DatabaseName = 'PROJHISADT'
    LoginPrompt = False
    Params.Strings = (
      'PASSWORD=1234')
    SessionName = 'DEFAULT'
    Left = 24
    Top = 8
  end
  object Operator: TwwTable
    DatabaseName = 'PROJHISADT'
    IndexFieldNames = 'OPERATORNO'
    TableName = 'OPERATOR'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 146
    Top = 8
  end
  object qryWardBed: TwwQuery
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      
        'SELECT W.WARDID ,W.BED ,W.INID ,P.TIMES ,P.NAME ,P.SEX ,P.NURCLA' +
        'SS,'
      
        '       P.PREOUT ,W.ROOMFEE ,W.CHECKFEE ,W.TVFEE ,W.ACFEE ,W.TELF' +
        'EE,'
      '       W.DEPTNUM ,P.PAYED ,P.INDATE ,P.OUTDATE'
      'FROM WARDBED W,PATIENTDATA P'
      'WHERE (W.WARDID = :WARDID) AND (W.INID = P.INID)'
      'UNION'
      'SELECT W.WARDID,W.BED,W.INID,0 AS TIMES ,'#39#39' AS NAME,0 AS SEX,'
      '       0 AS NURCLASS,0 AS PREOUT,W.ROOMFEE,W.CHECKFEE,W.TVFEE,'
      '       W.ACFEE,W.TELFEE ,W.DEPTNUM ,0 AS PAYED ,'
      '       CURRENT TIMESTAMP AS INDATE ,CURRENT TIMESTAMP AS OUTDATE'
      'FROM WARDBED W'
      'WHERE (W.WARDID = :WARDID) AND (W.INID IS NULL)'
      'ORDER BY 1, 2'
      ' '
      ' ')
    ValidateWithMask = True
    Left = 83
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = 'wardid'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'WARDID'
        ParamType = ptUnknown
      end>
    object qryWardBedWARDID: TStringField
      DisplayWidth = 4
      FieldName = 'WARDID'
      Origin = 'WARDBED.WARDID'
      Size = 4
    end
    object qryWardBedBED: TStringField
      DisplayWidth = 6
      FieldName = 'BED'
      Origin = 'WARDBED.BED'
      Size = 6
    end
    object qryWardBedINID: TIntegerField
      DisplayWidth = 10
      FieldName = 'INID'
      Origin = 'WARDBED.INID'
    end
    object qryWardBedNAME: TStringField
      DisplayWidth = 10
      FieldName = 'NAME'
      Origin = 'PATIENTDATA.NAME'
      Size = 10
    end
    object qryWardBedSEX: TIntegerField
      DisplayWidth = 10
      FieldName = 'SEX'
    end
    object qryWardBedNURCLASS: TIntegerField
      DisplayWidth = 10
      FieldName = 'NURCLASS'
    end
    object qryWardBedROOMFEE: TFloatField
      DisplayWidth = 10
      FieldName = 'ROOMFEE'
      Origin = 'WARDBED.ROOMFEE'
    end
    object qryWardBedCHECKFEE: TFloatField
      DisplayWidth = 10
      FieldName = 'CHECKFEE'
      Origin = 'WARDBED.CHECKFEE'
    end
    object qryWardBedTVFEE: TFloatField
      DisplayWidth = 10
      FieldName = 'TVFEE'
      Origin = 'WARDBED.TVFEE'
    end
    object qryWardBedACFEE: TFloatField
      DisplayWidth = 10
      FieldName = 'ACFEE'
      Origin = 'WARDBED.ACFEE'
    end
    object qryWardBedTELFEE: TFloatField
      DisplayWidth = 10
      FieldName = 'TELFEE'
      Origin = 'WARDBED.TELFEE'
    end
    object qryWardBedPREOUT: TIntegerField
      DisplayWidth = 10
      FieldName = 'PREOUT'
    end
    object qryWardBedTIMES: TIntegerField
      FieldName = 'TIMES'
    end
    object qryWardBedDEPTNUM: TStringField
      FieldName = 'DEPTNUM'
      Size = 4
    end
    object qryWardBedPAYED: TIntegerField
      FieldName = 'PAYED'
    end
    object qryWardBedINDATE: TDateTimeField
      FieldName = 'INDATE'
    end
    object qryWardBedOUTDATE: TDateTimeField
      FieldName = 'OUTDATE'
    end
  end
  object HISLOCAL: TDatabase
    AliasName = 'HISLOCAL98DB2'
    Connected = True
    DatabaseName = 'PROJHISLOCAL'
    LoginPrompt = False
    SessionName = 'DEFAULT'
    Left = 24
    Top = 256
  end
  object Ward: TwwTable
    DatabaseName = 'PROJHISADT'
    IndexFieldNames = 'WARDID'
    TableName = 'WARD'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 377
    Top = 160
    object WardWARDID: TStringField
      DisplayWidth = 4
      FieldName = 'WARDID'
      Required = True
      Size = 4
    end
    object WardNAME: TStringField
      DisplayWidth = 16
      FieldName = 'NAME'
      Required = True
      Size = 16
    end
    object WardDEPT: TStringField
      DisplayWidth = 4
      FieldName = 'DEPT'
      Visible = False
      Size = 4
    end
    object WardINCHARGE: TStringField
      DisplayWidth = 10
      FieldName = 'INCHARGE'
      Visible = False
      Size = 10
    end
    object WardEQUKIND: TSmallintField
      DisplayWidth = 10
      FieldName = 'EQUKIND'
      Required = True
      Visible = False
    end
    object WardWKIND: TSmallintField
      DisplayWidth = 10
      FieldName = 'WKIND'
      Required = True
      Visible = False
    end
  end
  object Frequency: TwwTable
    DatabaseName = 'PROJHISLOCAL'
    IndexFieldNames = 'FREQID'
    TableName = 'FREQUENCY.DB'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 83
    Top = 256
  end
  object Usage: TwwTable
    DatabaseName = 'PROJHISLOCAL'
    IndexFieldNames = 'USAGEID'
    TableName = 'usage.DB'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 146
    Top = 256
  end
  object OrderCost: TwwTable
    DatabaseName = 'PROJHISLOCAL'
    TableName = 'ORDERCOST.DB'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 209
    Top = 256
    object OrderCostCOSTID: TStringField
      FieldName = 'COSTID'
      Required = True
      Size = 6
    end
    object OrderCostCNAME: TStringField
      FieldName = 'CNAME'
    end
    object OrderCostENAME: TStringField
      FieldName = 'ENAME'
    end
    object OrderCostSPEC: TStringField
      FieldName = 'SPEC'
      Size = 16
    end
    object OrderCostDOSEUNIT: TStringField
      FieldName = 'DOSEUNIT'
      Size = 4
    end
    object OrderCostUSEUNIT: TStringField
      FieldName = 'USEUNIT'
      Size = 4
    end
    object OrderCostUSAGEID: TStringField
      FieldName = 'USAGEID'
      Size = 4
    end
    object OrderCostDOSAGE: TFloatField
      FieldName = 'DOSAGE'
      Required = True
    end
    object OrderCostBASEDOSE: TFloatField
      FieldName = 'BASEDOSE'
    end
    object OrderCostPRICE: TFloatField
      FieldName = 'PRICE'
    end
    object OrderCostUSETIMES: TSmallintField
      FieldName = 'USETIMES'
    end
    object OrderCostREUSE: TSmallintField
      FieldName = 'REUSE'
    end
    object OrderCostEXCOST: TSmallintField
      FieldName = 'EXCOST'
    end
    object OrderCostSELFPAY: TSmallintField
      FieldName = 'SELFPAY'
    end
    object OrderCostICLASS: TStringField
      FieldName = 'ICLASS'
      Required = True
      Size = 4
    end
    object OrderCostSCLASS: TStringField
      FieldName = 'SCLASS'
      Required = True
      Size = 4
    end
    object OrderCostBCLASS: TStringField
      FieldName = 'BCLASS'
      Required = True
      Size = 4
    end
    object OrderCostEXCODE1: TStringField
      FieldName = 'EXCODE1'
      Size = 4
    end
    object OrderCostEXCODE2: TStringField
      FieldName = 'EXCODE2'
      Size = 4
    end
    object OrderCostEXCODE3: TStringField
      FieldName = 'EXCODE3'
      Size = 4
    end
    object OrderCostWORKITEM: TSmallintField
      FieldName = 'WORKITEM'
    end
    object OrderCostEXCUPLACE: TSmallintField
      FieldName = 'EXCUPLACE'
    end
    object OrderCostITEMTYPE: TSmallintField
      FieldName = 'ITEMTYPE'
    end
    object OrderCostQFLAG: TSmallintField
      FieldName = 'QFLAG'
    end
    object OrderCostCH_PRICE: TFloatField
      FieldName = 'CH_PRICE'
    end
    object OrderCostIS_DANGER: TSmallintField
      FieldName = 'IS_DANGER'
      Required = True
    end
    object OrderCostGREENEND: TSmallintField
      FieldName = 'GREENEND'
    end
    object OrderCostOMCLASS: TStringField
      FieldName = 'OMCLASS'
      Required = True
      Size = 4
    end
    object OrderCostEXPRICE: TFloatField
      FieldName = 'EXPRICE'
    end
    object OrderCostPRICEMD: TStringField
      FieldName = 'PRICEMD'
      Size = 3
    end
    object OrderCostISPAYBILL: TSmallintField
      FieldName = 'ISPAYBILL'
    end
    object OrderCostENABLED: TSmallintField
      FieldName = 'ENABLED'
    end
    object OrderCostMADEIN: TStringField
      FieldName = 'MADEIN'
      Size = 30
    end
    object OrderCostYBCLASS: TStringField
      FieldName = 'YBCLASS'
      Size = 4
    end
  end
  object BMOrderCost: TBatchMove
    Destination = OrderCost
    Mode = batCopy
    Source = ROrderCost
    Left = 209
    Top = 208
  end
  object BMFrequency: TBatchMove
    Destination = Frequency
    Mode = batAppendUpdate
    Source = RFrequency
    Left = 83
    Top = 208
  end
  object BMUsage: TBatchMove
    Destination = Usage
    Mode = batAppendUpdate
    Source = RUsage
    Left = 146
    Top = 208
  end
  object RFrequency: TwwTable
    DatabaseName = 'PROJHISADT'
    IndexFieldNames = 'FREQID'
    TableName = 'FREQUENCY'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 83
    Top = 160
  end
  object RUsage: TwwTable
    DatabaseName = 'PROJHISADT'
    IndexFieldNames = 'USAGEID'
    TableName = 'USAGE'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 146
    Top = 160
  end
  object ROrderCost: TwwTable
    DatabaseName = 'PROJHISADT'
    IndexFieldNames = 'COSTID'
    TableName = 'ORDERCOST'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 209
    Top = 160
  end
  object spServerTime: TwwStoredProc
    DatabaseName = 'PROJHISADT'
    StoredProcName = 'L_SERVERTIME'
    ValidateWithMask = True
    Left = 24
    Top = 312
    ParamData = <
      item
        DataType = ftDateTime
        Name = 'OUT1_SERVERTIME'
        ParamType = ptOutput
      end>
  end
  object spInWard: TwwStoredProc
    DatabaseName = 'PROJHISADT'
    StoredProcName = 'L_INWARD'
    ValidateWithMask = True
    Left = 83
    Top = 312
    ParamData = <
      item
        DataType = ftInteger
        Name = 'I1_I_INID'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I2_I_TIMES'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I3_SQID'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'I4_INDATE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'I5_I_WARDID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'I6_I_BEDNO'
        ParamType = ptInput
      end
      item
        DataType = ftString