1. Trang chủ
  2. » Thể loại khác

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

97 17 0

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 97
Dung lượng 39,6 MB

Nội dung

Đ Ạ 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

Ngày đăng: 23/09/2020, 23:11

TÀI LIỆU CÙNG NGƯỜI DÙNG

TÀI LIỆU LIÊN QUAN

w