www.pudn.com > 西南医院.rar > FrmAdd3.frm
VERSION 5.00
Begin VB.Form FrmAdd3
Caption = "用药添加"
ClientHeight = 5850
ClientLeft = 60
ClientTop = 345
ClientWidth = 8385
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 5850
ScaleWidth = 8385
Begin VB.CommandButton Command1
Caption = "确定"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6960
TabIndex = 41
Top = 5160
Width = 1335
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1335
Left = 3480
MultiLine = -1 'True
TabIndex = 40
Top = 4320
Width = 3255
End
Begin VB.Frame Frame5
Caption = "糖皮质激素:"
Height = 3495
Left = 6720
TabIndex = 4
Top = 0
Width = 1575
Begin VB.CheckBox Check35
Caption = "得宝松"
Height = 195
Left = 240
TabIndex = 38
Top = 3000
Width = 1215
End
Begin VB.CheckBox Check34
Caption = "甲基强的松"
Height = 195
Left = 240
TabIndex = 37
Top = 1680
Width = 1215
End
Begin VB.CheckBox Check33
Caption = "强的松"
Height = 195
Left = 240
TabIndex = 36
Top = 360
Width = 1215
End
End
Begin VB.Frame Frame4
Caption = "中成药"
Height = 3495
Left = 5040
TabIndex = 3
Top = 0
Width = 1575
Begin VB.CheckBox Check32
Caption = "红药片"
Height = 310
Left = 120
TabIndex = 35
Top = 3000
Width = 1400
End
Begin VB.CheckBox Check31
Caption = "益肾蠲痹丸"
Height = 310
Left = 120
TabIndex = 34
Top = 2340
Width = 1400
End
Begin VB.CheckBox Check30
Caption = "伸筋活络丸"
Height = 310
Left = 120
TabIndex = 33
Top = 1680
Width = 1400
End
Begin VB.CheckBox Check29
Caption = "帕夫林"
Height = 310
Left = 120
TabIndex = 32
Top = 1020
Width = 1400
End
Begin VB.CheckBox Check28
Caption = "正清风痛灵片"
Height = 310
Left = 120
TabIndex = 31
Top = 360
Width = 1400
End
End
Begin VB.Frame Frame3
Caption = "其他药物:"
Height = 3495
Left = 3360
TabIndex = 2
Top = 0
Width = 1575
Begin VB.CheckBox Check27
Caption = "益钙宁"
Height = 195
Left = 120
TabIndex = 30
Top = 3120
Width = 1335
End
Begin VB.CheckBox Check26
Caption = "钙尔奇"
Height = 195
Left = 120
TabIndex = 29
Top = 2660
Width = 1335
End
Begin VB.CheckBox Check25
Caption = "雷尼替丁"
Height = 195
Left = 120
TabIndex = 28
Top = 2200
Width = 1335
End
Begin VB.CheckBox Check24
Caption = "固邦片"
Height = 195
Left = 120
TabIndex = 27
Top = 1740
Width = 1335
End
Begin VB.CheckBox Check23
Caption = "阿尔治"
Height = 195
Left = 120
TabIndex = 26
Top = 1280
Width = 1335
End
Begin VB.CheckBox Check22
Caption = "欣维可"
Height = 195
Left = 120
TabIndex = 25
Top = 820
Width = 1335
End
Begin VB.CheckBox Check21
Caption = "云克"
Height = 195
Left = 120
TabIndex = 24
Top = 360
Width = 1335
End
End
Begin VB.Frame Frame2
Caption = "DMARDs:"
Height = 5775
Left = 1680
TabIndex = 1
Top = 0
Width = 1575
Begin VB.CheckBox Check19
Caption = "来氟米特"
Height = 255
Left = 120
TabIndex = 23
Top = 5160
Width = 1215
End
Begin VB.CheckBox Check18
Caption = "别嘌呤醇"
Height = 255
Left = 120
TabIndex = 22
Top = 4545
Width = 1215
End
Begin VB.CheckBox Check17
Caption = "硫酸羟氯喹"
Height = 255
Left = 120
TabIndex = 21
Top = 3930
Width = 1215
End
Begin VB.CheckBox Check16
Caption = "秋水仙碱"
Height = 255
Left = 120
TabIndex = 20
Top = 3315
Width = 1215
End
Begin VB.CheckBox Check15
Caption = "氯 喹"
Height = 255
Left = 120
TabIndex = 19
Top = 2700
Width = 1215
End
Begin VB.CheckBox Check14
Caption = "环磷酰胺"
Height = 255
Left = 120
TabIndex = 18
Top = 2085
Width = 1215
End
Begin VB.CheckBox Check13
Caption = "柳氮磺吡啶"
Height = 255
Left = 120
TabIndex = 17
Top = 1470
Width = 1215
End
Begin VB.CheckBox Check12
Caption = "硫唑嘌呤"
Height = 255
Left = 120
TabIndex = 16
Top = 855
Width = 1215
End
Begin VB.CheckBox Check11
Caption = "甲氨蝶呤"
Height = 255
Left = 120
TabIndex = 15
Top = 240
Width = 1215
End
End
Begin VB.Frame Frame1
Caption = "NSAIDs:"
Height = 5775
Left = 0
TabIndex = 0
Top = 0
Width = 1575
Begin VB.CheckBox Check10
Caption = "万 络"
Height = 375
Left = 120
TabIndex = 14
Top = 5160
Width = 1335
End
Begin VB.CheckBox Check9
Caption = "可塞风"
Height = 375
Left = 120
TabIndex = 13
Top = 4608
Width = 1335
End
Begin VB.CheckBox Check8
Caption = "乐 松"
Height = 375
Left = 120
TabIndex = 12
Top = 4062
Width = 1335
End
Begin VB.CheckBox Check7
Caption = "瑞力芬"
Height = 375
Left = 120
TabIndex = 11
Top = 3516
Width = 1335
End
Begin VB.CheckBox Check6
Caption = "萘丁美酮"
Height = 375
Left = 120
TabIndex = 10
Top = 2970
Width = 1335
End
Begin VB.CheckBox Check5
Caption = "莫比可"
Height = 375
Left = 120
TabIndex = 9
Top = 2424
Width = 1335
End
Begin VB.CheckBox Check4
Caption = "吲哚美辛"
Height = 375
Left = 120
TabIndex = 8
Top = 1878
Width = 1335
End
Begin VB.CheckBox Check3
Caption = "萘普生"
Height = 375
Left = 120
TabIndex = 7
Top = 1332
Width = 1335
End
Begin VB.CheckBox Check2
Caption = "阿司匹林"
Height = 375
Left = 120
TabIndex = 6
Top = 786
Width = 1335
End
Begin VB.CheckBox Check1
Caption = "西乐葆"
Height = 375
Left = 120
TabIndex = 5
Top = 240
Width = 1335
End
End
Begin VB.Label Label1
Caption = "其他:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3480
TabIndex = 39
Top = 3840
Width = 735
End
End
Attribute VB_Name = "FrmAdd3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim s '保存用药情况
Dim n '保存字节长度
Private Sub Command1_Click()
If Check1.Value = Checked Then
s = s & "、" & Check1.Caption
End If
If Check2.Value = Checked Then
s = s & "、" & Check2.Caption
End If
If Check3.Value = Checked Then
s = s & "、" & Check3.Caption
End If
If Check4.Value = Checked Then
s = s & "、" & Check4.Caption
End If
If Check5.Value = Checked Then
s = s & "、" & Check5.Caption
End If
If Check6.Value = Checked Then
s = s & "、" & Check6.Caption
End If
If Check7.Value = Checked Then
s = s & "、" & Check7.Caption
End If
If Check8.Value = Checked Then
s = s & "、" & Check8.Caption
End If
If Check9.Value = Checked Then
s = s & "、" & Check9.Caption
End If
If Check10.Value = Checked Then
s = s & "、" & Check10.Caption
End If
If Check11.Value = Checked Then
s = s & "、" & Check11.Caption
End If
If Check12.Value = Checked Then
s = s & "、" & Check12.Caption
End If
If Check13.Value = Checked Then
s = s & "、" & Check13.Caption
End If
If Check14.Value = Checked Then
s = s & "、" & Check14.Caption
End If
If Check15.Value = Checked Then
s = s & "、" & Check15.Caption
End If
If Check16.Value = Checked Then
s = s & "、" & Check16.Caption
End If
If Check17.Value = Checked Then
s = s & "、" & Check17.Caption
End If
If Check18.Value = Checked Then
s = s & "、" & Check18.Caption
End If
If Check19.Value = Checked Then
s = s & "、" & Check19.Caption
End If
If Check21.Value = Checked Then
s = s & "、" & Check20.Caption
End If
If Check22.Value = Checked Then
s = s & "、" & Check21.Caption
End If
If Check23.Value = Checked Then
s = s & "、" & Check23.Caption
End If
If Check24.Value = Checked Then
s = s & "、" & Check24.Caption
End If
If Check25.Value = Checked Then
s = s & "、" & Check25.Caption
End If
If Check26.Value = Checked Then
s = s & "、" & Check26.Caption
End If
If Check27.Value = Checked Then
s = s & "、" & Check27.Caption
End If
If Check28.Value = Checked Then
s = s & "、" & Check28.Caption
End If
If Check29.Value = Checked Then
s = s & "、" & Check29.Caption
End If
If Check30.Value = Checked Then
s = s & "、" & Check30.Caption
End If
If Check31.Value = Checked Then
s = s & "、" & Check31.Caption
End If
If Check32.Value = Checked Then
s = s & "、" & Check32.Caption
End If
If Check33.Value = Checked Then
s = s & "、" & Check33.Caption
End If
If Check34.Value = Checked Then
s = s & "、" & Check34.Caption
End If
If Check35.Value = Checked Then
s = s & "、" & Check35.Caption
End If
If Text1.Text <> "" Then
s = s & "、" & Text1.Text
End If
n = Len(s) '取用药长度
FrmAdd2.Text7.Text = Right(s, n - 1) '取从第2位起后面所有字符
s = ""
Unload Me
End Sub
Private Sub Form_Load()
Me.Height = 6255
Me.Width = 8505
End Sub
Private Sub Form_Resize()
Me.Height = 6255
Me.Width = 8505
End Sub