mzkcm.dfm

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

      OnExit = Panel14Exit
      object Label37: TLabel
        Left = 4
        Top = 3
        Width = 131
        Height = 13
        AutoSize = False
        Caption = #33647#21697#21517#31216
        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 = #35268#26684
        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 = #21333#20301
        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 = []
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        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 = 635
    Height = 33
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 631
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 618
      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
        object RadioButton1: TRadioButton
          Left = 3
          Top = 4
          Width = 73
          Height = 17
          Caption = #20840#37096#24211#23384
          Checked = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TabStop = True
          OnClick = RadioButton1Click
        end
        object RadioButton2: TRadioButton
          Left = 74
          Top = 4
          Width = 73
          Height = 17
          Caption = #20540#29677#21697#31181
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = RadioButton1Click
        end
        object RadioButton3: TRadioButton
          Left = 146
          Top = 4
          Width = 57
          Height = 17
          Caption = #36127#24211#23384
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = RadioButton1Click
        end
        object RadioButton4: TRadioButton
          Left = 203
          Top = 4
          Width = 71
          Height = 17
          Caption = #20540#29677#32500#25252
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = RadioButton1Click
        end
      end
      object bitbtn4: TToolButton
        Left = 275
        Top = 2
        Hint = #21047#26032
        Caption = 'bitbtn4'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = bitbtn4Click
      end
      object Panel1: TPanel
        Left = 299
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 1
      end
      object Panel6: TPanel
        Left = 302
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 0
      end
      object bitbtn1: TToolButton
        Left = 305
        Top = 2
        Hint = #20445#23384
        Caption = 'bitbtn1'
        Enabled = False
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
        OnClick = BitBtn1Click
      end
      object bitbtn2: TToolButton
        Left = 329
        Top = 2
        Hint = #25918#24323#20462#25913
        Caption = 'bitbtn2'
        Enabled = False
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = bitbtn2Click
      end
      object Panel10: TPanel
        Left = 353
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 4
      end
      object Panel2: TPanel
        Left = 356
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 3
      end
      object bitbtn3: TToolButton
        Left = 359
        Top = 2
        Hint = #25171#21360
        Caption = 'bitbtn3'
        Enabled = False
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
        OnClick = bitbtn3Click
      end
      object Panel4: TPanel
        Left = 383
        Top = 2
        Width = 62
        Height = 25
        TabOrder = 8
        object CheckBox1: TCheckBox
          Left = 2
          Top = 4
          Width = 58
          Height = 17
          Caption = #31354#30333#34920
          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 = 36
          Height = 16
          Caption = #36755#20837#30721
          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 = #33647#21697#36755#20837#30721
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnKeyPress = Edit3KeyPress
        end
      end
    end
  end
end