zbquerym.~dfm

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

object ZbQuery: TZbQuery
  Left = 21
  Top = 119
  Width = 638
  Height = 383
  HorzScrollBar.Smooth = True
  VertScrollBar.Smooth = True
  Caption = '西药大库明细账'
  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
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel4: TPanel
    Left = 0
    Top = 60
    Width = 630
    Height = 296
    Align = alClient
    BevelInner = bvLowered
    BorderStyle = bsSingle
    Caption = 'Panel3'
    TabOrder = 2
    object DBGrid2: TDBGrid
      Left = 2
      Top = 2
      Width = 622
      Height = 288
      Align = alClient
      DataSource = DataMzf1.MxzSource
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'jcdate'
          Title.Caption = '时间'
          Width = 43
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'mark'
          Title.Caption = '摘要'
          Width = 77
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'rzamou'
          Title.Caption = '收方数量'
          Width = 52
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'rzprice'
          Title.Caption = '收方价'
          Width = 53
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'rzmoney'
          Title.Caption = '收方金额'
          Width = 53
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'outamou'
          Title.Caption = '付方数量'
          Width = 52
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'outprice'
          Title.Caption = '付方价'
          Width = 48
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'outmoney'
          Title.Caption = '付方金额'
          Width = 53
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'jcamou'
          Title.Caption = '结存量'
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'jcprice'
          Title.Caption = '结存价'
          Width = 53
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'jcmoney'
          Title.Caption = '结存额'
          Width = 56
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'inid'
          Title.Caption = '验收序号'
          Width = 52
          Visible = True
        end>
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 630
    Height = 60
    AutoSize = True
    Bands = <
      item
        Control = ToolBar3
        ImageIndex = -1
        Width = 71
      end
      item
        Break = False
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 134
      end
      item
        Break = False
        Control = ToolBar5
        ImageIndex = -1
        Width = 417
      end
      item
        Control = ToolBar2
        ImageIndex = -1
        Width = 626
      end>
    object ToolBar1: TToolBar
      Left = 82
      Top = 0
      Width = 121
      Height = 29
      ButtonHeight = 24
      ButtonWidth = 24
      Caption = 'ToolBar1'
      TabOrder = 0
      object Panel2: TPanel
        Left = 0
        Top = 2
        Width = 101
        Height = 24
        TabOrder = 0
        object Label4: TLabel
          Left = 1
          Top = 5
          Width = 26
          Height = 16
          Caption = '日期'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DateTimePicker3: TDateTimePicker
          Left = 29
          Top = 3
          Width = 69
          Height = 18
          Hint = '截止日期'
          CalAlignment = dtaLeft
          Date = 36714.9999884259
          Time = 36714.9999884259
          DateFormat = dfShort
          DateMode = dmComboBox
          Enabled = False
          Kind = dtkDate
          ParseInput = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
        end
        object DateTimePicker1: TDateTimePicker
          Left = 75
          Top = 3
          Width = 22
          Height = 18
          Hint = '截止日期'
          CalAlignment = dtaLeft
          Date = 36714.9999884259
          Time = 36714.9999884259
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnChange = DateTimePicker1Change
        end
      end
    end
    object ToolBar5: TToolBar
      Left = 218
      Top = 2
      Width = 404
      Height = 25
      Caption = 'ToolBar3'
      TabOrder = 1
      object Panel5: TPanel
        Left = 0
        Top = 2
        Width = 90
        Height = 22
        Caption = 'Panel5'
        TabOrder = 0
        object Label6: TLabel
          Left = 3
          Top = 1
          Width = 39
          Height = 16
          Caption = '输入码'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Edit1: TEdit
          Left = 42
          Top = 1
          Width = 46
          Height = 21
          Hint = '药品输入码'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnKeyPress = Edit1KeyPress
        end
      end
    end
    object ToolBar2: TToolBar
      Left = 9
      Top = 31
      Width = 613
      Height = 25
      Images = ImageList1
      TabOrder = 2
      object Panel1: TPanel
        Left = 0
        Top = 2
        Width = 331
        Height = 22
        TabOrder = 0
        object Label1: TLabel
          Left = 1
          Top = 5
          Width = 26
          Height = 16
          Caption = '名称'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 159
          Top = 5
          Width = 26
          Height = 16
          Caption = '规格'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 264
          Top = 4
          Width = 26
          Height = 16
          Caption = '单位'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBEdit1: TDBEdit
          Left = 28
          Top = 1
          Width = 132
          Height = 21
          DataField = 'yp_name'
          DataSource = DataMzf1.XySource
          ReadOnly = True
          TabOrder = 0
        end
        object DBEdit2: TDBEdit
          Left = 187
          Top = 1
          Width = 76
          Height = 21
          DataField = 'yp_spec'
          DataSource = DataMzf1.XySource
          ReadOnly = True
          TabOrder = 1
        end
        object DBEdit3: TDBEdit
          Left = 291