ypomenm.~dfm

本文重点研究的是医院西药药房管理系统

object YpOmen: TYpOmen
  Left = 9
  Top = 70
  Width = 638
  Height = 383
  HorzScrollBar.Smooth = True
  VertScrollBar.Smooth = True
  Caption = '效期、库存报警'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel3: TPanel
    Left = 0
    Top = 64
    Width = 625
    Height = 281
    BevelInner = bvLowered
    BorderStyle = bsSingle
    Caption = 'Panel3'
    TabOrder = 0
    object DBGrid2: TDBGrid
      Left = 7
      Top = 10
      Width = 538
      Height = 255
      DataSource = DataMzf1.LifeOmenSource
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Visible = False
      Columns = <
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'yp_life'
          Title.Caption = '到效日期'
          Width = 60
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'yp_name'
          Title.Caption = '药品名称'
          Width = 126
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'yp_spec'
          Title.Caption = '规格'
          Width = 69
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'yp_unit'
          Title.Caption = '单位'
          Width = 32
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'sc_fact'
          Title.Caption = '生产厂'
          Width = 98
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'ls_price'
          Title.Caption = '零售单价'
          Width = 59
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'mz_amou'
          Title.Caption = '数量'
          Width = 51
          Visible = True
        end>
    end
    object Button1: TButton
      Left = 549
      Top = 16
      Width = 57
      Height = 25
      Caption = '查询'
      TabOrder = 0
      OnClick = Button1Click
    end
    object DBGrid1: TDBGrid
      Left = 10
      Top = 10
      Width = 503
      Height = 255
      DataSource = DataMzf1.KcOmenSource
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'yp_name'
          Title.Caption = '药品名称'
          Width = 139
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'yp_spec'
          Title.Caption = '规格'
          Width = 93
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'yp_unit'
          Title.Caption = '单位'
          Width = 47
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'mzless_amou'
          Title.Caption = '最小库存量'
          Width = 81
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'COLUMN1'
          Title.Caption = '当前库存量'
          Width = 96
          Visible = True
        end>
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 630
    Height = 56
    AutoSize = True
    Bands = <
      item
        Break = False
        Control = ToolBar4
        ImageIndex = -1
        Width = 626
      end
      item
        Control = ToolBar5
        ImageIndex = -1
        Visible = False
        Width = 626
      end>
    object ToolBar5: TToolBar
      Left = 9
      Top = 27
      Width = 613
      Height = 25
      ButtonHeight = 20
      ButtonWidth = 21
      Caption = 'ToolBar3'
      TabOrder = 0
      Visible = False
      object Panel4: TPanel
        Left = 0
        Top = 2
        Width = 121
        Height = 20
        TabOrder = 0
        object Label1: TLabel
          Left = 63
          Top = 2
          Width = 53
          Height = 13
          AutoSize = False
          Caption = '天内到效'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object SpinEdit1: TSpinEdit
          Left = 5
          Top = 1
          Width = 57
          Height = 22
          AutoSize = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clActiveCaption
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 1000
          MinValue = 1
          ParentFont = False
          TabOrder = 0
          Value = 1
        end
      end
    end
    object ToolBar4: TToolBar
      Left = 9
      Top = 0
      Width = 613
      Height = 25
      ButtonHeight = 21
      ButtonWidth = 22
      TabOrder = 1
      object Panel1: TPanel
        Left = 0
        Top = 2
        Width = 161
        Height = 21
        TabOrder = 0
        object RadioButton1: TRadioButton
          Left = 6
          Top = 2
          Width = 75
          Height = 17
          Caption = '库存报警'
          Checked = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TabStop = True
          OnClick = RadioButton1Click
        end
        object RadioButton2: TRadioButton
          Left = 80
          Top = 2
          Width = 73
          Height = 17
          Caption = '效期报警'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = RadioButton2Click
        end
      end
    end
  end
end