Đề tài Giới thiệu về hệ quản trị cơ sở dữ liệu và sql server 2000

LÔØI NOÙI ÑAÀU Ngaøy nay, cuøng vôùi söï phaùt trieån vöôït baäc cuûa khoa hoïc kyõ thuaät thì coâng ngheä thoâng tin laø moät trong nhöõng lónh vöïc coù nhieàu ñoùng goùp thieát thöïc nhaát, coâng ngheä thoâng tin coù maët trong haàu heát caùc lónh vöïc cuûa cuoäc soáng, ñaëc bieät noù laø coâng cuï hoã trôï raát ñaéc löïc trong coâng taùc quaûn lyù. Deã daøng thaáy ñöôïc vieäc ñöa tin hoïc vaøo trong quaûn lyù kinh doanh laø moät öùng duïng quan troïng trong raát nhieàu öùng duïng cuûa cô sôû döõ lieäu. Nhôø vaøo coâng taùc tin hoïc hoaù maø coâng vieäc quaûn lyù vaø ñieàu haønh doanh nghieäp toû ra raát nhanh choùng vaø hieäu quaû. Chính vì leõ ñoù maø cô sôû döõ lieäu nhö laø moät giaûi phaùp höõu hieäu nhaát cho caùc doanh nghieäp coù theå toàn taïi vaø phaùt trieån moät caùch nhanh choùng. Beänh vieän ña khoa tænh Khaùnh Hoaø laø moät trong nhöõng trung taâm khaùm chöõa beänh lôùn nhaát cuûa tænh Khaùnh Hoaø. Do ñoù, nhu caàu öùng duïng quaûn lyù beänh nhaân baèng tin hoïc laø moät vaán ñeà heát söùc thieát thöïc vaø taát yeáu. Chính vì lí do ñoù chuùng toâi choïn ñeà taøi quaûn lyù beänh nhaân naøy laøm ñeà taøi thöïc taäp chuyeân ngaønh vaø thöïc taäp toát nghieäp saép tôùi. Hieän nay, coù raát nhieàu phaàn meàm heä quaûn trò cô sôû döõ lieäu khaùc nhau. Tuy nhieân caên cöù vaøo tình hình quaûn lyù beänh nhaân cuûa beänh vieän hieän nay, chuùng toâi ñaõ chon heä quaûn trò cô sôû döõ lieäu SQL Server 2000 vaø ngoân ngöõ hoã trôï caøi ñaët giao dieän cuûa öùng duïng laø Visual Basic 6.0 Maëc duø coù nhieàu coá gaéng nhöng do thôøi gian thöïc taäp coù haïn cuõng nhö voán kieán thöùc coøn noâng caïn neân khoâng theå traùnh khoûi nhöõng thieáu soùt. Raát mong ñöôïc goùp yù cuûa quyù thaày coâ cuøng caùc baïn ñeå baùo caùo ñöôïc hoaøng thieän hôn. Nhoùm sinh vieân thöïc hieän Buøi Vaên Möøng Ñoã Vaên Cao. PHAÀN I: TOÅNG QUAN VEÀ NGOÂN NGÖÕ CAØI ÑAËT I. GIÔÙI THIEÄU VEÀ HEÄ QUAÛN TRÒ CÔ SÔÛ DÖÕ LIEÄU VAØ SQL SERVER 2000 I.1. KHAÙI NIEÄM CÔ BAÛN VEÀ CAÙC LOAÏI CÔ SÔÛ DÖÕ LIEÄU Moät heä quaûn trò cô sôû döõ lieäu laø moät heä thoáng caùc chöông trình hoã trôï caùc taùc vuï quaûn lí, khai thaùc döõ lieäu theo moâ hình cô sôû döõ lieäu quan heä. SQL server laø moät heä thoáng quaûn lí cô sôû döõ lieäu quan heä (RDB0MS) hay coøn ñöôïc goïi laø Relational Database Management System. Cô sôû döõ lieäu quan heä laø cô sôû döõ lieäu maø döõ lieäu beân trong noù ñöôïc toå chöùc thaønh caùc baûng. Caùc baûng ñöôïc toå chöùc baèng caùch nhoùm döõ lieäu theo cuøng chuû ñeà vaø coù chöùa caùc coät vaø caùc haøng thoâng tin. Sau ñoù caùc baûng naøy laïi lieân heä vôùi nhau bôûi boä Database Engine khi coù yeâu caàu. RDBMS laø moät trong nhöõng moâ hình cô sôû döõ lieäu thoâng duïng nhaát hieän nay. I.2. GIÔÙI THIEÄU CHUNG VEÀ SQL SERVER 2000 SQL(Structured Query Language), laø ngoân ngöõ duøng ñeå truy vaán cô sôû döõ lieäu, hay noùi caùch khaùc ñaây laø ngoân ngö truy vaán cho pheùp laáy thoâng tin veà töø caùc baûng döõ lieäu. SQL Server 2000 toái öu hôn nhieàu so vôùi cô sôû döõ lieäu quan heä. Chuùng phaùt trieån ñeå söû duïng treân nhieàu aán baûn nhö CE, Personal, Desktop Engine, Standard, Developer, Enterprise. SQL Server 2000 hoã trôï kieåm tra khoaù chính, phuï thuoäc toàn taïi, mieàn giaù trò, … cuûa döõ lieäu beân trong caùc baûng moät caùch chaët cheõ. SQL Server 2000 hoã trôï khaù maïnh cho cô sôû döõ lieäu ña truy caäp. Töùc cô sôû döõ lieäu maïng,… Nhöõng thaønh phaàn chính trong SQL Server 2000 bao goàm Heä thoáng Dieãn daûi Aán baûn SQL Server 2000 Ñaây laø phaàn chính cuûa heä thoáng, laø trung taâm ñieàu haønh nhöõng phaàn thöïc thi khaùc. Vôùi Desktop Engine baïn xeõ tìm thaáy caùc dich vuï trong heä thoáng nhö SQL Server Agent (Schedul), SQL Server Profiler ,… vaø moät soá coâng cuï khaùc Desktop Engine Personal Standard Developer Enterprise Full-Text Sarch Ñaây laø phaàn töï choïn trong luùc caøi ñaët, neáu baïn muoán chöùc naêng tìm kieám thì neân choïn heä thoáng naøy vì chuùng khoâng laø phaàn maëc nhieân. Full-Text Sarch cung caáp chöùc naêng tìm kieám töø (word) raát maïnh, neáu söû duïng Internet ñeå tìm kieám thì ñaây laø giaûi phaùp tuyeät vôøi. Neáu baïn muoán tìm kieám moät chuoãi con trong moät ñoaïn vaên baûn lôùn thì ñaây laø coâng cuï thích hôïp cho coâng vieäc ñoù. Personal (Except Win95) Standard Developer Enterprise English Query English Query cho pheùp ngöôøi söû duïng khoâng coù kyõ thuaät veâ SQL cuõng coù theå söû duïng SQL Server, baèng caùch daët caâu hoûi baèng chuoãi English sau ñoù ñöôïc dòch ra Query maø coù theå thöïc thi treân SQL Server. Personal Standard Developer Enterprise Analusis Services Phaàn naøy khoâng bao goàm maëc ñònh trong phaàn caøi ñaët, chuùng laø daïng saûn phaåm töï choïn, laø coâng cuï phaân tích OLAP (Online Analysis Processing), söû duïng cho cô sôû döõ lieäu lôùn. Nhöõng phieân baûn coù OLAP ñaày ñuû chöùc naêng laø Enterprise vaø Developer, nhöng trong aán baûn Standard vaø Personal cuõng coù moät chöùc naêng chính cuûa OLAP. Personal Standard Developer Enterprise Replication Chöùc naêng naøy cho pheùp taùi taïo moät baûn sao ñeán SQL Server khaùc, thoâng thöôøng duøng chöùc naêng naøy cho caùc heä thoáng Server töø xa hay trong network, nhaèm ñeå laøm giaûm trao ñoåi döõ lieäu giöõa caùc SQL Server vôùi nhau. Desktop Engine Personal Standard Developer Enterprise Data Transformatuion Servise Data Transformatuion Servise (DTS) ñöôïc môû roäng trong phieân baûn SQL Server 2000, bao goàm nhöõng chöùc naêng trao ñoåi döõ lieäu giöùa caùc cô sôû döõ lieäu, vaø giao tieáp döõ lieäu giöõa caùc cô sôû döõ lieäu khaùc nhau, ñaây laø nhöõng giaûi phaùp laäp trình treân Visual Basic Desktop Engine Personal Standard Developer Enterprise Nhöõng ñaëc tính môû roäng trong caùc aán baûn khaùc nhau cuûa SQL Server 2000. Symmetric Multiprocessing (SMP): Dòch vuï naøy ñöôïc hoã trôï trong SQL Server 2000, dòch vuï naøy phaân phoái coâng vieäc xöû lí treân heä thoáng coù nhieàu boä vi xöû lí ñeå laøm caân baèng tieán trình treân caùc CPU. Clustering Support: Chæ coù trong aán baûn Enterprise vaø Developer, Clustering cho pheùp heä thoáng caân baèng khi coù moät Server bò ngöøng thì nhöõng heä thoáng khaùc tieáp nhaän vaø xöû lí. Hieän taïi chæ thöïc hieän chöùc naêng naøy treân hai Server ñoù laø Windows 2000 Enterprise vaø Windows 2000 Datacenter. I.2.1 Caùc thaønh phaàn cuûa SQL Server 2000. RDBMS cuõng nhö SQL Server chöùa ñöïng nhieàu ñoái töôïng bao goàm: Database: Cô sôû döõ lieäu SQL Server Taäp tin log: taäp tin löu tröõ nhöõng chuyeån taùc cuûa SQL Tables: baûng döõ lieäu Filegroups: Taäp tin nhoùm Diagrams: Sô ñoà quan heä Views: Khung nhìn (hay baûn aûo) soá lieäu döïa treân baûn Stored Procedure: Thuû tuïc vaø haøm noäi Users defined: Haøm do ngöôøi duøng ñònh nghóa Users: Ngöôøi söû duïng cô sôû döõ lieäu Rules: Nhöõng quy taéc Defaults: Caùc giaù trò maëc nhieân User-defined data type:Kieåu döõ lieäu do ngöôøi duøng ñònh nghóa Full-text catalogs: Taïp phaân loaïi döõ lieäu text I.2.2. Ñoái töôïng cô sôû döõ lieäu Cô sôû döõ lieäu laø ñoái töôïng coù aûnh höôûng cao nhaát khi baïn laøm vieäc vôùi SQL Server, tuy nhieân nhöõng ñoái töôïng con cuûa cô sôû döõ lieäu môùi laø thaønh phaàn chính cuûa cô sôû döõ lieäu. Baûn thaân SQL Server laø moät heä cô sôû döõ lieäu, chuùng bao goàm caùc ñoái töôïng nhö database, table, view, procedure neâu treân cuøng moät soá cô sôû döõ lieäu hoã trôï khaùc. Cô sôû döõ lieäu SQL Server laø cô sôû döõ lieäu ña ngöôøi duøng, vôùi moãi Server baïn chæ coù moät heä quaûn trò cô sôû döõ lieäu. Neáu muoán coù nhieàu heä quaûn trò cô sôû döõ lieäu baïn caàn coù nhieàu Server töông öùng. Truy caäp cô sôû döõ lieäu cuûa SQL Server döïa vaøo nhöõng taøi khoaûn ngöôøi duøng rieâng bieät vaø öùng vôùi quyeàn truy caäp nhaát ñònh. Caøi ñaët SQL Server baïn coù 6 cô sôû döõ lieäu maëc ñònh sau: - Master: Baát kyø SQL Server naøo ñeàu coù cô sôû döõ lieäu Master (coøn goïi laø master file), cô sôû döõ lieäu naøy chöùa ñöïng taát caû caùc baûng döõ lieäu ñaëc bieät (baûng heä thoáng), chuùng kieåm soaùt taát caû caùc hoaït ñoäng cuùa heä SQL Server. Ví duï: Khi ngöôøi duøng cô sôû döõ lieäu môùi trong SQL Server, theâm hay xoa moät procedure, taát caû nhöõng thoâng tin naøy ñeàu ñöôïc tröõ trong cô sôû döõ lieäu master cuûa heä thoáng. Cô sôû döõ lieäu model: Cô sôû döõ lieäu naøy chöùa ñöïng taát caû template duøng laøm maãu ñeå taïo cô sôû döõ lieäu môùi. Khi baïn taïo môùi moät cô sôû döõ lieäu thì SQL Server laáy taát caû caùc maãu (bao goàm baûng view …) töø cô sôû döõ lieäu model naøy Xuaát phaùt töø tính chaát cô sôû döõ lieäu maãu giuùp SQL Server thöïc hieän vieäc taïo môùi cô sôû döõ lieäu cho ngöôøi duøng khi coù yeâu caàu, baïn khoâng ñöôïc xoaù cô sôû döõ lieäu naøy. Khi moät cô sôû döõ lieäu môùi ñöôïc taïo ra thì cô sôû döõ lieäu môùi naøy ít nhaát cuõng baèng vaø gioáng nhö cô sôû döõ lieäu model. Cô sôû döõ lieäu msdb: Nhö ñaõ neâu, chuùng ta coù hai cô sôû döõ lieäu heä thoáng master vaø model, neáu xoaù moät trong hai cô sôû döõ lieäu naøy thì heä thoáng SQL Server xeõ bò loãi, nhöng vôùi cô sôû döõ lieäu msdb thì khac. Msdb chính laø SQL Agent löu tröõ taát caû caùc taùc vuï xaûy ra trong SQL Server. Cô sôû döõ lieäu Tempdb: Laø moät trong nhöõng cô sôû döõ lieäu chính trong SQL Server. Cô sôû döõ lieäu naøy cho pheùp ngöôøi duøng taïo nhöõng öùng duïng tham khaûo hay thöïc taäp tröôùc khi baïn baét ñaàu vôùi cô sôû döõ lieäu thöïc. Ngoaøi ra chuùng coøn giuùp thöïc hieän nhöõng thao taùc veà cô sôû döõ lieäu moãi khi SQL Server khôûi ñoäng. Cô sôû döõ lieäu pubs: Chöùa haàu heát noäi dung veà höôùng daãn, trôï giuùp vaø saùch tham khaûo veà SQL Server. Cô sôû döõ lieäu Northwind: Cuõng gioáng nhö cô sôû döõ lieäu pubs, ñaây laø cô sôû döõ lieäu maãu cho ngöôøi duøng tham khaûo, hoaëc caùc laäp trình vieân Visual Basic hay Access duøng ñeå truy caäp döõ lieäu SQL Server. Cô sôû döõ lieäu naøy ñöôïc caøi ñaët nhö moät phaàn cuûa SQL Server, neáu caàn duøng caáu truùc cuûa hai cô sôû döõ lieäu naøy baïn coù theå söû duïng hai file kòch baûn script mang teân inspub.sql, vaø insnwnd.sql. Taäp tin chuyeån taùc log: Taäp tin chöùa ñöïng nhöõng hoaït ñoäng, hay caû nhöõng chuyeån taùc cuûa cô sôû döõ lieäu theo thôøi gian. Thoâng thöôøng khi caàn tìm hieåu söï coá xaûy ra vôùi cô sôû döõ lieäu, ngöôøi duøng chæ caàn tham khaûo taäp tin log xeõ bieát ñöôïc nguyeân nhaân. I.2.3. Giôùi thieäu veà ñoái töôïng cuûa cô sôû döõ lieäu Baûng-Table Trong cô sôû döõ lieäu, baûn (table) laø phaàn chính cuûa chuùng. Do baûng laø ñoái töôïng löu tröõ döõ lieäu thöïc, khi caàn giao tieáp vôùi cô sôû döõ lieäu khaùc baûng laø ñoái töôïng caên baûn nhaát trong baát kyø loaïi cô sôû döõ lieäu naøo, chuùng ñöôïc coi nhö moät mieàn döõ lieäu. Moãi baûng ñöôïc ñònh nghóa nhieàu tröôøng, moãi tröôøng (field coøn goïi laø column name) öùng vôùi moãi loaïi kieåu döõ lieäu. Döõ lieäu nhaäp vaøo coù theå chaáp nhaän haëc töø choái tuyø thuoäc vaøo nguyeân taéc raøng buoäc döõ lieäu hoaëc loaïi döõ lieäu töông thích do heä thoáng hay ngöôøi duøng ñònh nghóa. Khi ñònh nghóa baûng cô sôû döõ lieäu baïn caàn quan taâm ñeán caùc yeáu toá sau: + Key: Tröôøng ñoù coù khoaù hay khoâng (primary Key) + ID: Tröôøng coù thuoäc tính Indentity hay khoâng + Column name: Teân cuûa tröôøng (coät) + Data type: Loaïi döõ lieäu cho tröôøng töông öùng. + Size: Kích thöôùc tröôøng döõ lieäu + Allow null: Cho pheùp giaù trò roãng löu trong tröôøng hay khoâng + Default: Giaù trò maëc nhieân cho tröôøng + Identity: Neáu baïn söû duïng moät tröôøng coù giaù trò töï ñoäng nhö autonumber trong acces, tröôøng nay Not Null vaø Identity: Yes(On) + Identity Seed: Neáu tröôøng (coät) naøy laø Identity, caàn soá baét ñaàu laø 1 hoaëc 2, … + Identity Increament: Soá nhaûy cho moãi laàn taêng Chæ muïc – Indexs Ñoái töôïng chæ muïc (Indexs) chæ toàn taïi trong baûng hay khung nhìn (View). Chæ muïc coù aûnh höôûng ñeán toác ñoä truy caäp soá lieäu, nhaát laø khi caàn tìm kieám thoâng tin treân baûng. Chæ muïc giuùp taêng toác cho vieäc tìm kieám. + Clustered: ÖÙng vôùi loaïi chæ muïc naøy moät baûng chæ coù moät chæ muïc, vaø soá lieäu ñöôïc saép xeáp theo trang + Non-Clustered: ÖÙng vôùi loaïi chæ muïc naøy coù moät baûng coù theå coù nhieàu chæ muïc vaø soá lieäu ñöôïc saêp xeáp theo tröôøng döõ lieäu maø baïn troû ñeán - Baãy loãi-Triggers Laø ñoái töôïng chæ toàn taïi trong baûng, cuï theå laø moät ñoaïn maõ vaø töï ñoâng thöïc hieän khi moät haønh ñoäng naøo ñoù xaûy ra ñoái vôùi döõ lieäu trong baûng nhö Insert, Update, Delete. Trigger coù theå baãy raát nhieàu tình huoáng nhö copy döõ lieäu, xoaù döõ lieäu, caäp nhaät döõ lieäu, kieåm tra döõ lieäu theo moät tieâu chuaån naøo ñoù. Raøng buoäc- Constraints Constraints laø moät ñoái töôïng, noù laø moät phaàn nhoû trong baûng, chuùng raøng buoäc döõ lieäu trong baûng hoaëc caùc baûng khaùc phaûi tuaân theo moät quy taéc naøo ñoù. Diagram-Löôïc ñoà quan heä Khi xaây döïng cô sôû döõ lieäu cho öùng dung hay thöông maïi ñieän töû, thöôøng ñeàu phaûi döïa treân trình phaân tích thieát keá heä thoáng. Sau nhöõng böôùc phaân tích vaø thieát keá, baïn seõ thieát laäp quan heä döõ lieäu giöõa caùc thöïc theå ERD(Entity relationship diagram) Khung nhìn-View View laø khung nhìn (hay baûng aûo) cuûa baûng. Cuõng gioáng nhö baûng nhöng View khoâng theå chöùa döõ lieäu, baûn thaân view coù theå taïo theâm tröôøng môùi döïa vaøo nhöõng pheùp toaùn bieåu thöùc cuûa SQL Server. View coøn coù theå keát noái nhieàu baûng laïi vôùi nhau theo quan heä nhaát ñònh cuøng vôùi nhöõng tieâu chuaån, nhaèm taïo ra moät baûng döõ lieäu vôùi yeâu caàu ngöôøi duøng. Thuû tuïc noäi-Stored Procedure Stored Procedure coøn goïi laø Spocs, tieáp tuïc phaùt trieån nhö moät phaàn SQL treân cô sôû döõ lieäu. Stored Procedure cho pheùp khai baùo bieán, nhaän tham soá cuõng nhö thöïc thi caùc phaùt bieåu coù ñieàu kieän. Stored Procdure coù caùc öu ñieåm lôùn sau: + Keá thöøa taát caû caùc phaùt bieåu cuûa SQL, vaø laø moät ñoái töôïng xöû lí soá lieäu hieäu quaû nhaát khi duøng SQL Server. + Tieát kieäm thôøi gian thöïc thi treân döõ lieäu. + Coù theå goi Stored procedure theo caùch goïi thuû tuïc hay haøm trong ngoân ngöõ laäp trình truyeàn thoán, ñoàng thôøi söû duïng laïi khi coù yeâu caàu. Söû duïng kieåu döõ lieäu Cursor (Cursor typy) Khi duøng cô sôû döõ lieäu SQL Server, neáu coù nhu caàu tính toaùn treân baûng soá lieäu, chuyeån taùc thöïc hieän treân töøng maåu tin, ta neân nghó ñeán kieåu döõ lieäu mang teân Cursor. I.2.3. Kieåu döõ lieäu-Data type Baát kyø tröôøng naøo trong baûng (Table) cuûa cô sôû döõ lieäu ñeàu phaûi co kieåu döõ lieäu. Moät soá kieåu döõ lieäu SQL Server cho pheùp ñònh nghóa chieàu daøi cuûa kieåu trong khi moät soá kieåu khaùc thì khoâng Cuõng nhö nhöõng ngoân ngöõ laäp trình khaùc SQL Server cung caáp ñaày ñuû kieåu döõ lieäu caàn thieát, nhö: kieåu soá nguyeân (Binary, Int, TinyInt, …), kieåu soá thöïc (Float), kieåu tieàn teä (Money, SmallMoaney,…) kieåu chuoãi (char, nChar, VarChar, Text,…), vaø nhieàu kieåu dö lieäu khaùc. Ngoaøi ra SQL Server coøn cho pheùp chuyeån ñoåi qua laïi giöõa caùc kieåu döõ lieäu, tuy nhieân ñieàu naøy cuõng coù moät soá haïn cheá ñoái vôùi moät soá kieåu döõ lieäu. Ví duï: kieåu binary khoâng theå nhaän chuyeån ñoåi söï chuyeån ñoåi töø döõ lieäu kieåu float hay real… I.2.4. Caùc phaùt bieåu cô baûn cuûa T-SQL - Cuù phaùp toång quaùt cuûa leänh Select SELECT FROM [WHERE ] [GROUP BY ] [HAVING ] [ORDER BY ] Trong ñoù taát caû nhöõng phaùt bieåu naèm trong caëp daáu [] thì coù theå coù hoaëc coù theå khoâng coù. Ví duï: + Ñeå laáy taát caû caùc beänh nhaân trong baûng tblBenhNhan ta duøng caâu truy vaán sau: SELECT * FROM tblBenhNhan Trong caâu leänh naøy thieáu vaéng taát caû caùc phaùt bieåu sau FROM treân + Ñeå choïn ra taát caû caùc beänh nhaân trong baûng tblBenhNhan vôùi Teân beänh nhaân laø Nguyeãn Vaên A ta laøm nhö sau. SELECT * FROM tblBenhNhan WHERE tblBenhNhan.TenBenhNhan=’Ngyueân Van A’ Vaäy caâu leänh SELECT duøng ñeå chæ ra tröôøng (coät) döõ lieäu caàn laáy, FROM ñeå chæ ra nôi chöùa döõ lieäu (hay baûng caàn truy vaán), WHERE chæ ra ñieàu kieän laáy döõ lieäu. ORDER BY duøng ñeå hieån thò keát quaû truy vaán theo tieâu chuaån cuûa ngöôøi duøng. Neáu thieáu tham soá naøy thì vieäc saép xeáp xeõ theo thöù töï ALPHABET. Ngoaøi nhöõng caâu leänh truy vaán treân trong SQL Server coøn cung caáp moät soá haøm cuõng nhö nhöõng bieåu thöùc tính toaùn … - Ñeå theâm döõ lieäu vaøo baûng (Table) ta duøng caâu leänh truy vaán sau: INSERT INTO (danh saùch coät) VALUES (danh saùch giaù trò) Ví duï: Ñeå cheøn döõ lieäu vaøo baûng tblTinh ta coù caâu leänh truy vaán sau: INSERT INTO tblTinh (MaTinh, TenTinh) VALUES(‘001’, ‘Khaùnh Hoa’ø) Ñeå söûa döõ lieäu trong moät baûng ñaõ coù saün ta söû duïng caâu leänh truy vaán UPDATE cuù phaùp nhö sau: UPDATE FROM SET = WHERE Ví duï: ta muoán thay ñoåi teân tænh coù maõ soá (‘001’) thaønh Ñaø Laït ta laøm nhö sau: UPDATE FROM tblTinh SET tblTinh.TenTinh=’Ñaø Laït’ WHERE tblTinh.MaTinh=’001’ Ñeå xoaù döõ lieäu trong moät baûng ta duøng caâu leïnh truy vaán DELETE cuù phaùp nhö sau: DELETE FROM WHERE Ví duï: Ñeå xoùa tænh coù teân tænh laø Khaùnh Hoaø ta laøm nhö sau DELETE FROM tblTinh WHERE tblTinh.TenTinh=’Khaùnh Hoaø’ Hoaëc coù maõ tænh =001 DELETE FROM tblTinh WHERE tblTinh.MaTinh=’001’ Ngoaøi ra trong SQL Server coù nhöõng phaùt bieåu cho pheùp keát noái nhieàu baûn vôùi nhau (JOIN, INNER JOIN, LEFT JOIN, RIGHT JOIN, FULL JOIN, CROSS JOIN). Ví duï: ñeå laáy ñòa chæ cuûa beänh nhaân ta caàn xaùc ñònh xaõ, huyeän, tænh. Vaäy ñeå laáy veà ñòa chæ cuûa beänh nhaân coù raát nhieàu caùch song caùch naøo laø nhanh nhaát dôõ phaûi vieát leänh nhieàu maø hieäu quaû laïi cao. Vieäc naøy ñöôïc thöïc hieän nhôø taïo moät View keát noái table tblTinh, tblHuyen, tblXa caâu truy vaán nhö sau: CREATE VIEW dbo.vwDiaChi AS SELECT dbo.tblTINH.TenTinh,dbo.tblHUYEN.TenHuyen, dbo.tblXA.TenXa, dbo.tblXA.Maxa FROM dbo.tblHUYEN INNER JOIN dbo.tblTINH ON dbo.tblHUYEN.MaTinh = dbo.tblTINH.MaTinh INNER JOIN dbo.tblXA ON dbo.tblHUYEN.MaHuyen = dbo.tblXA.MaHuyen Khí ñaõ coù view ñòa chæ roài ta chæ caàn goïi caâu truy vaán sau laø xeõ coù thoâng tin caàn thieát veà ñòa chæ beänh nhaân. SELECT TenTinh,TenHuyen,TenXa FROM vwDiaChi WHERE MaXa= @MaXa -- @MaXa laø moät bieán ñöôïc ñöa vaøo ñeå choïn ra xaõ caàn tìm. Ôû view treân ta keát noái ba table baèng leänh INNER JOIN ñeå laáy ra caùc tröôøng teân tinh, teân huyeân, teân xaõ, vaø maõ xaõ. I.2.5. Khaùi nieäm veà ñoái töôïng trong SQL vaø caùch taïo caùc ñoái töôïng trong SQL Server. 1. Taïo cô sôû döõ lieäu – CREATE DATABASE Ñeå taïo cô sôû döõ lieäu trong SQL Server ta duøng cuù phaùp sau CREATE DATABASE [ON [PRIMARY] ( [Name=,] FileName= [,SIZE=<Size in Megabyte or KiloByte] [,MAXSIZE=<Size in Megabyte or KiloByte] FILEGROWTH=] )] (LOG ON ( Name=] FileName= [,SIZE=<Size in Megabyte or KiloByte] [,MAXSIZE=<Size in Megabyte or KiloByte] FILEGROWTH=] )] [COLLATE ] [For Load|For Aâttch] Trong ñoù: ON: Ñònh nghóa nôi chöùa döõ lieäu vaø khoâng gian chöùa taäp tin log NAME: Ñònh nghóa teân cô sôû döõ lieäu FILENAME: Teân taäp tin cô sôû döõ lieäu treân ñóa cöùn, Löu yù khi taïo cô sôû döõ lieäu ta ñaët taäp tin ôû vò trí naøo thì khoâng theå di chuyeån moät caùch thuû coâng ñöôïc. SIZE: Cho bieát duïng löôïng cô sôû döõ lieäu khi taïo chuùng. Thoâng thöôøng laø 1MB MAXSIZE: Dung löôïng lôùn nhaát, khi dung löôïng cô sôû döõ lieäu taêng ñeán möùc Maxsize thì döøng laïi. FILEGROWTH: Dung löôïng khôûi taïo cuøng dung löôïng toái ña trong quaù trình theâm döõ lieäu vaøo cô sôû döõ lieäu. LOG ON: Cho pheùp quaûn lí chuyeån taùc xaûy ra trong quaù trình söû duïng cô sôû döõ lieäu cuûa SQL Server. Thoâng thöôøng chuùng chieám khoaûng 25% dung löôïng taäp tin döõ lieäu. Vieäc taïo moät cô sôû döõ lieäu baèng maõ leänh khoâng phaûi laø khoù, song SQL Server cho pheùp taïo cô sôû döõ lieäu baêng giao dieän ñoà hoaï. Ñeå taïo cô sôû döõ lieäu ta duøng trình SQL Server Enterprise Manager. maøn hình taïo cô sôû döõ lieäu baèng Enterprise Manager nhö sau: Sau khi chuùng ta Click vaøo New Database thì maøn hinh taïo cô sôû döõ lieäu hieän ra khi ñoù ta chæ vieäc nhaäp ñaày ñuû caùc thoâng tin yeâu caàu nhö: ñöôøng daãn nôi ñeå taäp tin cô sôû döõ lieäu, dung löôïng taäp tin,… 2. Taïo baûng – CREATE TABLE taïo baûng trong cô sôû döõ lieäu cuõng gioáng nhö taïo caùc ñoái töôïng khaùc trong SQL Server. Cuù phaùp ñaày ñuû ñeå taïo baûng nhö sau: CREATE TABLE [Dataabase_name.[owner].table_name ( [[DEFAULT] [[IDENTITY (seed, increament) [NOT FOÛ REPLICATION]]]] [ROWGUIDCOL] [NULL|NOT NULL] [] [Column_name as computed_columns_expression ……… ) ON{|DEFAULT] Teân coät – Column Name: Teân coät cuõng gioáng nhö teân baûng vaø teân cô sôû döõ lieäu khoâng coù khoaûng traêng, khoâng baét ñaàu baèng chöõ soá vaø caùc kyù töï ñaëc bieät…, tuy nhieân neân ñaët teân ngaén goïn gôïi nhôù Kieåu döõ lieäu – Data type: Khi xaây döïng cô sôû döõ lieäu taát caû caùc tröôøng trong baûng caàn phaûi coù kieåu döõ lieäu cuï theå. Vaán ñeà quan troïng laø choïn kieåu döõ lieäu naøo cho phuø hôïp vôùi döõ lieäu maø ngöôøi duøng xeõ nhaäp vaøo, Giaù trò maëc nhieân – Default: Gaùn giaù trò maëc nhieân cho caùc coät khi khoâng coù döõ lieäu. IDENTITY: Ñaây laø giaù trò cöïc kyø quan troïng trong SQL Server. Khi chuùng ta muoán moät coät coù giaù trò töï ñoäng taêng. Ta neân ñònh nghóa nhö Identity. NULL/NOT NULL: laø traïng thaùi cuûa moät coät coù cho pheùp nhaäp giaù trò null hay khoâng. Raøng buoäc – Column constrain: Kieåm tra döõ lieäu khi döõ lieäu môùi ñöôïc ñöa vaøo coät hoaëc döõ lieäu bò thay ñoåi. Raøng buoäc baûng döõ lieäu – TABLE CONSTRAINTS: Raøng buoäc baûng cuõng gioáng nhö raøng buoäc coät trong baûng, laø kieåm soaùt döõ lieäu nhaäp vaøo baûng theo moät quy luaät ñònh saün. Song cuõng coù theå taïo baûng baèng giao dieän doà hoaï nhö vôùi cô sôû döõ lieäu. Trong khi xaây döïng baûng caàn chuù yù ñeán caùc tröôøng khoaù. 3.Taïo view View laø baûng aûo vaø cuõng nhö vôùi baûng view cuõng coù theå taïo ñöôïc baèng maõ leänh cung nhö giao dieän ñoà hoaï. View cho pheùp keát noái nhieàu baûng vôùi nhau ñeå hieån thò thoâng tin. 4. Thuû tuïc ñöôïc löu vaø haøm (Stored Procedure hay sp, Function) a. Thuû tuïc ñöôïc löu (Stored Procedure) Stored Procedure laø moät phaàn cöïc kyø quan troïng trong cô sôû döõ lieäu SQL Server. Neáu bieát SQL Server maø khoâng bieát Stored Procedure laø moät thieáu soùt raát lôùn. Cuù phaùp ñeå taïo moät Stored Procedure nhö sau: CREATE PROCEDURE | PRO [[VARYING] [=][OUT PUT][, [[VARYING] [=][OUT PUT][, ……………………… ……………………… [WITH RECOMPILE | ENCRIPTION | RECOMPILE, ENCRIPTION] [FOR REPLICATION] AS GO Ñoù laø cuù phaùp ñaày ñuû ñeå taïo moät Stored Procedure song ta coù theå taïo Stored Procedure raát ñôn giaûn baèng giao dieän ñoà hoaï (Enterprise Manager) cuûa SQL Server Ví duï taïo moät Stored Procedure ñôn giaûn: USE BENHNHAN GO Create proc Sp_NhapXa @MaXa nchar(9), @TenXa char(30), @MaHuyen nchar(6) AS Insert Into tblXa ( MaXa, TenXa,MaHuyen ) Values ( @MaXa,@TenXa,@MaHuyen ) --------------------------------------------------- GO Ôû treân ta taïo moät Stored Procedure duøng ñeå nhaäp moät xaõ môùi vaøo baûng Xaõ (tblXa). Khi ñaõ coù Stored Procedure naøy roài ta chæ caàn goïi teân haøm vaø tham soá keøm theo moãi khi nhaäp moät xaõ môùi vaøo table xaõ. b.Taïo haøm (Function) Töông töï nhö Stored Procedure haøm cuõng coù theå taïo baèng giao dieän doà hoaï cuõng nhö maõ leänh song giaù trò traû veà cuûa haøm ña daïng hôn chuùng coù theå traû veà laø moät baûng. Ví duï: Taïo haøm tìm kieám beânh nhaân theo tænh, haøm naøy traû veà moät baûng chöùa thoâng tin veà beänh nhaân trong tænh. CREATE FUNCTION udf_TimBenhNhanTheoTinh (@TenTinh Char(30)) RETURNS Table AS --------------------- Return Select * From tblBenhNhan Where tblBenhNhan.MaXa in -- thuoc xa (Select MaXa From tblXa Where tblXa.MaHuyen in --thuoc huyen (Select MaHuyen From tblHuyen Where tblHuyen.MaTinh in -- thuoc tinh ( Select MaTinh From tblTinh Where tblTinh.TenTinh=@TenTinh))) ---------------------------------------------- I.3. TOÅNG QUAN VEÀ VISUAL BASIC VAØ CÔ SÔÛ DÖÕ LIEÄU TRONG VISUAL BASIC Visual Basic Chöùa moät soá phöông tieän giuùp cho vieäc aùp duïng kyõ thuaät höôùng ñoái töôïng trong vieäc truy caäp döõ lieäu. Trong Visual Basic coù raát nhieàu phöông phaùp truy caäp döõ lieäu nhö: ADO, ADODB, DAO,… noùi chung caùc ñoái töôïng naøy coù nhöõng thuoäc thuoäc tính töông ñoái gioáng nhau. Trong baùo caùo naøy chuùng toâi chuû yeáu ñi saâu vaøo ñoái töôïng ADO ñaây cuõng laø coâng cuï ñöôïc duøng trong chöông trình. I.3.1. ADO laø gì ? ADO (ActiveX Data Object hay ñoái töôïng döõ lieäu ActiveX). Ta coù theå hình dung raèng ADO laø moät moâ hình laøm giaûm kích thöôùc cuûa moâ hình RDO (Ñoái töôïng döõ lieäu töø xa). Moâ hình ñoái töôïng döõ lieäu ActiveX raát goïn. Noù ñöôïc thieát keá ñeå cho pheùp laäp trình vieân laáy ñöôïc moät taäp caùc Record töø nguoàn döõ lieäu moät caùch nhanh nhaát neáu coù theå. Toác ñoä vaø tính ñôn giaûn laø moät trong caùc muïc tieâu coát loõi cuûa ADO, moâ hình naøy ñöôïc thieát keá ñeå cho pheùp taïo ra moät ñoái töôïng Recordset maø khoâng caàn phaûi di chuyeån qua caùc ñoái töôïng trung gian khaùc trong quaù trình laäp trình. Thöïc teá chæ coù ba ñoái töôïng coát loõi trong moâ hình: Connection: Ñaïi dieän keát noái thöïc söï Command: Ñöôïc söû duïng ñeå thöïc thi caùc query döïa vaøo keát noái döõ lieäu. Recordset: Ñaïi dieän cho moät taäp caùc Record ñöôïc choïn query thoâng qua ñoái töôïng Command. Ñoái töôïng Connection chöùa moät taäp caùc ñoái töôïng con goïi laø caùc ñoái töôïng Errors ñoái töôïng naøy giöõ laïi baát kyø moät thoâng tin loãi naøo coù lieân quan ñeán keát noái. Ñoái töông Command coù moät taäp caùc ñoái töôïng con laø Paramenters ñeå giöõ baát cöù tham soá naøo coù theå thay theá cho query. Recordset cuõng coù moät taäp caùc ñoái töôïng con Properties ñeå löu caùc thoâng tin chi tieát veà ñoái töôïng. Connection Command Parameter Recorset Fields Error Sô ñoà moâ hình ActiveX Data Object I.3.2. Caùc thuoäc tính ñaëc bieät cuûa ADO Moâ hình ADO coù moät soá thuoäc tính maø caùc moâ hinh cô sôû döõ lieäu khaùc nhö DAO vaø RDO khoâng coù. Caùc thuoäc tính naøy ñieàu khieån caùch thöùc taïo ra dataset vaø quyeàn haïn truy caäp trong moät keát noái döõ lieäu. Coù baûy thuoäc tính nhö sau: Connection string (Chuoãi keát noái) Command Text (Vaên baûn caâu leänh) Command Type (Kieåu caâu leänh) Cursor location (Ñònh vò con troû) Cursor Type (Kieåu con troû) Look type (kieåu con troû) Mode type (Kieåu cheá ñoä laøm vieäc) Ví duï: Ñeå taïo keát noái ñeán cô sôû döõ lieäu SQL Server vôi teân cô sôû döõ lieäu laø: BENHNHAN ta laøm nhö sau: Public Sub OpenConnection() ' Taïo keát noái ñeán nguoàn döõ lieäu Set cn = New ADODB.Connection cn.Provider = "SQLOLEDB.1;" cn.ConnectionString = " Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=BENHNHAN" cn.Open End Sub Chöông II: ÑAÊC TAÛ BAØI TOAÙN Beänh vieän ña khoa tænh Khaùnh Hoaø caàn quaûn lyù beänh nhaân treân heä thoáng maïng maùy tính cuûa beänh vieän. Sau khi khaûo saùt hieän traïng chuùng toâi ñaõ coù ñöôïc moät soá thoâng tin caàn löu yù sau: Quaûn lyù nhaân vieân tronh beänh vieän Moãi nhaân vieân cuûa beänh vieän ñöôïc quaûn lyù caùc thoâng tin sau: Hoï, Teân, giôùi tính, ngaøy sinh, nôi sinh, ñòa chæ, trình ñoä chuyeân moân, ñôn vò coâng taùc, chöùc vuï. Trong ñoù quaûn lyù: - Ñòa chæ quaûn lyù: Soá nhaø, Xaõ (Phöôøng), Huyeän (Quaän), Tænh (Thaønh phoá). Quaûn lyù beänh nhaân (Ñoái töôïng chính caàn quaûn lí) Khi beänh nhaän ñeán beänh vieän khaùm laàn ñaàu tieân, beänh vieän löu nhöõng thoâng tin sau:Hoï, Teân, giôùi tính, ngaøy sinh, ñòa chæ, ñoái töôïng. Beänh nhaân ñöôïc chia laøm hai loaïi: Loaïi coù baûo hieåm y teá vaø khoâng coù baûo hieåm y teá. Neáu beänh nhaân coù baûo hieåm y teá thì quaûn lyù: Soá theû baûo hieåm y teá, thôøi gian hieäu löïc, phaàn traêm baûo hieåm, nôi khaùm beänh ban ñaàu. Neáu beänh nhaân coù theû baûo hieåm y teá laø coâng nhaân vieân cuûa moät toå chöùc, cô quan naøo ñoù thì quaûn lyù theâm: Teân, ñòa chæ, ñieän thoaïi, fax cuûa cô quan coâng taùc. Ñòa chæ beänh nhaân vaø cô quan chæ quaûn lyù: Soá nhaø(thoân, aâp), Xaõ (Phöôøng), Huyeän (Quaän), Tænh (Thaønh Phoá). Quy trình khaùm chuõa beänh: Beänh nhaân ñeán vieän ñeå khaùm chöõa beänh (vì ñaây laø beänh vieân ña khoa) neân coù caùc tröôøng hôïp sau: Beänh nhaân ñeán ñeå khaùm chöõa caùc beänh thoâng thöôøng. Beänh nhaân ñang ôû trong tình traïng caàn caáp cöùu ñaëc bieät (caùc thuû tuïc nhaäp vieän ñöôïc tieán haønh sau). Beänh nhaân la saûn phuï (ñöôïc ñöa tröïc tieáp ñeán khoa saûn). Nhìn chung beänh nhaân ñeán beänh vieän ñeå khaùm chöõa beänh theo quy trình sau: Böôùc 1: Beänh nhaân ñeán nôi tieáp nhaän beänh nhaân (nôi caáp soå) ñeå xaùc laäp vieäc khaùm beänh vaø ñöôïc chæ ñònh moät vò trí khaùm beänh. Böôùc 2: Beänh nhaân ñöôïc moät baùc só khaùm beänh. Böôùc 3: Sau khi khaùm beänh xong beänh nhaân thuoäc moät trong hai loaïi: Ñieàu trò taïi nhaø hay nhaäp vieän. Böôùc 3.1: Neáu beänh nhaân ñieàu trò taïi nhaø thì baùc só cho moät toa thuoác treân ñoù ghi ñaày ñuû teân thuoác, soá löôïng vaø caùch duøng. Neáu beänh nhaân coù theû baûo hieåm y teá thì ñeán nôi caáp thuoác baûo hieåm y teá ñeå nhaän thuoác vaø traû moät phaàn giaù thuoác theo quy ñònh phaàn traêm treân theû baûo hieåm. Ngöôïc lai thì beänh nhaân phaûi traû taát caû caùc chi phí khaùm beänh vaø töï mua thuoác. Böôùc 3.2: Neáu beänh nhaân phaûi nhaäp vieän thì baùc só khaùm beänh cho moät leänh nhaäp vieän treân ñoù coù ghi ñaày ñuû thoâng tin veà beänh nhaân, caên beänh döï ñoaùn vaø ñöa ñeán khoa ñieàu trò. Böôùc 4: Taïi khoa ñieàu trò beänh nhaân xeõ ñöôïc chuaån ñoaùn vaø laäp moät beänh aùn chi tieát. Treân beänh aùn ghi ñaày ñuû thoâng tin veà beänh nhaân va caên beänh maø beänh nhaân maéc phaûi. Quaù trình ñieàu trò beänh nhaân ñöôïc ghi ñaày ñuû treân beänh aùn. Trong moät khoaûng thôøi gian quy ñònh tuyø theo beänh nhaân, beänh nhaân ñöôïc moät baùc só khaùm, cho moät toa thuoác. Treân toa thuoác ghi ñaày ñuû soá löôïng vaø caùch duøng. Trong quaù trình ñieàu trò beänh nhaân coù theå duøng moät soá dòch vuï khaùm chöõa beänh nhö: Xeùt nghieäm, X_qang, sieâu aâm, … Vieäc söû duïng naøy cuõng theo chæ ñònh cuûa baùc só khaùm chöõa beänh. Moãi dòch vuï co giaù rieâng. Khi beänh nhaân ñieàu trò coù theå löïa choïn loaïi phoøng naèm ñieàu trò vôùi giaù dòch vuï rieäng cho moãi phoøng. Böôùc 5: Thanh toaùn vieän phí: Trong quaù trình ñieàu trò cöù 3 ngaøy beänh vieän yeâu caàu beänh nhaân thanh toaùn vieän phí moät laàn. Neáu beänh nhaân coù theû baûo hieåm y teá thì chæ ñoùng phaàn traêm vieän phí theo baûo hieåm bao goàm tieàn thuoác vaø caùc dòch vuï chöõa trò hoã trôï khaùm beänh. Rieâng tieàn phoøng neáu coù theû baûo hieåm y teá thì beänh nhaân cuõng chæ ñöôïc baûo hieåm y teá thanh toaùn loaïi theo giaù quy ñònh cuûa baûo hieåm y teá veà loaïi phoøng ñoù neáu coù. Khin xuaát vieän beänh nhaân thanh toaùn toaøn boä vieän phí coøn laïi. Trong quaù trình ñieàu trò, neáu coù beänh nhaân troán vieän, khoâng thanh toaùn vieän phí, beänh vieän löu laïi taát caû caùc thoâng tin veà beänh nhaân troán vieän. Neáu sau 3 ngaøy ñieàu trò maø beänh nhaân khoâng ñoùng vieän phí thì buoäc beänh vieän phaûi traû beänh nhaân veà gia ñình töï ñieàu trò Böôùc 6: Theo chu kyø moãi thaùng, beänh vieän thanh toaùn vieän phí vôùi baûo hieåm y teá. Chöông III: PHAÂN TÍCH THIEÁT KEÁ HEÄ THOÁNG THOÂNG TIN III.1 MOÂ HÌNH QUAN NIEÄM DÖÕ LIEÄU DUØNG THUOÁC Soá löôïng duøng Lieàu duøng TÆNH Maõ Tænh Teân Tænh ÑÔN VÒ(K) Maõ ÑV Teân ÑV CHUYEÂN MOÂN Maõ CM Teân CM CHÖÙC VUÏ Maõ ÑV Teân ÑV H-T (1,n) (1,1) HUYEÄN Maõ Huyeän Teân Huyeän X-H (1,1) (1.n) XAÕ Maõ Xaõ Teân Xaõ NHAÂN VIEÂN Maõ nhaân vieân Hoï teân nhaân vieân Ngay sinh Giôùi tính Soá nhaø Ñieän thoaïi NV-ÑV (1,n) (1,1) NV-CM (1,n) (1,1) NV-CV (1,n) (1,1 VÒ TRÍ KB Maõ VTKB Teân VTKB K-BEÄNH - Ngaøy KB Noäi dung Chi phí (1.n) (1.n) ÑÒA CHÆ (1,1) (1.n) BEÄNH NHAÂN Maõ BN Hoï BN Teân BN Ngaøy sinh BN Giôùi tính Soá nhaø BN-X (1.n) (1,1) (1.n) ÑÔN THUOÁC Maõ ÑT Ngaøy keâ ñôn (1,1) BEÄNH Maõ Beänhõ Teân Beänhõ (1.n) (1,1) (1.n) THUOÁC Maõ T Teân T Ñôn giaù BEÄNH AÙN Maõ BA Ngaøy vaøo Ngaøy ra DUØNG DV - Laàn duøng DÒCH VUÏ Maõ DV Teânh DV - Ñôn giaù (1.n) (1.n) (1.n) NÔI ÑIEÀU TRÒ Maõ NÑT Teân NÑT Ñôn giaù (1.1) BHY TEÁ Soá TBHYT Ngaøy baét ñaàu Ngaøy K thuùc Phaàn traêm CAÙN BOÄ BỘ CÔ QUAN Maõ CQ Teân CQ ÑT.CQ Fax CQ CB-CQ (1.1) (1.n) TAÏM ÖÙNG Maõ T.ÖÙng Laàn T.ÖÙng Soá tieàn Ngaøy T.ÖÙng BN-TÖ (1.1) (1.n) III.2 MOÂ HINH TOÅ CHÖÙC DÖÕ LIEÄU TÆNH(Maõ tænh, Teân tænh) HUYEÄN(Maõ huyeän, Teân huyeän, Maõ tænh) XAÕ(Maõ xaõ, Teân xaõ, Maõ huyeän) CÔ QUAN(Maõ cô quan, Teân cô quan, Ñieän thoaïi cô quan, Fax cô quan) CAÙN BOÄ(Maõ beänh nhaân, Maõ cô quan) BAÛO H.Y.TEÁ(Maõ beänh nhaân, Soá theû B.H.Y.T, Ngaøy baét ñaàu, Ngaøy keát thuùc, Phaàn traêm) BEÄNG NHAÂN(Maõ beänh nhaân, HoïBN, Teân BN, Ngaøy sinh BN, Giôùi tính BN, Soá nhaø BN, Maõ xaõ) NHAÂN VIEÂN(Maõ nhaân vieân, Hoï NV, Teân NV, Ngaøy sinh, Giôùi tính, Soá nhaø, Maõ xaõ, Maõ.Ñ.Vò, , Maõ.C.Moân, Maõ.C.Vuï) ÑÔN VÒ KHOA(Maõ ÑV, Teân ÑV) CHUYEÂN MOÂN(Maõ chuyeân moân, Teân chuyeân moân) CHÖÙC VUÏ( Maõ chöùc vuï, Teân chöùc vuï) VÒ TRÍ KHAÙM BEÄNH(Maõ vò trí KB, Teân vò trí KB) KHAÙM BEÄNH(Maõ.N.V, Maõ beänh nhaân, Maõ vò trí, Maõ ñôn thuoác, Maõ beänh, Ngaøy KB, Noäi dung KB, Chi phi KB) ÑÔN THUOÁC(Maõ ñôn thuoác, Ngaøy keâ ñôn, Maõ vò trí, Maõ NV, Maõ BN, Maõ beänh) THUOÁC(Maõ thuoác, Teân thuoác, Ñôn giaù) DUNG THUOÁC(Maõ thuoác, Maõñôn thuoác, Soá löôïng duøng, Lieàu duøng) BEÄNH (Maõ beänh, Teân beänh) NÔI DIEÀU TRÒ(Maõ nôi ÑT, Teân nôi ÑT, Ñôn giaù) DÒCH VUÏ(Maõ dòch vuï, Teân dòch vuï, Ñôn giaù dòch vuï) TAÏM ÖÙNG VIEÄN PHÍ(Maõ phieáu T.Ö, Laàn taïm öùng, Soá tieàn taïm öùng, Maõ BN) Ñoái vôùi beänh aùn cuûa beänh nhaân neáu söû duïng theo moâ hình quan nieäm döõ lieäu thì xeõ phaûi söû duïng nhieàu maõ toå hôïp cho Table Beânh aùn neân ñeå ñôn giaûn trong xöû lí cuõng nhö giaûm vieäc söû duïng maõ toå hôïp trong Table Duøng dòch vuï chuùng toâi ñaõ choïn phöông phaùp thieát keá nhö sau: BEÄNH AÙN(Maõ beänh aùn, Ngaøy vaøo, Ngaøy ra, Maõ beänh nhaân, Maõ nhaân vieân, Maõ Beänh, Maõ Nôi Ñieàu trò) DUØNG DÒCH VUÏ(Maõ beänh aùn, Maõ dòch vuï, Laàn duøng dòch vuï) III.3 MOÂ HÌNH TOÅ CHÖÙC DÖÕ LIEÄU TÆNH(Maõ tænh, Teân tænh) TÆNH Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ tænh Text 3 Len()=3 Teân tænh Text 30 HUYEÄN(Maõ huyeän, Teân huyeän, Maù tænh) HUYEÄN Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ huyeän Text 6 Len()=6 Teân huyeän Text 30 Maõ tænh Text 3 Lookup(TÆNH) XAÕ(Maõ xaõ, Ten xaõ, Maõ huyeän) Xaõ Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ xaõ Text 9 Len()=9 Teân xaõ Text 30 Maõ huyeän Text 6 Lookup(HUYEÄN) CÔ QUAN(Maõ cô quan, Teân cô quan, Ñieän thoaïi cô quan, Fax cô quan) CÔ QUAN Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ cô quan Text 5 Len()= 5 Teân cô quan Text 30 Ñieän thoaïi CQ Text 10 >0 Fax cô quan Text 10 Len()=10 CAÙN BOÄ(Maõ beänh nhaân, Maõ cô quan) CAÙN BOÄ Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ beänh nhaân Text 5 Len()= 5 Maõ cô quan Text 3 Lookup(CÔ QUAN) BAÛO H.Y.TEÁ(Maõ beänh nhaân, Soá theû B.H.Y.T, Ngaøy baét ñaàu, Ngaøy keát thuùc, Phaàn traêm) BAÛO H.Y.TEÁ Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ beänh nhaân Text 5 Lookup(BEÄNH NHAÂN) Soá theû B.H.Y.T Text 14 Len()=14 Ngaøy baét ñaàu Date Date()> Ngaøy keát thuùc Date Date()> Phaàn traêm Text 3 BEÄNG NHAÂN(Maõ beänh nhaân, HoïBN, Teân BN, Ngaøy sinh BN, Giôùi tính BN, Soá nhaø BN, Maõ xa) BEÄNG NHAÂN Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ beänh nhaân Text 5 Len()=5 Hoï beänh nhaân Text 20 Teân beänh nhaân Text 20 Ngaøy sinh BN Date Date()> Giôùi tính Yes/No Soá nhaø beänh nhaân Text 4 Maõ xaõ Text 9 Lookup(XAÕ) NHAÂN VIEÂN(Maõ nhaân vieân, Hoï NV, Teân NV, Ngaøy sinh, Giôùi tính, Soá nhaø, Maõ xaõ, Maõ.Ñ.Vò, Maõ.C.Moân, Maõ.C.Vuï) NHAÂN VIEÂN Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ nhaân vieân Text 5 Len()=5 Hoï teân nhaân vieân Text 30 Ngaøy sinh Date Date()> Giôùi tính Yes/No Soá nhaø Text 4 Maõ xaõ Text 9 Lookup(XAÕ) Maõ ñôn vò Text 5 Lookup(ÑÔN VÒ) Maõ chuyeân moân Text 3 Lookup(CHUYEÂN MOÂN) Maõ chöùc vuï Text 3 Lookup(CHÖÙC VUÏ) ÑÔN VÒ KHOA(Maõ ÑV, Teân ÑV) ÑÔN VÒ KHOA Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ dôn vò Text 5 Len()=5 Teân ñôn vò Text 30 CHUYEÂN MOÂN(Maõ chuyeân moân, Teân chuyeân moân) CHUYEÂN MOÂN Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ chuyeân moân Text 3 Len()=3 Teân chuyeân moân Text 30 CHÖÙC VUÏ( Maõ chöùc vuï, Teân chöùc vuï) CHÖÙC VUÏ Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ chöùc vuï Text 3 Len()=3 Teân chöùc vuï Text 30 VÒ TRÍ KHAÙM BEÄNH(Maõ vò trí KB, Teân vò trí KB) VÒ TRÍ KHAÙM BEÄNH Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ vò trí KB Text 3 Len()=3 Teân vò trí KB Text 30 BEÄNH(Maõ beänh, Teân beänh) BEÄNH Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ beänh Text 8 Len()=3 Teân beänh Text 30 KHAÙM BEÄNH(Maõ.N.V, Maõ beänh nhaân, Maõ ñôn thuoác, Maõ beänh, Maõ vò trí, Ngaøy khaùm beänh, Noäi dung KB, Chi phi KB) KHAÙM BEÄNH Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ nhaân vieân Text 5 Lookup(NHAÂN VIEÂN) Maõ beänh nhaân Text 5 Lookup(BEÄNH NHAÂN) Maõ ñôn thuoác Text 10 Lookup(ÑÔN THUOÁC) Maõ beänh Text 8 Lookup(BEÄNH) Maõ vò trí Text 3 Lookup(VÆ TRÍ) Ngaøy khaùm beänh Date >Date() Noäi dung khaùm beänh Text 50 Chi phí khaùm beänh Number Long >0 THUOÁC(Maõ thuoác, Teân thuoác) THUOÁC Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ thuoác Text 10 Teân thuoác Text 30 DUNG THUOÁC(Maõ thuoác, Maõñôn thuoác, Soá löôïng duøng, Lieàu duøng) DUNG THUOÁC Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ thuoác Text 10 Lookup(THUOÁC) Maõ ñôn thuoác Text 10 Lookup(ÑÔN THUOÁC) Soá löôïng duøng Number Integer >0 Lieàu duøng Number Long >0 ÑÔN THUOÁC(Maõ ñôn thuoác, Ngaøy keâ ñôn, Maõ vò trí, Maõ NV, Maõ BN Maõ beänh) Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ ñôn thuoác Text 10 Len()=10 Ngaøy keâ ñôn Date >Date() Maõ beänh nhaân Text 8 Lookup(BEÂNH NHAÂN) Maõ vò trí Text 3 Lookup(VÒ TRÍ) Maõ nhaân vieân Text 5 Lookup(NHAÂN VIEÂN) Maõ beänh Text 8 Lookup(BEÄNH) BEÄNH AÙN(Maõ beänh aùn, Ngaøy vaøo, Ngaøy ra, Maõ beänh nhaân, Maõ nhaân vieân, Maõ Beänh, Maõ Nôi Ñieàu trò) BEÄNH AÙN Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ beänh aùn Text 8 Len()=8 Maõ nôi ñieàu trò Text 3 Lookup(NÔI ÑT) Maõ beänh Text 3 Lookup(DÒCH VUÏ) Maõ beänh nhaân Text 5 Lookup(BEÄNH NHAÂN) Maõ nhaân vieân Text 5 Lookup(NHAÂN VIEÂN) Ngaøy vaøo Date >Date() Ngaøy ra Date >Date() NÔI DIEÀU TRÒ(Maõ nôi ÑT, Teân nôi ÑT) NÔI DIEÀU TRÒ Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ nôi ñieàu trò Text 3 Len()=3 Teân nôi ñieàu trò Text 30 DÒCH VUÏ(Maõ dòch vuï, Teân dòch vuï) DÒCH VUÏ Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ dòch vuï Text 3 Len()=3 Teân dòch vuï Text 30 Ñôn giaù dich vuï Money > 0 DUØNG DÒCH VUÏ(Maõ beänh aùn, Maõ dòch vuï, Laàn duøng dòch vuï) DUØNG DÒCH VUÏ Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ beänh aùn Text 8 Lookup(BEÄNH AÙN) Maõ dòch vuï Text 3 Lookup(DICH VUÏ) Teân dòch vuï Text 30 TAÏM ÖÙNG VIEÄN PHÍ(Maõ phieáu T.Ö, Laàn taïm öùng, Soá tieàn taïm öùng, Maõ BN) TAÏM ÖÙNG VIEÄN PHÍ Teân thuoäc tính Kieåu döõ lieäu Kích thöôùc Raøng buoäc Maõ phieáu taïm öùng Text 8 Lookup(BEÄNH AÙN) Laàn taïm öùng Int Soá tieàn taïm öùn Money > 0 Maõ beänh nhaân Text 10 Lookup(BEÄNH NHAÂN) III.4 MOÂ HÌNH THOÂNG LÖÔÏNG THOÂNG TIN BEÄNH NHAÂN PHOØNG CAÁP SOÁ PHOØNG KHAÙM BEÄNH PHOØNG CAÁP THUOÁC PHOØNG TAØI VUÏ KHOA ÑIEÀU TRÒ (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (6) (1) Yeâu caàu khaùm chöõa beänh (2) Vò trí khaùm beänh (Soá ñöôïc caäp) (3) Quaù trình khaùm beänh (4) Keát quaû khaùm beänh (5) Danh saùch beänh nhaân nhaäp vieän (6) Danh saùch beänh nhaân ñöôïc caáp thuoác (7) Leänh nhaäp vieän (8) Caùc chi phí ñieàu trò (9) Xaùc nhaän thanh toaùn vieän phí (10) Danh saùch beänh nhaân ñaõ thanh toaùn Giaáy xuaát vieän III.5 MOÂ HÌNH QUAN NIEÄM XÖÛ LÍ Moâ hình quan nieäm: Danh saùch coâng vieäc: STT Danh saùch caùc coâng vieäc cuûa baøi toaùn 1 Tieáp nhaän yeâu caàu khaùm chöõa beänh cuûa beänh nhaân. 2 Caáp soá cho beänh nhaân ñeán phoøng khaùm beänh 3 Chæ ñònh baùc só khaùm beänh cho beänh nhaân theo soá ñaõ caáp 4 Keát quaû khaùm beänh cho beänh nhaân 5 Ghi toa thuoác cho beänh nhaân 6 Caáp thuoác cho beänh nhaân 7 Thu phí khaùm beänh 8 Cho giaáy nhaäp vieän 9 Tieáp nhaän beänh nhaân ñeán ñieàu trò 10 Laäp beänh aùn chi tieát cho beänh nhaân 11 Laäp toa thuoác ñieàu trò 12 Cung caáp caùc dòch vuï hoã trôï khaùm chöõa beänh 13 Thu vieän phí 14 Laäp danh saùch beänh nhaân troán vieän 15 Xem xeùt caùc tröôøng hôïp beänh nhaân khoâng thanh toaùn vieän phí 16 Caáp giaái xuaát vieän cho beänh nhaân III.6 MOÂ HÌNH QUAN NIEÄM XÖÛ LÍ: Khi beänh nhaân caáp cöùu ñaëc bieät Khi beänh nhaân ñeán khaùm beänh OR TIEÁP NHAÄN YEÂU CAÀU KHAÙM CHÖÕA BEÄNH CUÛA BEÄNH NHAÂN YES CAÁP SOÁ CHO BEÄNH NHAÂN YES Danh saùch beänh nhaân ñaõ caáp soá BS KHAÙM BEÄNH CHO BN YES Hoà sô beänh aùn PHAÂN LOAÏI BN YES NO (1) (2) Beänh nhaân caàn phaûi nhaäp vieän Beänh nhaân chæ ñònh ÑT taïi nhaø (1) (2) THU PHÍ KHAÙM BEÄNH YES CAÁP GIAÁY NHAÄP VIEÄN YES NO DS beänh nhaân coù giaáy nhaäp vieän DS beänh nhaân ñieàu trò taïi nhaø TIEÁP NHAÄN BN ÑEÁN CHÖÕA BEÄNH YES LAÄP ÑÔN THUOÁC CHO BEÄNH NHAÂN YES DS beänh nhaân chöõa beänh DS beänh nhaân ñaõ coù ñôn thuoác CAÁP THUOÁC CHO BEÄNH NHAÂN YES LAÄP BEÄNH AÙN CHI TIEÁT YES (3) (4) (3) (4) DS hoà sô beänh aùn DS beänh nhaân ñaõ ñöôïc caáp thuoác LAÄP TOA THUOÁC THEO BEÄNH AÙN YES DS hoà sô beänh aùn DS beänh nhaân ñaõ ñöôïc caáp thuoác DS beänh nhaân ñaõ coù beänh aùn CUNG CAÁP CAÙC DV HOÃ TRÔÏ ÑIEÀU TRÒ YES DS beänh nhaân ñang ñieàu trò THU VIEÄN PHÍ YES NO DSBN ñaõ thanh toaùn vieän phí DSBN chöa ñoùng vieän phí (3) (5) (6) CAÁP GIAÁY XUAÁT VIEÄN CHO BN YES LAÄP DS TRÌNH LAÕNH ÑAÏO XEM XEÙT YES (5) (6) Beänh nhaân ñaõ xuaát vieän Beänh nhaân troán vieän III.5 MOÂ HÌNH TOÅ CHÖÙC XÖÛ LÍ 1. Baûng coâng vieäc STT TEÂN COÂNG VIEÄC NÔI THÖÏC HIEÄN PHÖÔNG THÖÙC TAÀN SUAÁT CHU KYØ 1 Ñaêng kyù khaùm chöõa beänh Phoøng ghi soá Thuû coâng Baát kyø luùc naøo khi coù YC trong ngaøy Haøng ngaøy 2 Caáp soá cho beänh nhaân Phoøng ghi soá Thuû coâng Khi coù BNYC trong ngaøy Haøng ngaøy 3 Chæ ñònh baùc só khaùm beänh cho beänh nhaân Phoøng caáp soá Thuû coâng Khi coù BNYC trong ngaøy Haøng ngaøy 4 Khaùm beänh cho beänh nhaân BS chuyeân khoa KCB Thuû coâng Khi BN ñaõ coù soá trong ngaøy Haøng ngaøy 5 Keát quaû khaùm beänh cuûa BN Phoøng (khoa) cuûa BSKB Thuû coâng Khi coù BNKCB trong ngaøy Haøng ngaøy 6 Laäp toa thuoác cho BN Baùc só KB Thuû coâng Khi coù BNKCB trong ngaøy Haøng ngaøy 7 Caáp thuoác cho beänh nhaân Phoøng caáp thuoác Thuû coâng Khi beänh nhaân ñaõ coù toa thuoác Haøng ngaùy 8 Thu phí KB Phoøng thanh toaùn V.phí Töï ñoäng Khi coù BNKCB trong ngaøy Haøng ngaøy 9 Laäp leänh nhaäp vieän (vôùi BN nhaäp vieän) Baùc só khaùm beänh Thuû coâng Khi coù BNKCB trong ngaøy Haøng ngaøy 10 Tieáp nhaän BN ñeán chöõa beänh Khoa ñieàu trò Thuû coâng Khi co leänh nhaäp vieän trong ngaøy Haøng ngaøy 11 Laäp beänh aùn chi tieát cho BN Baùc só chuyeân khoa Thuû coâng Khi coù BN nhaäp vieän trong ngaøy Haøng ngaøy 12 Ñieàu trò cho Beänh nhaân Baùc só chuyeân khoa Thuû coâng + töï ñoäng Khi coù BN nhaäp vieän trong ngaøy Haøng ngaøy 13 Cung caáp caùc DV hoã trôï ñieàu trò beänh Phoøng KCB Thuû coâng Khi coù beänh nhaân yeâu caàu trong ngaøy Haøng ngaøy 14 Thu taïm öùng vieän phí cuûa beänh nhaân Phoøng TTVP Töï ñoäng 3 ngaøy/laàn 3 ngaøy 15 Thanh toaùn vieän phí Phoøng TTVP Töï ñoäng 3 ngaøy/laàn 3 ngaøy 16 Thanh toaùn toaøn boä VPXV Phoøng thanh toaùn vieän phí Töï ñoäng Khi BNKVB xong/laàn Khi BN ñieàu trò xong hoaøn toaøn 17 Laäp DS beänh nhaân troán vieän, khoâng thanh toaùn vieän phí ñaày ñuû Khoa (phoøng) ñieàu trò cho beänh nhaân Thuû coâng Khi beänh nhaân troán vieän Khi coù beänh nhaân troán vieän 18 Thanh toaùn tieàn vieän phí vôùi BHYT Phoøng thanh toaùn vieän phí Thuû coâng 1 laàn/ thaùng 1 thaùng 2. Moâ hình toå chöùc xöû lí: BEÄNH NHAÂN PHOØNG CAÁP SOÁ KHOA (P) KCB PHOØNG CAÁP THUOÁC BAC SÓ KCB PHOØNG TTVP BAN LAÕNH ÑAÏO Khi coù yeâu caàu KCB cuûa BN CAÁP SOÁ CHO BN YES Haøng ngaøy khi coù BN yeâu caàu KCB DSBN ñaõ ñöôïc caáp soá CHÆ ÑÒNH BSKB YES DS ñaõ ñöôïc chæ ñònh BS KCB BSKB CHO BN YES DSBN ñaõ ñöôïc BS-KB (1) KEÁT QUAÛ KB -BN YES NO (1) DSBN phaûi nhaäp vieän DSBN ñieàu trò taïi nhaø THU PHÍ KB YES LAÄP LEÄNH NV YES DSBN ñaõ thu phí LAÄP ÑÔN THUOÁC YES TIEÁP NHAÄN BNNV YES DSBN ñaõ nhaäp vieän DSBN ñaõ coù ñôn thuoác CAÁP THUOÁC CHO BN YES DSBN ñaõ nhaäp vieän (2) DSBN coù leänh NV LAÄP BA CHO BN YES (2) DSBN ñaõ coù BA ÑT CHO BN YES DSBN ñang ÑT taïi beänh vieän CUNG CAÁP CAÙC DVHTDTB CHO BN YES DSBN ñang ñieàu trò TTVP CUA BN YES NO DSBN ñaõ TT ñaày ñuû VP DSBN troán vieän (3) (4) CAÁP GIAÁY X.VIEÄN YES DSBN ñaõ xuaát vieän (3) LAÄP DSBN CHÖA TTÑÑVP YES (4) DSBN chöa TTÑÑVP LAÕNH ÑAÏO XEM XEÙT YES DSBN töï xuaát vieän Sau khi toång keát BN_SD_TBHYT Moãi thaùng moät laàn THANH TOAÙN VP VÔÙI BHYT YES DSVP cuûa BN coù BHYT ñaõ TT vôùi BHHYT III.7 MOÂ HÌNH VAÄT LYÙ XÖÛ LYÙ Moâ hình toång theå HEÄ THOÁNG BEÄNH NHAÂN NHAÂN VIEÂN QUAÛN TRÒ VIEÂN BEÄNH NHAÂN Thoâng tin caàn bieát Ñaêng nhaäp heä thoáng Xem thoâng tin veà beänh nhaân Xem hoà sô beänh aùn Xem chi phí ñieàu trò Xem ñôn thuoác vaø caùch duøng NHAÂN VIEÂN Ñaêng nhaäp heä thoáng Thay ñoåi maät khaåu Taïo môùi thay ñoåi ñôn thuoác Laäp DSBN troán vieän Taïo söûa ñoåi beänh aùn cuûa BN Laäp giaáy xuaát vieän cho BN QUAÛN TRÒ VIEÂN Ñaêng nhaäp heä thoáng Thay ñoåi maät khaåu Thoâng tin chung Heä quaûn lyù Baùo caùo in aán hoà sô THOÂNG TIN CHUNG Thoâng tin veà lieân tòch beänh vieän Thoâng tin veà soá khoa ñieàu trò hieän coù taïi beänh vieän Thoâng tin veà danh saùch caùc tröôûng khoa taïi beänh vieän BAÙO CAÙO – IN AÁN HOÀ SÔ Danh saùch beänh nhaân nhaäp vieän Danh saùch nhaân vieân beänh vieän In toa thuoác, beänh aùn beänh nhaân HEÄ THOÁNG QUAÛN LYÙ Quaûn lyù hoà sô beänh nhaân Quaûn lyù beänh aùn beänh nhaân Töø ñieån veà thoâng tin beänh vieän Quaûn lyù hoà sô nhaân vieân Töø ñieån thoâng tin DANH MUÏC TÖØ ÑIEÅN ÑÒA CHÆ Theâm döõ lieäu Xaõ Phöôøng môùi Theâm, Söûa, Xoùa thoâng tin Xaõ Phöôøng Theâm thoâng tin veà Quaän Huyeän Theâm, Xoaù Söa thoâng tin veà Quaän Huyeän Theâm thoâng tin veà Tænh Thaønh Theâm, Söûa, Xoaù thoâng tin veà Tænh Thaønh DANH MUÏC TÖØ ÑIEÅN TT BEÄNH VIEÄN Theâm thoâng tin veà khoa ñieàu trò môùi Theâm, Xoùa, Söûa thoâng tin veà khoa ñieàu trò Theâm thoâng tin veà dòch vuï môùi Theâm Söûa Xoaù thoâng tin veà thuoác Theâm, Söûa, Xoa thoâng tin veà dòch vuï Theâm thoâng tin veà nôi khaùm beänh môùi Theâm,Söûa, Xoaù thoâng tin veà nôi khaùm beänh Theâm thoâng tin veà thuoác môùi QUAÛN LYÙ NHAÂN VIEÂN Theâm thoâng tin veà hoà sô nhaân vieân môùi Theâm, Xoùa, Söûa thoâng tin veà hoà sô nhaân vieân Theâm thoâng tin veà ñôn vò coâng taùc môùi Theâm, Xoaù, Söûa thoâng tin veà ñôn vò coâng taùc Theâm thoâng tin veà quaù trình coâng taùc môùi Theâm, Xoaù, Söûa thoâng tin veà quaù trình CT QUAÛN LYÙ BEÄNH NHAÂN Theâm thoâng tin veà hoà sô beänh nhaân môùi Theâm, Xoùa, Söûa thoâng tin hoà sô beänh nhaân Theâm thoâng tin veà baûo hieåm y teá môùi Theâm Xoaù, Söûa thoâng tin veà taïm öùng Theâm, Söûa, Xoa thoâng tin baûo hieåm y teá Theâm thoâng tin veà cô quan coâng taùc BN Theâm,Söûa, Xoaù thoâng tin CQ coâng taùc BN Theâm thoâng tin veà taïm öùng môùi Chöông IV: THÖÏC HIEÄN CAØI ÑAËT CHÖÔNG TRÌNH IV.1. CAÙCH KEÁT NOÁI DÖÕ LIEÄU Trong chöng trình chuùng toâi xöû duïng moâ hình ADO (ActiveX Data Object) trong Visual Basic ñeå keát noái vôùi cô sôû döõ lieäu, moâ hình nay cung caáp haàu heát caùc coâng cuï keát noái vôùi cô sôû döõ lieäu. ADO Interface: Caùc ñoái töôïng ADO giao tieáp vôùi database thoâng qua ODBC (Open Database Connectivity), chuùng coù theå ñöôïng söû duïng vôùi baát kyø loaïi database naøo neáu nhö ODBC driver hoã trôï. Caùch keát noái vôùi cô sôû döõ lieäu: Nhö phaàn toång quan ngoân ngöõ ta ñaõ noùi ñeå ADO hoaït ñoäng ñöôïc vôùi cô sôû döõ lieäu (hay ñeå öùng duïng coù theå moùc noái ñöôïc vôùi cô sôû döõ lieäu) ta phaûi vieát maõ leänh cho ADODB keát noái vôùi cô sôû döõ lieäu. Cuï theå ñeå ADODB keát noái vôùi cô sôû döõ lieäu BENHNHAN ta vieát maõ leänh nhö sau: Public cn As ADODB.Connection Public Sub OpenConnection() ' Tao ket noi den nguon co so du lieu Set cn = New ADODB.Connection cn.Provider = "SQLOLEDB.1;" cn.ConnectionString = " Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=BENHNHAN" cn.Open End Sub Ôû ñaây chuùng ta khai baùo bieán toaøn cuïc caáp modules CN coù kieåu ñoái töôïng ADODB.Connection töùc ñoái töôïng naøy duøng ñeå keát noái vôùi cô sôû döõ lieäu vaø coù theå duøng ô moïi Form trong chöông trình. IV.2. CAÙC PHÖÔNG THÖÙC ÑOÁI TÖÔÏNG ADODB Open method: Ñöïôc söû duïng ñeå môû moät lieân keát vôùi database. Ngay sau khi taïo instance cho connection Object ta coù theå môû moät keát noái vôùi Data Soure ñeå truy xuaát döõ lieäu. Execute method: Cho pheùp thöïc thi moät caâu leänh taùc ñoäng leân data soure. Trong ñoù CommandText laø chuoãi leänh caàn thöùc hieän, thoâng qua tham soá option caùc giaù trò khaùc nhau quy ñònh loaïi CommandText. Giaù trò Danh hieäu haèng töông öùng Loaïi cuûa CommandText 0 AdCmdUnknown Maëc ñònh khi ñònh nghóa 1 AdCmdText Laø moät caâu leângh, VD: caâu leänh SQL 2 AdCmdTable Teân cuûa Table maø ta seõ taïo Recordset 3 AdCmdStoreProc Moät Store procedure trong Data soure Thoâng thöôøng caùc giaù trò treân ñöôïc gaén saün vaøo caùc danh hieäu haèng vaø ñöôïc löu tröõ trong file include coù teân adovbs.inc. Trong chöông trình chuùng toâi söû duïng giaù trò maëc ñònh töùc giaù trò laø: adCmdUnknown Close method: Phöông thöùc naøy duøng ñeå ñoùng caùc keát noái ñöôïc chæ ra sau caâu leânh. Ta cuõng coù theå set bieán ñoái töôïng naøy veà Nothing Ngoaøi ra Visual Basic coøn cung caáp moät dich vuï keát noái döõ lieäu baèng Data Environment raát tieän lôïi ñaây cuõng laø moät daïng keát noái ADO raát deã söû duïng cuõng nhö taïo keát noái taát caû ñeàu ñöôïc thöùc hieän qua giao dieän ñoà hoaï. Trong Data Environment coù theå löu tröõ caùc baûng (Table), caùc Stored Procedure cuõng nhö caùc haøm hay caùc View khaùc. IV.3. MOÄT SOÁ ÑOAÏN CHÖÔNG TRÌNH TRONG BAØI SÖÛ DUÏNG CAÙC PHÖÔNG THÖÙC TREÂN. Ñeå hieån thò dö lieäu ñaõ coù treân table ta coù ñoaïn maõ leänh sau: Private Sub Display_Listview() Dim rs As New ADODB.Recordset Dim Str Dim mItem As listItem listItem.ListItems.Clear Str = "select * from tblTinh order by Matinh asc" Set rs = cn.Execute(Str) 'Thuc Hien Mot Lenh SQL duoc chi ra boi str If rs.EOF = False Then While Not rs.EOF Set mItem = listItem.ListItems.Add(, , rs!MaTinh) mItem.SubItems(1) = rs!TenTinh rs.MoveNext Wend End If End Sub Ôû ñaây ListItem laø ñoái töôïng Listview coù chöùc naêng hieån thò döõ lieäu, trong ñoaïn chöông trình treân ta söû duïng phöông thöùc (Set rs = cn.Execute(Str)) ñeå thöïc hieän moät caâu truy vaán (Caâu truy vaán traû veà moät Record laø thoâng tin cuûa table tænh)keát quaû traû veà töø caâu truy vaán naøy ñöôïc gaùn cho rs vaø ñöôïc hieån thò treân Listview. Ñeå theâm môùi moät tænh (thaønh) ta coù maõ leänh sau DE.Sp_NhapTinh MaTinh, TenTinh Trong ñoù DE laø ñoái töôïng Data Environment maø ta ñaõ noùi ôû treân coøn SP_NhapTinh laø caùc haøm (hay caùc Stored Procedure) ñaõ ñöôïc vieát vaø löu trong cô sôû döõ lieäu, caâu leänh truy vaán taïo môùi moät tænh nhö sau: Create proc Sp_NhapTinh @MaTinh nchar(3), -- MaTinh vaø TenTinh laø caùc tham soá daàu vaøo cuûa @TenTinh char(30) -- Stored Procedure AS Insert Into tblTINH ( MaTinh, TenTinh ) Values ( @MaTinh,@TenTinh ) GO Töông töï vôùi phöông Stored Procedure söûa teân tænh Vôùi vieäc xoaù moät tænh coù khaùc chuùt ít vieäc xoaù moät tænh coù lieân quan ñeán caùc raøng buoäc toaøn veïn. Vieäc xoaù moät tænh khoâng chæ xoùa ñi tænh ñoù, vieäc naøy phaûi ñi keùm vôùi vieäc xoaù taát caû caùc huyeän cuõng nhö caùc xa thuoäc tænh ngoaøi ra ta coøn phaûi xoaù taát caùc caùc beänh nhaân vaø nhaân vieân (cuøng giaáy tôø keøm theo) thuoäc tænh caàn xoaù. Maõ leänh coù daïng nhö sau: -------- Thuû tuïc duøng ñeå xoaù moät tænh ----------- CREATE PROCEDURE Sp_XoaTinh @Matinh nchar(3), ‘Tham soá ñaàu vaøo cuûa Stored Procedure @TenTinh char(30) AS ----- Xoaù khaùm beänh uùng vôùi beänh nhaân thuoäc tænh DELETE From tblKhamBenh Where tblKhamBenh.MaBenhNhan in ( Select MaBenhNhan From TblBenhNhan Where tblBenhNhan.maXa in (Select MaXa From tblXa Where tblXa.MaHuyen in (Select MaHuyen From tblHuyen Where tblHuyen.MaTinh=@MaTinh))) ----- Xoaù khaùm beänh uùng vôùi nhaân vieân thuoäc tænh DELETE From tblkhamBenh Where tblKhamBenh.MaNhanVien in ( Select MaNhanVien From TblNhanVien Where tblNhanVien.maXa in (Select MaXa From tblXa Where tblXa.MaHuyen in (Select MaHuyen From tblHuyen Where tblHuyen.MaTinh=@MaTinh))) ---- Xoùa duøng thuoác öùng vôùi ñôn thuoác cuûa beänh nhaân DELETE From tblDungThuoc Where tblDungThuoc.MaDonThuoc in (Select MaDonThuoc From tblDonThuoc Where tblDonThuoc.MaBenhNhan in (Select MaBenhNhan From tblBenhNhan Where tblBenhNhan.maXa in (Select MaXa From tblXa Where tblXa.MaHuyen in (Select MaHuyen From tblHuyen Where tblHuyen.MaTinh=@MaTinh)))) -- Xoaù ñôn thuoác cuûa beänh nhaân thuoäc tænh DELETE From tblDonThuoc Where tblDonThuoc.MaBenhNhan in (Select MabenhNhan From tblBenhNhan Where tblBenhNhan.maXa in (Select MaXa From tblXa Where tblXa.MaHuyen in (Select MaHuyen From tblHuyen Where tblHuyen.MaTinh=@MaTinh))) ----- Xoaù taïm öùng cuûa beänh nhaân thuoäc tænh DELETE From tblTamUng Where tblTamUng.MaBenhNhan in ( Select MaBenhNhan From TblBenhNhan Where tblBenhNhan.maXa in (Select MaXa From tblXa Where tblXa.MaHuyen in (Select MaHuyen From tblHuyen Where tblHuyen.MaTinh=@MaTinh))) ----- Xoaù beänh aùn cuûa beänh nhaân DELETE From tblBenhAn Where tblBenhAn.MaBenhNhan in ( Select MaBenhNhan From TblBenhNhan Where tblBenhNhan.maXa in (Select MaXa From tblXa Where tblXa.MaHuyen in (Select MaHuyen From tblHuyen Where tblHuyen.MaTinh=@MaTinh))) -------Xoaù caùc beänh nhaân thuoäc tænh ----------------------- DELETE From tblBenhNhan Where tblBenhNhan.maXa in (Select MaXa From tblXa Where tblXa.MaHuyen in (Select MaHuyen From tblHuyen Where tblHuyen.MaTinh=@MaTinh)) --- Xoaù duøng thuoác maø nhaân vieân thuoäc tænh laäp DELETE From tblDungThuoc Where tblDungThuoc.MaDonThuoc in (Select MaDonThuoc From tblDonThuoc Where tblDonThuoc.MaNhanVien in (Select MaNhanVien From tblNhanVien Where tblNhanVien.maXa in (Select MaXa From tblXa Where tblXa.MaHuyen in (Select MaHuyen From tblHuyen Where tblHuyen.MaTinh=@MaTinh)))) ------ Xoaù ñôn thuoác maø nhaân vieân laäp DELETE From tblDonThuoc Where tblDonThuoc.MaNhanVien in (Select MaNhanVien From tblNhanVien Where tblNhanVien.maXa in (Select MaXa From tblXa Where tblXa.MaHuyen in (Select MaHuyen From tblHuyen Where tblHuyen.MaTinh=@MaTinh))) ----- Xoaù beänh aùn maø nhaân vieân laäp DELETE From tblBenhAn Where tblBenhAn.MaNhanVien in ( Select MaNhanVien From TblNhanVien Where tblNhanVien.maXa in (Select MaXa From tblXa Where tblXa.MaHuyen in (Select MaHuyen From tblHuyen Where tblHuyen.MaTinh=@MaTinh)) ) -----Xoaù taát caû nhaân vieân thuoäc tænh----------- DELETE From tblNhanVien Where tblNhanVien.maXa in (Select MaXa From tblXa Where tblXa.MaHuyen in (Select MaHuyen From tblHuyen Where tblHuyen.MaTinh=@MaTinh)) -------- Xoaù taát caû caùc xaõ thuoäc tænh------------------ DELETE From tblXa Where tblXa.MaHuyen in (Select MaHuyen From tblHuyen Where tblHuyen.MaTinh = @Matinh) --------Xoaù taát caû caùc huyeän thuoäc tænh--- DELETE From tblHuyen Where tblHuyen.Matinh = @Matinh --------- Xoaù tænh coù maõ tænh ñöôïc chæ ra-- DELETE From tblTinh Where MaTinh=@Matinh GO Ñoái vôùi caùc thuû tuïc xoaù moät huyeän cuõng nhaö moät xaõ ta cuõng phaûi ñi xoù taát caû caùc beänh nhaân vaø nhaân vieân tröïc thuoäc ñòa danh ñoù. Trong quùa trình trình baøy döõ lieäu chuùng toâi ñaõ söû duïng moät soá View ñeå keát noái baûng ví duï vôùi View ñòa chæ nhö sau: CREATE VIEW dbo.vwDiaChi AS SELECT dbo.tblTINH.TenTinh, dbo.tblHUYEN.TenHuyen, dbo.tblXA.TenXa, dbo.tblXA.Maxa FROM dbo.tblHUYEN INNER JOIN dbo.tblTINH ON dbo.tblHUYEN.MaTinh = dbo.tblTINH.MaTinh INNER JOIN dbo.tblXA ON dbo.tblHUYEN.MaHuyen = dbo.tblXA.MaHuyen Ñeå tìm kieám moät beänh nhaân chuùng toâi söû duïng moät haøm tìm kieám haøm naøy traû veà moät table caùc tieâu chí tìm kieám ñöôïc chæ ra baèng caùc tham soá ñaàu vaøo cuûa haøm. Ví duï veà moät haøm tìm kieám beänh nhaân theo hoï vaø teân ñaày ñuû trong chöông trình. CREATE FUNCTION udf_TimBenhNhanTheoHoTen (@HoBenhNhan Char(20), @TenBenhNhan char(20)) RETURNS Table ------------------------------------- AS --------------------- Return Select * From tblBenhNhan Where (tblBenhNhan.HoBenhNhan= @HoBenhNhan) and (tblBenhNhan.TenBenhNhan= @TenBenhNhan) GO ----------------------------------------- Troïng ñoaïn chöông trình treân vieäc tìm moät beänh nhaân laø khaù ñôn giaûn. Giaû söû ta nhôù ñaày ñuû hoï vaø teân ñaày ñuû cuûa beänh nhaân ta coù theå tìm theo phöông phaùp treân. Song neáu chæ nhôù ñöôïc hoï hoaëc teân cuûa beänh nhaân thi ta cuõng coù theå tìm ñöôïc beänh nhaân baèng caùc haøm tìm theo hoï, theo teân beänh nhaân, trong chöông trình coøn söû duïng moät soá haøm khaùc maø chuùng toâi khoâng tieän trình baøy trong baùo caùo naøy. Thoaït tieân ta coù caûm giaùc moät haøm (Function) hôi gioáng vôùi moät View song vôùi View thì khoâng coù döõ lieäu ñaàu vaøo coøn vôùi haøm thì ngöôïc laïi. Roõ raøng ñeå truy xuaát döõ lieäu vôùi haøm laø linh hoaït hôn vôùi View raát nhieàu. chöông V: MOÄT SOÁ FORM CHÍNH CUÛA CHÖÔNG TRÌNH Form Chính, khi chaïy chöông trình thì Form naøy ñöôïc goïi ñaàu tieân vaø töø ñaây ta coù theå goïi vaø thöïc hieän taát caû caùc Form khaùc Form chính cuûa chöông trình Form thoâng tin beänh nhaân: ôû Form naøy ta coù theå xem, söûa, xoùa thaäm chí coù theå theâm môùi thoâng tin veà beänh nhaân. Ngoaøi ra Form naøy coø coù theå taïo môùi cuõng nhö xem chi tieát moät beänh aùn cuõng nhö baûo hieåm y teá. - Form hoà sô nhaân vieân taïi ñaây ta coù theå theâm môùi hoaëc söûa, xoaù thoâng tin veà nhaân vieân - Form tim kieám beänh nhaân. Ôû ñaây chuùng ta coù theå tìm kieám beänh nhaân theo nhöõng tieâu chí ñöôïc chæ ra ví duï: tim beânh nhaân theo hoï, theo teân, theo hoï teân ñaày ñuû hoaëc theo ñòa chæ…… ôû ñaây ta cuõng coù theå in thoâng tin beänh nhaân ñoù ra giaáy. - Form Thoáng keâ beânh nhaân töông töï Form tìm kieám song ôû ñaây chæ thoáng keâ soá beänh nhaân theo beänh, theo ñoä tuoåi… cung nhö Form tìm kieám Form naøy cuõng coù theå in baùo bieåu ñöôïc Ngoaøi ra trong chöông trình coøn coù moät soá Form khaùc chuùng toâi khoâng tieän trình baøy ôû ñaây song ôû treân laø moät soá Form chính cuûa chöông trình. Chöông VI: KEÁT LUAÄN VAØ ÑEÀ XUAÁT YÙ KIEÁN VI.1. KEÁT LUAÄN Ñöùng tröôùc xu höôùng phaùt trieån nhanh vaø maïnh cuûa neàn coâng ngheä thoâng tin theá giôùi cuõng nhö coâng ngheä thoâng tin nöôùc nhaø, vieäc tin hoïc hoaù coâng vieäc quaûn lyù haønh chính laø voâ cuøng quan troïng vaø böùc thieát hieän nay. Noù xeõ giuùp cho caùc cô quan haønh chính giaûi quyeát nhöõng coâng vieäc moät caùch nhanh choùng goïn nheï vaø ít sai xoùt, ñaëc bieät laø trong lónh vöïc quaûn lyù soå saùch chöùng töø. Öùng duïng cô sôû döõ lieäu ñaõ giaûi quyeát ñöôïc vaán ñeà böùc thieát neâu treân. Trong ñôït thöïc taäp chuyeân ngaønh naøy chuùng toâi ñaõ ñöôïc giao ñeà taøi quaûn lyù beänh nhaân taïi beänh vieän ña khoa tænh Khaùnh Hoaø. Tuy chöông trình chöa ñöôïc hoaøn thieän caùc chöùc naêng, song noù ñaõ cho chuùng toâi thaáy ñöôïc vaán ñeà quan troïng trong vieäc thieát laäp moät cô sôû döõ lieäu trong thöïc teá laø nhö theá naøo ñaëc bieät laø trong lónh vöïc quaûn lyù, vôùi chöông trình quaûn lyù naøy khi hoaøn thieän xeõ giuùp cho nhaân vieân trong beänh vieän quaûn lyù beänh nhaân cuõng nhö quaûn lyù nhaân vieân trong beänh vieän moät caùch nhanh choùng vaø hieäu quaû. VI.2. HAÏN CHEÁ CUÛA CHÖÔNG TRÌNH Do thôøi gian thöïc hieän laø töông ñoái haïn cheá so vôùi moät ñeà taøi khaù roäng vaø phong phuù neân khoâng theå traùnh khoûi nhöõng thieáu soùt nhaát ñònh. Beân caïnh ñoù chöông trình coøn moät soá chöùc naêng chöa hoaøn thieän vaø chính xaùc. Hôn nöõa trong quaù trình vöõa vieát chöông trình vaø vöøa tìm hieåu ngoân ngöõ SQL Server neân chöa theå phaùt huy ñöôïc heát theá maïnh cuûa ngoân ngöõ caøi ñaët, nhö trong chöông trình chöa sö duïng Triggers vaø haàu nhö caùc Stored Procedure vaø caùc View coøn khaù ñôn giaûn vaø hieäu quaû chöa cao. VI.3. HÖÔÙNG PHAÙT TRIEÅN CUÛA ÑEÀ TAØI Chöng trình quaûn lyù beânh nhaân hoaøn thieän xeõ goùp phaàn quan troïng trong vieäc quaûn lyù chöùng töø soå saùch veà beänh nhaân taïi beänh vieän. Song caàn phaûi coù söï quaûn lyù song song giöõa beänh nhaân vaø nhaân vieân trong beänh vieän. Neáu chöông trình ñöôïc caøi ñaët treân moâi tröôøng maïng hay coù moät trang Web cuûa beänh vieän treân maïng Internet ñeå giuùp cho ngöôøi thaân cuûa beänh nhaân coù theå theo doõi vieäc ñieàu trò cuûa ngöôøi thaân cuûa mình taïi beänh vieän maø khoâng nhaát thieát phaûi ñeán beänh vieän. Ñieàu quan trong nöõa laø ñoái vôùi nhöõng beänh nhaân phaûi chuyeån beänh vieän (ví duï beänh nhaân caáp cöùu chuyeån töø Nha Trang ñi Thaønh Phoá Hoà chí Minh), trong moät soá tröôøng hôïp caáp baùch nhö vaäy khoâng theå ñem theo hoà sô beänh aùn ngay ñöôïc thì baùc só nôi ñieàu trò môùi naøy coù theå truy caäp trang Web cuûa beänh vieän maø beänh nhaân ñeán töø ñoù, ñeå xem thoâng tin veà beänh nhaân vaø ñöa ra phöông aùn ñieàu trò hôï lyù. TAØI LIEÄU THAM KHAÛO [1]. Phaïm Höõu Khang(Chuû bieân) Laäp trình öùng duïng chuyeân nghieäp SQL Server 2000 taäp 1,2,3 [2]. Nguyeãn Vaên Hoaøng vaø nhoùm taùc giaû Elicom Töï hoïc Microsoft SQL Server 7.0 [3]. TS Traàn Vaên Tö – Phuù Thaønh – Thieân Tröôøng vaø nhoùm kyõ sö tin hoïc öùn duïng Microsoft SQL Server 7.0 [4]. TS Ñoã Trung Tuaán Moâ Hình Cô Sôû Döõ Lieäu [5]. PTS Nguyeãn Tieán (Duõng chuû bieân) bieân dòch Traàn Theá San – Vuõ Höõu Töôøng Kyõ Naêng Laäp Trình Visual Basic 6 [6]. Caùt Vaên Thaønh – Haïnh Nguyeân Nhöõng baøi thöïc haønh cô sôû döõ lieäu Visual Basic caên baûn [7]. Nguyeãn Thò Ngoïc Mai Laäp trình cô sôû döõ lieäu vôùi Visual Basic 6.0 [8]. Nguyeãn Höõu Troïng Baøi giaûng cô sôû döõ lieäu vaø phaân tích thieát keá heä thoáng thoâng tin quaûn lyù [9]. Traàn Thaønh Trai Phaân tích vaø thieát keá heä thoáng thoâng tin quaûn lyù [10]. Nguyeãn Ñình Teâ Laäp trình cô sôû döõ lieäu vôùi Visual Basic trong 21 ngaøy taäp 1,2,3