prndatamodule.dfm

某大型医院护士站

object PRN_DM: TPRN_DM
  OldCreateOrder = False
  Left = 36
  Top = 96
  Height = 499
  Width = 706
  object qryCurrBeds: TwwQuery
    OnCalcFields = qryCurrBedsCalcFields
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'SELECT A.BED, A.INID, B.TIMES, B.SQID ,B.PATDESC AS NAME, '
      '       B.SEXNAME AS SEX, B.BIRTHDAY '
      'FROM WARDBED A, PATIENTSUB B'
      'WHERE A.WARDID = :CURWARD AND B.INID = A.INID '
      '  AND B.INID > 0'
      'ORDER BY A.BED'
      'FOR READ ONLY')
    ValidateWithMask = True
    Left = 79
    Top = 10
    ParamData = <
      item
        DataType = ftString
        Name = 'CURWARD'
        ParamType = ptInput
      end>
    object qryCurrBedsBED: TStringField
      DisplayLabel = '床号'
      DisplayWidth = 6
      FieldName = 'BED'
      Size = 6
    end
    object qryCurrBedsNAME: TStringField
      DisplayLabel = '姓名'
      DisplayWidth = 10
      FieldName = 'NAME'
      Size = 10
    end
    object qryCurrBedsINID: TIntegerField
      DisplayLabel = '住院号'
      DisplayWidth = 10
      FieldName = 'INID'
      Visible = False
    end
    object qryCurrBedsSQID: TSmallintField
      FieldName = 'SQID'
    end
    object qryCurrBedsTIMES: TSmallintField
      DisplayWidth = 10
      FieldName = 'TIMES'
      Visible = False
    end
    object qryCurrBedsBIRTHDAY: TDateField
      DisplayWidth = 10
      FieldName = 'BIRTHDAY'
      Visible = False
    end
    object qryCurrBedsAGE: TSmallintField
      DisplayLabel = '年龄'
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'AGE'
      Visible = False
      Calculated = True
    end
    object qryCurrBedsSEX: TStringField
      DisplayLabel = '性别'
      FieldName = 'SEX'
      Size = 6
    end
  end
  object SrcCurrBeds: TwwDataSource
    DataSet = qryCurrBeds
    Left = 79
    Top = 58
  end
  object qrydelfee: TwwQuery
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'DELETE FROM DAYFEE WHERE WARDID=:WARDID')
    ValidateWithMask = True
    Left = 245
    Top = 9
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'WARDID'
        ParamType = ptUnknown
      end>
  end
  object clr_OrderRep: TwwQuery
    DatabaseName = 'PRJLCLDATA'
    SQL.Strings = (
      'DELETE FROM ORDERREP')
    ValidateWithMask = True
    Left = 24
    Top = 105
  end
  object spProcBill: TwwStoredProc
    DatabaseName = 'PROJHISADT'
    StoredProcName = 'L_PROCBILL'
    ValidateWithMask = True
    Left = 79
    Top = 107
    ParamData = <
      item
        DataType = ftInteger
        Name = 'I1_I_INID'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I2_I_ORDERKIND'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I3_I_USAGETP'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I4_I_PATI'
        ParamType = ptInput
      end>
  end
  object tblOrderRep: TTable
    DatabaseName = 'PRJLCLDATA'
    TableName = 'orderrep.DB'
    Left = 181
    Top = 104
  end
  object MoveRep: TBatchMove
    Destination = tblOrderRep
    Source = spProcBill
    Left = 127
    Top = 105
  end
  object LCLDATA: TDatabase
    AliasName = 'LCLDATADB2'
    DatabaseName = 'PRJLCLDATA'
    SessionName = 'Default'
    Left = 24
    Top = 10
  end
  object clr_InjLabel: TQuery
    DatabaseName = 'PRJLCLDATA'
    SQL.Strings = (
      'DELETE FROM INJLABEL')
    Left = 24
    Top = 57
  end
  object tblInjLabel: TTable
    DatabaseName = 'PRJLCLDATA'
    TableName = 'InjLabel.DB'
    Left = 182
    Top = 154
    object tblInjLabelBed: TStringField
      FieldName = 'Bed'
      Size = 6
    end
    object tblInjLabelPnm: TStringField
      FieldName = 'Pnm'
      Size = 10
    end
    object tblInjLabelUsageid: TStringField
      FieldName = 'Usageid'
      Size = 4
    end
    object tblInjLabelUsagename: TStringField
      FieldName = 'Usagename'
      Size = 12
    end
    object tblInjLabelOrderkind: TSmallintField
      FieldName = 'Orderkind'
    end
    object tblInjLabelKindid: TSmallintField
      FieldName = 'Kindid'
    end
    object tblInjLabelItemname: TStringField
      FieldName = 'Itemname'
    end
    object tblInjLabelDosage: TFloatField
      FieldName = 'Dosage'
    end
    object tblInjLabelDosunit: TStringField
      FieldName = 'Dosunit'
      Size = 4
    end
    object tblInjLabelTmname: TStringField
      FieldName = 'Tmname'
      Size = 10
    end
    object tblInjLabelRepnb: TIntegerField
      FieldName = 'Repnb'
    end
    object tblInjLabelCounts: TIntegerField
      FieldName = 'Counts'
    end
    object tblInjLabelTmnum: TSmallintField
      FieldName = 'Tmnum'
    end
  end
  object InjMove: TBatchMove
    Destination = tblInjLabel
    Source = spInjLabel
    Left = 127
    Top = 154
  end
  object spInjLabel: TwwStoredProc
    DatabaseName = 'PROJHISADT'
    StoredProcName = 'L_INJLABEL'
    ValidateWithMask = True
    Left = 79
    Top = 154
    ParamData = <
      item
        DataType = ftInteger
        Name = 'I1_INID'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I2_ORDERKIND'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I3_INJTYPE'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I4_IV'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I5_PATITYPE'
        ParamType = ptInput
      end>
  end
  object qryPrnSumData: TwwQuery
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'SELECT WARDID ,DeptNum ,ItemID ,TotalQty ,'
      '       SendQty ,AtonceQty ,ItemType ,Excuplace '
      '  From MsgDetail'
      ' WHERE Wardid   = :i_wardid '
      '   AND MsgType  = '#39'01'#39
      '   AND CANSENT  = 1'
      '   AND ITEMTYPE = 0'
      'ORDER BY WARDID ,DEPTNUM ,INID')
    ValidateWithMask = True
    Left = 79
    Top = 210
    ParamData = <
      item
        DataType = ftString
        Name = 'i_wardid'
        ParamType = ptInput
      end>
  end
  object qryPrnSumBill: TwwQuery
    OnCalcFields = qryPrnSumBillCalcFields
    DatabaseName = 'PRJLCLDATA'
    SQL.Strings = (
      'SELECT WARDID ,DEPTNUM ,ITEMID ,SUM(SENDQTY) AS SENDQTY ,'
      '       SUM(ATONCEQTY) AS ATONCEQTY ,SUM(TOTALQTY) AS TOTALQTY'
      'FROM MSGSUM'
      'GROUP BY WARDID ,DEPTNUM ,ITEMID'
      'ORDER BY WARDID ,DEPTNUM ,ITEMID')
    LookupFields.Strings = (
      'SPEC;PROJHISLOCAL;ORDERCOST.DB;SPEC;;COSTID;Y'
      'ITEMNAME;PROJHISLOCAL;ORDERCOST.DB;CNAME;;COSTID;Y'
      'USEUNIT;PROJHISLOCAL;ORDERCOST.DB;USEUNIT;;COSTID;Y'
      'PRICE;PROJHISLOCAL;ORDERCOST.DB;PRICE;;COSTID;Y'
      'MADEIN;PROJHISLOCAL;ORDERCOST.DB;MADEIN;;COSTID;Y'
      'WARDNAME;PROJHISLOCAL;WARD.DB;NAME;;WARDID;Y'
      'DEPTNAME;PROJHISLOCAL;DEPT.DB;NAME;;NUM;Y')
    LookupLinks.Strings = (
      'ITEMID;COSTID'
      'ITEMID;COSTID'
      'ITEMID;COSTID'
      'ITEMID;COSTID'
      'ITEMID;COSTID'
      'WARDID;WARDID'
      'DEPTNUM;NUM')
    ValidateWithMask = True
    Left = 183
    Top = 10
    object qryPrnSumBillWARDID: TStringField
      DisplayWidth = 4
      FieldName = 'WARDID'
      Origin = 'PRJLCLDATA."MSGSUM.DB".WARDID'
      Size = 4
    end
    object qryPrnSumBillDEPTNUM: TStringField
      DisplayWidth = 4
      FieldName = 'DEPTNUM'
      Origin = 'PRJLCLDATA."MSGSUM.DB".DEPTNUM'
      Size = 4
    end
    object qryPrnSumBillITEMID: TStringField
      DisplayWidth = 6
      FieldName = 'ITEMID'
      Origin = 'PRJLCLDATA."MSGSUM.DB".ITEMID'
      Size = 6
    end
    object qryPrnSumBillSENDQTY: TFloatField
      DisplayWidth = 10
      FieldName = 'SENDQTY'
      Origin = 'PRJLCLDATA."MSGSUM.DB".SENDQTY'
    end
    object qryPrnSumBillATONCEQTY: TFloatField
      DisplayWidth = 10
      FieldName = 'ATONCEQTY'
      Origin = 'PRJLCLDATA."MSGSUM.DB".ATONCEQTY'
    end
    object qryPrnSumBillTOTALQTY: TFloatField
      DisplayWidth = 10
      FieldName = 'TOTALQTY'
      Origin = 'PRJLCLDATA."MSGSUM.DB".TOTALQTY'
    end
    object qryPrnSumBillSPEC: TStringField
      DisplayWidth = 16
      FieldKind = fkCalculated
      FieldName = 'SPEC'
      Size = 16
      Calculated = True
    end
    object qryPrnSumBillITEMNAME: TStringField
      DisplayWidth = 20
      FieldKind = fkCalculated
      FieldName = 'ITEMNAME'
      Calculated = True
    end
    object qryPrnSumBillUSEUNIT: TStringField
      DisplayWidth = 4
      FieldKind = fkCalculated
      FieldName = 'USEUNIT'
      Size = 4
      Calculated = True
    end
    object qryPrnSumBillPRICE: TFloatField
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'PRICE'
      Calculated = True
    end
    object qryPrnSumBillTOTALSUM: TFloatField
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'TOTALSUM'
      Calculated = True
    end
    object qryPrnSumBillMADEIN: TStringField
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'MADEIN'
      Size = 10
      Calculated = True
    end
    object qryPrnSumBillWARDNAME: TStringField
      DisplayWidth = 12
      FieldKind = fkCalculated
      FieldName = 'WARDNAME'
      Size = 12
      Calculated = True
    end
    object qryPrnSumBillDEPTNAME: TStringField
      DisplayWidth = 12
      FieldKind = fkCalculated
      FieldName = 'DEPTNAME'
      Size = 12
      Calculated = True
    end
  end
  object bmPrnSumMed: TBatchMove
    Destination = tblMsgSum
    Mode = batCopy
    Source = qryPrnSumData
    Left = 127
    Top = 210
  end
  object tblMsgSum: TTable
    DatabaseName = 'PRJLCLDATA'
    TableName = 'MSGSUM.DB'
    Left = 183
    Top = 210
  end
  object qryWardMedin: TwwQuery
    CachedUpdates = True
    BeforeEdit = qryWardMedinBeforeEdit
    BeforeDelete = qryWardMedinBeforeEdit
    OnCalcFields = qryWardMedinCalcFields
    OnNewRecord = qryWardMedinNewRecord
    DatabaseName = 'PROJHISADT'
    RequestLive = True
    SQL.Strings = (
      'SELECT * FROM WARDMEDIN'
      'WHERE WARDID  = :I_WARDID'
      '  AND MEDDATE = :I_MEDDATE'
      '  AND INOROUT = :I_MEDTYPE')
    ControlType.Strings = (
      'ITEMID;CustomEdit;lcbItemID'
      'EXCUNAME;CustomEdit;wwDBLookupCombo1')
    LookupFields.Strings = (
      'ITEMNAME;PROJHISLOCAL;ORDERCOST.DB;CNAME;;COSTID;Y'
      'SPEC;PROJHISLOCAL;ORDERCOST.DB;SPEC;;COSTID;Y'
      'USEUNIT;PROJHISLOCAL;ORDERCOST.DB;USEUNIT;;COSTID;Y'
      'RPRICE;PROJHISLOCAL;ORDERCOST.DB;PRICE;;COSTID;Y'
      'EXCUNAME;PROJHISLOCAL;EXCUTEPOS.DB;NAME;;EXCUPLACE;Y')
    LookupLinks.Strings = (
      'ITEMID;COSTID'
      'ITEMID;COSTID'
      'ITEMID;COSTID'
      'ITEMID;COSTID'
      'EXCUPLACE;EXCUPLACE')
    ValidateWithMask = True
    Left = 127
    Top = 10
    ParamData = <
      item
        DataType = ftString
        Name = 'I_WARDID'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'I_MEDDATE'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I_MEDTYPE'
        ParamType = ptInput
      end>
    object qryWardMedinMEDDATE: TDateField
      DisplayLabel = '领用日期'
      DisplayWidth = 12
      FieldName = 'MEDDATE'
      Origin = 'PROJHISADT.WARDMEDIN.MEDDATE'
    end
    object qryWardMedinITEMID: TStringField
      DisplayLabel = '项目代码'
      DisplayWidth = 8
      FieldName = 'ITEMID'
      Origin = 'PROJHISADT.WARDMEDIN.ITEMID'
      OnChange = qryWardMedinITEMIDChange
      FixedChar = True
      Size = 6
    end
    object qryWardMedinITEMNAME: TStringField
      DisplayLabel = '项目名称'
      DisplayWidth = 19
      FieldKind = fkCalculated
      FieldName = 'ITEMNAME'
      Calculated = True
    end
    object qryWardMedinSPEC: TStringField
      DisplayLabel = '规格'
      DisplayWidth = 12
      FieldKind = fkCalculated
      FieldName = 'SPEC'
      Size = 16
      Calculated = True
    end
    object qryWardMedinRPRICE: TFloatField
      DisplayLabel = '单价'
      DisplayWidth = 7
      FieldKind = fkCalculated
      FieldName = 'RPRICE'
      Calculated = True
    end
    object qryWardMedinQTY: TFloatField
      DisplayLabel = '数量'
      DisplayWidth = 7
      FieldName = 'QTY'
      Origin = 'PROJHISADT.WARDMEDIN.QTY'
    end
    object qryWardMedinUSEUNIT: TStringField
      DisplayLabel = '单位'
      DisplayWidth = 4
      FieldKind = fkCalculated
      FieldName = 'USEUNIT'
      Size = 4
      Calculated = True
    end
    object qryWardMedinSUBSUM: TFloatField
      DisplayLabel = '小计'
      DisplayWidth = 8
      FieldKind = fkCalculated
      FieldName = 'SUBSUM'
      Calculated = True
    end
    object qryWardMedinEXCUNAME: TStringField
      DisplayLabel = '发药地点'
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'EXCUNAME'
      Size = 10
      Calculated = True
    end
    object qryWardMedinEXCUPLACE: TSmallintField
      DisplayLabel = '发药地点'
      DisplayWidth = 10
      FieldName = 'EXCUPLACE'
      Origin = 'PROJHISADT.WARDMEDIN.EXCUPLACE'
      Visible = False
    end
    object qryWardMedinPRICE: TFloatField
      DisplayLabel = '单价'
      DisplayWidth = 9
      FieldName = 'PRICE'
      Origin = 'PROJHISADT.WARDMEDIN.PRICE'
      Visible = False
    end
    object qryWardMedinWARDID: TStringField
      DisplayWidth = 4
      FieldName = 'WARDID'
      Origin = 'PROJHISADT.WARDMEDIN.WARDID'
      Visible = False
      FixedChar = True
      Size = 4
    end
    object qryWardMedinSERIALID: TStringField
      FieldName = 'SERIALID'
      Origin = 'PROJHISADT.WARDMEDIN.SERIALID'
      Visible = False
      FixedChar = True