xymzquitm.dfm

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

object XyMzQuit: TXyMzQuit
  Left = 0
  Top = 56
  Width = 643
  Height = 360
  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
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 97
    Width = 635
    Height = 236
    Align = alClient
    BevelInner = bvLowered
    BorderStyle = bsSingle
    Caption = 'Panel1'
    TabOrder = 0
    object DBGrid3: TDBGrid
      Left = 2
      Top = 2
      Width = 627
      Height = 63
      Align = alTop
      DataSource = DataMzf1.XyMzXmQuitSource
      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
          Color = clInfoBk
          Expanded = False
          FieldName = 'xm_name'
          Title.Caption = '收费项目'
          Width = 106
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'hz_name'
          Title.Caption = '患者名'
          Width = 89
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'sk_man'
          Title.Caption = '收款人'
          Width = 84
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'hj_date'
          Title.Caption = '收款时间'
          Width = 118
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'qr_man'
          Title.Caption = '确认人'
          Width = 84
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'ys_money'
          Title.Caption = '应收额'
          Width = 81
          Visible = True
        end>
    end
    object DBGrid1: TDBGrid
      Left = 2
      Top = 65
      Width = 627
      Height = 165
      Align = alClient
      DataSource = DataMzf1.XyMzQuitSource
      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
          Color = clInfoBk
          Expanded = False
          FieldName = 'yp_name'
          Title.Caption = '药品名称'
          Width = 124
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'yp_spec'
          Title.Caption = '规格'
          Width = 74
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'yp_unit'
          Title.Caption = '单位'
          Width = 30
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'yp_batch'
          Title.Caption = '批号'
          Width = 48
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'sc_fact'
          Title.Caption = '生产厂'
          Width = 109
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'ls_price'
          Title.Caption = '零售单价'
          Width = 63
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'yp_amou'
          Title.Caption = '购买数量'
          Width = 60
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'qr_date'
          Title.Caption = '取药时间'
          Width = 72
          Visible = True
        end>
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 635
    Height = 33
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 631
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 618
      Height = 29
      ButtonHeight = 24
      ButtonWidth = 24
      Caption = 'ToolBar1'
      Images = ImageList1
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 2
        Hint = '复核用户登录'
        Caption = 'ToolButton1'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton1Click
      end
      object Panel2: TPanel
        Left = 24
        Top = 2
        Width = 145
        Height = 24
        TabOrder = 0
        object Label4: TLabel
          Left = 1
          Top = 3
          Width = 64
          Height = 16
          AutoSize = False
          Caption = '复核用户'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'