medicalfrm.dfm

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

inherited frmMedical: TfrmMedical
  Left = 174
  Top = 143
  Caption = 'frmMedical'
  ClientHeight = 405
  ClientWidth = 521
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 16
    Top = 16
    Width = 489
    Height = 337
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '基本信息'
      object Label1: TLabel
        Left = 16
        Top = 32
        Width = 52
        Height = 13
        Caption = '就诊时间'
      end
      object Label2: TLabel
        Left = 16
        Top = 72
        Width = 26
        Height = 13
        Caption = '主诉'
      end
      object dtpMedicalDate: TDateTimePicker
        Left = 80
        Top = 26
        Width = 105
        Height = 21
        CalAlignment = dtaLeft
        Date = 38169.9538673148
        Time = 38169.9538673148
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object mmoComplaint: TRichEdit
        Left = 80
        Top = 72
        Width = 393
        Height = 223
        TabOrder = 1
      end
    end
    object TabSheet2: TTabSheet
      Caption = '体查症状'
      ImageIndex = 1
      object mmoCheckUp: TRichEdit
        Left = 8
        Top = 16
        Width = 457
        Height = 265
        TabOrder = 0
      end
    end
    object TabSheet3: TTabSheet
      Caption = '诊断结果'
      ImageIndex = 2
      object mmoCheckResult: TRichEdit
        Left = 8
        Top = 16
        Width = 457
        Height = 265
        TabOrder = 0
      end
    end
    object TabSheet4: TTabSheet
      Caption = '处理结果'
      ImageIndex = 3
      object chkDrug: TCheckBox
        Left = 8
        Top = 8
        Width = 49
        Height = 17
        Caption = '用药'
        TabOrder = 0
        OnClick = chkDrugClick
      end
      object chkInjection: TCheckBox
        Left = 68
        Top = 8
        Width = 49
        Height = 17
        Caption = '注射'
        TabOrder = 1
        OnClick = chkInjectionClick
      end
      object PageControl2: TPageControl
        Left = -1
        Top = 54
        Width = 485
        Height = 258
        ActivePage = tsDrug
        TabOrder = 10
        object tsDrug: TTabSheet
          Caption = '用药'
          object Label3: TLabel
            Left = 8
            Top = 23
            Width = 52
            Height = 13
            Caption = '用药方式'
          end
          object Label4: TLabel
            Left = 200
            Top = 23
            Width = 52
            Height = 13
            Caption = '药品名称'
          end
          object Label5: TLabel
            Left = 200
            Top = 53
            Width = 52
            Height = 13
            Caption = '药品单位'
          end
          object Label6: TLabel
            Left = 8
            Top = 52
            Width = 52
            Height = 13
            Caption = '药品数量'
          end
          object Label7: TLabel
            Left = 8
            Top = 88
            Width = 52
            Height = 13
            Caption = '药品单价'
          end
          object btnDrugAdd: TSpeedButton
            Left = 8
            Top = 108
            Width = 23
            Height = 22
            Caption = '+'
            OnClick = btnDrugAddClick
          end
          object btnDrugDele: TSpeedButton
            Left = 32
            Top = 108
            Width = 23
            Height = 22
            Caption = '-'
            OnClick = btnDrugDeleClick
          end
          object cboDrugMode: TComboBox
            Left = 80
            Top = 19
            Width = 100
            Height = 21
            ItemHeight = 13
            TabOrder = 0
            Items.Strings = (
              '内服'
              '外用'
              '含服'
              '冲服')
          end
          object cboDrugName: TComboBox
            Left = 272
            Top = 16
            Width = 100
            Height = 21
            ItemHeight = 0
            TabOrder = 1
          end
          object cboDrugUnit: TComboBox
            Left = 272
            Top = 48
            Width = 100
            Height = 21
            ItemHeight = 0
            TabOrder = 3
          end
          object edtDrugNum: TEdit
            Left = 80
            Top = 48
            Width = 100
            Height = 21
            TabOrder = 2
          end
          object edtDrugPrice: TEdit
            Left = 80
            Top = 83
            Width = 100
            Height = 21
            TabOrder = 4
          end
          object lvDrug: 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>
            ReadOnly = True
            RowSelect = True
            TabOrder = 5
            ViewStyle = vsReport
            OnDblClick = lvDrugDblClick
          end
        end
        object tsInjection: TTabSheet
          Caption = '注射'
          ImageIndex = 1
          object Label9: TLabel
            Left = 8
            Top = 23
            Width = 52
            Height = 13
            Caption = '注射方式'
          end
          object Label10: TLabel
            Left = 200
            Top = 23
            Width = 52
            Height = 13
            Caption = '药品名称'
          end
          object Label11: TLabel
            Left = 200
            Top = 53
            Width = 52
            Height = 13
            Caption = '药品单位'
          end
          object Label12: TLabel
            Left = 8
            Top = 52
            Width = 52
            Height = 13
            Caption = '药品数量'
          end
          object Label13: TLabel
            Left = 8
            Top = 88
            Width = 52
            Height = 13
            Caption = '药品单价'
          end
          object btnInjectionAdd: TSpeedButton
            Left = 8
            Top = 108
            Width = 23
            Height = 22
            Caption = '+'
            OnClick = btnInjectionAddClick
          end
          object btnInjectionDele: TSpeedButton
            Left = 32
            Top = 108
            Width = 23
            Height = 22
            Caption = '-'
            OnClick = btnInjectionDeleClick
          end
          object cboInjectionMode: TComboBox
            Left = 80
            Top = 19
            Width = 100
            Height = 21
            Style = csDropDownList
            ItemHeight = 13
            TabOrder = 0
            Items.Strings = (
              '肌肉'
              '皮下'
              '静脉')
          end
          object cboInjectionDrug: TComboBox
            Left = 272
            Top = 16
            Width = 100
            Height = 21
            ItemHeight = 0
            TabOrder = 1
          end
          object cboInjectionDrugUnit: TComboBox
            Left = 272
            Top = 48
            Width = 100
            Height = 21
            ItemHeight = 0
            TabOrder = 3
          end
          object edtInjectionDrugNum: TEdit
            Left = 80
            Top = 48
            Width = 100
            Height = 21
            TabOrder = 2
          end
          object edtInjectionDrugPrice: TEdit
            Left = 80
            Top = 83
            Width = 100
            Height = 21
            TabOrder = 4
          end