datamodule.dfm

某大型医院护士站

    FilterDialog.SummaryFieldLabel = '字段'
    FilterDialog.SummarySearchLabel = '查找类型'
    FilterDialog.SummaryValueLabel = '值'
    FilterDialog.FieldsLabel = '字段(&F)'
    FilterDialog.ValueRangeTabHint = '按值或按范围查找'
    FilterDialog.AllSearchedTabHint = '显示所有查找字段或当前查找字段'
    FilterDialog.ViewSummaryNotText = 'NOT'
    RichEdit.FontNameComboHint = 'FONT | CHANGES THE FONT OF THE SELECTION'
    RichEdit.FontSizeComboHint = 'FONT SIZE | CHANGES THE FONT SIZE OF THE SELECTION'
    RichEdit.NewButtonHint = 'NEW | CREATES A NEW DOCUMENT'
    RichEdit.LoadButtonHint = 'LOAD | LOAD FROM FILE'
    RichEdit.SaveAsButtonHint = 'SAVE AS | SAVE TO FILE'
    RichEdit.PrintButtonHint = 'PRINT | PRINTS THE ACTIVE DOCUMENT'
    RichEdit.FindButtonHint = 'FIND | FINDS THE SPECIFIED TEXT'
    RichEdit.CutButtonHint = 'CUT | CUTS THE SELECTION AND PUTS IT ON THE CLIPBOARD'
    RichEdit.CopyButtonHint = 'COPY | COPIES THE SELECTION AND PUTS IT ON THE CLIPBOARD'
    RichEdit.UndoButtonHint = 'UNDO | REVERSES THE LAST ACTION'
    RichEdit.RedoButtonHint = 'Redo | Reverses the last undo action'
    RichEdit.PasteButtonHint = 'PASTE | INSERTS CLIPBOARD CONTENTS'
    RichEdit.BoldButtonHint = 'BOLD | MAKES THE SELECTION BOLD (TOGGLE)'
    RichEdit.ColorButtonHint = 'Color | Formats the selection with a color'
    RichEdit.UnderlineButtonHint = 
      'UNDERLINE | FORMATS THE SELECTION WITH A CONTINUOUS UNDERLINE (T' +
      'OGGLE)'
    RichEdit.ItalicButtonHint = 'ITALIC | MAKES THE SELECTION ITALIC (TOGGLE)'
    RichEdit.LeftButtonHint = 'ALIGN LEFT | LEFT-JUSTIFIES PARAGRAPH (TOGGLE)'
    RichEdit.CenterButtonHint = 'CENTER | CENTER-JUSTIFIES PARAGRAPH (TOGGLE)'
    RichEdit.RightButtonHint = 'ALIGN RIGHT | RIGHT-JUSTIFIES PARAGRAPH (TOGGLE)'
    RichEdit.BulletButtonHint = 'BULLETS | INSERTS A BULLET ON THIS LINE (TOGGLE)'
    RichEdit.HighlightButtonHint = 'Highlight Text | Makes the selection highlighted'
    RichEdit.SaveExitHint = 'SAVE AND EXIT | SAVES CHANGES AND EXITS EDITOR'
    RichEdit.PageSetupHint = 'PAGE SETUP | CHANGES PAGE LAYOUT SETTINGS'
    RichEdit.ExitHint = 'EXIT'
    RichEdit.ClearHint = 'ERASES THE SELECTION'
    RichEdit.SelectAllHint = 'SELECTS ALL OF THE TEXT'
    RichEdit.FindNextHint = 'REPEATS THE LAST FIND'
    RichEdit.ReplaceHint = 'REPLACES SPECIFIC TEXT WITH DIFFERENT TEXT'
    RichEdit.InsertObjectHint = 'Inserts new embedded object'
    RichEdit.SpellCheckHint = 'Check spelling'
    RichEdit.ToolbarHint = 'SHOWS OR HIDES THE TOOLBAR'
    RichEdit.FormatBarHint = 'SHOWS OR HIDES THE FORMAT BAR'
    RichEdit.ViewStatusBarHint = 'SHOWS OR HIDES THE STATUS BAR'
    RichEdit.OptionsHint = 'SETS OPTIONS'
    RichEdit.FontHint = 'SELECTS FONT FOR CURRENT SELECTION'
    RichEdit.ParagraphHint = 'FORMATS CURRENT OR SELECTED PARAGRAPH(S)'
    RichEdit.TabsHint = 'SETS TABS'
    RichEdit.CAPLockCaption = 'CAP'
    RichEdit.NUMLockCaption = 'NUM'
    RichEdit.MenuLabels.FileCaption = '&FILE'
    RichEdit.MenuLabels.LoadCaption = '&LOAD'
    RichEdit.MenuLabels.SaveAsCaption = 'SAVE &AS'
    RichEdit.MenuLabels.SaveExitCaption = '&SAVE AND EXIT'
    RichEdit.MenuLabels.PrintCaption = '&PRINT'
    RichEdit.MenuLabels.PageSetupCaption = 'PAGE SET&UP'
    RichEdit.MenuLabels.ExitCaption = 'E&XIT'
    RichEdit.MenuLabels.EditCaption = '&EDIT'
    RichEdit.MenuLabels.UndoCaption = '&UNDO'
    RichEdit.MenuLabels.CutCaption = 'CU&T'
    RichEdit.MenuLabels.CopyCaption = '&COPY'
    RichEdit.MenuLabels.PasteCaption = '&PASTE'
    RichEdit.MenuLabels.ClearCaption = 'CLE&AR'
    RichEdit.MenuLabels.SelectallCaption = 'SELECT A&LL'
    RichEdit.MenuLabels.FindCaption = '&FIND'
    RichEdit.MenuLabels.FindNextCaption = 'FIND &NEXT'
    RichEdit.MenuLabels.ReplaceCaption = 'R&EPLACE'
    RichEdit.MenuLabels.InsertObjectCaption = '&Object...'
    RichEdit.MenuLabels.ToolCaption = '&Tools'
    RichEdit.MenuLabels.SpellCheckCaption = 'Check &Spelling'
    RichEdit.MenuLabels.InsertCaption = '&Insert'
    RichEdit.MenuLabels.RulerCaption = '&Ruler'
    RichEdit.MenuLabels.ViewCaption = '&VIEW'
    RichEdit.MenuLabels.ToolbarCaption = '&TOOLBAR'
    RichEdit.MenuLabels.FormatBarCaption = '&FORMAT BAR'
    RichEdit.MenuLabels.ViewStatusBarCaption = '&STATUS BAR'
    RichEdit.MenuLabels.OptionsCaption = '&OPTIONS'
    RichEdit.MenuLabels.FormatCaption = 'F&ORMAT'
    RichEdit.MenuLabels.FontCaption = '&FONT'
    RichEdit.MenuLabels.BulletStyleCaption = '&BULLET STYLE'
    RichEdit.MenuLabels.ParagraphCaption = '&PARAGRAPH'
    RichEdit.MenuLabels.TabsCaption = '&TABS'
    RichEdit.MenuLabels.HelpCaption = 'HELP'
    RichEdit.PopupMenuLabels.EditCaption = '&EDIT'
    RichEdit.PopupMenuLabels.ViewCaption = '&View'
    RichEdit.PopupMenuLabels.CutCaption = 'CU&T'
    RichEdit.PopupMenuLabels.CopyCaption = '&COPY'
    RichEdit.PopupMenuLabels.PasteCaption = '&PASTE'
    RichEdit.PopupMenuLabels.FontCaption = '&FONT'
    RichEdit.PopupMenuLabels.BulletStyleCaption = '&BULLET STYLE'
    RichEdit.PopupMenuLabels.BoldCaption = 'B&OLD'
    RichEdit.PopupMenuLabels.ItalicCaption = '&ITALIC'
    RichEdit.PopupMenuLabels.UnderlineCaption = '&UNDERLINE'
    RichEdit.PopupMenuLabels.ParagraphCaption = 'P&ARAGRAPH'
    RichEdit.PopupMenuLabels.TabsCaption = '&TABS'
    RichEdit.PopupMenuLabels.FindCaption = 'FIN&D'
    RichEdit.PopupMenuLabels.ReplaceCaption = '&REPLACE'
    RichEdit.PopupMenuLabels.InsertObjectCaption = 'Insert &Object...'
    RichEdit.PopupMenuLabels.SpellCheckCaption = 'Check &Spelling'
    RichEdit.ParagraphDialog.ParagraphDlgCaption = 'PARAGRAPH'
    RichEdit.ParagraphDialog.IndentationGroupBoxCaption = 'INDENTATION'
    RichEdit.ParagraphDialog.LeftEditHint = 'LEFT INDENTATION'
    RichEdit.ParagraphDialog.RightEditHint = 'RIGHT INDENTATION'
    RichEdit.ParagraphDialog.FirstLineEditHint = 'FIRST LINE OF PARAGRAPH INDENTATION'
    RichEdit.ParagraphDialog.AlignmentHint = 'CHANGES ALIGNMENT OF PARAGRAPH'
    RichEdit.ParagraphDialog.LeftEditCaption = 'LEFT:'
    RichEdit.ParagraphDialog.RightEditCaption = 'RIGHT:'
    RichEdit.ParagraphDialog.FirstLineEditCaption = 'FIRST LINE:'
    RichEdit.ParagraphDialog.SpacingGroupCaption = 'Spacing'
    RichEdit.ParagraphDialog.BeforeParagraphCaption = '&Before'
    RichEdit.ParagraphDialog.AfterParagraphCaption = 'Aft&er'
    RichEdit.ParagraphDialog.WithinParagraphCaption = 'Li&ne Spacing'
    RichEdit.ParagraphDialog.WithinParagraphAtCaption = '&At'
    RichEdit.ParagraphDialog.AlignmentCaption = 'ALIGNMENT'
    RichEdit.ParagraphDialog.AlignLeft = 'LEFT'
    RichEdit.ParagraphDialog.AlignRight = 'RIGHT'
    RichEdit.ParagraphDialog.AlignCenter = 'CENTER'
    RichEdit.TabDialog.TabDlgCaption = 'TAB'
    RichEdit.TabDialog.TabGroupBoxCaption = '&TAB STOP POSITION'
    RichEdit.TabDialog.SetTabButtonCaption = 'SET'
    RichEdit.TabDialog.ClearTabButtonCaption = 'CLEAR'
    RichEdit.TabDialog.ClearAllButtonCaption = 'CLEAR ALL'
    RichEdit.TabDialog.TabPositionEditHint = 'TAB POSITION EDIT BOX'
    RichEdit.TabDialog.ListBoxHint = 'LIST OF TABS AND THEIR POSITIONS'
    RichEdit.TabDialog.SetButtonHint = 'SET A NEW TAB POSITION'
    RichEdit.TabDialog.ClearButtonHint = 'CLEAR THE SELECTED TAB POSITION'
    RichEdit.TabDialog.ClearAllButtonHint = 'CLEAR ALL THE TABS'
    UserMessages.wwDBGridDiscardChanges = '取消对此记录的更改?'
    UserMessages.PictureValidateError = '无效字符或域'
    UserMessages.LocateNoMatches = '未找到匹配值'
    UserMessages.LocateNoMoreMatches = '未找到更多的匹配值'
    UserMessages.MemoChangesWarning = '改变已发生,是否取消改变?'
    UserMessages.RichEditExitWarning = '改变已发生,是否保存改变?'
    UserMessages.RichEditClearWarning = '清除输入字符?'
    UserMessages.RichEditSpellCheckComplete = 'The spell check is complete.'
    UserMessages.RichEditMSWordNotFound = 'Unable to start Microsoft Word'#39's Spell Checker.'
    UserMessages.FilterDlgNoCriteria = '未输入筛选条件'
    UserMessages.RecordViewExitWarning = '改变已发生,是否保存改变?'
    OKCancelBitmapped = True
    BtnOKCaption = '确定(&O)'
    BtnCancelCaption = '取消(&C)'
    CheckBoxInGridStyle = cbStyleAuto
    VersionInfoPower = '2000.10'
    FilterMemoSize = 65536
    DialogFontStyle = []
    Connected = True
    Left = 24
    Top = 209
  end
  object qryPatientBedNo: TwwQuery
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      
        'SELECT W.BED,W.DEPTNUM ,P.INID,P.TIMES,P.NAME,P.SEX,P.BIRTHDAY,P' +
        '.PREOUT,'
      
        'P.PATIENTDATA, B.NMNT ,P.INDATE ,P.PAYED ,P.BALMTHD ,B.NAME AS B' +
        'ALNAME'
      'FROM WARDBED W, PATIENTDATA P, BALMTHD B'
      'WHERE (W.WARDID = :WARDID) AND (W.INID = P.INID)'
      'AND (B.NO = P.BALMTHD)'
      'ORDER BY W.BED'
      'FOR READ ONLY'
      ' '
      ' '
      ' '
      ' ')
    ValidateWithMask = True
    Left = 146
    Top = 64
    ParamData = <
      item
        DataType = ftString
        Name = 'WARDID'
        ParamType = ptInput
      end>
    object qryPatientBedNoBED: TStringField
      DisplayLabel = '床号'
      DisplayWidth = 6
      FieldName = 'BED'
      FixedChar = True
      Size = 6
    end
    object qryPatientBedNoNAME: TStringField
      DisplayLabel = '姓名'
      DisplayWidth = 10
      FieldName = 'NAME'
      FixedChar = True
      Size = 10
    end
    object qryPatientBedNoINID: TIntegerField
      DisplayLabel = '住院号'
      DisplayWidth = 10
      FieldName = 'INID'
    end
    object qryPatientBedNoTIMES: TSmallintField
      FieldName = 'TIMES'
      Visible = False
    end
    object qryPatientBedNoSEX: TSmallintField
      FieldName = 'SEX'
      Visible = False
    end
    object qryPatientBedNoBIRTHDAY: TDateField
      FieldName = 'BIRTHDAY'
      Visible = False
    end
    object qryPatientBedNoPREOUT: TSmallintField
      FieldName = 'PREOUT'
      Visible = False
    end
    object qryPatientBedNoPATIENTDATA: TSmallintField
      FieldName = 'PATIENTDATA'
      Visible = False
    end
    object qryPatientBedNoNMNT: TSmallintField
      FieldName = 'NMNT'
      Visible = False
    end
    object qryPatientBedNoDEPTNUM: TStringField
      FieldName = 'DEPTNUM'
      Visible = False
      Size = 4
    end
    object qryPatientBedNoINDATE: TDateTimeField
      FieldName = 'INDATE'
    end
    object qryPatientBedNoPAYED: TSmallintField
      FieldName = 'PAYED'
    end
    object qryPatientBedNoBALMTHD: TSmallintField
      FieldName = 'BALMTHD'
    end
    object qryPatientBedNoBALNAME: TStringField
      FieldName = 'BALNAME'
      FixedChar = True
      Size = 12
    end
  end
  object srcPatientSub: TwwDataSource
    DataSet = tblPatientSub
    Left = 211
    Top = 112
  end
  object srcOrderItem: TwwDataSource
    DataSet = OrderItem
    Left = 264
    Top = 112
  end
  object srcExOrderitem: TwwDataSource
    DataSet = ExOrderItem
    Left = 321
    Top = 112
  end
  object qryBed: TwwQuery
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'SELECT INID FROM WARDBED'
      'WHERE (WARDID = :WARDID)  AND (BED = :BED)'
      'FOR READ ONLY')
    ValidateWithMask = True
    Left = 321
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = 'WARDID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BED'
        ParamType = ptUnknown
      end>
    object qryBedINID: TIntegerField
      FieldName = 'INID'
      Origin = 'PATIENTDATA.PREOUT'
    end
  end
  object tblExcutepos: TwwTable
    DatabaseName = 'PROJHISADT'
    IndexFieldNames = 'EXCUPLACE'
    TableName = 'EXCUTEPOS'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 321
    Top = 160
  end
  object qryGetSerialID: TwwQuery
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'VALUES CAST((timestamp(generate_unique())'
      '       -timestamp('#39'1998-01-01-00.00.00'#39')) AS CHAR(21))')
    ValidateWithMask = True
    Left = 377
    Top = 8
  end
  object qrySelOrderCost: TwwQuery
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'SELECT CNAME, DOSEUNIT, USAGEID, USETIMES, EXCUPLACE,QFLAG ,'
      '       ISPAYBILL ,EXCOST ,ICLASS ,BCLASS ,SCLASS ,SELFPAY ,'
      '       EXPRICE ,PRICE ,IS_DANGER'
      'FROM ORDERCOST '
      'WHERE COSTID = :I_COSTID;'
      'FOR READ ONLY')
    ValidateWithMask = True
    Left = 440
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = 'I_COSTID'
        ParamType = ptInput
      end>
  end
  object spSdTime: TwwStoredProc
    DatabaseName = 'PROJHISADT'
    StoredProcName = 'L_STDTIME'
    ValidateWithMask = True
    Left = 208
    Top = 312
    ParamData = <
      item
        DataType = ftDateTime
        Name = 'IN1'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'OUT2'
        ParamType = ptOutput
      end>
  end
  object spStopMulti: TwwStoredProc
    DatabaseName = 'PROJHISADT'
    StoredProcName = 'L_STOPMULTI'
    ValidateWithMask = True
    Left = 264
    Top = 312
    ParamData = <
      item
        DataType = ftString
        Name = 'I1_SERIALID'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'I2_ENDTIME'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'I3_STDENDTIME'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I4_STOPTYPE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'I5_OPNO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'O_STOP_RTN'
        ParamType = ptOutput
      end>
  end
  object spChangeBed: TwwStoredProc
    DatabaseName = 'PROJHISADT'
    StoredProcName = 'L_CHANGEBED'
    ValidateWithMask = True
    Left = 321
    Top = 312
    ParamData = <
      item
        DataType = ftString
        Name = 'I1_I_WARDID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'I2_I_SOURCEBED'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'I3_I_TARGETBED'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'L_CHANGEBED_RTN'
        ParamType = ptOutput
      end>
  end
  object qryCheckKindID: TwwQuery
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      
        'SELECT USAGEID, USETIMES, SERIALID FROM ORDERITEM WHERE (INID=:I' +
        'NID) '
      'AND (TIMES=:TIMES) AND (ORDERKIND=:ORDERKIND) '
      'AND (KINDID=:KINDID) AND (ENDTIME IS NULL)'
      'FOR READ ONLY')
    ValidateWithMask = True
    Left = 624
    Top = 8
    ParamData = <
      item
        DataType = ftInteger
        Name = 'INID'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'TIMES'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'ORDERKIND'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'KINDID'
        ParamType = ptInput
      end>
    object qryCheckKindIDUSAGEID: TStringField
      FieldName = 'USAGEID'
      FixedChar = True
      Size = 4
    end
    object qryCheckKindIDUSETIMES: TSmallintField
      FieldName = 'USETIMES'
    end
    object qryCheckKindIDSERIALID: TStringField
      FieldName = 'SERIALID'
      FixedChar = True
      Size = 21
    end
  end
  object spConfirm: TwwStoredProc
    DatabaseName = 'PROJHISADT'
    StoredProcName = 'L_CONFIRM'
    ValidateWithMask = True
    Left = 377
    Top = 312