?? 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -