Một số vấn đề về hệ chuyên gia ứng dụng trong y học

Đ Ạ I H Ọ C Q U O C K H O A C Ơ N G 0Then myrsyk.MovoFirst HodIf 11'mvrshcRecordC'ouai>0Then myrshcMovcPirsi Iinti11 Iftnyrstc.RecordCount>0ITien tnyrstcMoveFirs! rind If ListntUrieucliung.Ctear Í.istmaahtrieuchuag(Dear I-isttrieuchungbn.Clear (,is(matneucbungbn.Clear DoWhileNotmyrstc.EOr I.istnhtrieuchung.Addlteminyrsic.Fie[ds{''TEN_TC’") I.istmanhtrieucbung.Adđíicnimyrstc.FieUJs("MA_TC") mvrstc.MoveNext Loop HNotMyrshs.BOFI’llCD MyrshsMoveLast findIf mhs=Myrshs.Fields("MA BN")+I Myrshs.MoveFirst txtmhsText=mhs tximhsiỉnabled=False EndSub PrivateSubListbeBb_Click() cbjsoliiil =Listbenb.Listladex 'FrmbenhCaption="Bệnhcókhảnaigcao: ” Bangkt}(chISOlist+ị).tenb'&"cógiálộlà:"& Bangkq(cbisolist+t).gi_benh & 'X & Luận ván tốl nghiệp Mộl số vấn dề vé ìíệ chun gia ứng dụng Y học 84 inyrsbMovelưst DĨWhileNotmyrsbEOF If tìaagkq(chi.soLisf+ỉ).mub- mỵrsb.Fietđs("MA_BKNH")Then thangdohoi=” maboso:"&txtmhsTcxi&vbCrLf thangdohoil =(hangdohoi&" Phươagphápchữa"&vbCrLf& vbCrLf&vbC'rLf ihangdohoiZ=thaagdohoi&" ĐơoThuốc”&vbCri.f vbCrLf&vbCrl.f ngadoboi=■ Họtẻu; "&TxtbotenText vbCrLf&” Tuổi: " TxinamsuihText&vbCrLf&" Địa chỉ: "&TxidiacbiText&vbCrLf&vbCrLf&" Tôũbệnh: " myrsb.Fields("TKN_BKNH")&vbCrLf TxtppcText=vbCrLf&thaagdohoil agadohoi&vbCrLf&myrsb.Fic!ds("PP_CHUA”) TxidoQthuoc.Texi=thangdohoi2&vbCrLf&ngadohoi&vbCrLf&myrsb.Fields(''DON_THUOC") kqluu.mabaBangkq(ehixolisi+l).mab kqluu.tenb=Bangkq(chisolist+1).teub kqiuu.gt benh=Bangkqichisolisi+f).gM>enh 1-ndIf myrsbMovcNexi Loop l.ihtSub PrivateSubLLNtnhtneuchung_Chck() vhisoisf=Listnhtneuchung.Listlii(1cx leiuc=!.isti)hưiciichung.List(chisolist) i.ixtnhtrieuđning.ToorripTcxi»tciitc !ỉndSub I’rivaieSubListahineuchung_Dbl(’lick() ■M.sgBox"truoc: "&I,isHricuchungba.ListCount chisoJisi=l.istnfaineuchung.LislIndcx jcatc=l.istnhtneuchuog.LisKchisolist) mate=Val(l.isunanhtrieuctaung.I.isi(chisolist}) IfI.isdttatneuchimgbni.islCouuts0Tlicn 1.isttrieuchungbã.AddItemtentc Lisimatrictiehungbci.AddItemmate liisc iiungsai=False Fori =OToI.islmatrieucbungbn.ListCouot- (I mate=Val(Listmatrieucbungbn.List(i))Then MsgBox Triẻuchứngnàybẻnhnhânđãcungcáprồi") dungsai=True lindIf Nexti Ifítungsai=FalseThen Listlrieuchuagbn.AddItemICDIC ListmatrieuchungbQ.Adrifiemmate HudIf findIf EndSub PnvaleSubListtneuchungbn_CUck() chlsolisj=Listtrieucbungbn.LisiJndcx lentt=Lis»ncuchuogbo.List{chisohst) I.Lsmhineuchung.ToofTipText=sICDÍC EndSub IVivateSubListtrieuchuagbnJDbiGickO chisolist- Listtríeuchuũgbn.ListIndex 1.isttrieuchungbn.Removeitemchisolist ].istmatrieuchungba.Removeltemchisoist l£ndSub & & & & & c LuẠn vàn lot nghiệp Mội số vấn dé Hệ chuyên gia ứng dụng Y học 85 ********* ¡JJJC]| ¿.gQ kac Jjy jjiam gja hoi chan ************ Dimmydb AsDAO.Database l)i:nmyrsbAsDAORecordset Dimmvrscg AsI)AO.Recordset DimmyrsvkAsDAO.Recordset DimmyrshcAsDAORecordSCI PrivateSubcm=() Then 1or1 =0 To11 - I Step1 malotchail=Va](i,jiitinahoichan.List(i)) hoichan=I.isiboichafl List(i) IfniyrshfKocord0Then myrsb.MoveFirst FadIf IfmyrscgRecordCount>0Then myrscg.MoveFirst FndIf Ifmyrsyk.RecordCount> OThen mvrsykMoveFirst FadIf' Ifmyrshc.RecordCouut>OThen & Luận văn tot nghiệp Một sò ván dé vé Hệ chuyên gia ứng dụng Y học 87 invrsheMove!•irsi EndIf Listbenb.Clear l.istmahenhC'Iear l.istcgClear Listmacg.Clear Listhoichan.(Tear EistmahoichanClear l)oWhileNotmyrsbEOF I.istbenhAddltemmyrsb.Fields("icn_benh") i.istmabenhAddltemtityrsb.Fields("ma_benb") tnyrsbMoveNexi 1.oop l)oWhileNotmyrscg.EOF EistegAddItemmyrscgFields("boten") 1.istmacg.Addltemmyrscg.Fields- (tillen chisolisl=I.i!.urieuchung.L.istIndex trtóuchun;1=I.isUrieuchuDg.List(chisolist) mameuclinij-=Val{Listmaineuchung.Lisl(chisolisO) *******♦.+.*******T1rjn vỉo cosodu 1Ì€U************************** IfNo(m.wyk.nOFThen myisyk.MoveFứsi l:ndIf dungsai=1'alsti DoWhik-Niti myrsykEOF li iiiyrsyk.Field$("MA_BENH")=mabenhAndmabs= myrsyk.Fídds("MA_COr")Andm:i(rieuchuũg=myrsyk.Fields("MA_TC")Then đimgsai=Trae Luận văn lới nghitỊp Mội số vấn dé vé Hệ chuyén gia ứng dụng Y học r> KxúDo inyisvk.MovcNext Ỉ,»H)p IfđUQgsni- TrueThen M-viBox"TC "&trieucliuug&" dãchọorồi ",vbOKOnỉy."Chọniriẽu chứng" lilsc u=li>pujBox{"NhạpgiáIrịtrongkhüáüg|0,11choIriẻuchứogpbạncbọo", "Nhậpgiátrichotriéuchứng■') IfIt