mzkcm.dfm

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

object MzKc: TMzKc
  Left = 205
  Top = 151
  Width = 643
  Height = 366
  HorzScrollBar.Smooth = True
  VertScrollBar.Smooth = True
  Caption = #38376#35786#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 Label31: TLabel
    Left = 248
    Top = 37
    Width = 150
    Height = 24
    Caption = #38376#35786#24211#23384#20449#24687
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -24
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Panel7: TPanel
    Left = 0
    Top = 68
    Width = 630
    Height = 261
    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 Panel8: TPanel
      Left = 5
      Top = 17
      Width = 612
      Height = 18
      TabOrder = 1
      object Label11: TLabel
        Left = 211
        Top = 1
        Width = 79
        Height = 16
        AutoSize = False
        Caption = '         '#35268#26684
        Color = clBackground
        ParentColor = False
      end
      object Label12: TLabel
        Left = 86
        Top = 1
        Width = 123
        Height = 16
        AutoSize = False
        Caption = '              '#33647#21697#21517#31216
        Color = clBackground
        ParentColor = False
      end
      object Label13: TLabel
        Left = 292
        Top = 1
        Width = 33
        Height = 16
        AutoSize = False
        Caption = #21333#20301
        Color = clBackground
        ParentColor = False
      end
      object Label15: TLabel
        Left = 574
        Top = 2
        Width = 36
        Height = 16
        AutoSize = False
        Caption = #20540#29677#21334
        Color = clBackground
        ParentColor = False
      end
      object Label32: TLabel
        Left = 327
        Top = 1
        Width = 47
        Height = 16
        AutoSize = False
        Caption = '    '#25209#21495
        Color = clBackground
        ParentColor = False
      end
      object Label33: TLabel
        Left = 376
        Top = 1
        Width = 90
        Height = 17
        AutoSize = False
        Caption = '          '#29983#20135#21378
        Color = clBackground
        ParentColor = False
      end
      object Label34: TLabel
        Left = 468
        Top = 1
        Width = 60
        Height = 16
        AutoSize = False
        Caption = '  '#38646#21806#20215
        Color = clBackground
        ParentColor = False
      end
      object Label35: TLabel
        Left = 530
        Top = 2
        Width = 42
        Height = 16
        AutoSize = False
        Caption = '    '#24211#23384
        Color = clBackground
        ParentColor = False
      end
      object Label1: TLabel
        Left = 7
        Top = 2
        Width = 40
        Height = 16
        AutoSize = False
        Caption = #39564#25910#21495
        Color = clBackground
        ParentColor = False
      end
      object Label3: TLabel
        Left = 49
        Top = 2
        Width = 35
        Height = 16
        AutoSize = False
        Caption = #26588#21495
        Color = clBackground
        ParentColor = False
      end
    end
    object DBCtrlGrid3: TDBCtrlGrid
      Left = 3
      Top = 34
      Width = 614
      Height = 210
      AllowDelete = False
      AllowInsert = False
      ColCount = 1
      DataSource = DataMzf1.XyKcWhSource
      PanelHeight = 21
      PanelWidth = 598
      ParentShowHint = False
      TabOrder = 0
      TabStop = False
      RowCount = 10
      SelectedColor = clHighlight
      ShowHint = False
      object Panel9: TPanel
        Left = 573
        Top = -2
        Width = 26
        Height = 25
        BevelOuter = bvLowered
        BorderStyle = bsSingle
        Color = clCaptionText
        TabOrder = 3
        object DBCheckBox3: TDBCheckBox
          Left = 4
          Top = 3
          Width = 16
          Height = 15
          Color = clMenu
          DataField = 'firstday_iden'
          DataSource = DataMzf1.XyKcWhSource
          ParentColor = False
          TabOrder = 0
          ValueChecked = 'True'
          ValueUnchecked = 'False'
          OnMouseUp = DBCheckBox3MouseUp
        end
      end
      object DBEdit21: TDBEdit
        Left = 529
        Top = -1
        Width = 47
        Height = 24
        CharCase = ecLowerCase
        DataField = 'mz_amou'
        DataSource = DataMzf1.XyKcWhSource
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ReadOnly = True
        TabOrder = 7
      end
      object DBEdit20: TDBEdit
        Left = 466
        Top = -1
        Width = 66
        Height = 24
        CharCase = ecLowerCase
        DataField = 'ls_price'
        DataSource = DataMzf1.XyKcWhSource
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ReadOnly = True
        TabOrder = 6
      end
      object DBEdit19: TDBEdit
        Left = 375
        Top = -1
        Width = 95
        Height = 24
        DataField = 'sc_fact'
        DataSource = DataMzf1.XyKcWhSource
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ReadOnly = True
        TabOrder = 5
      end
      object DBEdit18: TDBEdit
        Left = 325
        Top = -1
        Width = 53
        Height = 24
        DataField = 'yp_batch'
        DataSource = DataMzf1.XyKcWhSource
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ReadOnly = True
        TabOrder = 4
      end
      object DBEdit10: TDBEdit
        Left = 292
        Top = -1
        Width = 37
        Height = 24
        DataField = 'yp_unit'
        DataSource = DataMzf1.XyKcWhSource
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ReadOnly = True
        TabOrder = 2
      end
      object DBEdit11: TDBEdit
        Left = 211
        Top = -1
        Width = 83
        Height = 24
        DataField = 'yp_spec'
        DataSource = DataMzf1.XyKcWhSource
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ReadOnly = True
        TabOrder = 1
      end
      object DBEdit12: TDBEdit
        Left = 86
        Top = -1
        Width = 127
        Height = 24
        DataField = 'yp_name'
        DataSource = DataMzf1.XyKcWhSource
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ReadOnly = True
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 49
        Top = -1
        Width = 40
        Height = 24
        CharCase = ecLowerCase
        DataField = 'mz_tank'
        DataSource = DataMzf1.XyKcWhSource
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ReadOnly = True
        TabOrder = 9
      end
      object DBEdit1: TDBEdit
        Left = 7
        Top = -1
        Width = 44
        Height = 24
        CharCase = ecLowerCase
        DataField = 'in_id'
        DataSource = DataMzf1.XyKcWhSource
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ReadOnly = True
        TabOrder = 8
      end
    end
    object Panel14: TPanel
      Left = 105
      Top = 94
      Width = 292
      Height = 103
      TabOrder = 2
      Visible = False