gzlquerym.dfm

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

object GzlQuery: TGzlQuery
  Left = 229
  Top = 148
  Width = 638
  Height = 383
  HorzScrollBar.Smooth = True
  VertScrollBar.Smooth = True
  Caption = #24037#20316#37327#26597#35810
  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
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel3: TPanel
    Left = 0
    Top = 60
    Width = 630
    Height = 296
    Align = alClient
    BevelInner = bvLowered
    BorderStyle = bsSingle
    Caption = 'Panel3'
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 478
      Height = 288
      Align = alClient
      DataSource = DataMzf2.Date_QrSource
      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 = []
      Visible = False
      Columns = <
        item
          Color = clNone
          Expanded = False
          FieldName = 'qrdate'
          Title.Caption = #26085#26399
          Width = 61
          Visible = True
        end
        item
          Color = clNone
          Expanded = False
          FieldName = 'qr_man'
          Title.Caption = #30830#35748#20154
          Width = 53
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fh_man'
          Title.Caption = #22797#26680#20154
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'amou'
          Title.Caption = #22788#26041#37327
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ysmoney'
          Title.Caption = #37329#39069
          Width = 79
          Visible = True
        end>
    end
    object DBGrid2: TDBGrid
      Left = 2
      Top = 2
      Width = 478
      Height = 288
      Align = alClient
      DataSource = DataMzf2.GzlSource
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      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 = 'qr_man'
          Title.Caption = #22995#21517
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'qr_amou'
          Title.Caption = #30830#35748#37327
          Width = 78
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fh_amou'
          Title.Caption = #22797#26680#37327
          Width = 71
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'COLUMN1'
          Title.Caption = #21512#35745#37327
          Width = 73
          Visible = True
        end>
    end
    object Panel5: TPanel
      Left = 480
      Top = 2
      Width = 144
      Height = 288
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 2
      object Button1: TButton
        Left = 32
        Top = 24
        Width = 57
        Height = 25
        Caption = #26597#35810
        TabOrder = 0
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 32
        Top = 64
        Width = 57
        Height = 25
        Caption = #25171#21360
        TabOrder = 1
        OnClick = Button2Click
      end
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 630
    Height = 60
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 206
      end
      item
        Break = False
        Control = ToolBar4
        ImageIndex = -1
        Width = 418
      end
      item
        Control = ToolBar5
        ImageIndex = -1
        Visible = False
        Width = 626
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 193
      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 = 24
          Height = 16
          Caption = #24320#22987
          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 = 24
          Height = 16
          Caption = #32467#26463
          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