outzwquerym.~dfm

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

object OutZwQuery: TOutZwQuery
  Left = 20
  Top = 53
  Width = 767
  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 = 241
    Width = 759
    Height = 115
    Align = alClient
    BevelInner = bvLowered
    BorderStyle = bsSingle
    Caption = 'Panel3'
    TabOrder = 3
    object DBGrid2: TDBGrid
      Left = 2
      Top = 2
      Width = 751
      Height = 107
      Align = alClient
      DataSource = DataMzf.OutZwSource
      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 = 'out_date'
          Title.Caption = '时间'
          Width = 74
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sc_fact'
          Title.Caption = '生产厂'
          Width = 137
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'yp_batch'
          Title.Caption = '批号'
          Width = 84
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ls_price'
          Title.Caption = '售价'
          Width = 103
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'out_amou'
          Title.Caption = '数量'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'cz_man'
          Title.Caption = '操作人'
          Width = 77
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'qr_man'
          Title.Caption = '确认人'
          Width = 59
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'corp_man'
          Title.Caption = '公司人'
          Width = 72
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 60
    Width = 759
    Height = 181
    Align = alTop
    BevelInner = bvLowered
    BorderStyle = bsSingle
    Caption = 'Panel3'
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 660
      Height = 173
      Align = alClient
      DataSource = DataMzf.OutZwHzSource
      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 = 'ypname'
          Title.Caption = '品名'
          Width = 161
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ypspec'
          Title.Caption = '规格'
          Width = 102
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ypunit'
          Title.Caption = '单位'
          Width = 47
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'inamou'
          Title.Caption = '数量'
          Width = 77
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'inmoney'
          Title.Caption = '金额'
          Width = 90
          Visible = True
        end>
    end
    object Panel7: TPanel
      Left = 662
      Top = 2
      Width = 91
      Height = 173
      Align = alRight
      TabOrder = 1
      object Button1: TButton
        Left = 18
        Top = 16
        Width = 57
        Height = 25
        Caption = '查询'
        TabOrder = 0
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 18
        Top = 48
        Width = 57
        Height = 25
        Caption = '打印'
        TabOrder = 1
        OnClick = Button2Click
      end
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 759
    Height = 60
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 214
      end
      item
        Break = False
        Control = ToolBar3
        ImageIndex = -1
        Width = 151
      end
      item
        Break = False
        Control = ToolBar4
        ImageIndex = -1
        Width = 386
      end
      item
        Control = ToolBar5
        ImageIndex = -1
        Width = 755
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 201
      Height = 29
      ButtonHeight = 24
      ButtonWidth = 24
      Caption = 'ToolBar1'
      TabOrder = 0
      object Panel2: TPanel
        Left = 0
        Top = 2
        Width = 193
        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 Label5: TLabel
          Left = 98
          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 = 26
          Top = 3
          Width = 69
          Height = 18
          CalAlignment = dtaLeft
          Date = 36714
          Time = 36714
          DateFormat = dfShort
          DateMode = dmComboBox
          Enabled = False
          Kind = dtkDate
          ParseInput = False
          TabOrder = 0
        end
        object DateTimePicker1: TDateTimePicker
          Left = 72
          Top = 3
          Width = 22
          Height = 18
          CalAlignment = dtaLeft
          Date = 36714
          Time = 36714
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 1
          OnChange = DateTimePicker1Change
        end
        object DateTimePicker4: TDateTimePicker
          Left = 123
          Top = 3
          Width = 67
          Height = 18
          CalAlignment = dtaLeft
          Date = 36714.9999884259
          Time = 36714.9999884259
          DateFormat = dfShort
          DateMode = dmComboBox
          Enabled = False
          Kind = dtkDate
          ParseInput = False
          TabOrder = 2
        end
        object DateTimePicker2: TDateTimePicker
          Left = 169
          Top = 3
          Width = 21
          Height = 18
          CalAlignment = dtaLeft
          Date = 36714.9999884259
          Time = 36714.9999884259
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 3
          OnChange = DateTimePicker2Change
        end
      end
    end
    object ToolBar3: TToolBar
      Left = 225
      Top = 2
      Width = 138
      Height = 25
      Caption = 'ToolBar3'
      Images = ImageList1
      ParentShowHint = False
      ShowHint = False
      TabOrder = 1
      object ToolButton1: TToolButton
        Left = 0
        Top = 2
        Hint = '清除'
        Caption = 'ToolButton1'
        ImageIndex = 0
        OnClick = ToolButton1Click
      end
      object Panel1: TPanel