xymzrefem.dfm

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

object XyMzRefe: TXyMzRefe
  Left = 23
  Top = 92
  Width = 631
  Height = 356
  HorzScrollBar.Smooth = True
  VertScrollBar.Smooth = True
  Caption = #35199#33647#38376#35786#33647#23616#33647#21697#20449#24687#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 = 170
    Top = 42
    Width = 300
    Height = 24
    Caption = #35199#33647#38376#35786#33647#23616#33647#21697#20449#24687#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 = 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 = '         '#35268#26684
        Color = clBackground
        ParentColor = False
      end
      object Label3: TLabel
        Left = 11
        Top = 1
        Width = 179
        Height = 16
        AutoSize = False
        Caption = '              '#33647#21697#21517#31216
        Color = clBackground
        ParentColor = False
      end
      object Label5: TLabel
        Left = 277
        Top = 1
        Width = 35
        Height = 16
        AutoSize = False
        Caption = '   '#21333#20301
        Color = clBackground
        ParentColor = False
      end
      object Label6: TLabel
        Left = 314
        Top = 1
        Width = 70
        Height = 16
        AutoSize = False
        Caption = '  '#26368#23567#24211#23384#37327
        Color = clBackground
        ParentColor = False
      end
      object Label7: TLabel
        Left = 427
        Top = 1
        Width = 30
        Height = 16
        AutoSize = False
        Caption = #20540#29677
        Color = clBackground
        ParentColor = False
      end
      object Label9: TLabel
        Left = 386
        Top = 2
        Width = 39
        Height = 16
        AutoSize = False
        Caption = #20301#32622
        Color = clBackground
        ParentColor = False
      end
      object Label8: TLabel
        Left = 459
        Top = 2
        Width = 46
        Height = 16
        AutoSize = False
        Caption = #20540#29677#37327
        Color = clBackground
        ParentColor = False
      end
      object Label13: TLabel
        Left = 507
        Top = 2
        Width = 76
        Height = 16
        AutoSize = False
        Caption = #21806#20215
        Color = clBackground
        ParentColor = False
      end
    end
    object DBCtrlGrid1: TDBCtrlGrid
      Left = 5
      Top = 34
      Width = 599
      Height = 189
      AllowDelete = False
      AllowInsert = False
      ColCount = 1
      DataSource = DataMzf1.XyReSource
      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'
        DataSource = DataMzf1.XyReSource
        TabOrder = 7
        OnKeyPress = DBEdit4KeyPress
      end
      object DBEdit6: TDBEdit
        Left = 457
        Top = -1
        Width = 51
        Height = 24
        CharCase = ecLowerCase
        DataField = 'mzzb_stor'
        DataSource = DataMzf1.XyReSource
        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'
          DataSource = DataMzf1.XyReSource
          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'
        DataSource = DataMzf1.XyReSource
        TabOrder = 5
        OnKeyPress = DBEdit4KeyPress
      end
      object DBEdit4: TDBEdit
        Left = 312
        Top = -1
        Width = 74
        Height = 24
        CharCase = ecLowerCase
        DataField = 'mzless_amou'
        DataSource = DataMzf1.XyReSource
        TabOrder = 0
        OnKeyPress = DBEdit4KeyPress
      end
      object DBEdit3: TDBEdit
        Left = 275
        Top = -1
        Width = 39
        Height = 24
        DataField = 'yp_unit'
        DataSource = DataMzf1.XyReSource
        ReadOnly = True
        TabOrder = 3
      end
      object DBEdit2: TDBEdit
        Left = 190
        Top = -1
        Width = 87
        Height = 24
        DataField = 'yp_spec'
        DataSource = DataMzf1.XyReSource
        ReadOnly = True
        TabOrder = 2
      end
      object DBEdit1: TDBEdit
        Left = 9
        Top = -1
        Width = 183
        Height = 24
        DataField = 'yp_name'
        DataSource = DataMzf1.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 = '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 = #20540#29677#21697#21517
          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 = #21047#26032
        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 = #20445#23384
        Caption = 'bitbtn1'
        Enabled = False
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
        OnClick = bitbtn1Click
      end
      object bitbtn2: TToolButton
        Left = 128
        Top = 2
        Hint = #25918#24323#20462#25913
        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 = #25171#21360
        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 = 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