PrivateSubCommand5_Click()
Dimj,k
a=Val(Label9.Caption)
b=Val(Label11.Caption)
c=Val(Label13.Caption)
d=Val(Label15.Caption)
e=Val(Label17.Caption)
DimcnnAsNewADODB.Connection
Dimrs1AsNewADODB.Recordset
Dimrs2AsNewADODB.Recordset
Setcnn=CreateObject("adodb.connection")
Setrs1=CreateObject("adodb.recordset")
Setrs2=CreateObject("adodb.recordset")
cnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\db1.mdb"&";PersistSecurityInfo=False"
rs1.Open"select*fromIIEF5",cnn,adOpenDynamic,adLockOptimistic
rs1.AddNew
rs1.Fields("问题1分数")=a
rs1.Fields("问题2分数")=b
rs1.Fields("问题3分数")=c
rs1.Fields("问题4分数")=d
rs1.Fields("问题5分数")=e
rs1.Fields("姓名")=Text1.Text
rs1.Fields("年龄")=Text2.Text
rs1.Fields("性别")=Combo1.List(j)
rs1.Fields("婚否")=Combo2.List(k)
rs1.Fields("总分")=a+b+c+d+e
f=a+b+c
g=a+b+c+d+e
rs1.Update
rs1.Close
rs2.Open"select*from内容",cnn,adOpenDynamic,adLockOptimistic
rs2.Fields("用户信息")="姓名："&Text1.Text&""&"性别："&Combo1.List(j)&""&"年龄："&Text2.Text&"岁"&""&"婚否："&Combo2.List(k)
rs2.Fields("诊断意见IIEF")="评分结果："&Chr(13)&Chr(10)&"您在IIEF-5评分中，涉及勃起功能的3个问题得分"&f&"分，性生活总体满意度得分"&d&"分，对阴茎勃起及维持勃起的自信心问题得分"&e&"分，总评分为"&g&"分。"
Ifg>=22Then
rs2.Fields("诊断结果")="诊断意见："&Chr(13)&Chr(10)&"无勃起功能障碍"
ElseIfg>=12Then
rs2.Fields("诊断结果")="诊断意见："&Chr(13)&Chr(10)&"轻度勃起功能障碍"
ElseIfg>=7Then
rs2.Fields("诊断结果")="诊断意见："&Chr(13)&Chr(10)&"中度勃起功能障碍"
Else
rs2.Fields("诊断结果")="诊断意见："&Chr(13)&Chr(10)&"重度勃起功能障碍"
EndIf
rs2.Update
rs2.Close
Command5.Visible=False
Command6.Visible=True
EndSub
|
