xymzzjinquerym.~dfm

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

          Width = 24
          Height = 16
          Caption = #21058#22411
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Box1: TDBLookupComboBox
          Left = 29
          Top = 0
          Width = 77
          Height = 21
          KeyField = 'yp_classa'
          ListField = 'classa_name'
          ListSource = YpClassaSource2
          TabOrder = 0
        end
      end
    end
    object ToolBar5: TToolBar
      Left = 9
      Top = 31
      Width = 613
      Height = 25
      Caption = 'ToolBar3'
      Images = ImageList1
      TabOrder = 2
      object ToolButton3: TToolButton
        Left = 0
        Top = 2
        Hint = #28165#38500
        Caption = 'ToolButton2'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton3Click
      end
      object Panel5: TPanel
        Left = 23
        Top = 2
        Width = 344
        Height = 22
        Caption = 'Panel5'
        TabOrder = 0
        object Label7: TLabel
          Left = 283
          Top = 1
          Width = 24
          Height = 16
          Caption = #21333#20301
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 215
          Top = 1
          Width = 24
          Height = 16
          Caption = #35268#26684
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 84
          Top = 1
          Width = 24
          Height = 16
          Caption = #21697#21517
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 3
          Top = 1
          Width = 36
          Height = 16
          Caption = #36755#20837#30721
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Edit4: TEdit
          Left = 309
          Top = 1
          Width = 32
          Height = 21
          Enabled = False
          TabOrder = 0
        end
        object Edit3: TEdit
          Left = 241
          Top = 1
          Width = 42
          Height = 21
          Enabled = False
          TabOrder = 1
        end
        object Edit2: TEdit
          Left = 110
          Top = 1
          Width = 105
          Height = 21
          Enabled = False
          TabOrder = 2
        end
        object Edit1: TEdit
          Left = 42
          Top = 1
          Width = 42
          Height = 21
          TabOrder = 3
          OnKeyPress = Edit1KeyPress
        end
        object Edit5: TSpinEdit
          Left = 354
          Top = 1
          Width = 30
          Height = 22
          AutoSize = False
          MaxValue = 0
          MinValue = 0
          TabOrder = 4
          Value = 0
          Visible = False
        end
      end
    end
    object ToolBar4: TToolBar
      Left = 376
      Top = 2
      Width = 246
      Height = 25
      Images = ImageList1
      TabOrder = 3
      object ToolButton2: TToolButton
        Left = 0
        Top = 2
        Hint = #28165#38500
        Caption = 'ToolButton2'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton2Click
      end
      object Panel6: TPanel
        Left = 23
        Top = 2
        Width = 107
        Height = 22
        TabOrder = 0
        object Label2: TLabel
          Left = 1
          Top = 2
          Width = 24
          Height = 16
          Caption = #21151#33021
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Box2: TDBLookupComboBox
          Left = 27
          Top = -1
          Width = 77
          Height = 21
          KeyField = 'yp_class'
          ListField = 'class_name'
          ListSource = YpClassSource2
          TabOrder = 0
        end
      end
    end
  end
  object Panel12: TPanel
    Left = 195
    Top = 103
    Width = 292
    Height = 103
    TabOrder = 1
    Visible = False
    OnExit = Panel12Exit
    object Label9: 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 Label17: 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 Label18: 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 = 68
      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 = YpSource3
      ParentFont = False
      TabOrder = 0
      OnKeyPress = ListBox2KeyPress
    end
  end
  object ImageList1: TImageList
    Left = 528
    Top = 96
    Bitmap = {
      494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001002000000000000010
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF00D64A5A00D64A5A00D64A
      5A00D64A5A00D64A5A0021C65A000000000000000000C6FFFF00F7080000C6FF
      FF0021005A00F7CE5A000000000000000000C69C2100C6CE5A00000000000000
      0000C6DEF70021C65A000000000000000000C618FF00B55A5A0021C65A000000
      FF0021C65A0000000000000000000000000000000000000000000000FF00AD08
      6300C618630000000000000000000000000000000000000000000000FF00FFFF
      FF00FFFFFF00D64A5A00D64A5A00D64A5A0000000000BDBDBD0000000000BDBD
      BD0000000000BDBDBD0000000000BDBDBD0000000000BDBDBD0000000000BDBD
      BD0000000000BDBDBD0000000000BDBDBD00000000000000FF00B59C21002184
      210021C65A0000000000000000000000000000000000000000000000FF00AD08
      6300AD08630000000000000000000000000000000000000000000000FF00FFFF
      FF00FF5A5A00D64A5A00D64A5A00D64A5A00D64A5A00D64A5A0021C65A000000
      000000000000C6FFFF00FFDE5A00FF9C2100C6CE5A0000000000000000000000
      0000C69C2100C6CE5A000000000000000000C6FFFF0021C65A00000000000000
      000000000000C6DEF700D68C2100F78C2100BDBDBD007B7B7B007B7B7B007B7B
      7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B00000000000000
      00000000000000000000BDBDBD0000000000D64A5A002184210021C65A000000
      000000000000C6FFFF00D68C2100C6CE5A000000000000000000000000000000
      0000C69C2100C6CE5A000000000000000000C65A5A0021C65A00000000000000
      00000000000000000000C65A5A002184210021C65A0000000000000000000000
      00000000000000000000C6BD52000008000000A5520000080000000000000000
      000000000000000000000000FF00FFFFFF00D64A5A00D64A5A00D64A5A00D64A
      5A00D64A5A00D68C210021C65A000000000000000000BDBDBD007B7B7B007B7B
      7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B000000000000FFFF000000
      FF0000FFFF000000000000000000BDBDBD0021C65A0000000000000000000000
      000000000000C69C2100B5100000000000000000000000A55200000800000000
      000000000000000000000000FF00FF5A5A00D64A5A00D64A5A00D64A5A00D64A
      5A00D68C21002184210021C65A000000000000000000C65A5A00218421002100
      5A00F7080000000000000000000000000000C69C2100C6CE5A00000000000000
      0000C65A5A0021C65A000000000000000000000000000000FF00B5FFFF00D68C
      210021C65A00000000000000000000000000BDBDBD0000000000BDBDBD000000
      0000BDBDBD007B7B7B007B7B7B007B7B7B000000000000FFFF000000FF0000FF
      FF000000FF0000FFFF0000000000000000000000000000000000000000000000
      00000000000000000000000000000000000021005A00F7080000000000000000
      00000000FF00D68C2100F70800000000000000C65A00F7CE5A00F7CE5A00F7CE
      5A00F7CE5A000000000000000000000000000000FF00FFBD5200B51000000000
      00000000000000000000AD0863000000000000000000000000000000FF00FF5A
      5A00D64A5A00D64A5A00D64A5A00D68C2100218421002184210021C65A000000
      000000000000C6185A00C6085A00C6085A0000000000BDBDBD0000000000BDBD
      BD0000000000BDBDBD000000000000000000000000000000FF0000FFFF000000
      FF0000FFFF000000FF0000000000BDBDBD000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000BDBDBD0000000000BDBDBD000000
      0000BDBDBD0000000000000000000000000000000000000000000000FF0000FF
      FF000000FF0000FFFF0000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000422100000000000018000000000000004A2110008CFF
      FF004AE718004ADE7B004AEF180042D67B00100000000000000029316B008CFF
      FF0042000000000000000000000000000000184A3900E7EF52004ACE4A0021EF
      4A00BD6B5200E76B5200CE6B5200A5AD42006B8C5A009C0852007BEF4A00636B
      310094C6290029085A00290800000000000000000000BDBDBD0000000000BDBD
      BD000000000000000000000000000000FF000000000000000000000000000000
      FF0000FFFF000000000000000000BDBDBD000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000