xymzinqr.dfm

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

object XyMzInVali: TXyMzInVali
  Left = 227
  Top = 203
  Width = 637
  Height = 357
  HorzScrollBar.Smooth = True
  VertScrollBar.Smooth = True
  Caption = #35199#33647#33647#25151#39046#33647#30830#35748
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 66
    Width = 629
    Height = 264
    Align = alClient
    BevelInner = bvLowered
    BorderStyle = bsSingle
    Caption = 'Panel1'
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 621
      Height = 256
      Hint = #30830#35748#21017#21452#20987
      Align = alClient
      DataSource = DataMzf.XyMzInSource
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      Columns = <
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'yp_name'
          Title.Caption = #33647#21697#21517#31216
          Width = 104
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'yp_spec'
          Title.Caption = #33647#21697#35268#26684
          Width = 53
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'yp_unit'
          Title.Caption = #21333#20301
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'sc_fact'
          Title.Caption = #29983#20135#21378#23478
          Width = 78
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'yp_batch'
          Title.Caption = #25209#21495
          Width = 51
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'ls_price'
          Title.Caption = #38646#21806#20215
          Width = 43
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'in_amou'
          ReadOnly = False
          Title.Caption = #39046#33647#37327
          Width = 52
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'in_man'
          Title.Caption = #39046#33647#20154
          Width = 49
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'in_date'
          Title.Caption = #39046#33647#26102#38388
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'qr_man'
          Title.Caption = #30830#35748#20154
          Width = 50
          Visible = True
        end>
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 629
    Height = 33
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 111
      end
      item
        Break = False
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 29
        Width = 512
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 98
      Height = 29
      ButtonHeight = 24
      ButtonWidth = 24
      Caption = 'ToolBar1'
      Images = MainForm.ImageList2
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 2
        Hint = #21047#26032
        Caption = 'ToolButton1'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton1Click
      end
      object ToolButton2: TToolButton
        Left = 24
        Top = 2
        Hint = #20445#23384
        Caption = 'ToolButton2'
        Enabled = False
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 48
        Top = 2
        Hint = #25918#24323#20462#25913
        Caption = 'ToolButton3'
        Enabled = False
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton3Click
      end
    end
    object ToolBar2: TToolBar
      Left = 122
      Top = 0
      Width = 499
      Height = 29
      ButtonHeight = 24
      ButtonWidth = 24
      Caption = 'ToolBar1'
      Images = MainForm.ImageList1
      TabOrder = 1
      object ToolButton4: TToolButton
        Left = 0
        Top = 2
        Hint = #30830#35748#29992#25143#30331#24405
        Caption = 'ToolButton1'
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton4Click
      end
      object Panel2: TPanel
        Left = 24
        Top = 2
        Width = 169
        Height = 24
        TabOrder = 0
        object Label4: TLabel
          Left = 1
          Top = 3
          Width = 64
          Height = 16
          AutoSize = False
          Caption = #30830#35748#29992#25143
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBEdit1: TDBEdit
          Left = 72
          Top = 1
          Width = 89
          Height = 21
          DataField = 'COLUMN1'
          DataSource = DataMzf.XyMzLsUserSource
          Enabled = False
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 0
        end
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 33
    Width = 629
    Height = 33
    Align = alTop
    BevelOuter = bvNone
    Caption = #33647#25151#20174#22823#24211#39046#33647#30830#35748
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
  end
end