baseinfo.dfm

某大型医院护士站

          Selected.Strings = (
            'USAGEID'#9'4'#9'用法代号'
            'NAME'#9'12'#9'用法名称'
            'CNAME'#9'20'#9'附加项目'
            'PRICE'#9'10'#9'单价'
            'ITEMQTY'#9'6'#9'数量')
          IniAttributes.Delimiter = ';;'
          TitleColor = clBtnFace
          FixedCols = 0
          ShowHorzScrollBar = True
          Align = alClient
          DataSource = srcExusage
          ReadOnly = True
          TabOrder = 0
          TitleAlignment = taLeftJustify
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -14
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          TitleLines = 1
          TitleButtons = False
          IndicatorColor = icBlack
        end
      end
      object TabSheet5: TTabSheet
        Caption = 'TabSheet5'
        ImageIndex = 4
        TabVisible = False
        object wwDBGrid5: TwwDBGrid
          Left = 0
          Top = 0
          Width = 482
          Height = 330
          Selected.Strings = (
            'EXCUPLACE'#9'9'#9'代号'
            'NAME'#9'18'#9'执行地点'
            'NAME_1'#9'22'#9'科室'
            'ISRNWRITE'#9'10'#9'记账方式')
          IniAttributes.Delimiter = ';;'
          TitleColor = clBtnFace
          FixedCols = 0
          ShowHorzScrollBar = True
          Align = alClient
          DataSource = srcExcutepos
          ReadOnly = True
          TabOrder = 0
          TitleAlignment = taLeftJustify
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -14
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          TitleLines = 1
          TitleButtons = False
          IndicatorColor = icBlack
        end
      end
    end
  end
  object ImageList1: TImageList
    Left = 112
    Top = 65
    Bitmap = {
      494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000386B386B386BEF3DE71C386B386B
      386B386B386B386B386B386BEF3DE71CFF7F386BFF7F386BFF7F386BEF3D386B
      FF7F386BEF3D386B386B386B386B386B386B386B386B386B386B386B003CFF7F
      386B386B386B386B386B386B386B386B386B0000000000000000000000000000
      000000000000000000000000000000000000386B386B386B386B386B386B386B
      386B386B386B386B386B003CFF7F386B386B386B386B386B386B386B386B003C
      386BFF7F386B386B386B386B386B386B386B386B386B386B386B386B386B0F00
      0F000F000F000F000F000F00386B386B386B000000000000007C007C007C007C
      007C007C007C000000000000000000000000386B386B386B386B386B003CFF7F
      386B386B386B386B386B386B386B386B386B386B386B386B386B386B386B386B
      386B386B386B386B386B386B386B386B386B386B386B386B386B386B386B386B
      386B386B386B386B386B386B386B386B386B00000000007C007C007C007C007C
      007C007C007C0000003C0000000000000000386B386B386B386B386B386B386B
      0000FF7FFF7FFF7F0000386B386B386B386B386B386B386B0F3C0F3C386B386B
      EF3D0F3CEF3D0F3C386B386B386B386B386B386B386B386BEF3DE71C386B386B
      0000386B386B386B386B386B386BEF3DE71C00000000003C003C003C003C003C
      003C003C003C0000003C003C000000000000386B386B386B386B386B386B386B
      386B386B386B386B386B386B386B386B386BFF7F386B386B386B386B386B386B
      386B386B386B386B386B386B386B386B386B386B386B386B386B386B386B386B
      386B386B386B386B386B003CFF7F386B386B0000000000000000000000000000
      00000000000000000000003C003C00000000386B386B386BEF3DE71C386B386B
      386B386B386B386B386B386B386B386B386B386BFF7F386BFF7F386BEF3D386B
      FF7F386BEF3D386B386B386B386B386B386B386B386B386B386B386B003CFF7F
      386B386B386B386B386B386B386B386B386B00000000EF3D0000FF7FFF7FFF7F
      FF7FFF7FFF7F0000FF7F0000003C003C00000000000000000000000000000000
      386B386B386B386B386B003CFF7F386B386BFF7FFF7FFF7FFF7FFF7FFF7F386B
      003CFF7F386B386B386B386B386B386B386B386B386B386B386B386B386B0000
      FF7FFF7FFF7FFF7FFF7F0000386B386B386B0000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7F0000FF7F00000000003C0000386B386B386B386B386B003CFF7F
      386B386B386B386B386B386B386B386B386B386B386B386B386B386B386BFF7F
      FF7FFF7FFF7FFF7FFF7F386B386B386B386B386B386B386B386B386B386B386B
      386B386B386B386B386B386B386B386B003C0000000000000000FF7FFF7FEF3D
      0000000000000000FF7F0000FF7F00000000386B386B386B386B386B386B0000
      FF7FFF7FFF7FFF7FFF7F0000386B386B386B0F3C0000386B386B0F3C0F3C0F3C
      0F3C0F3C0F3CEF3DEF3D0F3C386B386B386B386B386B386BEF3DE71C386B386B
      386B386B386B386B386B386B386B386B386B0000000000000000000000000000
      FF7FFF7FFF7FFF7FFF7F0000FF7F00000000386B386B386B386B386B386B386B
      386B386B386B386B386B386B386B386B386B003CFF7F386B386B386B386B386B
      0000FF7FEF3D0000FF7FEF3DEF3DEF3DEF3DEF3DEF3D00000000FF7FEF3D0000
      386B386B386B386B386B003CFF7F386B003C000000000000000000000000FF7F
      FF7FEF3D0000000000000000FF7F00000000386B386B386BEF3DE71C386B386B
      386B386B386B386B386B386B386B386B386B386BFF7F386BFF7F386BEF3D386B
      FF7F386BEF3D386B386B386B386B386B386B386B386B386B386B386B003CFF7F
      386B386B386B386B386B386B386B386B386B0000000000000000000000000000
      00000000FF7FFF7FFF7FFF7FFF7F00000000FF7FFF7FFF7F0000FF7FFF7F0000
      386B386B386B386B386B003CFF7F386B003CFF7FFF7FFF7FFF7F003CFF7F386B
      003CFF7F386B386B386B386B386B386BFF7FFF7F386B386BFF7FFF7F386B0000
      FF7FFF7FFF7FFF7FFF7F0000386B386B386B0000000000000000000000000000
      0000FF7FFF7FEF3D00000000000000000000FF7F386B386B386B386B003CFF7F
      386B386B386B386B386BFF7F386B386B386B386B386B386B386B0000E07FE07F
      E07FE07FE07FE07F0000FF7FFF7F386B386B386B386B386B386B386B386B386B
      386B386B386B386B386B386B386B386B003C0000000000000000000000000000
      000000000000000000000000000000000000FF7F386BEF3DEF3DFF7F386B0000
      FF7FFF7FFF7FFF7FFF7F0000386B386B386B0F3C0F3C0F3C0F3C0F3C0F3CEF3D
      0F3C0F3C0F3C0F3C0F3CEF3DEF3D0F3C386B386B386B386BEF3DE71C386B386B
      EF3DE71CFF7F386B386B386B386B386B386B0000000000000000000000000000
      000000000000000000000000000000000000386B386B386B386B386B386B386B
      386B386B386B386B386B386B386B386B003C003C386B386B386B386B386B386B
      0000000000000000000000000000000000000000000000000000000000000000
      386B386B386B386B386B003CFF7F386B003C0000000000000000000000000000
      000000000000000000000000000000000000386B386B386BEF3DE71C386B386B
      386B386B386B386B386B386B386B386B386B386BFF7F386BFF7F386BEF3D386B
      FF7F386BEF3D386B386B386B386B386B003CFF7FFF7FFF7FFF7FFF7F003CFF7F
      FF7FFF7FFF7FFF7F003CFF7F386B386B386B424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFFFFFFFFF0000E01FFFFFFFFFFFFF
      C00FFFFFFFFFFFFF800700000000FFFF0003FFFFFFFFFFFF0001FFFFFFFFFFFF
      8000FFFFFFFFFFFFC000FFFFFFFFFFFFE000FFFFFFFFFFFFF000FFFFFFFFFFFF
      F801FFFFFFFFFFFFFC01FFFFFFFFFFFFFE01FFFFFFFFFFFFFF1FFFFFFFFFFFFF
      FFFF000000000000FFFFAE140000000000000000000000000000000000000000
      000000000000}
  end
  object qryUsage: TwwQuery
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'SELECT * FROM USAGE'
      'ORDER BY USAGEID')
    ControlType.Strings = (
      'EXITEM;CheckBox;1;0')
    ValidateWithMask = True
    Left = 24
    Top = 201
  end
  object qryfrequency: TwwQuery
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'SELECT * FROM FREQUENCY'
      'ORDER BY FREQID')
    ValidateWithMask = True
    Left = 80
    Top = 201
  end
  object qryExusage: TwwQuery
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'SELECT A.USAGEID ,B.NAME ,C.CNAME ,C.PRICE ,A.ITEMQTY'
      '    FROM EXUSAGE A ,USAGE B ,ORDERCOST C'
      ' WHERE A.USAGEID = B.USAGEID '
      '       AND A.NAME = C.COSTID'
      'ORDER BY A.USAGEID ')
    ValidateWithMask = True
    Left = 184
    Top = 201
  end
  object qryMedtimes: TwwQuery
    OnCalcFields = qryMedtimesCalcFields
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'SELECT B.NAME ,A.*'
      '  FROM MEDITIMES A ,FREQUENCY B'
      ' WHERE A.TIMESID = B.FREQID')
    ValidateWithMask = True
    Left = 128
    Top = 201
    object qryMedtimesNAME: TStringField
      DisplayLabel = '次数'
      DisplayWidth = 10
      FieldName = 'NAME'
      Origin = 'PROJHISADT.MEDITIMES.TIMESID'
      FixedChar = True
      Size = 10
    end
    object qryMedtimesShrTime: TTimeField
      DisplayLabel = '时间点'
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'ShrTime'
      Calculated = True
    end
    object qryMedtimesRTIMES: TSmallintField
      DisplayLabel = '停医嘱剩余次数'
      DisplayWidth = 10
      FieldName = 'RTIMES'
      Origin = 'PROJHISADT.MEDITIMES.STIMES'
    end
    object qryMedtimesSTIMES: TSmallintField
      DisplayLabel = '开医嘱补发次数'
      DisplayWidth = 10
      FieldName = 'STIMES'
      Origin = 'PROJHISADT.FREQUENCY.NAME'
    end
    object qryMedtimesTIMESID: TSmallintField
      DisplayWidth = 10
      FieldName = 'TIMESID'
      Origin = 'PROJHISADT.MEDITIMES.TIMEPOINT'
      Visible = False
    end
    object qryMedtimesTIMEPOINT: TDateTimeField
      DisplayWidth = 18
      FieldName = 'TIMEPOINT'
      Origin = 'PROJHISADT.MEDITIMES.RTIMES'
      Visible = False
    end
  end
  object srcUsage: TwwDataSource
    DataSet = qryUsage
    Left = 24
    Top = 249
  end
  object srcFrequency: TwwDataSource
    DataSet = qryfrequency
    Left = 80
    Top = 249
  end
  object srcMedtimes: TwwDataSource
    DataSet = qryMedtimes
    Left = 128
    Top = 249
  end
  object srcExusage: TwwDataSource
    DataSet = qryExusage
    Left = 184
    Top = 250
  end
  object qryExcutepos: TwwQuery
    Active = True
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'SELECT A.* ,B.NAME'
      '  FROM EXCUTEPOS A ,DEPT B'
      ' WHERE A.DEPTNUM = B.NUM'
      'ORDER BY EXCUPLACE')
    ValidateWithMask = True
    Left = 240
    Top = 202
  end
  object srcExcutepos: TwwDataSource
    DataSet = qryExcutepos
    Left = 240
    Top = 250
  end
end