xymzrefem.~dfm

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

object XyMzRefe: TXyMzRefe
  Left = 18
  Top = 63
  Width = 631
  Height = 356
  HorzScrollBar.Smooth = True
  VertScrollBar.Smooth = True
  Caption = #21046#21058#33647#21697#20215#26684#32500#25252
  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 = 202
    Top = 42
    Width = 200
    Height = 24
    Caption = #21046#21058#33647#21697#20215#26684#32500#25252
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -24
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 41
    Top = 72
    Width = 521
    Height = 246
    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 = 9
      Top = 7
      Width = 490
      Height = 18
      TabOrder = 2
      object Label4: TLabel
        Left = 222
        Top = 1
        Width = 109
        Height = 16
        AutoSize = False
        Caption = '         '#35268#26684
        Color = clBackground
        ParentColor = False
      end
      object Label3: TLabel
        Left = 11
        Top = 1
        Width = 209
        Height = 16
        AutoSize = False
        Caption = '              '#33647#21697#21517#31216
        Color = clBackground
        ParentColor = False
      end
      object Label5: TLabel
        Left = 333
        Top = 1
        Width = 35
        Height = 16
        AutoSize = False
        Caption = ' '#21333#20301
        Color = clBackground
        ParentColor = False
      end
      object Label6: TLabel
        Left = 370
        Top = 1
        Width = 103
        Height = 16
        AutoSize = False
        Caption = '      '#38646#21806#20215
        Color = clBackground
        ParentColor = False
      end
    end
    object DBCtrlGrid1: TDBCtrlGrid
      Left = 9
      Top = 25
      Width = 488
      Height = 210
      AllowDelete = False
      AllowInsert = False
      ColCount = 1
      DataSource = DataMzf.XyReSource
      PanelHeight = 21
      PanelWidth = 472
      ParentShowHint = False
      TabOrder = 0
      TabStop = False
      RowCount = 10
      SelectedColor = clHighlight
      ShowHint = False
      object DBEdit4: TDBEdit
        Left = 369
        Top = -1
        Width = 104
        Height = 24
        CharCase = ecLowerCase
        DataField = 'ls_price'
        DataSource = DataMzf.XyReSource
        TabOrder = 0
        OnKeyPress = DBEdit4KeyPress
      end
      object DBEdit3: TDBEdit
        Left = 332
        Top = -1
        Width = 39
        Height = 24
        DataField = 'yp_unit'
        DataSource = DataMzf.XyReSource
        ReadOnly = True
        TabOrder = 3
      end
      object DBEdit2: TDBEdit
        Left = 220
        Top = -1
        Width = 114
        Height = 24
        DataField = 'yp_spec'
        DataSource = DataMzf.XyReSource
        ReadOnly = True
        TabOrder = 2
      end
      object DBEdit1: TDBEdit
        Left = 9
        Top = -1
        Width = 213
        Height = 24
        DataField = 'yp_name'
        DataSource = DataMzf.XyReSource
        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 = #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 Label11: 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 Label12: 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 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 = 'in_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 bitbtn4: TToolButton
        Left = 0
        Top = 2
        Hint = #21047#26032
        Caption = 'bitbtn4'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = bitbtn4Click
      end
      object Panel7: TPanel
        Left = 24
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 1
      end
      object Panel6: TPanel
        Left = 27
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 0
      end
      object bitbtn1: TToolButton
        Left = 30
        Top = 2
        Hint = #20445#23384
        Caption = 'bitbtn1'
        Enabled = False
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
        OnClick = bitbtn1Click
      end
      object bitbtn2: TToolButton
        Left = 54
        Top = 2
        Hint = #25918#24323#20462#25913
        Caption = 'bitbtn2'
        Enabled = False
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = bitbtn2Click
      end
      object Panel10: TPanel
        Left = 78
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 4
      end
      object Panel9: TPanel
        Left = 81
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 3
      end
      object bitbtn3: TToolButton
        Left = 84
        Top = 2
        Hint = #25171#21360
        Caption = 'bitbtn3'
        Enabled = False
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
        OnClick = bitbtn3Click
      end
      object Panel11: TPanel
        Left = 108
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 5
      end
      object Panel8: TPanel
        Left = 111
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 2
      end
      object Panel12: TPanel
        Left = 114
        Top = 2
        Width = 145
        Height = 25
        TabOrder = 6
        object Label2: TLabel
          Left = 3
          Top = 6
          Width = 60
          Height = 16
          Caption = #26597#35810#36755#20837#30721
          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 = #26597#30475#25351#23450#21697#21517#30340#20449#24687
          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