mzkcm.~dfm

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

object MzKc: TMzKc
  Left = -38
  Top = 76
  Width = 635
  Height = 366
  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 Label31: TLabel
    Left = 248
    Top = 37
    Width = 151
    Height = 24
    Caption = '门诊库存信息'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Panel7: TPanel
    Left = 3
    Top = 68
    Width = 621
    Height = 261
    BevelInner = bvLowered
    BorderStyle = bsSingle
    Caption = 'Panel1'
    Color = clInactiveBorder
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Panel8: TPanel
      Left = 8
      Top = 17
      Width = 599
      Height = 18
      TabOrder = 1
      object Label11: TLabel
        Left = 198
        Top = 1
        Width = 79
        Height = 16
        AutoSize = False
        Caption = '         规格'
        Color = clBackground
        ParentColor = False
      end
      object Label12: TLabel
        Left = 67
        Top = 1
        Width = 129
        Height = 16
        AutoSize = False
        Caption = '              药品名称'
        Color = clBackground
        ParentColor = False
      end
      object Label13: TLabel
        Left = 279
        Top = 1
        Width = 33
        Height = 16
        AutoSize = False
        Caption = '单位'
        Color = clBackground
        ParentColor = False
      end
      object Label15: TLabel
        Left = 561
        Top = 2
        Width = 36
        Height = 16
        AutoSize = False
        Caption = '值班卖'
        Color = clBackground
        ParentColor = False
      end
      object Label32: TLabel
        Left = 314
        Top = 1
        Width = 47
        Height = 16
        AutoSize = False
        Caption = '    批号'
        Color = clBackground
        ParentColor = False
      end
      object Label33: TLabel
        Left = 363
        Top = 1
        Width = 90
        Height = 17
        AutoSize = False
        Caption = '          生产厂'
        Color = clBackground
        ParentColor = False
      end
      object Label34: TLabel
        Left = 455
        Top = 1
        Width = 60
        Height = 16
        AutoSize = False
        Caption = '  零售价'
        Color = clBackground
        ParentColor = False
      end
      object Label35: TLabel
        Left = 517
        Top = 2
        Width = 42
        Height = 16
        AutoSize = False
        Caption = '    库存'
        Color = clBackground
        ParentColor = False
      end
      object Label1: TLabel
        Left = 9
        Top = 2
        Width = 56
        Height = 16
        AutoSize = False
        Caption = '验收序号'
        Color = clBackground
        ParentColor = False
      end
    end
    object DBCtrlGrid3: TDBCtrlGrid
      Left = 6
      Top = 34
      Width = 603
      Height = 210
      AllowDelete = False
      AllowInsert = False
      ColCount = 1
      DataSource = DataMzf1.XyKcWhSource
      PanelHeight = 21
      PanelWidth = 585
      ParentShowHint = False
      TabOrder = 0
      TabStop = False
      RowCount = 10
      SelectedColor = clHighlight
      ShowHint = False
      object Panel9: TPanel
        Left = 560
        Top = -2
        Width = 26
        Height = 25
        BevelOuter = bvLowered
        BorderStyle = bsSingle
        Color = clCaptionText
        TabOrder = 3
        object DBCheckBox3: TDBCheckBox
          Left = 6
          Top = 3
          Width = 15
          Height = 15
          Color = clMenu
          DataField = 'firstday_iden'
          DataSource = DataMzf1.XyKcWhSource
          ParentColor = False
          ReadOnly = True
          TabOrder = 0
          ValueChecked = 'True'
          ValueUnchecked = 'False'
          OnMouseUp = DBCheckBox3MouseUp
        end
      end
      object DBEdit21: TDBEdit
        Left = 516
        Top = -1
        Width = 47
        Height = 24
        CharCase = ecLowerCase
        DataField = 'mz_amou'
        DataSource = DataMzf1.XyKcWhSource
        ReadOnly = True
        TabOrder = 7
      end
      object DBEdit20: TDBEdit
        Left = 453
        Top = -1
        Width = 66
        Height = 24
        CharCase = ecLowerCase
        DataField = 'ls_price'
        DataSource = DataMzf1.XyKcWhSource
        ReadOnly = True
        TabOrder = 6
      end
      object DBEdit19: TDBEdit
        Left = 362
        Top = -1
        Width = 95
        Height = 24
        DataField = 'sc_fact'
        DataSource = DataMzf1.XyKcWhSource
        ReadOnly = True
        TabOrder = 5
      end
      object DBEdit18: TDBEdit
        Left = 312
        Top = -1
        Width = 53
        Height = 24
        DataField = 'yp_batch'
        DataSource = DataMzf1.XyKcWhSource
        ReadOnly = True
        TabOrder = 4
      end
      object DBEdit10: TDBEdit
        Left = 279
        Top = -1
        Width = 37
        Height = 24
        DataField = 'yp_unit'
        DataSource = DataMzf1.XyKcWhSource
        ReadOnly = True
        TabOrder = 2
      end
      object DBEdit11: TDBEdit
        Left = 198
        Top = -1
        Width = 83
        Height = 24
        DataField = 'yp_spec'
        DataSource = DataMzf1.XyKcWhSource
        ReadOnly = True
        TabOrder = 1
      end
      object DBEdit12: TDBEdit
        Left = 67
        Top = -1
        Width = 133
        Height = 24
        DataField = 'yp_name'
        DataSource = DataMzf1.XyKcWhSource
        ReadOnly = True
        TabOrder = 0
      end
      object DBEdit1: TDBEdit
        Left = 10
        Top = -1
        Width = 59
        Height = 24
        DataField = 'in_id'
        DataSource = DataMzf1.XyKcWhSource
        ReadOnly = True
        TabOrder = 8
      end
    end
    object Panel14: TPanel
      Left = 105
      Top = 94
      Width = 292
      Height = 103
      TabOrder = 2
      Visible = False
      OnExit = Panel14Exit
      object Label37: TLabel
        Left = 4
        Top = 3
        Width = 131
        Height = 13
        AutoSize = False
        Caption = '药品名称'
        Color = clHighlight
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label38: TLabel
        Left = 136
        Top = 3
        Width = 87
        Height = 13
        AutoSize = False
        Caption = '规格'
        Color = clHighlight
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label39: TLabel
        Left = 224
        Top = 3
        Width = 65
        Height = 13
        AutoSize = False
        Caption = '单位'
        Color = clHighlight
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object ListBox14: TDBLookupListBox
        Left = 2
        Top = 17
        Width = 288
        Height = 84
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        KeyField = 'yp_id'
        ListField = 'yp_name;yp_spec;yp_unit'
        ListSource = DataMzf.YpSource1
        ParentFont = False
        TabOrder = 0
        OnKeyPress = ListBox14KeyPress
      end
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 627
    Height = 33
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 623
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 610
      Height = 29
      ButtonHeight = 25
      ButtonWidth = 24
      Caption = 'ToolBar1'
      Images = MainForm.ImageList2
      TabOrder = 0
      object Panel5: TPanel
        Left = 0
        Top = 2
        Width = 275
        Height = 25
        TabOrder = 7
        Visible = False
        object RadioButton1: TRadioButton
          Left = 3
          Top = 4
          Width = 73
          Height = 17
          Caption = '全部库存'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = RadioButton1Click
        end
        object RadioButton2: TRadioButton
          Left = 74
          Top = 4
          Width = 73
          Height = 17
          Caption = '值班品种'
          Checked = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          TabStop = True
          OnClick = RadioButton1Click
        end
        object RadioButton3: TRadioButton
          Left = 146
          Top = 4
          Width = 57
          Height = 17
          Caption = '负库存'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = RadioButton1Click
        end
        object RadioButton4: TRadioButton
          Left = 203
          Top = 4
          Width = 71
          Height = 17
          Caption = '值班维护'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = RadioButton1Click
        end
      end
      object bitbtn4: TToolButton
        Left = 275
        Top = 2
        Hint = '刷新'
        Caption = 'bitbtn4'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = bitbtn4Click
      end
      object Panel1: TPanel
        Left = 299
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 1
        Visible = False
      end
      object Panel6: TPanel
        Left = 302
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 0
        Visible = False
      end
      object bitbtn1: TToolButton
        Left = 305
        Top = 2
        Hint = '保存'
        Caption = 'bitbtn1'
        Enabled = False
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
        Visible = False
        OnClick = BitBtn1Click
      end
      object bitbtn2: TToolButton
        Left = 329
        Top = 2
        Hint = '放弃修改'
        Caption = 'bitbtn2'
        Enabled = False
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        Visible = False
        OnClick = bitbtn2Click
      end
      object Panel10: TPanel
        Left = 353
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 4
        Visible = False
      end
      object Panel2: TPanel
        Left = 356
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 3
        Visible = False
      end
      object bitbtn3: TToolButton
        Left = 359
        Top = 2
        Hint = '打印'
        Caption = 'bitbtn3'
        Enabled = False
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
        Visible = False
        OnClick = bitbtn3Click
      end
      object Panel4: TPanel
        Left = 383
        Top = 2
        Width = 62
        Height = 25
        TabOrder = 8
        Visible = False
        object CheckBox1: TCheckBox
          Left = 2
          Top = 4
          Width = 58
          Height = 17
          Caption = '空白表'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
      end
      object Panel11: TPanel
        Left = 445
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 5
      end
      object Panel3: TPanel
        Left = 448
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 2
      end
      object Panel12: TPanel
        Left = 451
        Top = 2
        Width = 108
        Height = 25
        TabOrder = 6
        object Label2: TLabel
          Left = 3
          Top = 6
          Width = 39
          Height = 16
          Caption = '输入码'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clHighlight
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Edit3: TEdit
          Left = 42
          Top = 1
          Width = 63
          Height = 24
          Hint = '药品输入码'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnKeyPress = Edit3KeyPress
        end
      end
    end
  end
end