medicalfrm.dfm

醫院管理 還不錯 醫院管理 還不錯 醫院管理 還不錯

          object lvInjection: TListView
            Left = 8
            Top = 135
            Width = 449
            Height = 81
            Columns = <
              item
                Caption = '注射方式'
                Width = 75
              end
              item
                Caption = '药品名称'
                Width = 75
              end
              item
                Caption = '药品数量'
                Width = 75
              end
              item
                Caption = '药品单位'
                Width = 75
              end
              item
                Caption = '药品单价'
                Width = 75
              end
              item
                Caption = '小计'
                Width = 65
              end>
            TabOrder = 5
            ViewStyle = vsReport
            OnDblClick = lvInjectionDblClick
          end
        end
        object tsOxygen: TTabSheet
          Caption = '氧气疗法'
          ImageIndex = 2
          object Label15: TLabel
            Left = 8
            Top = 24
            Width = 52
            Height = 13
            Caption = '开始时间'
          end
          object Label16: TLabel
            Left = 8
            Top = 56
            Width = 52
            Height = 13
            Caption = '结束时间'
          end
          object Label17: TLabel
            Left = 8
            Top = 96
            Width = 52
            Height = 13
            Caption = '氧气流量'
          end
          object dtpOxygenStartDate: TDateTimePicker
            Left = 72
            Top = 20
            Width = 100
            Height = 21
            CalAlignment = dtaLeft
            Date = 38173.0327513426
            Time = 38173.0327513426
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 0
          end
          object dtpOxygenStartTime: TDateTimePicker
            Left = 176
            Top = 20
            Width = 100
            Height = 21
            CalAlignment = dtaLeft
            Date = 38173.0327513426
            Time = 38173.0327513426
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkTime
            ParseInput = False
            TabOrder = 1
          end
          object dtpOxygenEndTime: TDateTimePicker
            Left = 176
            Top = 52
            Width = 100
            Height = 21
            CalAlignment = dtaLeft
            Date = 38173.0327513426
            Time = 38173.0327513426
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkTime
            ParseInput = False
            TabOrder = 3
          end
          object dtpOxygenEndDate: TDateTimePicker
            Left = 72
            Top = 52
            Width = 100
            Height = 21
            CalAlignment = dtaLeft
            Date = 38173.0327513426
            Time = 38173.0327513426
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 2
          end
          object edtStreamSize: TEdit
            Left = 72
            Top = 91
            Width = 209
            Height = 21
            TabOrder = 4
          end
        end
        object tsVaccination: TTabSheet
          Caption = '疫苗接种'
          ImageIndex = 3
          object Label18: TLabel
            Left = 8
            Top = 20
            Width = 52
            Height = 13
            Caption = '药品名称'
          end
          object Label19: TLabel
            Left = 200
            Top = 53
            Width = 52
            Height = 13
            Caption = '药品单位'
          end
          object Label20: TLabel
            Left = 8
            Top = 52
            Width = 52
            Height = 13
            Caption = '药品数量'
          end
          object Label21: TLabel
            Left = 8
            Top = 88
            Width = 52
            Height = 13
            Caption = '药品单价'
          end
          object lblTotal: TLabel
            Left = 200
            Top = 87
            Width = 116
            Height = 13
            Caption = '小计：  RMB 12.80'
            Transparent = True
          end
          object btnTotal: TSpeedButton
            Left = 376
            Top = 48
            Width = 41
            Height = 22
            Caption = '='
            Visible = False
            OnClick = btnTotalClick
          end
          object cboVaccinationDrug: TComboBox
            Left = 80
            Top = 16
            Width = 100
            Height = 21
            ItemHeight = 0
            TabOrder = 0
          end
          object cboVaccinationUnit: TComboBox
            Left = 272
            Top = 48
            Width = 100
            Height = 21
            ItemHeight = 0
            TabOrder = 3
          end
          object edtVaccinationNum: TEdit
            Left = 80
            Top = 48
            Width = 100
            Height = 21
            TabOrder = 1
            OnChange = edtVaccinationNumChange
          end
          object edtVaccinationPrice: TEdit
            Left = 80
            Top = 83
            Width = 100
            Height = 21
            TabOrder = 2
            OnChange = edtVaccinationNumChange
          end
        end
        object tsSickLeave: TTabSheet
          Caption = '病假'
          ImageIndex = 4
          object Label23: TLabel
            Left = 8
            Top = 16
            Width = 26
            Height = 13
            Caption = '天数'
          end
          object edtSickLeaveNum: TEdit
            Left = 48
            Top = 13
            Width = 121
            Height = 21
            TabOrder = 0
          end
        end
      end
      object chkPregnancy: TCheckBox
        Left = 128
        Top = 8
        Width = 73
        Height = 17
        Caption = '早孕测试'
        TabOrder = 2
      end
      object chkEkg: TCheckBox
        Left = 216
        Top = 8
        Width = 65
        Height = 17
        Caption = '心电图'
        TabOrder = 3
      end
      object chkWound: TCheckBox
        Left = 388
        Top = 8
        Width = 75
        Height = 17
        Caption = '清创包扎'
        TabOrder = 5
      end
      object chkSplint: TCheckBox
        Left = 312
        Top = 8
        Width = 72
        Height = 17
        Caption = '夹板固定'
        TabOrder = 4
      end
      object chkVaccination: TCheckBox
        Left = 128
        Top = 32
        Width = 76
        Height = 17
        Caption = '疫苗接种'
        TabOrder = 7
        OnClick = chkVaccinationClick
      end
      object chkReferral: TCheckBox
        Left = 312
        Top = 32
        Width = 73
        Height = 17
        Caption = '建议转诊'
        TabOrder = 9
      end
      object chkSickLeave: TCheckBox
        Left = 216
        Top = 32
        Width = 97
        Height = 17
        Caption = '病假'
        TabOrder = 8
        OnClick = chkSickLeaveClick
      end
      object chkOxygen: TCheckBox
        Left = 7
        Top = 32
        Width = 82
        Height = 17
        Caption = '氧气疗法'
        TabOrder = 6
        OnClick = chkOxygenClick
      end
    end
    object TabSheet5: TTabSheet
      Caption = '健康宣教'
      ImageIndex = 4
      object mmoHealthEdu: TRichEdit
        Left = 8
        Top = 16
        Width = 457
        Height = 265
        TabOrder = 0
      end
    end
    object TabSheet6: TTabSheet
      Caption = '备注信息'
      ImageIndex = 5
      object mmoRemark: TRichEdit
        Left = 8
        Top = 16
        Width = 457
        Height = 265
        TabOrder = 0
      end
    end
  end
  object btnOk: TButton
    Left = 280
    Top = 368
    Width = 75
    Height = 25
    Caption = '确认(&O)'
    ModalResult = 1
    TabOrder = 1
  end
  object btnCancel: TButton
    Left = 376
    Top = 368
    Width = 75
    Height = 25
    Caption = '取消(&C)'
    ModalResult = 2
    TabOrder = 2
  end
end