datamodule.dfm

某大型医院护士站

      Size = 4
    end
    object OrderItemCONFIRM: TSmallintField
      DisplayWidth = 10
      FieldName = 'CONFIRM'
      Visible = False
    end
    object OrderItemEXECUTIME: TDateTimeField
      DisplayWidth = 18
      FieldName = 'EXECUTIME'
      Visible = False
    end
    object OrderItemHANDLE: TStringField
      DisplayWidth = 4
      FieldName = 'HANDLE'
      Visible = False
      FixedChar = True
      Size = 4
    end
    object OrderItemMSGTIME: TDateTimeField
      DisplayWidth = 18
      FieldName = 'MSGTIME'
      Visible = False
    end
    object OrderItemSENDMSG: TSmallintField
      DisplayWidth = 10
      FieldName = 'SENDMSG'
      Visible = False
    end
    object OrderItemATONCE: TSmallintField
      DisplayWidth = 10
      FieldName = 'ATONCE'
      Visible = False
    end
    object OrderItemSTOPTYPE: TSmallintField
      DisplayWidth = 10
      FieldName = 'STOPTYPE'
      Visible = False
    end
    object OrderItemSTDSTATIME: TDateTimeField
      DisplayWidth = 18
      FieldName = 'STDSTATIME'
      Visible = False
    end
    object OrderItemSTDENDTIME: TDateTimeField
      DisplayWidth = 18
      FieldName = 'STDENDTIME'
      Visible = False
    end
    object OrderItemINACTUAL: TSmallintField
      DisplayWidth = 10
      FieldName = 'INACTUAL'
      Visible = False
    end
    object OrderItemAOMSG: TDateTimeField
      DisplayWidth = 18
      FieldName = 'AOMSG'
      Visible = False
    end
    object OrderItemAOACTUAL: TSmallintField
      DisplayWidth = 10
      FieldName = 'AOACTUAL'
      Visible = False
    end
    object OrderItemMODI: TSmallintField
      DisplayWidth = 10
      FieldName = 'MODI'
      Visible = False
    end
    object OrderItemOPENDOC: TStringField
      DisplayWidth = 4
      FieldName = 'OPENDOC'
      Visible = False
      FixedChar = True
      Size = 4
    end
    object OrderItemCLOSEDOC: TStringField
      DisplayWidth = 4
      FieldName = 'CLOSEDOC'
      Visible = False
      FixedChar = True
      Size = 4
    end
    object OrderItemORDERKIND: TSmallintField
      FieldName = 'ORDERKIND'
      Required = True
      Visible = False
    end
    object OrderItemDEPTNUM: TStringField
      FieldName = 'DEPTNUM'
      Required = True
      Visible = False
      FixedChar = True
      Size = 4
    end
    object OrderItemPAYTIME: TDateTimeField
      FieldName = 'PAYTIME'
      Visible = False
    end
  end
  object ExOrderItem: TwwTable
    DatabaseName = 'PROJHISADT'
    IndexFieldNames = 'INID;TIMES;SQID;ORDERKIND;KINDID'
    MasterFields = 'INID;TIMES;SQID;ORDERKIND;KINDID'
    MasterSource = srcOrderItem
    TableName = 'EXORDERITEM'
    LookupFields.Strings = (
      'ITEMNAME;PROJHISADT;ORDERCOST;CNAME;;COSTID;Y'
      'DOSUINT;PROJHISADT;ORDERCOST;DOSEUNIT;;COSTID;Y')
    LookupLinks.Strings = (
      'EXITEM;COSTID'
      'EXITEM;COSTID')
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 321
    Top = 64
    object ExOrderItemINID: TIntegerField
      DisplayWidth = 10
      FieldName = 'INID'
      Required = True
    end
    object ExOrderItemTIMES: TSmallintField
      DisplayWidth = 10
      FieldName = 'TIMES'
      Required = True
    end
    object ExOrderItemSQID: TSmallintField
      DisplayWidth = 10
      FieldName = 'SQID'
      Required = True
    end
    object ExOrderItemORDERKIND: TSmallintField
      DisplayWidth = 10
      FieldName = 'ORDERKIND'
      Required = True
    end
    object ExOrderItemKINDID: TSmallintField
      DisplayWidth = 10
      FieldName = 'KINDID'
      Required = True
    end
    object ExOrderItemEXITEM: TStringField
      DisplayWidth = 6
      FieldName = 'EXITEM'
      Required = True
      FixedChar = True
      Size = 6
    end
    object ExOrderItemQTY: TFloatField
      DisplayWidth = 10
      FieldName = 'QTY'
    end
    object ExOrderItemPRICE: TFloatField
      DisplayWidth = 10
      FieldName = 'PRICE'
    end
    object ExOrderItemTOTAL: TFloatField
      DisplayWidth = 10
      FieldName = 'TOTAL'
      Required = True
    end
    object ExOrderItemSTDSTATIME: TDateTimeField
      DisplayWidth = 18
      FieldName = 'STDSTATIME'
    end
    object ExOrderItemSERIALID: TStringField
      DisplayWidth = 21
      FieldName = 'SERIALID'
      FixedChar = True
      Size = 21
    end
    object ExOrderItemITEMNAME: TStringField
      DisplayWidth = 30
      FieldKind = fkCalculated
      FieldName = 'ITEMNAME'
      Size = 30
      Calculated = True
    end
    object ExOrderItemDOSUINT: TStringField
      DisplayWidth = 6
      FieldKind = fkCalculated
      FieldName = 'DOSUINT'
      Size = 6
      Calculated = True
    end
  end
  object tblPatientSub: TwwTable
    OnCalcFields = tblPatientSubCalcFields
    DatabaseName = 'PROJHISADT'
    IndexFieldNames = 'INID;TIMES'
    MasterFields = 'INID;TIMES'
    MasterSource = srcPatientBedno
    ReadOnly = True
    TableName = 'PATIENTSUB'
    LookupFields.Strings = (
      'FEELOWLEVEL;PROJHISADT;WARDRDEPT;DEF_REDNUM;;WARDID;DEPTNUM;Y')
    LookupLinks.Strings = (
      'WARDID;WARDID;DEPTNUM;DEPTNUM')
    ControlType.Strings = (
      'ISBABY;CheckBox;1;0')
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 209
    Top = 64
    object tblPatientSubPATDESC: TStringField
      DisplayWidth = 20
      FieldName = 'PATDESC'
    end
    object tblPatientSubISBABY: TSmallintField
      DisplayWidth = 10
      FieldName = 'ISBABY'
    end
    object tblPatientSubFEELOWLEVEL: TFloatField
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'FEELOWLEVEL'
      Visible = False
      Calculated = True
    end
    object tblPatientSubINID: TIntegerField
      DisplayWidth = 10
      FieldName = 'INID'
      Required = True
      Visible = False
    end
    object tblPatientSubTIMES: TSmallintField
      DisplayWidth = 10
      FieldName = 'TIMES'
      Required = True
      Visible = False
    end
    object tblPatientSubSQID: TSmallintField
      DisplayWidth = 10
      FieldName = 'SQID'
      Required = True
      Visible = False
    end
    object tblPatientSubBIRTHDAY: TDateField
      DisplayWidth = 10
      FieldName = 'BIRTHDAY'
      Visible = False
    end
    object tblPatientSubSEXNAME: TStringField
      DisplayWidth = 6
      FieldName = 'SEXNAME'
      Visible = False
      Size = 6
    end
    object tblPatientSubWARDID: TStringField
      DisplayWidth = 4
      FieldName = 'WARDID'
      Visible = False
      Size = 4
    end
    object tblPatientSubDEPTNUM: TStringField
      DisplayWidth = 4
      FieldName = 'DEPTNUM'
      Visible = False
      Size = 4
    end
    object tblPatientSubINSTATE: TSmallintField
      DisplayWidth = 10
      FieldName = 'INSTATE'
      Visible = False
    end
    object tblPatientSubENABLED: TSmallintField
      DisplayWidth = 10
      FieldName = 'ENABLED'
      Visible = False
    end
    object tblPatientSubBEDID: TStringField
      DisplayWidth = 6
      FieldName = 'BEDID'
      Visible = False
      Size = 6
    end
    object tblPatientSubAGE: TSmallintField
      FieldKind = fkCalculated
      FieldName = 'AGE'
      Visible = False
      Calculated = True
    end
  end
  object spChgcharge: TwwStoredProc
    DatabaseName = 'PROJHISADT'
    StoredProcName = 'L_CHGCHARGE'
    ValidateWithMask = True
    Left = 146
    Top = 311
    ParamData = <
      item
        DataType = ftInteger
        Name = 'I1_INID'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I2_TIMES'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I3_SQID'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'I4_ENDTIME'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'I5_LEFTTIME'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'I6_CHGDEPT'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'I7_OPERATOR'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'I8_STDENDTIME'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'I9_WARDID'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I10_ISSTOPORDER'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'O_CHG_RTN'
        ParamType = ptOutput
      end>
  end
  object tblFixedcode: TwwTable
    DatabaseName = 'PROJHISADT'
    TableName = 'FIXEDCODE'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 264
    Top = 8
  end
  object tblDoctor: TwwTable
    DatabaseName = 'PROJHISADT'
    IndexFieldNames = 'DOCTORNO'
    TableName = 'DOCTOR'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 264
    Top = 160
  end
  object srcPatientBedno: TwwDataSource
    DataSet = qryPatientBedNo
    Left = 146
    Top = 112
  end
  object IPINTERNET: TwwIntl
    Navigator.ConfirmDeleteMessage = 'Delete record?'
    Navigator.Hints.FirstHint = 'Move to first record'
    Navigator.Hints.PriorHint = 'Move to prior record'
    Navigator.Hints.NextHint = 'Move to next record'
    Navigator.Hints.LastHint = 'Move to last record'
    Navigator.Hints.InsertHint = 'Insert new record'
    Navigator.Hints.DeleteHint = 'Delete current record'
    Navigator.Hints.EditHint = 'Edit current record'
    Navigator.Hints.PostHint = 'Post changes of current record'
    Navigator.Hints.CancelHint = 'Cancel changes made to current record'
    Navigator.Hints.RefreshHint = 'Refresh the contents of the dataset'
    Navigator.Hints.PriorPageHint = 'Move backward %d records'
    Navigator.Hints.NextPageHint = 'Move forward %d records'
    Navigator.Hints.SaveBookmarkHint = 'Bookmark current record'
    Navigator.Hints.RestoreBookmarkHint = 'Go back to saved bookmark'
    Navigator.Hints.RecordViewDialogHint = 'View current record'
    Navigator.Hints.LocateDialogHint = 'Locate a specific record'
    Navigator.Hints.FilterDialogHint = 'Filter the dataset'
    Navigator.Hints.SearchDialogHint = 'Search the dataset'
    SearchDialog.SearchCharLabel = '查找(&S)'
    SearchDialog.SearchCharShortLabel = '查找(&S)'
    SearchDialog.SearchByLabel = '按字段查找(&B)'
    SearchDialog.StatusRecLabel = 'REC #'
    SearchDialog.StatusOfLabel = 'OF'
    SearchDialog.SearchCharHint = '输入字符已供查找'
    SearchDialog.SearchByHint = '增量查询及排序'
    LocateDialog.FieldValueLabel = '域值(&V)'
    LocateDialog.SearchTypeLabel = '查找类型(&T)'
    LocateDialog.CaseSensitiveLabel = '大小写敏感 (&C)'
    LocateDialog.MatchExactLabel = '完全匹配(&E)'
    LocateDialog.MatchStartLabel = '首部匹配(&P)'
    LocateDialog.MatchAnyLabel = '部分匹配(&M)'
    LocateDialog.FieldsLabel = '域名(&F)'
    LocateDialog.BtnFirst = '第一条(&F)'
    LocateDialog.BtnNext = '下一条(&N)'
    LocateDialog.BtnCancel = '取消'
    LocateDialog.FieldValueHint = '输入域查找值'
    LocateDialog.CaseSensitiveHint = '大小写敏感查找'
    LocateDialog.MatchExactHint = '完全匹配有效'
    LocateDialog.MatchStartHint = '首部匹配有效'
    LocateDialog.MatchAnyHint = '部分匹配有效'
    LocateDialog.BtnFirstHint = '查找第一个匹配值'
    LocateDialog.BtnNextHint = '查找下一个匹配值'
    LocateDialog.FieldNameHint = '选择查找的域'
    MonthCalendar.PopupYearLabel = 'Edit Year'
    MonthCalendar.EnterYearPrompt = 'Enter Valid Year'
    FilterDialog.BtnViewSummary = '汇总(&M)'
    FilterDialog.BtnViewSummaryHint = '当前查询格式汇总'
    FilterDialog.BtnNewSearch = '新查询(&N)'
    FilterDialog.BtnNewSearchHint = '开始新查询'
    FilterDialog.FieldOrderLabel = '字段顺序'
    FilterDialog.FieldOrderHint = '以字段的字符或逻辑顺序排序'
    FilterDialog.AlphabeticLabel = '字符(&H)'
    FilterDialog.LogicalLabel = '逻辑(&L)'
    FilterDialog.AllFieldsLabel = '全部(&A)'
    FilterDialog.SearchedFieldsLabel = '查找(&S)'
    FilterDialog.StartingRangeLabel = '起始范围(&S)'
    FilterDialog.EndingRangeLabel = '终止范围(&D)'
    FilterDialog.StartingRangeHint = '输入起始范围'
    FilterDialog.EndingRangeHint = '输入域终止范围'
    FilterDialog.BtnClearMin = '清除(&C)'
    FilterDialog.BtnClearMax = '清除(&E)'
    FilterDialog.BtnClearFilterValue = '清除(&C)'
    FilterDialog.BtnClearMinHint = '清除域值的下限'
    FilterDialog.BtnClearMaxHint = '清除域值的上限'
    FilterDialog.BtnClearFilterValueHint = '清除当前查找值'
    FilterDialog.ByValueLabel = '按值(&V)'
    FilterDialog.ByRangeLabel = '按范围(&R)'
    FilterDialog.FieldValueLabel = '字段/值(&V)'
    FilterDialog.FieldValueHint = '输入搜索值'
    FilterDialog.SearchTypeLabel = '查找类型'
    FilterDialog.SearchTypeHint = '定义域值如何被匹配'
    FilterDialog.MatchExactLabel = '完全匹配(&E)'
    FilterDialog.MatchStartLabel = '增量匹配(&P)'
    FilterDialog.MatchAnyLabel = '部分匹配(&W)'
    FilterDialog.CaseSensitiveLabel = '大小写敏感(&T)'
    FilterDialog.CaseSensitiveHint = '大小写敏感查询'
    FilterDialog.NonMatchingLabel = '不匹配记录(N&)'
    FilterDialog.NonMatchingHint = '显示不匹配的记录'