main.dfm

某大型医院护士站

object frmMain: TfrmMain
  Left = -2
  Top = -3
  Width = 804
  Height = 605
  Caption = '护士工作站管理系统'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  Menu = mmMain
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = BedRefreshActionExecute
  PixelsPerInch = 96
  TextHeight = 16
  object HisMsgBar: TfcStatusBar
    Left = 0
    Top = 538
    Width = 796
    Height = 21
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -17
    Font.Name = 'System'
    Font.Style = [fsBold]
    Panels = <
      item
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        Name = 'Panel0'
        Tag = 0
        Text = '操作员'
        TextOptions.Alignment = taCenter
        TextOptions.ShadeColor = clActiveBorder
        TextOptions.Style = fclsRaised
        TextOptions.VAlignment = vaVCenter
        Width = '80'
      end
      item
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        Name = 'Panel1'
        Tag = 0
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '100'
      end
      item
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        Name = 'Panel2'
        Style = psHint
        Tag = 0
        Text = '2001-7-14'
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '450'
      end
      item
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        Name = 'Panel3'
        Tag = 0
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '50'
      end
      item
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'System'
        Font.Style = [fsBold]
        Name = 'Panel4'
        Style = psDate
        Tag = 0
        Text = '2001-10-22'
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '50'
      end>
    ParentFont = False
    SimplePanel = False
    StatusBarText.CapsLock = 'Caps'
    StatusBarText.Overwrite = 'Overwrite'
    StatusBarText.NumLock = 'Num'
    StatusBarText.ScrollLock = 'Scroll'
  end
  object ListViewWard: TListView
    Left = 0
    Top = 30
    Width = 796
    Height = 508
    Align = alClient
    Columns = <
      item
        AutoSize = True
        Caption = '床位'
      end
      item
        Alignment = taCenter
        AutoSize = True
        Caption = '病区号'
      end
      item
        Alignment = taCenter
        AutoSize = True
        Caption = '床位号'
      end
      item
        Alignment = taCenter
        AutoSize = True
        Caption = '住院号'
      end
      item
        Alignment = taCenter
        AutoSize = True
        Caption = '病人姓名'
      end
      item
        Alignment = taCenter
        AutoSize = True
        Caption = '性别'
      end
      item
        Alignment = taCenter
        AutoSize = True
        Caption = '护理级别'
      end>
    DragMode = dmAutomatic
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -17
    Font.Name = 'System'
    Font.Style = [fsBold]
    IconOptions.AutoArrange = True
    LargeImages = ImageListBed
    ReadOnly = True
    ParentFont = False
    SmallImages = ImageListSmallBed
    TabOrder = 1
    OnChange = ListViewWardChange
    OnDblClick = ListViewWardDblClick
    OnEndDrag = ListViewWardEndDrag
    OnDragDrop = ListViewWardDragDrop
    OnDragOver = ListViewWardDragOver
    OnMouseDown = ListViewWardMouseDown
  end
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 796
    Height = 30
    Align = alTop
    AutoDock = False
    AutoDrag = False
    AutoSize = True
    TabOrder = 2
    object ToolPanel: TPanel
      Left = 11
      Top = 2
      Width = 582
      Height = 22
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object BtnBedOrderIn: TSpeedButton
        Left = 95
        Top = 0
        Width = 95
        Height = 22
        Action = OpenOrderAction
        Caption = '录入医嘱'
        Flat = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
          000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
          00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
          F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
          0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
          FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
          FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
          0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
          00333377737FFFFF773333303300000003333337337777777333}
        NumGlyphs = 2
        ParentFont = False
      end
      object BtnPatientIn: TSpeedButton
        Left = 0
        Top = 0
        Width = 95
        Height = 22
        Action = InWardAction
        Flat = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333FFF333333333333000333333333
          3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
          3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
          0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
          BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
          33337777773FF733333333333300033333333333337773333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        ParentFont = False
      end
      object BtnPatientOut: TSpeedButton
        Left = 381
        Top = 0
        Width = 94
        Height = 22
        Action = PatientOutAction
        Flat = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333333333333333333333333333333333333333333333FF333333333333
          3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
          E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
          E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
          E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00