mzkcm.dfm

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

object MzKc: TMzKc
  Left = 181
  Top = 280
  Width = 635
  Height = 366
  HorzScrollBar.Smooth = True
  VertScrollBar.Smooth = True
  Caption = #24211#23384#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel7: TPanel
    Left = 0
    Top = 33
    Width = 627
    Height = 306
    Align = alClient
    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 DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 619
      Height = 298
      Align = alClient
      DataSource = DataMzf1.KcSource
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'in_id'
          Title.Caption = #39564#25910#24207#21495
          Width = 53
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'yp_name'
          Title.Caption = #21517#31216
          Width = 99
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'yp_spec'
          Title.Caption = #35268#26684
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'yp_unit'
          Title.Caption = #21333#20301
          Width = 31
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sc_fact'
          Title.Caption = #29983#20135#21378
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'yp_batch'
          Title.Caption = #25209#21495
          Width = 49
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ls_price'
          Title.Caption = #38646#21806#20215
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'yp_amou'
          Title.Caption = #25968#37327
          Width = 47
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'je'
          Title.Caption = #37329#39069
          Width = 70
          Visible = True
        end>
    end
    object Panel14: TPanel
      Left = 105
      Top = 94
      Width = 292
      Height = 103
      TabOrder = 0
      Visible = False
      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 = DataMzf1.YpSource1
        ParentFont = False
        TabOrder = 0
        OnKeyPress = ListBox14KeyPress
      end
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 627
    Height = 33
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 244
      end
      item
        Break = False
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 29
        Width = 377
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 231
      Height = 29
      ButtonHeight = 29
      ButtonWidth = 24
      Caption = 'ToolBar1'
      Images = MainForm.ImageList2
      TabOrder = 0
      object Panel5: TPanel
        Left = 0
        Top = 2
        Width = 223
        Height = 29
        TabOrder = 0
        object RadioButton1: TRadioButton
          Left = 3
          Top = 4
          Width = 73
          Height = 17
          Caption = #22823#24211#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
        end
        object RadioButton2: TRadioButton
          Left = 76
          Top = 4
          Width = 73
          Height = 17
          Caption = #20303#38498#24211#23384
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object RadioButton3: TRadioButton
          Left = 148
          Top = 4
          Width = 73
          Height = 17
          Caption = #38376#35786#24211#23384
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
      end
    end
    object ToolBar2: TToolBar
      Left = 255
      Top = 0
      Width = 364
      Height = 29
      ButtonHeight = 25
      ButtonWidth = 24
      Caption = 'ToolBar1'
      Images = MainForm.ImageList2
      TabOrder = 1
      object ToolButton1: TToolButton
        Left = 0
        Top = 2
        Hint = #21047#26032
        Caption = 'bitbtn4'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = bitbtn4Click
      end
      object Panel4: TPanel
        Left = 24
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 0
      end
      object Panel8: TPanel
        Left = 27
        Top = 2
        Width = 3
        Height = 25
        TabOrder = 1
      end
      object Panel9: TPanel
        Left = 30
        Top = 2
        Width = 145
        Height = 25
        TabOrder = 2
        object Label1: 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 = 70
          Top = 1
          Width = 71
          Height = 24
          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
          TabOrder = 0
          OnKeyPress = Edit3KeyPress
        end
      end
    end
  end
end