datamodule.dfm

某大型医院护士站

        Name = 'I7_I_OPNO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'L_INWARD_RTN'
        ParamType = ptOutput
      end>
  end
  object qryInWard: TwwQuery
    OnCalcFields = qryInWardCalcFields
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      
        'SELECT P.INID, P.TIMES ,P.SQID , P.PATDESC, P.SEXNAME, P.BIRTHDA' +
        'Y,'
      '       P.WARDID, P.DEPTNUM ,P.IsBaby'
      'FROM PATIENTSUB P'
      'WHERE (P.INSTATE = 0) AND (P.ENABLED = 1) AND (INID > 0)'
      '  AND ( (:ISALL  =  1) OR (P.WARDID = :INDEPT) )'
      'FOR READ ONLY'
      '')
    LookupFields.Strings = (
      'SEXNAME;PROJHISADT;SEX;NAME;;NUM;N'
      'WARDNAME;PROJHISADT;WARD;NAME;;WARDID;Y'
      'DEPTNAME;PROJHISADT;DEPT;NAME;;NUM;Y')
    LookupLinks.Strings = (
      'SEX;NUM'
      'WARDID;WARDID'
      'DEPTNUM;NUM')
    ValidateWithMask = True
    Left = 24
    Top = 64
    ParamData = <
      item
        DataType = ftSmallint
        Name = 'ISALL'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'INDEPT'
        ParamType = ptInput
      end>
    object qryInWardAGE: TIntegerField
      DisplayLabel = '年龄'
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'AGE'
      Calculated = True
    end
    object qryInWardINID: TIntegerField
      DisplayWidth = 10
      FieldName = 'INID'
    end
    object qryInWardTIMES: TSmallintField
      DisplayWidth = 10
      FieldName = 'TIMES'
    end
    object qryInWardSQID: TSmallintField
      DisplayWidth = 10
      FieldName = 'SQID'
    end
    object qryInWardPATDESC: TStringField
      DisplayWidth = 20
      FieldName = 'PATDESC'
    end
    object qryInWardSEXNAME: TStringField
      DisplayWidth = 6
      FieldName = 'SEXNAME'
      Size = 6
    end
    object qryInWardBIRTHDAY: TDateField
      DisplayWidth = 10
      FieldName = 'BIRTHDAY'
    end
    object qryInWardWARDID: TStringField
      DisplayWidth = 4
      FieldName = 'WARDID'
      Size = 4
    end
    object qryInWardDEPTNUM: TStringField
      DisplayWidth = 4
      FieldName = 'DEPTNUM'
      Size = 4
    end
    object qryInWardISBABY: TSmallintField
      DisplayWidth = 10
      FieldName = 'ISBABY'
    end
    object qryInWardWARDNAME: TStringField
      DisplayWidth = 16
      FieldKind = fkCalculated
      FieldName = 'WARDNAME'
      Size = 16
      Calculated = True
    end
    object qryInWardDEPTNAME: TStringField
      DisplayWidth = 16
      FieldKind = fkCalculated
      FieldName = 'DEPTNAME'
      Size = 16
      Calculated = True
    end
  end
  object qryEmptyBed: TwwQuery
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'SELECT INID ,BED ,DEPTNUM FROM WARDBED'
      'WHERE (WARDID = :WARDID)'
      '  AND ( (:IsAll = 1) OR ((INID IS NULL) OR (INID = 0)) )'
      'FOR READ ONLY'
      ' ')
    ValidateWithMask = True
    Left = 86
    Top = 64
    ParamData = <
      item
        DataType = ftString
        Name = 'WARDID'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'IsAll'
        ParamType = ptInput
      end>
    object qryEmptyBedBED: TStringField
      DisplayLabel = '空床号'
      DisplayWidth = 6
      FieldName = 'BED'
      Size = 6
    end
    object qryEmptyBedINID: TIntegerField
      FieldName = 'INID'
    end
    object qryEmptyBedDEPTNUM: TStringField
      FieldName = 'DEPTNUM'
      Size = 4
    end
  end
  object srcInWard: TwwDataSource
    DataSet = qryInWard
    Left = 24
    Top = 112
  end
  object srcEmptyBed: TwwDataSource
    DataSet = qryEmptyBed
    Left = 86
    Top = 112
  end
  object OrderItem: TwwTable
    BeforeEdit = OrderItemBeforeEdit
    BeforePost = OrderItemBeforePost
    AfterPost = OrderItemAfterPost
    BeforeDelete = OrderItemBeforeDelete
    OnNewRecord = OrderItemNewRecord
    DatabaseName = 'PROJHISADT'
    OnFilterRecord = OrderItemFilterRecord
    IndexFieldNames = 'INID;TIMES;SQID;KINDID;SERIALID'
    MasterFields = 'INID;TIMES;SQID'
    MasterSource = srcPatientSub
    TableName = 'ORDERITEM'
    LookupFields.Strings = (
      'DOSUNIT1;PROJHISADT;ORDERCOST;DOSEUNIT;;COSTID;Y'
      'USAGENAME;PROJHISADT;USAGE;NAME;;USAGEID;Y'
      'USETIMESNAME;PROJHISADT;FREQUENCY;NAME;;FREQID;Y'
      'EXCUPLACENAME;PROJHISADT;EXCUTEPOS;NAME;;EXCUPLACE;Y'
      'OPENDOCNAME;PROJHISADT;DOCTOR;DOCTORNM;;DOCTORNO;Y'
      'Ename;PROJHISADT;ORDERCOST;ENAME;;COSTID;Y'
      'ItemNameT;PROJHISADT;ORDERCOST;CNAME;;COSTID;Y'
      'IsDanger;PROJHISADT;ORDERCOST;IS_DANGER;;COSTID;Y'
      'IsExcost;PROJHISADT;ORDERCOST;EXCOST;;COSTID;Y'
      'IsPayBill;PROJHISADT;ORDERCOST;ISPAYBILL;;COSTID;Y'
      'IsReuse;PROJHISADT;ORDERCOST;REUSE;;COSTID;Y'
      'IsSelfPay;PROJHISADT;ORDERCOST;SELFPAY;;COSTID;Y'
      'Price;PROJHISADT;ORDERCOST;PRICE;;COSTID;Y'
      'MadeIn;PROJHISADT;ORDERCOST;MADEIN;;COSTID;Y'
      'Spec;PROJHISADT;ORDERCOST;SPEC;;COSTID;Y'
      'IsQflag;PROJHISADT;ORDERCOST;QFLAG;;COSTID;Y'
      'USEUNIT;PROJHISADT;ORDERCOST;USEUNIT;;COSTID;Y')
    LookupLinks.Strings = (
      'ITEMID;COSTID'
      'USAGEID;USAGEID'
      'USETIMES;FREQID'
      'EXCUPLACE;EXCUPLACE'
      'OPENDOC;DOCTORNO'
      'ITEMID;COSTID'
      'ITEMID;COSTID'
      'ITEMID;COSTID'
      'ITEMID;COSTID'
      'ITEMID;COSTID'
      'ITEMID;COSTID'
      'ITEMID;COSTID'
      'ITEMID;COSTID'
      'ITEMID;COSTID'
      'ITEMID;COSTID'
      'ITEMID;COSTID'
      'ITEMID;COSTID')
    ControlType.Strings = (
      'STARTTIME;CustomEdit;edStartTime'
      'ENDTIME;CustomEdit;edEndTime'
      'USAGENAME;CustomEdit;lookupUsageID'
      'USETIMESNAME;CustomEdit;lookupUseTimes'
      'EXCUPLACENAME;CustomEdit;LookupExcutePos'
      'ITEMID;CustomEdit;lookupItemID'
      'OPENDOCNAME;CustomEdit;LookUpOpenDoc')
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 264
    Top = 64
    object OrderItemSTARTTIME: TDateTimeField
      DisplayLabel = '开始时间'
      DisplayWidth = 22
      FieldName = 'STARTTIME'
    end
    object OrderItemKINDID: TSmallintField
      DisplayLabel = '配'
      DisplayWidth = 3
      FieldName = 'KINDID'
    end
    object OrderItemITEMID: TStringField
      DisplayLabel = '代号'
      DisplayWidth = 8
      FieldName = 'ITEMID'
      Required = True
      OnChange = OrderItemITEMIDChange
      FixedChar = True
      Size = 6
    end
    object OrderItemITEMNAME: TStringField
      DisplayLabel = '名称'
      DisplayWidth = 23
      FieldName = 'ITEMNAME'
      FixedChar = True
    end
    object OrderItemDOSAGE: TFloatField
      DisplayLabel = '用量'
      DisplayWidth = 6
      FieldName = 'DOSAGE'
    end
    object OrderItemDOSUNIT1: TStringField
      DisplayLabel = '单位'
      DisplayWidth = 4
      FieldKind = fkCalculated
      FieldName = 'DOSUNIT1'
      Calculated = True
    end
    object OrderItemUSAGENAME: TStringField
      DisplayLabel = '用法'
      DisplayWidth = 7
      FieldKind = fkCalculated
      FieldName = 'USAGENAME'
      Calculated = True
    end
    object OrderItemUSETIMESNAME: TStringField
      DisplayLabel = '次数'
      DisplayWidth = 6
      FieldKind = fkCalculated
      FieldName = 'USETIMESNAME'
      Calculated = True
    end
    object OrderItemEXCUPLACENAME: TStringField
      DisplayLabel = '地点'
      DisplayWidth = 8
      FieldKind = fkCalculated
      FieldName = 'EXCUPLACENAME'
      Calculated = True
    end
    object OrderItemOPENDOCNAME: TStringField
      DisplayLabel = '开立医生'
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'OPENDOCNAME'
      Size = 10
      Calculated = True
    end
    object OrderItemENDTIME: TDateTimeField
      DisplayLabel = '停止时间'
      DisplayWidth = 21
      FieldName = 'ENDTIME'
    end
    object OrderItemUSEUNIT: TStringField
      DisplayWidth = 6
      FieldKind = fkCalculated
      FieldName = 'USEUNIT'
      Visible = False
      Size = 6
      Calculated = True
    end
    object OrderItemEname: TStringField
      DisplayWidth = 30
      FieldKind = fkCalculated
      FieldName = 'Ename'
      Visible = False
      Size = 30
      Calculated = True
    end
    object OrderItemIsDanger: TSmallintField
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'IsDanger'
      Visible = False
      Calculated = True
    end
    object OrderItemIsExcost: TSmallintField
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'IsExcost'
      Visible = False
      Calculated = True
    end
    object OrderItemIsPayBill: TSmallintField
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'IsPayBill'
      Visible = False
      Calculated = True
    end
    object OrderItemIsReuse: TSmallintField
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'IsReuse'
      Visible = False
      Calculated = True
    end
    object OrderItemIsSelfPay: TSmallintField
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'IsSelfPay'
      Visible = False
      Calculated = True
    end
    object OrderItemItemNameT: TStringField
      DisplayWidth = 30
      FieldKind = fkCalculated
      FieldName = 'ItemNameT'
      Visible = False
      Size = 30
      Calculated = True
    end
    object OrderItemPrice: TFloatField
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'Price'
      Visible = False
      Calculated = True
    end
    object OrderItemMadeIn: TStringField
      DisplayWidth = 20
      FieldKind = fkCalculated
      FieldName = 'MadeIn'
      Visible = False
      Calculated = True
    end
    object OrderItemSpec: TStringField
      DisplayWidth = 16
      FieldKind = fkCalculated
      FieldName = 'Spec'
      Visible = False
      Size = 16
      Calculated = True
    end
    object OrderItemIsQflag: TSmallintField
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'IsQflag'
      Visible = False
      Calculated = True
    end
    object OrderItemINID: TIntegerField
      DisplayWidth = 10
      FieldName = 'INID'
      Required = True
      Visible = False
    end
    object OrderItemTIMES: TSmallintField
      DisplayWidth = 10
      FieldName = 'TIMES'
      Required = True
      Visible = False
    end
    object OrderItemSQID: TSmallintField
      DisplayWidth = 10
      FieldName = 'SQID'
      Required = True
      Visible = False
    end
    object OrderItemWARDID: TStringField
      DisplayWidth = 4
      FieldName = 'WARDID'
      Visible = False
      FixedChar = True
      Size = 4
    end
    object OrderItemBEDID: TStringField
      DisplayWidth = 6
      FieldName = 'BEDID'
      Visible = False
      FixedChar = True
      Size = 6
    end
    object OrderItemSERIALID: TStringField
      DisplayWidth = 21
      FieldName = 'SERIALID'
      Required = True
      Visible = False
      FixedChar = True
      Size = 21
    end
    object OrderItemDISPLAYID: TDateTimeField
      DisplayWidth = 18
      FieldName = 'DISPLAYID'
      Visible = False
    end
    object OrderItemDOSEUNIT: TStringField
      DisplayWidth = 4
      FieldName = 'DOSEUNIT'
      Visible = False
      FixedChar = True
      Size = 4
    end
    object OrderItemUSETIMES: TSmallintField
      DisplayWidth = 10
      FieldName = 'USETIMES'
      Visible = False
    end
    object OrderItemUSAGEID: TStringField
      DisplayWidth = 4
      FieldName = 'USAGEID'
      Visible = False
      FixedChar = True
      Size = 4
    end
    object OrderItemEXCUPLACE: TSmallintField
      DisplayWidth = 10
      FieldName = 'EXCUPLACE'
      Visible = False
    end
    object OrderItemOPERATOR: TStringField
      DisplayWidth = 4
      FieldName = 'OPERATOR'
      Required = True
      Visible = False
      FixedChar = True
      Size = 4
    end
    object OrderItemCONFIRMOP: TStringField
      DisplayWidth = 4
      FieldName = 'CONFIRMOP'
      Visible = False