wardmed.dfm

某大型医院护士站

object frmWardMed: TfrmWardMed
  Left = -5
  Top = -2
  BorderStyle = bsDialog
  Caption = '病区药品管理'
  ClientHeight = 577
  ClientWidth = 801
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Splitter1: TSplitter
    Left = 97
    Top = 0
    Width = 3
    Height = 557
    Cursor = crHSplit
  end
  object obFuncNav: TfcOutlookBar
    Left = 0
    Top = 0
    Width = 97
    Height = 557
    ActivePage = obFuncNavfcShapeBtn1
    Align = alLeft
    Animation.Enabled = True
    Animation.Interval = 1
    Animation.Steps = 7
    AutoBold = False
    BevelOuter = bvNone
    BorderStyle = bsSingle
    ButtonSize = 20
    ButtonClassName = 'TfcShapeBtn'
    Layout = loVertical
    Options = [cboAutoCreateOutlookList]
    PanelAlignment = paDynamic
    ShowButtons = True
    TabOrder = 0
    object obFuncNavfcShapeBtn1: TfcShapeBtn
      Left = 0
      Top = 0
      Width = 93
      Height = 20
      Caption = '功能导航'
      Color = clBtnFace
      DitherColor = clWhite
      Down = True
      GroupIndex = 1
      NumGlyphs = 0
      ParentClipping = False
      RoundRectBias = 25
      ShadeStyle = fbsHighlight
      TabOrder = 0
      TextOptions.Alignment = taCenter
      TextOptions.VAlignment = vaVCenter
    end
    object TfcOutlookPanel
      Left = 0
      Top = 20
      Width = 93
      Height = 533
      object funcLst: TfcOutlookList
        Left = 0
        Top = 0
        Width = 93
        Height = 533
        Align = alClient
        BorderStyle = bsNone
        ClickStyle = csSelect
        Color = clBtnShadow
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        HotTrackStyle = hsIconHilite
        Images = ImageList1
        ItemHighlightColor = clBtnFace
        ItemHotTrackColor = clBtnShadow
        ItemLayout = blGlyphTop
        ItemShadowColor = clBtnText
        ItemSelectedDitherColor = clBtnHighlight
        Items = <
          item
            ImageIndex = 0
            Selected = True
            Separation = 10
            Tag = 0
            Text = '科室领药'
            OnClick = funcLstItems0Click
          end
          item
            ImageIndex = 1
            Selected = False
            Separation = 10
            Tag = 0
            Text = '科室退药'
            OnClick = funcLstItems1Click
          end
          item
            ImageIndex = 2
            Selected = False
            Separation = 10
            Tag = 0
            Text = '退药明细'
          end>
        ItemSpacing = 20
        ItemsWidth = 0
        Layout = loVertical
        ScrollButtonsVisible = True
        ScrollInterval = 250
        Transparent = False
      end
    end
  end
  object fcStatusBar1: TfcStatusBar
    Left = 0
    Top = 557
    Width = 801
    Height = 20
    Panels = <>
    SimplePanel = False
    SizeGrip = False
    StatusBarText.CapsLock = 'Caps'
    StatusBarText.Overwrite = 'Overwrite'
    StatusBarText.NumLock = 'Num'
    StatusBarText.ScrollLock = 'Scroll'
  end
  object pcWardMed: TPageControl
    Left = 100
    Top = 0
    Width = 701
    Height = 557
    ActivePage = tsWardMedIn
    Align = alClient
    TabOrder = 2
    object tsWardMedIn: TTabSheet
      Caption = '科室领药'
      TabVisible = False
      object wwDBGrid1: TwwDBGrid
        Left = 0
        Top = 89
        Width = 693
        Height = 458
        IniAttributes.Delimiter = ';;'
        TitleColor = clBtnFace
        FixedCols = 0
        ShowHorzScrollBar = True
        Align = alClient
        Color = 15532031
        DataSource = PRN_DM.srcWardMedin
        KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
        TabOrder = 0
        TitleAlignment = taCenter
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        TitleLines = 1
        TitleButtons = False
        OnCalcCellColors = wwDBGrid1CalcCellColors
        IndicatorColor = icBlack
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 693
        Height = 89
        Align = alTop
        BevelInner = bvSpace
        Color = 12093300
        TabOrder = 1
        object lbMedDate: TLabel
          Left = 12
          Top = 66
          Width = 70
          Height = 14
          Caption = '领药日期：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWhite
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object lbMedTitle: TfcLabel
          Left = 216
          Top = 16
          Width = 258
          Height = 41
          Caption = '科  室  领  药'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWhite
          Font.Height = -35
          Font.Name = '楷体_GB2312'
          Font.Style = []
          ParentFont = False
          TextOptions.Alignment = taLeftJustify
          TextOptions.ExtrudeEffects.Depth = 4
          TextOptions.ExtrudeEffects.Enabled = True
          TextOptions.OutlineColor = clNavy
          TextOptions.Style = fclsOutline
          TextOptions.VAlignment = vaTop
        end
        object dtp_MedinDate: TDateTimePicker
          Left = 81
          Top = 61
          Width = 105
          Height = 22
          CalAlignment = dtaLeft
          Date = 37114.7421311343
          Time = 37114.7421311343
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 0
          OnCloseUp = dtp_MedinDateCloseUp
        end
        object btnPrnWardMed: TBitBtn
          Left = 585
          Top = 59
          Width = 93
          Height = 24
          Caption = '打印'
          TabOrder = 1
          OnClick = btnPrnWardMedClick
        end
        object BitBtn2: TBitBtn
          Left = 490
          Top = 59
          Width = 94
          Height = 24
          Caption = '确认保存'
          TabOrder = 2
          OnClick = BitBtn2Click
        end
      end
      object lcbItemID: TwwDBLookupCombo
        Left = 96
        Top = 144
        Width = 121
        Height = 22
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'COSTID'#9'6'#9'项目代码'#9'F'
          'CNAME'#9'20'#9'中文名'#9'F'
          'SPEC'#9'16'#9'规格'#9'F'
          'PRICE'#9'10'#9'单价'#9'F'
          'MADEIN'#9'30'#9'产地'#9'F')
        LookupTable = DM.qryOrderCost
        LookupField = 'COSTID'
        Options = [loColLines, loRowLines]
        TabOrder = 2
        AutoDropDown = True
        ShowButton = True
        AllowClearKey = False
      end
      object wwDBLookupCombo1: TwwDBLookupCombo
        Left = 96
        Top = 176
        Width = 121
        Height = 22
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'NAME'#9'16'#9'NAME'#9'F'
          'EXCUPLACE'#9'10'#9'EXCUPLACE'#9'F')
        LookupTable = DM.ExcutePos
        LookupField = 'EXCUPLACE'
        Options = [loColLines, loRowLines]
        TabOrder = 3
        AutoDropDown = True
        ShowButton = True
        AllowClearKey = False
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'TabSheet3'
      ImageIndex = 2
      TabVisible = False
    end
    object TabSheet4: TTabSheet