itemfeedtl.dfm

某大型医院护士站

object frmFeeDtl: TfrmFeeDtl
  Left = 63
  Top = 87
  BorderStyle = bsDialog
  Caption = '医嘱费用明细查询和冲正'
  ClientHeight = 416
  ClientWidth = 681
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object wwDBGrid1: TwwDBGrid
    Left = 0
    Top = 109
    Width = 681
    Height = 238
    Selected.Strings = (
      'COSTDATE'#9'10'#9'费用日期'
      'ITEMID'#9'8'#9'项目代号'
      'ITEMNAME'#9'20'#9'项目名称'
      'SPEC'#9'16'#9'规格'
      'PRICE'#9'10'#9'单价'
      'QTY'#9'6'#9'数量'
      'USEUNIT'#9'4'#9'单位'
      'OPNO'#9'6'#9'操作员'
      'FEETYPE'#9'4'#9'类型')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alTop
    Color = clWhite
    DataSource = DM.srcItemFeeDtl
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
    ReadOnly = True
    TabOrder = 0
    TitleAlignment = taCenter
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    OnDblClick = wwDBGrid1DblClick
    IndicatorColor = icBlack
  end
  object Panel4: TPanel
    Left = 0
    Top = 379
    Width = 681
    Height = 37
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object btnChgfee: TBitBtn
      Left = 499
      Top = 7
      Width = 80
      Height = 23
      Caption = '冲正'
      TabOrder = 0
      OnClick = btnChgfeeClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00559999999995
        5555557777777775F5555559999999505555555777777757FFF5555555555550
        0955555555555FF7775F55555555995501955555555577557F75555555555555
        01995555555555557F5755555555555501905555555555557F57555555555555
        0F905555555555557FF75555555555500005555555555557777555555555550F
        F05555555555557F57F5555555555008F05555555555F775F755555555570000
        05555555555775577555555555700007555555555F755F775555555570000755
        55555555775F77555555555700075555555555F75F7755555555570007555555
        5555577F77555555555500075555555555557777555555555555}
      NumGlyphs = 2
    end
    object btnClose: TBitBtn
      Left = 587
      Top = 7
      Width = 80
      Height = 23
      Caption = '关闭'
      TabOrder = 1
      Kind = bkClose
    end
    object DBNavigator1: TDBNavigator
      Left = 0
      Top = 0
      Width = 90
      Height = 22
      DataSource = DM.srcOrderItem
      VisibleButtons = [nbPrior, nbNext]
      Flat = True
      Hints.Strings = (
        '0000'
        '上一条医嘱'
        '下一条医嘱')
      TabOrder = 2
      OnClick = DBNavigator1Click
    end
  end
  object StaticText1: TStaticText
    Left = 0
    Top = 0
    Width = 681
    Height = 18
    Align = alTop
    Alignment = taCenter
    BorderStyle = sbsSunken
    Caption = '医嘱内容'
    Color = 15532031
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = [fsItalic]
    ParentColor = False
    ParentFont = False
    TabOrder = 2
  end
  object Panel1: TPanel
    Left = 0
    Top = 18
    Width = 681
    Height = 73
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object Label1: TLabel
      Left = 16
      Top = 14
      Width = 60
      Height = 12
      Caption = '开始时间：'
    end
    object Label2: TLabel
      Left = 16
      Top = 43
      Width = 60
      Height = 12
      Caption = '停止时间：'
    end
    object Label3: TLabel
      Left = 198
      Top = 14
      Width = 60
      Height = 12
      Caption = '项目名称：'
    end
    object DBText1: TDBText
      Left = 79
      Top = 13
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'STARTTIME'
      DataSource = DM.srcOrderItem
    end
    object DBText2: TDBText
      Left = 258
      Top = 13
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ITEMNAME'
      DataSource = DM.srcOrderItem
    end
    object DBText3: TDBText
      Left = 423
      Top = 13
      Width = 65
      Height = 17
      DataField = 'Spec'
      DataSource = DM.srcOrderItem
    end
    object DBText4: TDBText
      Left = 584
      Top = 13
      Width = 65
      Height = 17
      DataField = 'KINDID'
      DataSource = DM.srcOrderItem
    end
    object DBText5: TDBText
      Left = 79
      Top = 42
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ENDTIME'
      DataSource = DM.srcOrderItem
    end
    object DBText6: TDBText
      Left = 261
      Top = 42
      Width = 39
      Height = 17
      Alignment = taRightJustify
      DataField = 'DOSAGE'
      DataSource = DM.srcOrderItem
    end
    object DBText7: TDBText
      Left = 304
      Top = 42
      Width = 55
      Height = 17
      DataField = 'DOSEUNIT'
      DataSource = DM.srcOrderItem
    end
    object DBText8: TDBText
      Left = 423
      Top = 42
      Width = 65
      Height = 17
      DataField = 'USETIMESNAME'
      DataSource = DM.srcOrderItem
    end
    object Label5: TLabel
      Left = 384
      Top = 14
      Width = 36
      Height = 12
      Caption = '规格：'
    end
    object Label6: TLabel
      Left = 536
      Top = 14
      Width = 36
      Height = 12
      Caption = '配号：'
    end
    object Label7: TLabel
      Left = 219
      Top = 43
      Width = 36
      Height = 12
      Caption = '用量：'
    end
    object Label8: TLabel
      Left = 535
      Top = 43
      Width = 36
      Height = 12
      Caption = '用法：'
    end
    object Label9: TLabel
      Left = 383
      Top = 43
      Width = 36
      Height = 12
      Caption = '次数：'
    end
    object DBText9: TDBText
      Left = 584
      Top = 42
      Width = 65
      Height = 17
      DataField = 'USAGENAME'
      DataSource = DM.srcOrderItem
    end
  end
  object StaticText2: TStaticText
    Left = 0
    Top = 91
    Width = 681
    Height = 18
    Align = alTop
    Alignment = taCenter
    BorderStyle = sbsSunken
    Caption = '费用明细'
    Color = 14803455
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = [fsItalic]
    ParentColor = False
    ParentFont = False
    TabOrder = 4
  end
  object Panel3: TPanel
    Left = 0
    Top = 347
    Width = 681
    Height = 32
    Align = alTop
    Color = 12093300
    TabOrder = 5
    object Label4: TLabel
      Left = 17
      Top = 10
      Width = 70
      Height = 14
      Caption = '冲正日期：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 232
      Top = 9
      Width = 70
      Height = 14
      Caption = '冲正次数：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 363
      Top = 9
      Width = 14
      Height = 14
      Caption = '次'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object dtpChgDate: TDateTimePicker
      Left = 86
      Top = 4
      Width = 121
      Height = 22
      CalAlignment = dtaLeft
      Date = 37143.8919365741
      Time = 37143.8919365741
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object seChgNum: TSpinEdit
      Left = 304
      Top = 4
      Width = 51
      Height = 23
      MaxValue = 0
      MinValue = 0
      TabOrder = 1
      Value = 0
    end
    object cbBackMed: TCheckBox
      Left = 528
      Top = 8
      Width = 120
      Height = 17
      Caption = '需要退（领）药'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object cbIncExitem: TCheckBox
      Left = 408
      Top = 8
      Width = 102
      Height = 17
      Caption = '包括附加项目'
      Checked = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 3
    end
  end
  object qryNeedChgItem: TwwQuery
    DatabaseName = 'PROJHISADT'
    ValidateWithMask = True
    Left = 104
    Top = 211
  end
end