xymzrefem.dfm

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

object XyMzRefe: TXyMzRefe
  Left = 60
  Top = 110
  Width = 631
  Height = 356
  HorzScrollBar.Smooth = True
  VertScrollBar.Smooth = True
  Caption = '西药门诊药局药品信息维护'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 170
    Top = 42
    Width = 301
    Height = 24
    Caption = '西药门诊药局药品信息维护'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 2
    Top = 82
    Width = 619
    Height = 242
    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 Panel3: TPanel
      Left = 5
      Top = 17
      Width = 600
      Height = 18
      TabOrder = 2
      object Label4: TLabel
        Left = 192
        Top = 1
        Width = 83
        Height = 16
        AutoSize = False
        Caption = '         规格'
        Color = clBackground
        ParentColor = False
      end
      object Label3: TLabel
        Left = 11
        Top = 1
        Width = 179
        Height = 16
        AutoSize = False
        Caption = '              药品名称'
        Color = clBackground
        ParentColor = False
      end
      object Label5: TLabel
        Left = 277
        Top = 1
        Width = 35
        Height = 16
        AutoSize = False
        Caption = '   单位'
        Color = clBackground
        ParentColor = False
      end
      object Label6: TLabel
        Left = 314
        Top = 1
        Width = 70
        Height = 16
        AutoSize = False
        Caption = '  最小库存量'
        Color = clBackground
        ParentColor = False
      end
      object Label7: TLabel
        Left = 427
        Top = 1
        Width = 30
        Height = 16
        AutoSize = False
        Caption = '值班'
        Color = clBackground
        ParentColor = False
      end
      object Label9: TLabel
        Left = 386
        Top = 2
        Width = 39
        Height = 16
        AutoSize = False
        Caption = '位置'
        Color = clBackground
        ParentColor = False
      end
      object Label8: TLabel
        Left = 459
        Top = 2
        Width = 46
        Height = 16
        AutoSize = False
        Caption = '值班量'
        Color = clBackground
        ParentColor = False
      end
      object Label13: TLabel
        Left = 507
        Top = 2
        Width = 76
        Height = 16
        AutoSize = False
        Caption = '售价'
        Color = clBackground
        ParentColor = False
      end
    end
    object DBCtrlGrid1: TDBCtrlGrid
      Left = 5
      Top = 34
      Width = 601
      Height = 189
      AllowDelete = False
      AllowInsert = False
      ColCount = 1
      PanelHeight = 21
      PanelWidth = 583
      ParentShowHint = False
      TabOrder = 0
      TabStop = False
      RowCount = 9
      SelectedColor = clHighlight
      ShowHint = False
      object DBEdit7: TDBEdit
        Left = 506
        Top = -1
        Width = 78
        Height = 24
        CharCase = ecLowerCase
        DataField = 'mzzb_price'
        TabOrder = 7
        OnKeyPress = DBEdit4KeyPress
      end
      object DBEdit6: TDBEdit
        Left = 457
        Top = -1
        Width = 51
        Height = 24
        CharCase = ecLowerCase
        DataField = 'mzzb_stor'
        TabOrder = 6
        OnKeyPress = DBEdit4KeyPress
      end
      object Panel4: TPanel
        Left = 424
        Top = -2
        Width = 35
        Height = 25
        BevelOuter = bvLowered
        BorderStyle = bsSingle
        Color = clHighlightText
        TabOrder = 4
        object DBCheckBox1: TDBCheckBox
          Left = 4
          Top = 2
          Width = 15
          Height = 16
          Color = clActiveBorder
          DataField = 'mz_day_iden'
          ParentColor = False
          TabOrder = 0
          ValueChecked = 'True'
          ValueUnchecked = 'False'
          OnMouseUp = DBCheckBox1MouseUp
        end
      end
      object DBEdit5: TDBEdit
        Left = 384
        Top = -1
        Width = 43
        Height = 24
        CharCase = ecLowerCase
        DataField = 'mz_tank'
        TabOrder = 5
        OnKeyPress = DBEdit4KeyPress
      end
      object DBEdit4: TDBEdit
        Left = 312
        Top = -1
        Width = 74
        Height = 24
        CharCase = ecLowerCase
        DataField = 'mzless_amou'
        TabOrder = 0
        OnKeyPress = DBEdit4KeyPress
      end
      object DBEdit3: TDBEdit
        Left = 275
        Top = -1
        Width = 39
        Height = 24
        DataField = 'yp_unit'
        ReadOnly = True
        TabOrder = 3
      end
      object DBEdit2: TDBEdit
        Left = 190
        Top = -1
        Width = 87
        Height = 24
        DataField = 'yp_spec'
        ReadOnly = True
        TabOrder = 2
      end
      object DBEdit1: TDBEdit
        Left = 9
        Top = -1
        Width = 183
        Height = 24
        DataField = 'yp_name'
        ReadOnly = True
        TabOrder = 1
      end
    end
    object Panel2: TPanel
      Left = 153
      Top = 54
      Width = 292
      Height = 103
      TabOrder = 1
      Visible = False
      OnEnter = Panel2Enter
      OnExit = Panel2Exit
      object Label10: 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 Label11: 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 Label12: 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 ListBox2: 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.YpSource
        ParentFont = False
        TabOrder = 0
        OnKeyPress = ListBox2KeyPress
      end
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 623
    Height = 33
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 619
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 606
      Height = 29
      ButtonHeight = 25
      ButtonWidth = 24
      Caption = 'ToolBar1'
      Images = MainForm.ImageList2
      TabOrder = 0
      object Panel5: TPanel
        Left = 0
        Top = 2
        Width = 74
        Height = 25
        TabOrder = 0
        object CheckBox1: TCheckBox
          Left = 2
          Top = 5
          Width = 71
          Height = 17
          Caption = '值班品名'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clHighlight
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = CheckBox1Click
        end
      end
      object bitbtn4: TToolButton
        Left = 74
        Top = 2
        Hint = '刷新'
        Caption = 'bitbtn4'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = bitbtn4Click
      end
      object Panel7: TPanel
        Left = 98
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 2
      end
      object Panel6: TPanel
        Left = 101
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 1
      end
      object bitbtn1: TToolButton
        Left = 104
        Top = 2
        Hint = '保存'
        Caption = 'bitbtn1'
        Enabled = False
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
        OnClick = bitbtn1Click
      end
      object bitbtn2: TToolButton
        Left = 128
        Top = 2
        Hint = '放弃修改'
        Caption = 'bitbtn2'
        Enabled = False
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = bitbtn2Click
      end
      object Panel10: TPanel
        Left = 152
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 5
      end
      object Panel9: TPanel
        Left = 155
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 4
      end
      object bitbtn3: TToolButton
        Left = 158
        Top = 2
        Hint = '打印'
        Caption = 'bitbtn3'
        Enabled = False
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
        OnClick = bitbtn3Click
      end
      object Panel11: TPanel
        Left = 182
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 6
      end
      object Panel8: TPanel
        Left = 185
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 3
      end
      object Panel12: TPanel
        Left = 188
        Top = 2
        Width = 145
        Height = 25
        TabOrder = 7
        object Label2: TLabel
          Left = 3
          Top = 6
          Width = 65
          Height = 16
          Caption = '查询输入码'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clHighlight
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Edit1: TEdit
          Left = 69
          Top = 1
          Width = 73
          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 = Edit1KeyPress
        end
      end
    end
  end
end