Khóa luận Xây dựng chương trình Quản lý khám chữa bệnh trong bệnh viện

Lêi nãi ®Çu Ngµy nay cïng víi sù ph¸t triÓn v­ît bËc cña khoa häc kü thuËt th× c«ng nghÖ th«ng tin lµ mét trong nh÷ng lÜnh vùc cã nhiÒu ®ãng gãp thiÕt thùc nhÊt, c«ng nghÖ th«ng tin cã mÆt trong hÇu hÕt c¸c lÜnh vùc cña cuéc sèng ®Æc biÖt c«ng nghÖ th«ng tin lµ mét c«ng cô hç trî rÊt ®¾c lùc trong c«ng t¸c qu¶n lý. Chóng ta dÔ dµng thÊy ®­îc viÖc ®­a tin häc vµo trong qu¶n lý kinh doanh lµ mét trong nh÷ng øng dông quan träng trong rÊt nhiÒu øng dông c¬ së d÷ liÖu. Nhê vµo c«ng t¸c tin häc hãa mµ c«ng viÖc qu¶n lý vµ ®iÒu hµnh doanh nghiÖp tá ra rÊt nhanh chãng vµ hiÖu qu¶. ChÝnh v× lÏ ®ã mµ c¬ së d÷ liÖu nh­ lµ mét gi¶i ph¸p h÷u hiÖu nhÊt cho c¸c doanh nghiÖp cã thÓ tån t¹i vµ ph¸t triÓn mét c¸ch nhanh chãng. BÖnh viÖn ®a khoa thµnh phè Vinh lµ mét trong nh÷ng trung t©m kh¸m ch÷a bÖnh lín cña tØnh NghÖ An. Do ®ã nhu cÇu øng dông c¬ së d÷ liÖu trong viÖc qu¶n lý bÖnh nh©n lµ hÕt søc thiÕt thùc. V× vËy em chän ®Ò tµi ph©n tÝch vµ thiÕt kÕ hÖ thèng th«ng tin qu¶n lý bÖnh nh©n t¹i bÖnh viÖn ®a khoa thµnh phè Vinh lµm ®Ò tµi cho luËn v¨n tèt nghiÖp. HÖ thèng ®­îc ph©n tÝch vµ thiÕt kÕ theo ph­¬ng ph¸p cã cÊu tróc vµ ®­îc cµi ®Æt trªn m«i tr­êng Visual Basic 6.0 vµ ®­îc thiÕt kÕ d÷ liÖu dùa trªn ng«n ng÷ SQL Server, c¸c ch­¬ng tiÕp theo sÏ nãi râ h¬n vÒ vÊn ®Ò nµy MÆc dï cã nhiÒu cè g¾ng nh­ng vèn kiÕn thøc ch­a s©u nªn kh«ng thÓ tr¸nh khái nh÷ng thiÕu sãt. RÊt mong ®­îc sù gãp ý cña quý thÇy c«, anh chÞ cïng c¸c b¹n ®Ó b¸o c¸o ®­îc hoµn thiÖn h¬n. T«i xin ch©n thµnh c¶m ¬n phßng KÕ Ho¹ch Tæng Hîp bÖnh viÖn ®a khoa thµnh phè Vinh, quý thÇy c« vµ c¸c b¹n ®· tËn t×nh gióp ®ì t«i hoµn thµnh b¸o c¸o nµy ®Æc biÖt lµ c« gi¸o:Ths.TrÇn ThÞ Kim Oanh ng­êi trùc tiÕp h­íng dÉn em trong suèt thêi gian thùc hiÖn luËn v¨n nµy. Sinh viªn thùc hiÖn: NguyÔn ThÞ Thu Lan. §Ò tµi luËn v¨n: Qu¶n lý kh¸m ch÷a bÖnh trong bÖnh viÖn §Ò tµi gåm c¸c ch­¬ng: Ch­¬ng 1: T×m hiÓu vµ ®Æc t¶ bµi to¸n. Ch­¬ng 2: Ph©n tÝch thiÕt kÕ hÖ thèng qu¶n lý kh¸m ch÷a bÖnh trong bÖnh viÖn. Ch­¬ng 3: Mét sè vÊn ®Ò vÒ ng«n ng÷ Visual Basic. Ch­¬ng 4: ThiÕt kÕ giao diÖn vµ modul ch­¬ng tr×nh. LuËn v¨n ®­îc hoµn thµnh vµo th¸ng 5 n¨m 2006 t¹i tr­êng §¹i Häc Vinh, d­íi sù h­íng dÉn cña c« gi¸o :Ths.TrÇn ThÞ Kim Oanh. Nh©n dÞp nµy t«i xin bµy tá lßng biÕt ¬n s©u s¾c ®Õn c«, ng­êi ®· ®Þnh h­íng vµ tËn t×nh gióp ®ì t«i trong suèt qu¸ tr×nh qu¸ tr×nh häc tËp vµ nghiªn cøu. C¶m ¬n c¸c thÇy gi¸o, c« gi¸o trong khoa CNTT tr­êng §¹i Häc Vinh ®· gi¶ng d¹y vµ chØ b¶o cho t«i nh÷ng vÊn ®Ò liªn quan ®Õn ®Ò tµi. Xin c¶m ¬n ch©n thµnh ®Õn ng­êi th©n vµ b¹n bÌ ®· gióp ®ì t¹o ®iÒu kiÖn cho t«i trong suèt qu¸ tr×nh häc tËp vµ hoµn thµnh luËn v¨n nµy. Vinh, th¸ng 5 n¨m 2006. T¸c gi¶. Ch­¬ng I T×m hiÓu vµ ®Æc t¶ bµi to¸n I. §Æc t¶ bµi to¸n thùc tÕ Thµnh phè Vinh lµ mét thµnh phè réng, víi sè l­îng d©n sè ®«ng. V× vËy viÖc kh¸m ch÷a bÖnh ®ßi hái ph¶i ®­îc ®¸p øng mét c¸ch tèt nhÊt vµ nhanh chãng, do ®ã viÖc qu¶n lý bÖnh nh©n kh¸m ch÷a bÖnh t¹i bÖnh viÖn sÏ gÆp rÊt nhiÒu khã kh¨n khi ®­îc l­u d­íi d¹ng sæ s¸ch, giÊy tê. HiÖn nay c«ng viÖc qu¶n lý bÖnh nh©n kh¸m ch÷a bÖnh t¹i bÖnh viÖn bao gåm c¸c c«ng viÖc sau: CÊp sè kh¸m. Th«ng tin phßng kh¸m. LËp bÖnh ¸n nhËp viÖn. Lµm thñ tôc xuÊt viÖn. T×m kiÕm theo yªu cÇu. I.1 §¨ng ký kh¸m bÖnh. Khi mét bÖnh nh©n ®Õn bÖnh viÖn ®Ó kh¸m bÖnh, ban ®Çu bÖnh nh©n ph¶i ®Õn phßng ®¨ng ký kh¸m bÖnh ®Ó ®­îc cÊp sè kh¸m vµ phßng kh¸m. T¹i ®©y bÖnh nh©n ®­îc yªu cÇu cung cÊp c¸c th«ng tin cÇn thiÕt vµ ®­îc cÊp sè kh¸m, phßng kh¸m. BÖnh viÖn sÏ l­u l¹i c¸c th«ng tin cña ng­êi ®Õn kh¸m ®ã. Cã hai d¹ng kh¸m bÖnh t¹i bÖnh viÖn ®ã lµ: Kh¸m bÖnh kh«ng cã b¶o hiÓm vµ kh¸m bÖnh cã b¶o hiÓm. - §èi víi bÖnh nh©n kh«ng cã b¶o hiÓm th× ®¨ng ký t¹i mét phßng riªng. Mçi mét bÖnh nh©n khi ®¨ng ký ®Òu ®­îc yªu cÇu cung cÊp mét sè th«ng tin. C¸c th«ng tin th­êng lÊy trong viÖc thùc hiÖn ®¨ng ký kh¸m bÖnh bao gåm: Hä tªn. §Þa chØ. Ngµy th¸ng n¨m sinh. Giíi tÝnh. §iÖn tho¹i. NghÒ nghiÖp. Lý do thu. Sè tiÒn. Ngµy lËp phiÕu. Ng­êi lËp phiÕu. Sè kh¸m. - §èi víi bÖnh nh©n cã b¶o hiÓm th× ®¨ng ký riªng ë phßng: §¨ng ký kh¸m bÖnh cã B¶o HiÓm. Khi bÖnh nh©n ®Õn th× g¨m giÊy giíi thiÖu vµo n¬i quy ®Þnh chê gäi tªn ®Ó ®­îc cÊp phiÕu kh¸m. Mçi bÖnh nh©n còng ®­îc yªu cÇu cung cÊp mét sè th«ng tin. C¸c th«ng tin th­êng lÊy trong viÖc thùc hiÖn ®¨ng ký kh¸m bÖnh bao gåm : Hä tªn. Ngµy th¸ng n¨m sinh. Giíi tÝnh. §Þa chØ. §iÖn tho¹i. NghÒ nghiÖp. Sè thÎ BHYT. Sè kh¸m. Ngµy lËp phiÕu. Ng­êi lËp phiÕu. I.2 Phßng kh¸m. Sau khi kh¸m bÖnh nh©n ®ã ®Õn phßng kh¸m cã thÓ x¶y ra hai tr­êng hîp: HoÆc vÒ nhµ tù ®iÒu trÞ hoÆc ph¶i nhËp viÖn. §èi víi bÖnh nh©n vÒ nhµ tù ®iÒu trÞ gäi lµ ngo¹i ®iÒu trÞ cßn ®èi víi bÖn nh©n ph¶i nhËp viÖn th× ®­îc gäi lµ néi ®iÒu trÞ. CÊp ®¬n thuèc: §èi víi bÖnh nh©n ngo¹i ®iÒu trÞ lµ ng­êi cã b¶o hiÓm: Sau khi ®­îc cÊp ®¬n thuèc th× ®Õn phßng cÊp thuèc b¶o hiÓm ®Ó ®­îc cÊp thuèc vµ ®iÒu trÞ theo ®¬n thuèc. §èi víi bÖnh nh©n ngo¹i ®iÒu trÞ lµ ng­êi kh«ng cã B¶o hiÓm: Sau khi ®­îc cÊp ®¬n thuèc th× tù mua thuèc ®Ó ®iÒu trÞ theo h­íng dÉn ghi trong ®¬n thuèc. NhËp viÖn. §èi víi bÖnh nh©n néi ®iÒu trÞ th× ®­îc lËp bÖnh ¸n nhËp viÖn ®Ó lµm thñ tôc nhËp viÖn. C¸c th«ng tin lËp bÖnh ¸n bao gåm: Hä tªn. Ngµy th¸ng n¨m sinh. Giíi tÝnh. §Þa chØ. §iÖn tho¹i. NghÒ nghiÖp. M· bÖnh nh©n. Lý do vµo viÖn. Khoa ®iÒu trÞ. Phßng n»m. Gi­êng n»m. Ngµy vµo viÖn. B¸c sü lËp bÖnh ¸n. Sau khi bÖnh nh©n ®­îc lËp bÖnh ¸n vµ ®­îc chuyÓn vµo ®óng khoa ®iÒu trÞ. BÖnh nh©n ®ã ph¶i cÇm bÖnh ¸n cña m×nh ®Õn ®óng khoa yªu cÇu. Sau khi ®iÒu trÞ xong bÖnh nh©n ®­îc cho ra viÖn nÕu bÖnh nh©n cã nhu cÇu sao l¹i bÖnh ¸n th× sÏ ®­îc bÖnh viÖn cho phÐp sao hå s¬ bÖnh ¸n t¹i phßng sao bÖnh ¸n. Hå s¬ gèc sÏ ®­îc bÖnh viÖn l­u gi÷ l¹i. Mçi bÖnh nh©n sau khi ra viÖn th× ®­îc bÖnh viÖn l­u gi÷ hå s¬ gèc vµ xo¸ tªn bÖnh nh©n trong sæ qu¶n lý phßng bÖnh cña khoa ®iÒu trÞ. XuÊt viÖn. Sau mét thêi gian ®­îc ®iÒu trÞ bÖnh nh©n ®­îc chØ ®Þnh ra viÖn hoÆc cã nhu cÇu ra viÖn theo nhu cÇu riªng th× yªu cÇu bÖnh viÖn ph¶i lµm thñ tôc cho bÖnh nh©n ®ã ra viÖn, vµ g¹ch tªn bÖnh nh©n ®ã khái danh s¸ch theo dâi, nh­ng bÖnh ¸n cña bÖnh nh©n ®ã vÉn ®­îc l­u gi÷. C¸c th«ng tin cña bÖnh nh©n khi xuÊt viÖn bao gåm : Hä tªn. Ngµy th¸ng n¨m sinh. Giíi tÝnh. §Þa chØ. §iÖn tho¹i. NghÒ nghiÖp. M· bÖnh nh©n. T×nh tr¹ng bÖnh nh©n. Khoa ®iÒu trÞ. Phßng n»m. Gi­êng n»m. Ngµy vµo viÖn. Ngµy ra viÖn. B¸c sü lËp bÖnh ¸n. I.3 Khoa ®iÒu trÞ. T¹i mçi khoa ®iÒu trÞ b¸c sü tr­ëng khoa cÇn ph¶i qu¶n lý bÖnh nh©n cña m×nh. Khi mét bÖnh nh©n ®Õn nhËp viÖn th× ph¶i ®­îc lµm bÖnh ¸n nhËp viÖn hay cßn gäi lµ thñ tôc nhËp viÖn. BÖnh viÖn thµnh phè vinh cã c¸c khoa: khoa néi, khoa ngo¹i, khoa nhi, khoa l©y, khoa thÇn kinh, khoa s¶n, khoa m¾t, khoa tai mò häng...Trong ®ã cã c¸c khoa lín chÝnh: Khoa ngo¹i: cho nh÷ng bÖnh nh©n m¾c bÖnh ph¶i ®iÒu trÞ t¹i khoa ngo¹i bao gåm: chÊn th­¬ng, báng, …. Khoa néi: cho nh÷ng bÖnh nh©n m¾c ph¶i c¸c bÖnh ®iÒu trÞ t¹i khoa néi bao gåm: thËn, gan, mËt, ruét thõa, huyÕt ¸p, … Khoa nhi: cho nh÷ng bÖnh nh©n m¾c ph¶i c¸c bÖnh ph¶i ®iÒu trÞ t¹i khoa nhi bao gåm: c¸c trÎ em m¾c c¸c bÖnh nh­ viªm phæi, rèi lo¹n tiªu ho¸, sèt cao,… Khoa l©y: cho nh÷ng bÖnh nh©n m¾c ph¶i bÖnh ph¶i ®iÒu trÞ t¹i khoa l©y bao gåm: lao, sèt virut, c¸c bÖnh dÔ truyÒn nhiÔm kh¸c. I.4 T×m kiÕm vµ thèng kª theo yªu cÇu. Khi cã yªu cÇu t×m kiÕm cña bÖnh viÖn hoÆc cña bÖnh nh©n th× yªu cÇu ph¶i ®¸p øng ®­îc c¸c yªu cÇu ®ã. Cã thÓ t×m kiÕm theo tªn riªng, m· bÖnh nh©n hoÆc hä tªn ®Çy ®ñ cña bÖnh nh©n ®ã. Vµ khi cã yªu cÇu thèng kª trong ngµy cña bÖnh viÖn nh­: sè bÖnh nh©n kh¸m cã b¶o hiÓm, sè bÖnh nh©n kh¸m kh«ng cã b¶o hiÓm, sè bÖnh nh©n nhËp viÖn, sè bÖnh nh©n xuÊt viÖn hoÆc sè bÖnh nh©n kh«ng nhËp viÖn th× yªu cÇu ph¶i ®¸ng øng ®­îc nh÷ng yªu cÇu ®ã. II. §¸nh gi¸ hÖ thèng cò ¦u ®iÓm: C¸c c«ng viÖc ®­îc thùc hiÖn theo ®óng nguyªn t¾c cña bé y tÕ ®èi víi viÖc kh¸m ch÷a bÖnh cho ng­êi bÖnh. Nh­îc ®iÓm: C¸c chøc n¨ng ®Òu ®­îc tiÕn hµnh b»ng thñ c«ng, víi sè l­îng bÖnh nh©n ®Õn kh¸m ngµy mét ®«ng nªn rÊt mÊt thêi gian, tÝnh chÝnh x¸c kh«ng cao, dÔ dÉn ®Õn nh÷ng thiÕu xãt. Khi bÖnh nh©n ®Õn kh¸m t¹i bÖnh viÖn cña thµnh phè th× b¸c sÜ khã cã thÓ kiÓm tra ®­îc t×nh h×nh tiÓu sö cña bÖnh nh©n ®ã. Vµ nh÷ng c«ng viÖc ph¶i lËp ®i lËp l¹i nhiÒu lÇn… Tõ nh÷ng h¹n chÕ chóng ta ph©n tÝch ë trªn, ta ch­a cÇn ph¶i thay ®æi c¬ cÊu tæ chøc, nh­ng ta cÇn ph¶i thay thÕ c¸c thao t¸c thñ c«ng b»ng c¸c c«ng cô cña m¸y tÝnh. Tuy nhiªn vÉn ph¶i t¹o ra mét s¶n phÈm hoµn chØnh víi giao diÖn gÇn gòi víi ng­êi dïng. §ång thêi kh¾c phôc ®­îc c¸c nh­îc ®iÓm ®­îc nªu ë trªn. III. Lùa chän ph­¬ng ph¸p vµ hÖ qu¶n trÞ c¬ së d÷ liÖu 1. Lùa chän ph­¬ng ph¸p C¨n cø vµo nh÷ng kÕt qu¶ ph©n tÝch ë trªn, t«i thÊy r»ng, ph­¬ng ph¸p ®­îc sö dông trong viÖc tin häc ho¸ qu¶n lý kh¸m ch÷a bÖnh trong bÖnh viÖn nªn lµ ph­¬ng ph¸p tin häc ho¸ tõng phÇn. Theo ph­¬ng ph¸p nµy, c¸c chøc n¨ng ®­îc ph¸t triÓn t­¬ng ®èi ®éc lËp víi nhau. Do ®ã, viÖc thùc hiÖn ®¬n gi¶n h¬n, ®Çu t­ ban ®Çu kh«ng lín. §iÒu nµy hoµn toµn phï hîp víi ®iÒu kiÖn vµ kh¶ n¨ng hiÖn cã cña c¬ së y tÕ bÖnh viÖn Thµnh Phè Vinh. H¬n n÷a ph­¬ng ph¸p nµy kh«ng lµm biÕn ®æi c¬ b¶n vµ s©u s¾c vÒ cÊu tróc tæ chøc cña hÖ thèng nªn dÔ ®­îc chÊp nhËn trong thùc tÕ. §iÓm m¹nh næi bËt cña ph­¬ng ph¸p nµy lµ tÝnh më cña hÖ thèng, viÖc bæ sung söa ®æi c¸c ph©n hÖ kh«ng hÒ ¶nh h­ëng ®Õn c¸c ph©n hÖ kh¸c còng nh­ toµn bé ho¹t ®éng cña hÖ thèng. Víi nh÷ng ­u ®iÓm ®ã ph­¬ng ph¸p tin häc ho¸ tõng phÇn lµ hoµn toµn phï hîp víi nhu cÇu, tr×nh ®é tæ chøc, quy m« hÖ thèng vµ kh¶ n¨ng thùc tÕ cña c¬ së y tÕ bÖnh viÖn Thµnh Phè Vinh. 2. Lùa chän hÖ qu¶n trÞ c¬ së d÷ liÖu HÖ qu¶n trÞ c¬ së d÷ liÖu lµ mét bé ch­¬ng tr×nh dïng ®Ó xö lý vµ thay ®æi c¬ së d÷ liÖu ®Ó ®¶m b¶o sù thèng nhÊt theo chuÈn, kiÓm tra vµ ®iÒu hµnh qu¸ tr×nh sö dông vµ khai th¸c d÷ liÖu. Khi tiÕn hµnh x©y dùng mét phÇn mÒm qu¶n lý, viÖc lùa chän hÖ qu¶n trÞ c¬ së d÷ liÖu ph¶i dùa trªn môc tiªu tÝch cùc ho¸ vai trß qu¶n trÞ. §ã lµ: Cung cÊp c¸c c«ng cô h÷u hiÖu ®Ó sinh ra ch­¬ng tr×nh gi¶i quyÕt hµng lo¹t vÊn ®Ò c¬ b¶n trong viÖc gi¶i quyÕt bµi to¸n qu¶n lý. Cho phÐp x©y dùng hÖ thèng ng©n hµng d÷ liÖu thÝch øng víi nhu cÇu thùc tiÔn øng dông. Xö lý cã hiÖu qu¶ trong viÖc tæ chøc, chia sÎ vµ kÕt hîp tµi nguyªn vÒ d÷ liÖu, kh¾c phôc c¸c tranh chÊp xung ®ét vµ h¹n chÕ mÊt m¸t d÷ liÖu. Ph¶i cã quy tr×nh b¶o mËt th«ng tin trong viÖc ph©n quyÒn truy nhËp vµ khai th¸c d÷ liÖu nhiÒu ng­êi sö dông. Trong nh÷ng n¨m gÇn ®©y, khi c¸c øng dông tin häc qu¶n lý ®· trë nªn quen thuéc víi mäi ng­êi. C¸c hÖ qu¶n trÞ c¬ së d÷ liÖu trªn PC nh­ Foxpro hay Microsoft Access, Microsoft Visual Basic ®· trë nªn phæ dông. Trong ®ã Microsoft Visual Basiccho phÐp l­u tr÷ vµ qu¶n lý mét khèi l­îng lín th«ng tin. §ã lµ lý do nhiÒu ng­êi lËp tr×nh ®· chän ng«n ng÷ Microsoft Visual Basic lµm c«ng cô cµi ®Æt hÖ thèng. C¨n cø vµo nh÷ng yªu cÇu cña ®Ò tµi vµ ®Æc ®iÓm cña hÖ qu¶n trÞ Microsoft Visual Basic, t«i quyÕt ®Þnh lùa chän hÖ qu¶n trÞ Microsoft Visual Basic ®Ó cµi ®Æt vµ ph¸t triÓn ®Ò tµi luËn v¨n. Ch­¬ng II Ph©n tÝch thiÕt kÕ hÖ thèng Lùa chän h­íng ph©n tÝch Khi ph©n tÝch thiÕt kÕ hÖ thèng ta cã thÓ chän mét trong hai h­íng ®ã lµ h­íng chøc n¨ng hay h­íng d÷ liÖu. Trong ®Ò tµi nµy t«i lùa chän ph©n tÝch theo h­íng chøc n¨ng. Víi c¸ch tiÕp cËn nµy, chøc n¨ng ®­îc lÊy lµm trôc chÝnh cña qu¸ tr×nh ph©n tÝch vµ thiÕt kÕ, tiÕn tr×nh ph©n tÝch trªn xuèng cã cÊu tróc. C¸c b­íc thùc hiÖn: X©y dùng biÓu ®å ph©n cÊp chøc n¨ng X©y dùng biÓu ®å luång d÷ liÖu X©y dùng c¸c mèi quan hÖ gi÷a c¸c thùc thÓ X©y dùng m« h×nh d÷ liÖu Ph©n tÝch hÖ thèng cò Víi c¸ch qu¶n lý kh¸m ch÷a bÖnh b»ng ph­¬ng ph¸p thñ c«ng truyÒn thèng gÆp nhiÒu khã kh¨n trong viÖc l­u tr÷ vµ xö lý th«ng tin. Bëi vËy cÇn x©y dùng mét ch­¬ng tr×nh qu¶n lý b»ng m¸y vi tÝnh ®Ó gióp viÖc qu¶n lý mét c¸ch chÝnh x¸c vµ hiÖu qu¶ h¬n lµm gi¶m nhÑ mét phÇn ®¸ng kÓ nh©n lùc vµ c«ng søc. Yªu cÇu cña hÖ thèng qu¶n lý b»ng m¸y tÝnh: Qu¶n lý tèt th«ng tin vÒ viÖc kh¸m bÖnh. Xö lý th«ng tin chÝnh x¸c, khoa häc. Ch­¬ng tr×nh dÔ sö dông, cã hiÖu qu¶ cao. ThiÕt kÕ hÖ thèng míi. C¸c chøc n¨ng chÝnh cña hÖ thèng qu¶n lý kh¸m ch÷a bÖnh trong bÖnh viÖn Thµnh Phè Vinh: + CËp nhËt. + Danh môc. + T×m kiÕm&thèng kª. + HÖ Thèng. CËp nhËt. §¨ng ký kh¸m. CÊp ®¬n thuèc. NhËp viÖn. XuÊt viÖn. Danh môc. Khoa ®iÒu trÞ. Phßng ®iÒu trÞ. Thuèc ®iÒu trÞ. B¸c sü. T×m kiÕm&Thèng kª. T×m kiÕm. Thèng kª. HÖ Thèng. Xo¸ bít bÖnh nh©n. Khai b¸o ng­êi sö dông. Thay ®æi mËt khÈu. 4. S¬ ®å ph©n cÊp chøc n¨ng. S¬ ®å ph©n cÊp chøc n¨ng ®­îc sö dông ®Ó nªu ra c¸c chøc n¨ng vµ qu¸ tr×nh cho biÓu ®å luång d÷ liÖu, vµ th«ng qua nã ®Ó m« t¶ c¸c chøc n¨ng xö lý cña hÖ thèng theo d¹ng møc. ViÖc ph©n r· chøc n¨ng ®­îc thùc hiÖn trong s¬ ®å ph©n cÊp chøc n¨ng cßn ®­îc dïng ®Ó chØ ra møc ®é mµ tõng qu¸ tr×nh hoÆc qu¸ tr×nh con ph¶i xuÊt hiÖn. Kh¶o s¸t thùc thÓ cña hÖ thèng “ Qu¶n lý kh¸m ch÷a bÖnh t¹i bÖnh viÖn Thµnh Phè Vinh”, s¬ ®å ph©n cÊp chøc n¨ng cña hÖ thèng øng dông ®­îc h×nh thµnh theo c¸c d¹ng møc cô thÓ sau: Qu¶n lý kh¸m ch÷a bÖnh CËp nhËt Danh môc T×m kiÕm&Thèng kª HÖ Thèng CÊp ®¬n thuèc §¨ng ký kh¸m bÖnh Khoa ®iÒu trÞ Phßng ®iÒu trÞ T×m kiÕm Thèng kª NhËp viÖn XuÊt viÖn Xo¸ bít bÖnh nh©n Khai b¸o ng­êi sö dông Thuèc ®iÒu trÞ B¸c sü Thay ®æi mËt khÈu. S¬ ®å ph©n cÊp chøc n¨ng BiÓu ®å luång d÷ liÖu. BiÓu ®å luång d÷ liÖu cïng ®Ó diÔn t¶ tËp hîp c¸c chøc n¨ng cña hÖ thèng trong mèi quan hÖ tr­íc sau cña tiÕn tr×nh xö lý vµ viÖc trao ®æi th«ng tin trong hÖ thèng. BiÓu ®å luång d÷ liÖu gióp ta ®­îc ®»ng sau nh÷ng g× thùc tÕ x¶y ra trong hÖ thèng, lµm r· nh÷ng chøc n¨ng vµ c¸c th«ng tin cÇn thiÕt. BiÓu ®å luång d÷ liªô ®­îc chia thµnh c¸c møc sau: BiÓu ®å luång d÷ liÖu møc ng÷ c¶nh Lµ møc tæng qu¸t nhÊt ®­îc x©y dùng ë giai ®o¹n ®Çu cña qu¸ tr×nh ph©n tÝch vµ ®­îc dïng ®Ó v¹ch ra biªn giíi cña hÖ thèng còng nh­ buéc ng­êi ph©n tÝch- thiÕt kÕ ph¶i xem xÐt mäi tham trá bªn ngoµi hÖ thèng. ë møc nµy ng­êi ph©n tÝch chØ cÇn x¸c ®Þnh ®­îc c¸c t¸c nh©n ngoµi cña hÖ thèng vµ coi toµn bé c¸c xö lý cña hÖ thèng lµ mét chøc n¨ng, trong biÓu ®å chøa kho d÷ liÖu. Ban gi¸m ®èc Qu¶n lý kh¸m ch÷a bÖnh BÖnh nh©n Ng­êi qu¶n lý Yªu cÇu TT Y/c kh¸m Yªu cÇu TT §¸p øng Y/c theo dâi-kiÓm tra §¸p øng §¸p øng CÊp sè kh¸m BiÓu ®å luång d÷ liÖu møc ng÷ c¶nh BiÓu ®å luång d÷ liÖu møc ®Ønh Dùa vµo s¬ ®å ph©n cÊp chøc n¨ng ë møc 2 ®Ó t¸ch c¸c chøc n¨ng thµnh c¸c chøc n¨ng con trªn c¬ së t«n träng 4 nguyªn t¾c sau: C¸c luång d÷ liÖu ph¶i ®­îc b¶o toµn. C¸c t¸c nh©n ngoµi còng ph¶i ®­îc b¶o toµn. Cã thÓ xuÊt hiÖn c¸c kho d÷ liÖu. Bæ sung thªm c¸c luång néi t¹i gi÷a c¸c chøc n¨ng. Ban gi¸m ®«c CËp nhËt Danh môc HÖ Thèng T×m kiÕm & thèng kª Kho d÷ liÖu Kho d÷ liÖu BÖnh nh©n Ng­êi qu¶n lý §¸p øng yªu cÇu Yªu cÇu t×m kiÕm Yªu cÇu th«ng tin §¸p øng yªu cÇu BiÓu ®å luång d÷ liÖu møc ®Ønh Yªu cÇu th«ng tin §¸p øng yªu cÇu BiÓu ®å luång d÷ liÖu møc d­íi ®Ønh Tõ 4 chøc n¨ng c¬ b¶n ®­îc m« t¶ ë biÓu ®å luång d÷ liÖu møc ®Ønh, ta tiÕn hµnh ph©n r· thµnh c¸c chøc n¨ng con chi tiÕt øng víi biÓu ®å ph©n cÊp chøc n¨ng thÊp nhÊt theo c¸c nguyªn t¾c c¬ b¶n sau: Ph©n r· c¸c chøc n¨ng ë møc trªn xuèng møc d­íi. T¸c ®éng d÷ liÖu ë møc trªn ®­îc lÆp l¹i ë møc d­íi. C¸c kho d÷ liÖu cã thÓ xuÊt hiÖn thªm theo yªu cÇu qu¶n lý néi bé. C¸c t¸c nh©n ngoµi vÉn ®­îc b¶o toµn nh­ ë møc khung c¶nh. Chøc n¨ng CËp nhËt. BÖnh Nh©n Kho D÷ liÖu §¬n thuèc Kho D÷ liÖu bÖnh nh©n §¨ng ký kh¸m cÊp ®¬n thuèc Th«ng tin bÖnh nh©n TT bÖnh nh©n Y/c Th«ng tin Y/c Th«ng tin NhËp viÖn XuÊt viÖn Y/C nhËp viÖn §¸p øng Y/C Y/C XuÊt viÖn §¸p øng Y/C Kho D÷ liÖu Kh¸m Chøc n¨ng Danh môc Khoa ®iÒu trÞ Phßng ®iÒu trÞ Thuèc ®iÒu trÞ Kho d÷ liÖu Ng­êi qu¶n lý Y/C th«ng tin Y/c th«ng tin Y/c Th«ng tin §¸p øng y/c §¸p øng y/c §¸p øng yªu cÇu B¸c sü §¸p øng yªu cÇu Y/C th«ng tin Chøc n¨ng T×m kiÕm & Thèng kª T×m kiÕm Thèng kª BÖnh nh©n Kho d÷ liÖu kh¸m Ban gi¸m ®èc Y/C t×m kiÕm §¸p øng Y/C §¸p øng Y/C Y/C T×m kiÕm §¸p øng Y/C Kho d÷ liÖu bÖnh nh©n Y/C Thèng kª Chøc n¨ng HÖ thèng: Khai b¸o ng­êi sö dông Thay ®æi mËt khÈu Ng­êi qu¶n lý Kho D÷ liÖu hÖ thèng Y/C th«ng tin §¸p øng Y/C Y/C thay ®æi §¸p øng Y/C Xo¸ bít bÖnh nh©n Ban gi¸m ®èc Y/C xãa TT §¸p øng Y/C M« h×nh thùc thÓ vµ c¸c thuéc tÝnh ChuÈn hãa l­îc ®å c¬ së d÷ liÖu Trong thùc tÕ, mét øng dông cã thÓ ®­îc ph©n tÝch, thiÕt kÕ thµnh nhiÒu l­îc ®å c¬ së d÷ liÖu kh¸c nhau vµ tÊt nhiªn chÊt l­îng thiÕt kÕ cña c¸c l­îc ®å c¬ së d÷ liÖu nµy còng kh¸c nhau. ChÊt l­îng thiÕt kÕ cña mét l­îc ®å s¬ së d÷ liÖu cã thÓ ®­îc ®¸nh gi¸ dùa trªn c¸c tiªu chuÈn nh­: Sù trïng lÆp th«ng tin, chi phÝ kiÓm tra c¸c rµng buéc toµn vÑn… Sù chuÈn hãa l­îc ®å c¬ së d÷ liÖu cã ý nghÜa rÊt lín ®èi víi m« h×nh d÷ liÖu quan hÖ. Trong thùc tÕ, ë nh÷ng b­íc tiÕp cËn ®Çu tiªn, ng­êi ph©n tÝch thiÕt kÕ rÊt khã x¸c ®Þnh ®­îc ngay mét c¬ së d÷ liÖu cña mét øng dông sÏ gåm nh÷ng l­îc ®å quan hÖ con(thùc thÓ) nµo (cã chÊt l­îng cao), mçi l­îc ®å quan hÖ con cã nh÷ng thuéc tÝnh vµ tËp phô thuéc hµm ra sao?. Th«ng qua mét sè kinh nghiÖm, ng­êi ph©n tÝch- thiÕt kÕ cã thÓ n©ng cao chÊt l­îng cña l­îc ®å c¬ së d÷ liÖu ban ®Çu ®Ó ®­a vµo khai th¸c. ChuÈn ho¸ lµ qu¸ tr×nh kh¶o s¸t c¸c danh s¸ch thuéc tÝnh vµ ¸p dông mét tËp c¸c quy t¾c ph©n tÝch vµo c¸c danh s¸ch ®ã, chuyÓn chóng thµnh mét d¹ng mµ: Tèi thiÓu viÖc lÆp l¹i(cïng mét thuéc tÝnh cã mÆt ë nhiÓu thùc thÓ). Tr¸nh d­ thõa(c¸c thuéc tÝnh cã gi¸ trÞ lµ kÕt qu¶ tõ tÝnh to¸n ®¬n gi¶n ®­îc thùc hiÖn trªn c¸c thuéc tÝnh kh¸c). §Ó ®¸nh gi¸ mét c¸ch cô thÓ chÊt l­îng thiÕt kÕ cña mét l­îc ®å c¬ së d÷ liÖu, t¸c gi¶ cña m« h×nh d÷ liÖu quan hÖ E.F Codd, ®· ®­a ra 3 d¹ng chuÈn (1NF, 2 NF, 3NF). Ng­êi ph©n tÝch- thiÕt kÕ b¾t ®Çu víi mét danh s¸ch c¸c thuéc tÝnh dù ®Þnh ®èi víi mét kiÓu thùc thÓ, sau khi ¸p dông 3 quy t¾c chuÈn hãa, tõ kiÓu thùc thÓ gèc, c¸c kiÓu thùc thÓ míi ®­îc x¸c ®Þnh vµ tÊt c¶ chóng®Òu ®­îc chuÈn hãa hoµn toµn. Cã thÓ nãi d¹ng chuÈn thø 3 (3NF) lµ tiªu chuÈn tèi thiÓu trong viÖc thiÕt kÕ c¬ së d÷ liÖu. Tãm l¹i, qu¸ tr×nh x©y dung c¸c l­îc ®å quan hÖ(thùc thÓ) dùa trªn c¸c kiÓu thùc thÓ gåm c¸c b­íc sau: LiÖt kª c¸c thuéc tÝnh ch­a chuÈn ho¸, ®­îc x¸c ®Þnh cho mäi kiÓu thùc thÓ. ¸p dông 3 quy t¾c chuÈn ho¸ vµ t¹o ra nh÷ng quan hÖ ®­îc chuÈn ho¸ ®Çy ®ñ( danh s¸ch c¸c thùc thÓ). KÕt hîp c¸c ban kh¸c nhau cña nh÷ng danh s¸ch kiÓu thùc thÓ gièng nhau. ¸p dông l¹i quy t¾c cña d¹ng chuÈn thø 3(3NF) ®èi víi ban ®­îc kÕt hîp cuèi cïng c¸c quan hÖ. X¸c ®Þnh c¸c kiÓu thùc thÓ Tµi liÖu/KiÓu thùc thÓ PhiÕu kh¸m/ch÷a bÖnh Ch­a chuÈn ho¸ 1NF 2NF 3NF M· bÖnh nh©n Hä tªn Ngµy sinh Giíi tÝnh ®Þa chØ §iÖn tho¹i NghÒ nghiÖp Lý do kh¸m Phßng kh¸m Sè thÎ BHTY Lý do thu Sè tiÒn Ngµy lËp phiÕu Ng­êi lËp phiÕu M· bÖnh nh©n Hä tªn Ngµy sinh Giíi tÝnh ®Þa chØ §iÖn tho¹i NghÒ nghiÖp Lý do kh¸m Phßng kh¸m Sè thÎ BHTY Lý do thu Sè tiÒn Ngµy lËp phiÕu Ng­êi lËp phiÕu M· bÖnh nh©n Hä tªn Ngµy sinh Giíi tÝnh ®Þa chØ §iÖn tho¹i NghÒ nghiÖp Lý do kh¸m Phßng kh¸m Sè thÎ BHTY Lý do thu Sè tiÒn Ngµy lËp phiÕu Ng­êi lËp phiÕu M· bÖnh nh©n Hä tªn Ngµy sinh Giíi tÝnh ®Þa chØ §iÖn tho¹i NghÒ nghiÖp Lý do kh¸m Phßng kh¸m Sè thÎ BHTY Lý do thu Sè tiÒn Ngµy lËp phiÕu Ng­êi lËp phiÕu Sau khi thùc hiÖn qu¸ tr×nh chuÈn ho¸ ta thu ®­îc thùc thÓ víi c¸c thuéc tÝnh sau: PhiÕukh¸m M· bÖnh nh©n, hä tªn, ngµy sinh, ®Þa chØ, giíi tÝnh, ®iÖn tho¹i, nghÒ nghiÖp, lý do kh¸m, phßng kh¸m, sè thÎ BHYT, Lý do thu, sè tiÒn, ngµy lËp phiÕu, ng­êi lËp phiÕu. Tµi liÖu/kiÓu thùc thÓ §¬n thuèc/kh¸m bÖnh Ch­a chuÈn ho¸ 1NF 2NF 3NF Sè ®¬n thuèc M· bÖnh nh©n Hä tªn Ngµy sinh ®Þa chØ Giíi tÝnh ®iÖn tho¹i NghÒ nghiÖp M· thuèc Tªn thuèc Sè l­îng C¸ch dïng Ngµy kª ®¬n BSkª thuèc Sè ®¬n thuèc M· bÖnh nh©n M· thuèc Hä tªn Ngµy sinh ®Þa chØ Giíi tÝnh §iÖn tho¹i NghÒ nghiÖp Sè l­îng C¸ch dïng Ngµy kª ®¬n BSkª thuèc Sè ®¬n thuèc M· thuèc Tªn thuèc Sè ®¬n thuèc M· bÖnh nh©n M· thuèc Hä tªn Ngµy sinh ®Þa chØ Giíi tÝnh §iÖn tho¹i NghÒ nghiÖp Sè l­îng C¸ch dïng Ngµy kª ®¬n BSkª thuèc M· thuèc Tªn thuèc Sè ®¬n thuèc M· bÖnh nh©n M· thuèc Sè l­îng C¸ch dïng Ngµy kª ®¬n BSkª thuèc M· thuèc Tªn thuèc M· bÖnh nh©n Hä tªn Ngµy sinh ®Þa chØ Giíi tÝnh §iÖn tho¹i NghÒ nghiÖp Sau khi thùc hiÖn qu¸ tr×nh chuÈn ho¸ ta thu ®­îc thùc thÓ víi c¸c thuéc tÝnh sau: DONTHUOC Sè ®¬n thuèc, M· bÖnh nh©n, M· thuèc, sè l­îng, c¸ch dïng, Ngµy kª ®¬n, B¸c sü kª ®¬n. THUOC M· thuèc, Tªn thuèc. Tµi liÖu/kiÓu thùc thÓ BA khoa ngo¹i/BA khoa néi/BAkhoa l©y/Khoa nhi Ch­a chuÈn ho¸ 1NF 2NF 3NF M· BN M· khoa Tªn khoa Hä tªn Ngµy sinh Giíi tÝnh ®Þa chØ §iÖn tho¹i nghÒ nghiÖp sè thÎ BHYT Lý do vµo viÖn Phßng gi­êng Ngµy vµo Ngµy ra T×nh tr¹ng ra BS LËp BA M· BN M· khoa Tªn khoa Hä tªn Ngµy sinh Giíi tÝnh ®Þa chØ §iÖn tho¹i nghÒ nghiÖp sè thÎ BHYT Lý do vµo viÖn Phßng gi­êng Ngµy vµo Ngµy ra T×nh tr¹ng ra BS LËp BA M· BN M· khoa Tªn khoa Hä tªn Ngµy sinh Giíi tÝnh ®Þa chØ §iÖn tho¹i nghÒ nghiÖp sè thÎ BHYT Lý do vµo viÖn Phßng gi­êng Ngµy vµo Ngµy ra T×nh tr¹ng ra BS LËp BA M· BN M· khoa Lý do vµo viÖn Phßng gi­êng Ngµy vµo Ngµy ra T×nh tr¹ng ra BS LËp BA M· khoa Tªn khoa Sau khi thùc hiÖn qu¸ tr×nh chuÈn ho¸ ta thu ®­îc thùc thÓ víi c¸c thuéc tÝnh sau: BENHAN M·BN, M· Khoa, Phßng, Gi­êng, Lý do vµo, Ngµy vµo, ngµy ra, T×nh tr¹ng ra, BS lËp bÖnh ¸n. Tµi liÖu/kiÓu thùc thÓ Hå s¬ B¸c sü Ch­a chuÈn ho¸ 1NF 2NF 3NF M· b¸c sü M· khoa Hä tªn Ngµy sinh Chuyªn m«n M· b¸c sü M· khoa Hä tªn Ngµy sinh Chuyªn m«n M· B¸c sü M· khoa Hä tªn Ngµy sinh Chuyªn m«n M· b¸c sü M· khoa Hä tªn Ngµy sinh Chuyªn m«n Sau khi thùc hiÖn qu¸ tr×nh chuÈn ho¸ ta thu ®­îc thùc thÓ víi c¸c thuéc tÝnh sau: BACSY: M· b¸c sü, M· khoa, Hä tªn, ngµy sinh, chuyªn m«n. Tµi liÖu/kiÓu thùc thÓ Phßng ®iÒu trÞ Ch­a chuÈn ho¸ 1NF 2NF 3NF M· khoa Phßng Sè gi­êng M· khoa Phßng Sè gi­êng M· khoa Phßng Sè gi­êng M· khoa Phßng Sè gi­êng Sau khi thùc hiÖn qu¸ tr×nh chuÈn ho¸ ta thu ®­îc thùc thÓ víi c¸c thuéc tÝnh sau: PHONG M·khoa, Phßng, Sè gi­êng. Tµi liÖu/kiÓu thùc thÓ Khoa ®iÒu trÞ Ch­a chuÈn ho¸ 1NF 2NF 3NF M· khoa Tªn khoa M· khoa Tªn khoa M· khoa Tªn khoa M· khoa Tªn khoa Sau khi thùc hiÖn qu¸ tr×nh chuÈn ho¸ ta thu ®­îc thùc thÓ víi c¸c thuéc tÝnh sau: KHOA M· khoa, Tªn khoa. ThiÕt kÕ b¶ng d÷ liÖu - Table PHIEUKHAMBENH: Lµ danh s¸ch c¸c bÖnh nh©n ®Õn kh¸m cã B¶o hiÓm t¹i bÖnh viÖn. STT Tªn tr­êng KiÓu §é réng DiÔn gi¶i 1 2 3 4 5 6 7 8 9 10 11 12 13 14 M· BN Hä tªn Ngµy sinh Giíi tÝnh ®Þa chØ §iÖn tho¹i NghÒ nghiÖp Lý do kh¸m Phßng kh¸m Sè thÎ BHTY Lý do thu Sè tiÒn Ngµy lËp phiÕu Ng­êi lËp phiÕu Text Text Date Text Text Text Text Text Text Text Text Text Date Text 15 3 5 3 5 30 30 5 15 30 10 30 M· bÖnh nh©n cÊp Hä tªn bÖnh nh©n Ngµy th¸ng n¨m sinh Giíi tÝnh §Þa chØ §iÖn tho¹i NghÒ nghiÖp Lý do kh¸m Ngµy lËp phiÕu Sè thÎ b¶o hiÓm y tÕ Lý do thu Sè tiÒn Ng­êi lËp phiÕu Table DONTHUOC: Lµ danh s¸ch c¸c bÖnh nh©n ®Õn kh¸m t¹i bÖnh viÖn ®­îc cÊp ®¬n thuèc. STT Tªn tr­êng KiÓu §é Réng DiÔn gi¶i 1 2 3 4 5 6 7 Sè ®¬n thuèc M· BN M· thuèc Sè l­îng C¸ch dïng Ngµy kª ®¬n BSkª thuèc Text Text Text Text Text Date Text 15 15 15 15 30 30 Sè ®¬n cÊp thuèc M· bÖnh nh©n M· thuèc Sè l­îng thuèc C¸ch dïng Ngµy kª ®¬n thuèc B¸c sü kª ®¬n - TableBENHAN: Lµ danh s¸ch c¸c bÖnh nh©n ®Õn kh¸m ph¶i nhËp viÖn ®Ó ®iÒu trÞ. STT Tªn tr­êng KiÓu §é réng DiÔn gi¶i 1 2 3 4 5 6 7 8 9 M· BN M· khoa Phßng Gi­êng Lý do vµo viÖn Ngµy vµo Ngµy ra T×nh tr¹ng ra BS LËp BA Text Text Text Text Text Date Date Text Text 15 15 5 5 30 30 30 M· bÖnh nh©n M· khoa Phßng n»m ®iÒu trÞ Gi­êng n»m ®iÒu trÞ Lý do vµo viÖn Ngµy vµo Ngµy ra T×nh tr¹ng ra B¸c sü lËp bÖnh ¸n - Table THUOC: Tªn c¸c lo¹i thuèc. STT Tªn tr­êng KiÓu §é réng DiÔn gi¶i 1 2 M· thuèc Tªn thuèc Text Text 15 30 M· thuèc Tªn thuèc Table KHOA:Tªn c¸c khoa ®iÒu trÞ. STT Tªn tr­êng KiÓu §é réng DiÔn gi¶i 1 2 M· Khoa Tªn Khoa Text Text 15 30 M· Khoa Tªn khoa Table PHONG:Tªn c¸c phßng thuéc mét khoa ®iÒu trÞ. STT Tªn tr­êng KiÓu §é réng DiÔn gi¶i 1 2 3 M· Khoa Phßng Sè gi­êng Text Text Number 15 5 M· Khoa Tªn phßng Sè gi­êng cña mét phßng Table BACSY: Danh s¸ch c¸c b¸c sü cña c¸c khoa ®iÒu trÞ STT Tªn tr­êng KiÓu §é réng DiÔn gi¶i 1 2 3 4 M· Khoa M· b¸c sü Hä tªn Ngµy sinh Text Text Text Date 15 15 30 M· Khoa M· b¸c sü Hä tªn Ngµy sinh Ch­¬ng III C«ng cô lËp tr×nh Visual basic vµ ng«n ng÷ SQl (struct query language) Khi lùa chän ng«n ng÷ lËp tr×nh, ta th­êng quan t©m ®Õn kh¶ n¨ng ng«n ng÷ cã thÓ hç trî viÖc x©y dông øng dông. §èi víi ch­¬ng tr×nh qu¶n lý kh¸m ch÷a bÖnh t¹i bÖnh viÖn Thµnh Phè Vinh, cÇn mét ng«n ng÷ lËp tr×nh cã kh¶ n¨ng hç trî m¹nh vÒ qu¶n lý c¬ së d÷ liÖu, lËp b¸o biÓu vµ cã kh¶ n¨ng hç trî ®a ng­êi sö dông. Sau khi t×m hiÓu ng«n ng÷ Visual Basic t«i nhËn thÊy ng«n ng÷ Visual Basic lµ mét ng«n ng÷ lËp tr×nh m¹nh, c¬ b¶n n¨ng ®éng vµ cã kh¶ n¨ng hç trî m¹nh cho lËp tr×nh qu¶n lý c¬ së d÷ liÖu. Visual Basic lµ mét ng«n ng÷ lËp tr×nh t­¬ng ®èi dÔ häc, dÔ viÕt, cã tÝnh thèng nhÊt, chÆt chÏ vµ cã c¸c hÖ thèng kiÓm tra tù ®éng tèt. CÊu tróc ng«n ng÷ bao gåm c¸c phÐp lÆp, ®iÒu kiÖn, xö lý m¶ng vµ ®äc viÕt c¸c file. C¸c kü thuËt lËp tr×nh cña Visual Basic ®Òu cung cÊp ®èi t­îng Error vµ tËp hîp Error ®Ó xö lý lçi. Visual Basic cã kh¶ n¨ng hç trî lËp tr×nh víi m«i tr­êng Client/Server. §èi t­îng RDO, ADO cña Visual Basic hç trî mét sè tÝnh n¨ng nh­ thiÕt kÕ nèi bÊt ®ång bé, cËp nhËt hµng lo¹t vµ ®Æc biÖt ADO cßn cung cÊp kh¶ n¨ng xö lý c¸c tÝnh n¨ng nµy t¹i cïng mét thêi ®iÓm. Víi c¸c ­u ®iÓm cña Visual Basic t«i ®· sö dông ng«n ng÷ nµy ®Ó thùc hiÖn cµi ®Æt ch­¬ng tr×nh. T«i còng giíi thiÖu mét sè vÊn ®Ò vÇ ng«n ng÷ mµ t«i sö dông trong ®Ò tµi. VÒ Visual Basic C¸c kü thuËt lËp tr×nh qu¶n lý c¬ së d÷ liÖu mµ Visual Basic cung cÊp gåm: LËp tr×nh víi m« h×nh ®èi t­îng DAO(§èi t­îng truy nhËp d÷ liÖu- Data Access Obiect) LËp tr×nh víi m« h×nh ®èi t­îng RDO (§èi t­îng d÷ liÖu tõ xa- Remote Data Object) LËp tr×nh víi m« h×nh ®èi t­îng ADO (§èi t­îng d÷ liÖu AtiveX - AtiveX Data Object) Trong ch­¬ng tr×nh t«i sö dông lËp tr×nh víi m« h×nh ®èi t­îng ADO nªn t«i sÏ giíi thiÖu vÒ m« h×nh nµy: I.1 LËp tr×nh víi kü thuËt ADO(§èi t­îng d÷ liÖu AtiveX - AtiveX Data Object) X©y dùng øng dông Visual Basic víi ADO. Sö dông dÞch vô d÷ liÖu tõ xa ADO. ADO lµ c«ng nghÖ truy nhËp c¬ së d÷ liÖu h­íng ®èi t­îng t­¬ng tù DAO vµ RDO. Ta cã thÓ dïng ADO ®Ó thao t¸c víi c¬ së d÷ liÖu th«ng qua lËp tr×nh víi Visual Basic. Víi ADO ta cã thÓ thi hµnh c¸c c©u truy vÊn, cËp nhËt gi¸ trÞ trong c¸c b¶ng c¬ së d÷ liÖu vµ t¹o cÊu tróc c¬ së d÷ liÖu bao gåm c¸c b¶ng, c¸c truy vÊn chøa s½n vµ mèi quan hÖ gi÷a c¸c b¶ng. Ta cã thÓ dïng ADO ®Ó truy cËp c¸c c¬ së d÷ liÖu trªn m¸y tÝnh c¸ nh©n hay Client/Server. I.2 Cµi ®Æt vµ thiÕt lËp tham chiÕu ®Õn ADO trong øng dông Visual Basic. ADO ®­îc cµi ®Æt nh­ mét phÇn cña VB6.0. B¾t ®Çu sö dông ADO b»ng c¸ch thiÕt lËp tham chiÕu ®Õn th­ viÖn trong øng dông VB. Trong ®Ò ¸n Visual Basic chän Project, Refernces. Hép tho¹i Refernces xuÊt hiÖn. Chän vµo hép ®¸nh dÊu “Microsoft AtiveX Data Object 2.0 Library” råi nhÊn OK. I.4 Kho¸ mÉu tin trong ADO Quy ®Þnh chÕ ®é kho¸ cho ®èi t­îng Recordset cña ADO th«ng qua thuéc tÝnh LockType. 4 kiÓu mÉu tin: AdLockReadOnly: CÊm cËp nhËt mÉu tin. AdLockPessimistic: Kho¸ trong bÞ quan. MÉu tin trong recordset bÞ kho¸ khi b¾t ®Çu söa ®æi vµ tiÕp tôc kho¸ ®Õn khi thi hµnh ph­¬ng thøc Update hay di chuyÓn sang mÉu tin kh¸c. AdLockOptimistic: Kho¸ trong l¹c quan. MÉu tin chØ bÞ kho¸ ngay lóc thi hµnh ph­¬ng thøc Update hay di chuyÓn sang mÉu tin kh¸c. AdLockBatchOptimistic: Kho¸ l¹c quan hµng lo¹t. Hç trî cËp nhËt nhiÒu mÉu tin cïng lóc. Kho¸ mÆc ®Þnh trong ADO lµ AdLockReadOnly, nÕu kh«ng ®æi thuéc tÝnh LockType vµ CursonrType, c¸c Recordset cña ADO sÏ lu«n chØ lµ ®äc. I.5 Më vµ ®ãng kÕt nèi ®Õn nguån d÷ liÖu §Ó ph¸t mét yªu cÇu ®Õn nguån d÷ liÖu dung ADO, ta më kÕt nèi ®Õn nguån d÷ liÖu ®ã, ding ph­¬ng thøc Open. Có ph¸p: Gcon.Open[Connect],[userid][password] Ta cã thÓ ®ãng nã b»ngph­¬ng thøc Close. Gcon.Close I.6 Sö dông ®èi t­îng Recordset cña ADO ®Ó thao t¸c víi d÷ liÖu. §èi t­îng Recordset cña ADO lµ ph­¬ng ph¸p truy nhËp th«ng tin ®­îc tr¶ vÒ tõ tr×nh cung cÊp d÷ liÖu. Dïng ®èi t­îng Recordset ®Ó cËp nhËt vµ thªm mÉu tin míi. + Thªm mÉu tin míi. Më Recordset. Thi hµnh ph­¬ng thøc Addnew trong ®èi t­îng Recordset. G¸n gi¸ trÞ c¸c tr­êng trong ®èi t­îng Recordset. L­u mÉu tin b»ng c¸ch thi hµnh ph­¬ng thøc Update cña ®èi t­îng Recordset. + CËp nhËt mÉu tin. Më Recordset. G¸n gi¸ trÞ cho c¸c tr­êng trong Recordset . L­u mÉu tin b»ng c¸ch thi hµnh ph­¬ng thøc Update cña ®èi t­îng Recordset. VÒ ng«n ng÷ SQL( structure query language) Sql lµ gi¶ ph¸p chuÈn ®Ó thao t¸c víi c¬ së d÷ liÖu. Nã ®­îc thùc hiÖn theo nhiÒu d¹ng kh¸c nhau trong c¸c hÖ thèng CSDL quan hÖ. Bao gåm Microsoft Access vµ SQL Server. Nãi chung, c¸c c©u lÖnh SQL ®­îc chia lµm 2 lo¹i: C¸c c©u lÖnh thuéc ng«n ng÷ ®Þnh nghÜa d÷ liÖu: Cho phÐp ng­êi sö dông truy vÊn SQL ®Ó t¹o c¸c thµnh phÇn trong c¬ së d÷ liÖu nh­ lµ b¶ng, tr­êng vµ chØ môc. C¸c c©u lÖnh thuéc ng«n ng÷ thao t¸c d÷ liÖu: §­îc thiÕt kÕ ®Ó lÊy c¸c mÉu tin tõ c¸c c¬ së d÷ liÖu. C¸c lÖnh vÒ kiÕn tróc CSDL. T¹o b¶ng. Có ph¸p: CREATE TABLE tªn_b¶ng(tªn_cét kiÓu_DL[KÝch_th­íc][Notnull], … Primanykey(Kho¸_chÝnh) [Unique(kho¸),…] [Foreign key(Kho¸_ngoµi) Reference Tªn_b¶ng,…] [Check §iÒu_kiÖn_rµng_buéc,…]) Xo¸ b¶ng. Có ph¸p: DROP TABLE Tªn_b¶ng Thªm, huû c¸c cét cña b¶ng. Có ph¸p: Thªm cét: ALTER TABLE Tªn_b¶ng ADD Tªn_cét KiÓu_DL [KÝch_th­íc][Notnull] Xo¸ cét: ALTER TABLE Tªn_b¶ng DROP Tªn_cét C¸c lÖnh cËp nhËt d÷ liÖu Vµo d÷ liÖu cho b¶ng. Có ph¸p: INSERT INTO Tªn_b¶ng VALUES(Bé_gi¸_trÞ) Xo¸ b¶n ghi trong b¶ng. DELETE FROM Tªn_b¶ng[WHERE ®iÒu_kiÖn] söa néi dung c¸c b¶n ghi trong b¶ng. UPDATE TABLE Tªn_b¶ng SET Tªn_cét=BiÓu_thøc,… [WHERE ®iÒu_kiÖn] T¹o tÖp chØ sè. CREATE IDEX Tªn_chØ_sè ON Tªn_b¶ng(Tªn_cét[ASC/DESC]) Khèi Select. SELECT [DISTINCT]*| DS_cét cÇn lÊy kÕt qu¶| DS_biÓu thøc FROM Danh_s¸ch_c¸c_b¶ng [WHERE BiÓu_thøc_®iÒu_kiÖn] [GROUP BY Danh_S¸ch_c¸c_cét] [HAVING BiÓu_thøc_®iÒu_kiÖn] [ORDER BY {tªn_cét/biÓu_thøc}[ASC/DESC]] C¸c hµm mÉu. SUM(tªn_cét): TÝnh tæng gi¸ trÞ theo cét cã tªn lµ “Tªn_cét” cña c¸c bé. MAX(tªn_cét): Cho gi¸ trÞ lín nhÊt trong cét cã tªn lµ “Tªn_cét” MIN(Tªn_cét): Cho gi¸ trÞ nhá nhÊt trong cét cã tªn lµ “Tªn_cét” ARV(Tªn_cét): TÝnh gi¸ trÞ trung b×nh theo cét cã tªn lµ “Tªn_cét” cña c¸c bé. COUNT(*/Tªn_cét/DISTINCT tªn_cét): §Õm sè b¶n ghi trong b¶ng theo tuú chän. Trong ®ã: *: §Õm tÊt c¶ c¸c b¶n ghi trong b¶ng. Tªn_cét: §Õm c¸c b¶n ghi mµ gi¸ trÞ tªn cét kh¸c null. DISTINCT: §Õm c¸c b¶n ghi mµ gi¸ trÞ tªn cét kh¸c null vµ c¸c b¶n ghi gièng nhau chØ tÝnh mét. Ch­¬ng IV ThiÕt kÕ giao diÖn vµ modul ch­¬ng tr×nh Giao diÖn hÖ thèng vµ menu ch­¬ng tr×nh S¬ ®å bè trÝ c¸c chøc n¨ng Trªn c¬ së biÓu ®å ph©n cÊp chøc n¨ng vµ thùc tÕ yªu cÇu cña hÖ thèng øng dông, ch­¬ng tr×nh chÝnh ®­îc thiÕt kÕ vµ cµi ®Æt d­íi d¹ng tr×nh ®¬n (d¹ng møc) ®Ó ng­êi sö dông thuËn tiÖn trong viÖc lùa chän c¸c c«ng viÖc cÇn lµm trong hÖ thèng qu¶n lý bÖnh ¸n. Giao diÖn hÖ thèng menu ch­¬ng tr×nh ®­îc thiÕt kÕ nh­ sau: C¸c chøc n¨ng trªn ®­îc ph©n r· thµnh c¸c chøc n¨ng con theo tõng s¬ ®å cô thÓ sau: S¬ ®å bè trÝ c¸c chøc n¨ng con cña chøc n¨ng cËp nhËt vµ Danh môc: CËp nhËt §¨ng ký kh¸m CÊp §¬n thuèc Danh môc NhËp viÖn XuÊt viÖn Tho¸t Khoa ®iÒu trÞ Phßng ®iÒu trÞ Thuèc ®iÒu trÞ B¸c sü S¬ ®å bè trÝ c¸c chøc n¨ng con cña chøc n¨ng T×m kiÕm & thèng kª vµ chøc n¨ng hÖ thèng: HÖ thèng Xo¸ bít bÖnh nh©n Khai b¸o ng­êi sö dông dông Thay ®æi mËt khÈu T×m kiÕm & Thèng kª T×m kiÕm Thèng kª S¬ ®å bè trÝ c¸c chøc n¨ng con cña chøc n¨ng Trî gióp: Trî gióp Th«ng tin ch­¬ng tr×nh M¸y tÝnh Microsoft word Microsoft excel Giao diÖn c¸c chøc n¨ng vµ c¸c modul chÝnh Chøc n¨ng §¨ng ký kh¸m bÖnh: VÒ thuËt to¸n: + Thªm míi: KÝch chuét vµo nót thªm míi th× thùc hiÖn ®¨ng ký kh¸m bÖnh cho bÖnh nh©n. Khi kÝch chuét vµo nót nµy th× mét b¶n ghi míi ®­îc t¹o ra ®Ó thùc hiÖn viÖc nhËp c¸c th«ng tin bÖnh nh©n. + Söa: Thùc hiÖn viÖc söa c¸c th«ng tin khi nhËp sai. Khi kÝch chuét vµo nót nµy th× mét b¶n ghi th«ng tin bÖnh nh©n ®­îc chän sÏ thùc hiÖn söa. + Xo¸: Thùc hiÖn viÖc xo¸ c¸c th«ng tin bÖnh nh©n khi cÇn thiÕt. Khi kÝch vµo nót nµy th× b¶n ghi ®­îc chän sÏ bÞ xo¸ khái c¬ së d÷ liÖu. + Ghi: Thùc hiÖn viÖc ghi nh÷ng th«ng tin bÖnh nh©n võa nhËp. KÝch chuét vµo nót nµy th× th«ng tin sÏ ®­îc ghi vµo hÖ thèng, ®ång thêi c¸c th«ng tin kh¸m còng ®­îc ghi vµo b¶ng Khambenh. + Bá qua: KÝch chuét vµo nót bá qua ®Ó huû bá thao t¸c nhËp. + In phiÕu kh¸m: Khi kÝch chuét vµo nót nµy th× thùc hiÖn viÖc in b¶n ghi th«ng tin ®¨ng ký kh¸m cña bÖnh nh©n ®ã. + Tho¸t: KÝch vµo nót tho¸t ®Ó trë vÒ ch­¬ng tr×nh chÝnh. Chøc n¨ng cÊp ®¬n thuèc VÒ thuËt to¸n: + Thªm míi: KÝch chuét vµo nót thªm míi th× thùc hiÖn viÖc chän thªm tªn thuèc. Khi kÝch chuét vµo nót thªm míi th× mét b¶n ghi míi ®­îc t¹o ra cho ta nhËp thªm th«ng tin vµo ®¬n thuèc. + Bít thuèc: Thùc hiÖn viÖc xo¸ c¸c th«ng tin thuèc mµ ta ®· chän. Khi kÝch vµo nót nµy th× cho ta xo¸ bít nh÷ng th«ng tin thuèc mµ ta ®· nhËp. + Ghi l¹i: Thùc hiÖn viÖc ghi nh÷ng th«ng tin ®¬n thuèc. Khi kÝch vµo nót nµy th× thùc hiÖn viÖc l­u l¹i nh÷ng th«ng tin ®¬n thuèc mµ ta ®· nhËp. + In ®¬n thuèc: Khi kÝch chuét vµo nót nµy th× thùc hiÖn viÖc in b¶n ghi th«ng tin ®¬n thuèc cña bÖnh nh©n mµ ta ®· nhËp. + Tho¸t: KÝch vµo nót tho¸t ®Ó trë vÒ ch­¬ng tr×nh chÝnh. Chøc n¨ng NhËp viÖn. VÒ thuËt to¸n: + Thªm míi: KÝch chuét vµo nót thªm míi th× thùc hiÖn nhËp viÖn cho bÖnh nh©n vµo ®óng khoa ®· chän. Khi kÝch chuét vµo nót nµy th× mét b¶n ghi míi ®­îc t¹o ra ®Ó thùc hiÖn viÖc nhËp c¸c th«ng tin bÖnh nh©n. + Söa: Thùc hiÖn viÖc söa c¸c th«ng tin khi nhËp sai. Khi kÝch chuét vµo nót nµy th× mét b¶n ghi th«ng tin bÖnh nh©n cÇn söa sÏ ®­îc chän vµ thùc hiÖn söa. + Xo¸: Thùc hiÖn viÖc xo¸ c¸c th«ng tin bÖnh nh©n khi cÇn thiÕt. Khi kÝch vµo nót nµy th× b¶n ghi ®­îc chän sÏ bÞ xo¸ khái c¬ së d÷ liÖu. + Ghi: Thùc hiÖn viÖc ghi nh÷ng th«ng tin bÖnh nh©n võa nhËp. KÝch chuét vµo nót nµy th× th«ng tin sÏ ®­îc ghi vµo hÖ thèng, ®ång thêi c¸c th«ng tin kh¸m còng ®­îc ghi vµo b¶ng BenhAn. + Bá qua: KÝch chuét vµo nót bá qua ®Ó huû bá thao t¸c nhËp. + Tho¸t: KÝch vµo nót tho¸t ®Ó trë vÒ ch­¬ng tr×nh chÝnh. Chøc n¨ng XuÊt viÖn. VÒ thuËt to¸n: + XuÊt viÖn: Khi nhÊn vµo nót xuÊt viÖn th× thùc hiÖn lµm thñ tôc xuÊ viÖn cho mét bÖnh nh©n. Khi nhÊn vµo nót nµy th× lµm c«ng viÖc xo¸ sè gi­êng vµ sè phßng cña bÖnh nh©n ®ã n»m, cßn c¸c th«ng tin kh¸c vÉn ®­îc l­u l¹i trong b¶ng BenhAn + Tho¸t: Khi nhÊn vµo nót tho¸t th× trë vÒ ch­¬ng tr×nh chÝnh. KÕt luËn X©y dùng phÇn mÒm qu¶n lý lµ mét trong nh÷ng nhu cÇu xuÊt ph¸t tõ thùc tÕ ph¸t triÓn cña c¸c hÖ thèng. Tin häc ho¸ c¸c ho¹t ®éng qu¶n lý, gióp c¸c nhµ qu¶n lý cã tÇm nh×n bao qu¸t, t×m kiÕm nhanh chãng c¸c th«ng tin cÇn n¾m b¾t, hiÖu qu¶ c«ng viÖc ®­îc n©ng cao, chi phÝ thÊp. Nh×n mét c¸ch tæng thÓ luËn v¨n cña m×nh t«i nhËn thÊy luËnv¨n ®· ®¹t ®­îc nh÷ng kÕt qu¶ sau: Tr×nh bµy mét c¸ch cã hÖ tèng qu¸ tr×nh ph©n tÝch vµ thiÕt kÕ hÖ thèng qu¶n lý kh¸m ch÷a bÖnh t¹i BÖnh viÖn Thµnh Phè Vinh. Hoµn thµnh ch­¬ng tr×nh qu¶n lý kh¸m ch÷a bÖnh t¹i bÖnh viÖn thµnh phè Vinh b»ng ng«n ng÷ Visual Basic. Ch­¬ng tr×nh ®¬n gi¶n, ®­îc lËp tr×nh cã giao diÖn th©n thiÖn víi ng­êi sö dông. H­íng ph¸t triÓn ®Ò tµi: TiÕp tôc ph¸t triÓn ch­¬ng tr×nh theo quy m« lín h¬n, bao gåm tÊt c¶ c¸c khoa hiÖn cã cña bÖnh viÖn, qu¶n lý b¸c sü cña bÖnh viÖn, qu¶n lý viÖc thanh to¸n tiÒn b¶o hiÓm theo tõng quý víi bªn b¶o hiÓm. ¸p dông ch­¬ng tr×nh vµo thùc tÕ. Tµi liÖu tham kh¶o [1] Hoµng H÷u ViÖt, Bµi gi¶ng Visual Basic 6.0, Khoa C«ng NghÖ Th«ng Tin tr­êng §¹i Häc Vinh. [2] Ph¹m Quang Tr×nh, Gi¸o tr×nh NhËp m«n C¬ Së D÷ LiÖu, Khoa C«ng NghÖ Th«ng Tin tr­êng §¹i Häc Vinh. [3] TrÇn Thanh Trai, Ph©n tÝch vµ thiÕt kÕ hÖ thèng th«ng tin qu¶n lý, NXB trÎ (Trung t©m KHTN vµ C«ng nghÖ quèc gia) [4] NguyÔn ThÞ Ngäc Mai, Microsoft Visual Basic 6.0 vµ lËp tr×nh c¬ së d÷ liÖu, Nhµ xuÊt b¶n gi¸o dôc. Môc lôc Trang Lêi nãi ®Çu 3 Ch­¬ng I: T×m hiÓu vµ ®Æc t¶ bµi to¸n 5 I. §Æc t¶ bµi to¸n thùc tÕ 5 I.1. §¨ng ký kh¸m bÖnh 5 I.2. Phßng kh¸m 6 I.3. Khoa ®iÒu trÞ 8 I.4. T×m kiÕm theo yªu cÇu 9 II. §¸nh gi¸ hÖ thèng cò 10 III. Lùa chän ph­¬ng ph¸p vµ hÖ qu¶n trÞ c¬ së d÷ liÖu 11 1. Lùa chän ph­¬ng ph¸p 11 2. Lùa chän hÖ qu¶n trÞ c¬ së d÷ liÖu 11 Ch­¬ng II. Ph©n tÝch vµ thiÕt kÕ hÖ thèng 13 1. Lùa chän h­íng ph©n tÝch 13 2. Ph©n tÝch hÖ thèng cò 13 3. ThiÕt kÕ hÖ thèng míi 14 4. S¬ ®å ph©n cÊp chøc n¨ng 14 5. BiÓu ®å luång d÷ liÖu 16 6. M« h×nh thùc thÓ vµ c¸c thuéc tÝnh 23 7. ThiÕt kÕ c¸c b¶ng d÷ liÖu 28 Ch­¬ng III. C«ng cô lËp tr×nh Visual Basic vµ ng«n ng÷ SQL 31 I. VÒ Visual Basic 32 II. VÒ ng«n ng÷ SQL 35 Ch­¬ng IV. ThiÕt kÕ giao diÖn vµ modul ch­¬ng tr×nh 38 I. Giao diÖn hÖ thèng menu ch­¬ng tr×nh 38 II. Giao diÖn vµ chøc n¨ng c¸c modul chÝnh 40 1. Chøc n¨ng §¨ng ký kh¸m bÖnh 40 2. Chøc n¨ng CÊp ®¬n thuèc 42 3. Chøc n¨ng nhËp viÖn 44 4. Chøc n¨ng xuÊt viÖn 45 KÕt luËn 46 Tµi liÖu tham kh¶o 47 Môc lôc 48