prndatamodule.dfm

来自「某大型医院护士站」· DFM 代码 · 共 1,061 行 · 第 1/2 页

DFM
1,061 行
字号
12
      Size = 21
    end
    object qryWardMedinBILLID: TStringField
      DisplayWidth = 10
      FieldName = 'BILLID'
      Origin = 'PROJHISADT.WARDMEDIN.BILLID'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryWardMedinCONFIRM: TSmallintField
      DisplayWidth = 10
      FieldName = 'CONFIRM'
      Origin = 'PROJHISADT.WARDMEDIN.CONFIRM'
      Visible = False
    end
    object qryWardMedinPOST: TSmallintField
      DisplayWidth = 10
      FieldName = 'POST'
      Origin = 'PROJHISADT.WARDMEDIN.POST'
      Visible = False
    end
    object qryWardMedinINOROUT: TSmallintField
      FieldName = 'INOROUT'
      Origin = 'PROJHISADT.WARDMEDIN.INOROUT'
      Visible = False
    end
  end
  object srcWardMedin: TwwDataSource
    DataSet = qryWardMedin
    Left = 127
    Top = 58
  end
  object qryUpdateConfirm: TwwQuery
    DatabaseName = 'PROJHISADT'
    ValidateWithMask = True
    Left = 24
    Top = 152
  end
  object qryDayfeeDtl: TwwQuery
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'SELECT INID ,TIMES ,SQID ,ICLASS ,ITEMID,SUM(QTY) AS TOTALQTY,'
      '       SUM(QTY * PRICE) AS TOTALFEE'
      '  FROM COSTITEM '
      ' WHERE INID = :I_INID'
      '   AND TIMES= :I_TIMES'
      '   AND SQID = :I_SQID'
      '   AND PNTBLDATE = :I_PRNDATE'
      '   AND PRICE >= 0.0001'
      'GROUP BY INID ,TIMES ,SQID ,ICLASS ,ITEMID'
      'ORDER BY ICLASS ,ITEMID')
    LookupFields.Strings = (
      'PATNAME;PROJHISADT;PATIENTSUB;PATDESC;;INID;TIMES;SQID;Y'
      'BEDID;PROJHISADT;PATIENTSUB;BEDID;;INID;TIMES;SQID;Y')
    LookupLinks.Strings = (
      'INID;INID;TIMES;TIMES;SQID;SQID'
      'INID;INID;TIMES;TIMES;SQID;SQID')
    ValidateWithMask = True
    Left = 79
    Top = 266
    ParamData = <
      item
        DataType = ftInteger
        Name = 'I_INID'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I_TIMES'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I_SQID'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'I_PRNDATE'
        ParamType = ptInput
      end>
    object qryDayfeeDtlINID: TIntegerField
      DisplayWidth = 10
      FieldName = 'INID'
    end
    object qryDayfeeDtlTIMES: TSmallintField
      DisplayWidth = 10
      FieldName = 'TIMES'
    end
    object qryDayfeeDtlSQID: TSmallintField
      DisplayWidth = 10
      FieldName = 'SQID'
    end
    object qryDayfeeDtlPATNAME: TStringField
      DisplayWidth = 12
      FieldKind = fkCalculated
      FieldName = 'PATNAME'
      Size = 12
      Calculated = True
    end
    object qryDayfeeDtlICLASS: TStringField
      DisplayWidth = 4
      FieldName = 'ICLASS'
      FixedChar = True
      Size = 4
    end
    object qryDayfeeDtlITEMID: TStringField
      DisplayWidth = 6
      FieldName = 'ITEMID'
      FixedChar = True
      Size = 6
    end
    object qryDayfeeDtlTOTALQTY: TFloatField
      DisplayWidth = 10
      FieldName = 'TOTALQTY'
    end
    object qryDayfeeDtlTOTALFEE: TFloatField
      DisplayWidth = 10
      FieldName = 'TOTALFEE'
    end
  end
  object bmDayfeeDtl: TBatchMove
    Destination = tblDayfeeDtl
    Source = qryDayfeeDtl
    Left = 127
    Top = 266
  end
  object bmInvitem: TBatchMove
    Destination = tblInvitem
    Mode = batAppendUpdate
    Source = RtblInvitem
    Left = 127
    Top = 322
  end
  object bmPatientSub: TBatchMove
    Destination = tblPrn_PatientSub
    Mode = batAppendUpdate
    Source = qryPRN_Patientsub
    Left = 127
    Top = 370
  end
  object tblDayfeeDtl: TwwTable
    DatabaseName = 'PRJLCLDATA'
    FieldDefs = <
      item
        Name = 'INID'
        DataType = ftInteger
      end
      item
        Name = 'TIMES'
        DataType = ftSmallint
      end
      item
        Name = 'SQID'
        DataType = ftSmallint
      end
      item
        Name = 'ICLASS'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'ITEMID'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'TOTALQTY'
        DataType = ftFloat
      end
      item
        Name = 'TOTALFEE'
        DataType = ftFloat
      end>
    StoreDefs = True
    TableName = 'DAYFEEDTL.DB'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 183
    Top = 266
  end
  object RtblInvitem: TwwTable
    DatabaseName = 'PROJHISADT'
    IndexFieldNames = 'ICLASS'
    TableName = 'INVITEM'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 79
    Top = 322
  end
  object tblInvitem: TwwTable
    DatabaseName = 'PROJHISLOCAL'
    IndexFieldNames = 'ICLASS'
    TableName = 'INVITEM.DB'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 183
    Top = 322
  end
  object qryPRN_Patientsub: TwwQuery
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'SELECT * FROM PATIENTSUB'
      'WHERE WARDID = :P_WARDID')
    ValidateWithMask = True
    Left = 79
    Top = 370
    ParamData = <
      item
        DataType = ftString
        Name = 'P_WARDID'
        ParamType = ptInput
      end>
  end
  object tblPrn_PatientSub: TwwTable
    DatabaseName = 'PRJLCLDATA'
    FieldDefs = <
      item
        Name = 'INID'
        DataType = ftInteger
      end
      item
        Name = 'TIMES'
        DataType = ftSmallint
      end
      item
        Name = 'SQID'
        DataType = ftSmallint
      end
      item
        Name = 'PATDESC'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'BIRTHDAY'
        DataType = ftDate
      end
      item
        Name = 'SEXNAME'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'WARDID'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'DEPTNUM'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'INSTATE'
        DataType = ftSmallint
      end
      item
        Name = 'ENABLED'
        DataType = ftSmallint
      end
      item
        Name = 'BEDID'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'ISBABY'
        DataType = ftSmallint
      end
      item
        Name = 'DRIPTIME'
        DataType = ftDateTime
      end
      item
        Name = 'CLINICID'
        DataType = ftString
        Size = 10
      end>
    StoreDefs = True
    TableName = 'PATIENTSUB.DB'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 183
    Top = 370
  end
  object clr_DayfeeDtl: TwwQuery
    DatabaseName = 'PRJLCLDATA'
    SQL.Strings = (
      'DELETE FROM DAYFEEDTL')
    ValidateWithMask = True
    Left = 23
    Top = 210
  end
  object clr_PatDayfees: TwwQuery
    DatabaseName = 'PRJLCLDATA'
    SQL.Strings = (
      'DELETE FROM PATDAYFEES')
    ValidateWithMask = True
    Left = 23
    Top = 266
  end
  object clr_PatSumfee: TwwQuery
    DatabaseName = 'PRJLCLDATA'
    SQL.Strings = (
      'DELETE FROM PATSUMFEE')
    ValidateWithMask = True
    Left = 23
    Top = 321
  end
  object qryDayfeePrn: TwwQuery
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'SELECT D.NAME AS WARDNAME, A.INID, A.TIMES, A.SQID,'
      '       B.PATDESC AS PATNAME, B.BEDID, A.COSTDATE,'
      '       A.PNTBLDATE, SUM(A.QTY * A.PRICE) AS AMT,'
      '       C.INVITEMNAME, C.REPX, C.REPY'
      
        '  FROM DB2.COSTITEM A, DB2.PATIENTSUB B, FINAC.INVITEM C, DB2.WA' +
        'RD D'
      ' WHERE A.INID = B.INID'
      '   AND A.ICLASS = C.ICLASS AND A.INID = :PINID'
      '   AND A.TIMES = :PTIMES AND A.SQID = :PSQID'
      '   AND A.PNTBLDATE = :PPNTBLDATE'
      '   AND B.WARDID = D.WARDID'
      'GROUP BY A.INID, A.TIMES, A.SQID, A.COSTDATE, A.PNTBLDATE,'
      '         B.PATDESC, D.NAME, B.BEDID,'
      '         C.REPX, C.REPY, C.INVITEMNAME')
    ValidateWithMask = True
    Left = 255
    Top = 106
    ParamData = <
      item
        DataType = ftInteger
        Name = 'PINID'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'PTIMES'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'PSQID'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'PPNTBLDATE'
        ParamType = ptInput
      end>
  end
  object bmDayfeePrn: TBatchMove
    Destination = tblPatDayfees
    Source = qryDayfeePrn
    Left = 310
    Top = 106
  end
  object tblPatDayfees: TwwTable
    DatabaseName = 'PRJLCLDATA'
    TableName = 'PatDayFees.DB'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 367
    Top = 106
  end
  object InsPatSumFee: TwwQuery
    DatabaseName = 'PRJLCLDATA'
    SQL.Strings = (
      
        'INSERT INTO PATSUMFEE (INID, TIMES, SQID, PNTBLDATE, LASTREMAIN,' +
        ' PREPAYTOTAL)'
      
        '     VALUES (:PINID, :PTIMES, :PSQID, :PPNTBLDATE, :PLASTREMAIN,' +
        ' :PPREPAYTOTAL)')
    ValidateWithMask = True
    Left = 303
    Top = 10
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PINID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PTIMES'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PSQID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PPNTBLDATE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PLASTREMAIN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PPREPAYTOTAL'
        ParamType = ptUnknown
      end>
  end
  object qryPrnDtlBill: TwwQuery
    Active = True
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'SELECT Inid ,Times ,Sqid ,ItemID ,'
      '       Sum(TotalQty) AS TotalQty'
      '  FROM MsgDetail'
      ' WHERE Wardid    = :i_wardid'
      '   AND Excuplace = :i_excuplace'
      '   AND MsgType LIKE :i_msgtype'
      '   AND CANSENT   = 1'
      ' GROUP BY Inid ,Times ,Sqid ,ItemID'
      ' ORDER BY Inid ,ItemID')
    LookupFields.Strings = (
      'PATNAME;PROJHISADT;PATIENTSUB;PATDESC;;INID;TIMES;SQID;Y'
      'SEXNAME;PROJHISADT;PATIENTSUB;SEXNAME;;INID;TIMES;SQID;Y'
      'BEDID;PROJHISADT;PATIENTSUB;BEDID;;INID;TIMES;SQID;Y'
      'CNAME;PROJHISADT;ORDERCOST;CNAME;;COSTID;Y'
      'SPEC;PROJHISADT;ORDERCOST;SPEC;;COSTID;Y'
      'USEUNIT;PROJHISADT;ORDERCOST;USEUNIT;;COSTID;Y')
    LookupLinks.Strings = (
      'INID;INID;TIMES;TIMES;SQID;SQID'
      'INID;INID;TIMES;TIMES;SQID;SQID'
      'INID;INID;TIMES;TIMES;SQID;SQID'
      'ITEMID;COSTID'
      'ITEMID;COSTID'
      'ITEMID;COSTID')
    ValidateWithMask = True
    Left = 191
    Top = 58
    ParamData = <
      item
        DataType = ftString
        Name = 'i_wardid'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'i_excuplace'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'i_msgtype'
        ParamType = ptInput
      end>
    object qryPrnDtlBillINID: TIntegerField
      DisplayWidth = 10
      FieldName = 'INID'
    end
    object qryPrnDtlBillTIMES: TSmallintField
      DisplayWidth = 10
      FieldName = 'TIMES'
    end
    object qryPrnDtlBillSQID: TSmallintField
      DisplayWidth = 10
      FieldName = 'SQID'
    end
    object qryPrnDtlBillITEMID: TStringField
      DisplayWidth = 6
      FieldName = 'ITEMID'
      FixedChar = True
      Size = 6
    end
    object qryPrnDtlBillTOTALQTY: TFloatField
      DisplayWidth = 10
      FieldName = 'TOTALQTY'
    end
    object qryPrnDtlBillPATNAME: TStringField
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'PATNAME'
      Size = 10
      Calculated = True
    end
    object qryPrnDtlBillSEXNAME: TStringField
      DisplayWidth = 2
      FieldKind = fkCalculated
      FieldName = 'SEXNAME'
      Size = 2
      Calculated = True
    end
    object qryPrnDtlBillBEDID: TStringField
      DisplayWidth = 6
      FieldKind = fkCalculated
      FieldName = 'BEDID'
      Size = 6
      Calculated = True
    end
    object qryPrnDtlBillCNAME: TStringField
      DisplayWidth = 16
      FieldKind = fkCalculated
      FieldName = 'CNAME'
      Size = 16
      Calculated = True
    end
    object qryPrnDtlBillSPEC: TStringField
      DisplayWidth = 16
      FieldKind = fkCalculated
      FieldName = 'SPEC'
      Size = 16
      Calculated = True
    end
    object qryPrnDtlBillUSEUNIT: TStringField
      DisplayWidth = 4
      FieldKind = fkCalculated
      FieldName = 'USEUNIT'
      Size = 4
      Calculated = True
    end
  end
end
12

prndatamodule.dfm - 源码说明

本页面展示了「某大型医院护士站」中的 prndatamodule.dfm 源码文件，采用 DFM 编程语言编写，共 1,061 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与大型相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?