chgexitem.dfm

某大型医院护士站

object frmChgExitem: TfrmChgExitem
  Left = 115
  Top = 206
  ActiveControl = seChgNum
  BorderStyle = bsDialog
  Caption = '附加项目费用调整'
  ClientHeight = 117
  ClientWidth = 581
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 83
    Width = 581
    Height = 34
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object btnChgfee: TBitBtn
      Left = 403
      Top = 7
      Width = 80
      Height = 23
      Caption = '冲正'
      TabOrder = 0
      OnClick = btnChgfeeClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00559999999995
        5555557777777775F5555559999999505555555777777757FFF5555555555550
        0955555555555FF7775F55555555995501955555555577557F75555555555555
        01995555555555557F5755555555555501905555555555557F57555555555555
        0F905555555555557FF75555555555500005555555555557777555555555550F
        F05555555555557F57F5555555555008F05555555555F775F755555555570000
        05555555555775577555555555700007555555555F755F775555555570000755
        55555555775F77555555555700075555555555F75F7755555555570007555555
        5555577F77555555555500075555555555557777555555555555}
      NumGlyphs = 2
    end
    object btnClose: TBitBtn
      Left = 491
      Top = 7
      Width = 80
      Height = 23
      Caption = '关闭'
      TabOrder = 1
      Kind = bkClose
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 581
    Height = 42
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvNone
    Color = 12093300
    TabOrder = 1
    object Label4: TLabel
      Left = 21
      Top = 15
      Width = 70
      Height = 14
      Caption = '冲正日期：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 233
      Top = 16
      Width = 70
      Height = 14
      Caption = '冲正数量：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object lbUseUnit: TLabel
      Left = 388
      Top = 16
      Width = 28
      Height = 14
      Caption = '单位'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object dtpExitemChgDate: TDateTimePicker
      Left = 85
      Top = 11
      Width = 121
      Height = 22
      CalAlignment = dtaLeft
      Date = 37143.8919365741
      Time = 37143.8919365741
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object seChgNum: TSpinEdit
      Left = 299
      Top = 11
      Width = 81
      Height = 23
      MaxValue = 0
      MinValue = 0
      TabOrder = 1
      Value = 0
    end
    object cbBackMed: TCheckBox
      Left = 440
      Top = 14
      Width = 120
      Height = 17
      Caption = '需要退（领）药'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 581
    Height = 41
    Align = alTop
    TabOrder = 2
    object Label1: TLabel
      Left = 52
      Top = 13
      Width = 101
      Height = 19
      Caption = '收费项目：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -19
      Font.Name = '宋体'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object lbExitemName: TLabel
      Left = 154
      Top = 13
      Width = 133
      Height = 19
      Caption = 'lbExitemName'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -19
      Font.Name = '宋体'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 394
      Top = 16
      Width = 42
      Height = 14
      Caption = '单价：'
    end
    object lbPrice: TLabel
      Left = 427
      Top = 16
      Width = 49
      Height = 14
      Alignment = taRightJustify
      Caption = 'lbPrice'
    end
  end
end