ight++"您患二型糖尿病"
endif
endif
elseifb_ins<8then
ifage<=35then
ifbmi<23.0then
p_type1=0.9
ifb_oggt<>0then
result="敬爱的"+pname+"用户您在"+string(today())&
+"使用本系统,您有"+syms+"症状,"+"您有"+history+"病史,"&
+"您的"+status+"血糖="+string(blood)+"mmol/l,您继续测量的葡萄糖耐糖检测为"+string(b_oggt)+"mmol/l,您的真胰岛素INSC肽化验"+string(b_ins)&
+"mmol/l,值"+ins_st+"您的GAD为阴性"+"您的年龄为"+string(age)+"岁,继续测量体重值为"+string(bmi)+weight+"您患一型糖尿病"
result="敬爱的"+pname+"用户您在"+string(today())&
+"使用本系统,您有"+syms+"症状,"+"您有"+history+"病史,"&
+"您的"+status+"血糖="+string(blood)+"mmol/l,"+",您的真胰岛素INSC肽化验"+string(b_ins)&
+"mmol/l,值"+ins_st+"您的GAD为阴性"+"您的年龄为"+string(age)+"岁,继续测量体重值为"+string(bmi)+weight+"您患一型糖尿病"
endif
elseifbmi>23.1then
p_type1=0.6
p_type2=0.4
ifb_oggt<>0then
result="敬爱的"+pname+"用户您在"+string(today())&
+"使用本系统,您有"+syms+"症状,"+"您有"+history+"病史,"&
+"您的"+status+"血糖="+string(blood)+"mmol/l,您继续测量的葡萄糖耐糖检测为"+string(b_oggt)+"mmol/l,您的真胰岛素INSC肽化验"+string(b_ins)&
+"mmol/l,值"+ins_st+"您的GAD为阴性"+"您的年龄为"+string(age)+"岁,继续测量体重值为"+string(bmi)+weight+"您患一型糖尿病"
else
result="敬爱的"+pname+"用户您在"+string(today())&
+"使用本系统,您有"+syms+"症状,"+"您有"+history+"病史,"&
+"您的"+status+"血糖="+string(blood)+"mmol/l,"+",您的真胰岛素INSC肽化验"+string(b_ins)&
+"mmol/l,值"+ins_st+"您的GAD为阴性"+"您的年龄为"+string(age)+"岁,继续测量体重值为"+string(bmi)+weight+"您患一型糖尿病"
endif
endif
elseifage>35then
ifbmi<23.0then
p_type1=0.7
p_type2=0.3
ifb_oggt<>0then
result="敬爱的"+pname+"用户您在"+string(today())&
+"使用本系统,您有"+syms+"症状,"+"您有"+history+"病史,"&
+"您的"+status+"血糖="+string(blood)+"mmol/l,您继续测量的葡萄糖耐糖检测为"+string(b_oggt)+"mmol/l,您的真胰岛素INSC肽化验"+string(b_ins)&
+"mmol/l,值"+ins_st+"您的GAD为阴性"+"您的年龄为"+string(age)+"岁,继续测量体重值为"+string(bmi)+weight+"您患一型糖尿病"
else
result="敬爱的"+pname+"用户您在"+string(today())&
+"使用本系统,您有"+syms+"症状,"+"您有"+history+"病史,"&
+"您的"+status+"血糖="+string(blood)+"mmol/l,"+",您的真胰岛素INSC肽化验"+string(b_ins)&
+"mmol/l,值"+ins_st+"您的GAD为阴性"+"您的年龄为"+string(age)+"岁,继续测量体重值为"+string(bmi)+weight+"您患一型糖尿病"
endif
elseifbmi>23then
p_type1=0.4
p_type2=0.6
ifb_oggt<>0then
result="敬爱的"+pname+"用户您在"+string(today())&
+"使用本系统,您有"+syms+"症状,"+"您有"+history+"病史,"&
+"您的"+status+"血糖="+string(blood)+"mmol/l,您继续测量的葡萄糖耐糖检测为"+string(b_oggt)+"mmol/l,您的真胰岛素INSC肽化验"+string(b_ins)&
+"mmol/l,值"+ins_st+"您的GAD为阴性"+"您的年龄为"+string(age)+"岁,继续测量体重值为"+string(bmi)+weight+&
"您患二型糖尿病的"
else
result="敬爱的"+pname+"用户您在"+string(today())&
+"使用本系统,您有"+syms+"症状,"+"您有"+history+"病史,"&
+"您的"+status+"血糖="+string(blood)+"mmol/l,"+",您的真胰岛素INSC肽化验"+string(b_ins)&
+"mmol/l,值"+ins_st+"您的GAD为阴性"+"您的年龄为"+string(age)+"岁,继续测量体重值为"+string(bmi)+weight+&
+"您患二型糖尿病"
endif
endif
endif
endif
opensheet(w_last_type,w_main,3,original!)
close(parent)
程序3测量G_ADD窗口w_gadchecked代码
cb_1代码
ifb_ins>3.0andb_ins<8.0then
ifrb_1.checked=truethen
p_type1=1.0
gadcf=1
ifb_oggt<>0then
result="敬爱的"+pname+"用户您在"+string(today())+&
+"使用本系统,您有"+syms+"症状,"+"您有"+history+"病史,"&
+"您的"+status+"血糖="+string(blood)+"mmol/l,您继续测量的葡萄糖耐糖检测为"+string(b_oggt)&
+"mmol/l,您的真胰岛素INSC肽化验"+string(b_ins)+"mmol/l,值"+ins_st+"您的GAD为阳性所以检测您患一型糖尿病概率为"&
+string(p_type1*100)+"%"
else
result="敬爱的"+pname+"用户您在"+string(today())+&
+"使用本系统,您有"+syms+"症状,"+"您有"+history+"病史,"&
+"您的"+status+"血糖="+string(blood)+"mmol/l,"&
+"mmol/l,您的真胰岛素INSC肽化验"+string(b_ins)+"mmol/l,值"+ins_st+"您的GAD为阳性所以检测您患一型糖尿病概率为"&
+string(p_type1*100)+"%"
endif
opensheet(w_last_type,w_main,3,original!)
endif
ifrb_2.checked=truethen
gadcf=0
opensheet(w_sixth_age,w_main,3,original!)
endif
endif
ifb_ins>8.0then
ifrb_1.checked=truethen
gadcf=1
p_type1=0.75
p_type2=0.25
ifb_oggt<>0then
result="敬爱的"+pname+"用户您在"+string(today())&
+"使用本系统,您有"+syms+"症状,"+"您有"+history+"病史,"&
+"您的"+status+"血糖="+string(blood)+"mmol/l,您继续测量的葡萄糖耐糖检测为"+string(b_oggt)+"mmol/l,您的真胰岛素INSC肽化验"+string(b_ins)&
+"mmol/l,值"+ins_st+",您的GAD为阳性所以检测您患一型糖尿病概率为"+string(p_type1*100)+"%"+"您患二型糖尿病概率"+string(p_type2*100)+"%"
opensheet(w_last_type,w_main,3,original!)
else
result="敬爱的"+pname+"用户您在"+string(today())+&
+"使用本系统,您有"+syms+"症状"+",您有"+history+"病史,"&
+"您的"+status+"血糖="+string(blood)+"mmol/l,您的真胰岛素INSC肽化验"+string(b_ins)&
+"mmol/l,值"+ins_st+"您的GAD为阳性所以检测您患一型糖尿病概率为"+string(p_type1*100)+"%"+"您患二型糖尿病概率"+string(p_type2*100)+"%"
opensheet(w_last_type,w_main,3,original!)
endif
endif
ifrb_2.checked=truethen
gadcf=0
opensheet(w_seventh_weight,w_main,3,original!)
endif
endif
程序4测量w_oggt值的窗口代码
cb_ 代码
b_oggt=real(sle_1.text)
ifb_oggt>=3.9andb_oggt<=7.8then
messagebox("提示","您的血糖正常")
//opensheet(w_third_blood_oggt,w_main,3,original!)
close(parent)
endif
ifb_oggt>=7.9andb_oggt<=11.1then
messagebox("提示","您的血糖异常")
//opensheet(w_third_blood_oggt,w_main,3,original!)
//close(parent)
endif
ifb_oggt>=11.1then
messagebox("警告","有糖尿病危险")
opensheet(w_fouth_kind_second,w_main,3,original!)
endif
程序5窗口w_weight代码
ch_1代码
realw
realh
w=real(trim(sle_1.text))
h=real(trim(sle_2.text))
bmi=w/(h*h)
choosecasebmi
caseis>25.1
st_4.text="您的体形肥胖"
weight="您的体形肥胖"
case19.1to23.0
st_4.text="您的体重正常"
weight="您的体重正常"
case23.1to25.0
st_4.text="您超重"
weight="您超重"
caseis<19.0
st_4.text="您偏瘦"
weight="您偏瘦"
endchoose
??
??
??
??
1
糖尿病专家系统
上一篇:
PB科研管理系统pb(论文和程序).SQL
下一篇:
群体性突发事件论文:“边界冲突”:农村群体性事件的县域分析