main.dfm

某大型医院护士站

          000033333373FF77777733333330003333333333333777333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        ParentFont = False
      end
      object BtnWardSendmsg: TSpeedButton
        Left = 190
        Top = 0
        Width = 96
        Height = 22
        Action = SendMsgAction
        Caption = '指示发送'
        Flat = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500000000000
          000557777777777777750BBBBBBBBBBBBBB07F5555FFFFFFF5570BBBB0000000
          BBB07F5557777777FF570BBB077BBB770BB07F557755555775570BBBBBBBBBBB
          BBB07F5555FFFFFFF5570BBBB0000000BBB07F5557777777F5570BBBB0FFFFF0
          BBB07F5557FFFFF7F5570BBBB0000000BBB07F555777777755570BBBBBBBBBBB
          BBB07FFFFFFFFFFFFFF700000000000000007777777777777777500FFFFFFFFF
          F005577FF555FFFFF7755500FFF00000005555775FF7777777F5550F777FFFFF
          F055557F777FFF5557F5550000000FFF00555577777775FF77F5550777777000
          7055557FFFFFF777F7F555000000000000555577777777777755}
        NumGlyphs = 2
        ParentFont = False
      end
      object BtnRefresh: TSpeedButton
        Left = 475
        Top = 0
        Width = 98
        Height = 22
        Action = BedRefreshAction
        Flat = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
          333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
          0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
          07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
          0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
          33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
          B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
          3BB33773333773333773B333333B3333333B7333333733333337}
        NumGlyphs = 2
        ParentFont = False
      end
      object btnPrnOrder: TSpeedButton
        Left = 286
        Top = 0
        Width = 95
        Height = 22
        Action = PrnOrderAction
        Flat = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500000000000
          055557777777777775F508888888888880557F5FFFFFFFFFF75F080000000000
          88057577777777775F755080FFFFFF05088057F7FFFFFF7575F70000000000F0
          F08077777777775757F70FFFFFFFFF0F008075F5FF5FF57577F750F00F00FFF0
          F08057F775775557F7F750FFFFFFFFF0F08057FF5555555757F7000FFFFFFFFF
          0000777FF5FFFFF577770900F00000F000907F775777775777F7090FFFFFFFFF
          00907F7F555555557757000FFFFFFFFF0F00777F5FFF5FF57F77550F000F00FF
          0F05557F777577557F7F550FFFFFFFFF0005557F555FFFFF7775550FFF000000
          05555575FF777777755555500055555555555557775555555555}
        NumGlyphs = 2
        ParentFont = False
      end
    end
    object AreaPanel: TPanel
      Left = 606
      Top = 2
      Width = 183
      Height = 22
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Label1: TLabel
        Left = 10
        Top = 6
        Width = 24
        Height = 12
        Caption = '区域'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object dbcb_mDeptSub: TwwDBLookupCombo
        Left = 42
        Top = 1
        Width = 124
        Height = 20
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        DropDownAlignment = taLeftJustify
        LookupTable = DM.qryDeptSub
        LookupField = 'DEPTNAME'
        ParentFont = False
        TabOrder = 0
        AutoDropDown = False
        ShowButton = True
        AllowClearKey = False
        OnCloseUp = dbcb_mDeptSubCloseUp
      end
    end
  end
  object PopupBed: TPopupMenu
    Images = ImageListOther
    OnPopup = PopupBedPopup
    Left = 432
    Top = 48
    object ppPatientIn: TMenuItem
      Action = InWardAction
    end
    object ppPatientOut: TMenuItem
      Action = PatientOutAction
    end
    object ppBedChange: TMenuItem
      Caption = '转床(&B)'
    end
    object ppBlankBed: TMenuItem
      Action = BlankBedAction
    end
    object ppBedChangeDept: TMenuItem
      Action = ChgChargeAction
      Caption = '转科...(&K)'
    end
    object ppPatBorn: TMenuItem
      Action = BabyBornAction
    end
    object ppEmergency: TMenuItem
      Caption = '紧急发送...'
      OnClick = ppEmergencyClick
    end
    object ppPrnOutNote: TMenuItem
      Caption = '打印出院通知'
      OnClick = ppPrnOutNoteClick
    end
    object ppOutRecall: TMenuItem
      Action = OutRecallAction
    end
    object N36: TMenuItem
      Caption = '-'
    end
    object ppBedOrderIn: TMenuItem
      Action = OpenOrderAction
      Caption = '录入医嘱'
    end
    object ppBedOrderPrint: TMenuItem
      Action = PrnOrderAction
    end
    object ppFeeCheck: TMenuItem
      Caption = '费用查询'
      object ppIncludeRecp: TMenuItem
        Caption = '不包含处方'
        OnClick = ppIncludeRecpClick
      end
      object ppExcludeRecp: TMenuItem
        Caption = '包含处方'
        OnClick = ppExcludeRecpClick
      end
      object ppLocalWard: TMenuItem
        Caption = '本病区'
        OnClick = ppLocalWardClick
      end
    end
    object N38: TMenuItem
      Caption = '-'
    end
    object ppPatientData: TMenuItem
      Action = PatientProperty
      Caption = '病人属性...'
    end
    object mmBedProperty: TMenuItem
      Caption = '床位属性...'
      OnClick = mmBedPropertyClick
    end
    object N14: TMenuItem
      Caption = '-'
    end
    object ppOpenGreenpass: TMenuItem
      Caption = '开通出院通道'
    end
  end
  object PopupWard: TPopupMenu
    Left = 368
    Top = 47
    object ppWardLook: TMenuItem
      Caption = '查看(&V)'
      object ppWardLookLargeIcon: TMenuItem
        Caption = '大图标(&G)'
        Checked = True
        GroupIndex = 1
        RadioItem = True
      end
      object ppWardLookSmallIcon: TMenuItem
        Caption = '小图标(&M)'
        GroupIndex = 1
        RadioItem = True
      end
      object ppWardLookList: TMenuItem
        Caption = '列表(&L)'
        GroupIndex = 1
        RadioItem = True
      end
      object ppWardLookReport: TMenuItem
        Caption = '详细资料(&D)'
        GroupIndex = 1
        RadioItem = True
      end
    end
    object ppRefresh: TMenuItem
      Action = BedRefreshAction
    end
    object N41: TMenuItem
      Caption = '-'
    end
    object ppWardAdd: TMenuItem
      Caption = '加床(&A)'
    end
    object ppWardSendMsg: TMenuItem
      Action = SendMsgAction
    end
    object ppWardMedSt: TMenuItem
      Caption = '剩余药(&S)'
    end
    object N39: TMenuItem
      Caption = '-'
    end
    object ppWardInfo: TMenuItem
      Caption = '属性'
    end
  end
  object mmMain: TMainMenu