Luận văn Hệ quản trị cơ sở dữ liệu và SQL Server 2000

------- Thủ tục dùng để xố một tỉnh ----------- 
CREATE PROCEDURE Sp_XoaTinh 
 @Matinh nchar(3), ‘Tham số đầu vào của Stored Procedure 
 @TenTinh char(30) 
AS 
----- Xố khám bệnh úng với bệnh nhân thuộ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))) 
----- Xố khám bệnh úng với nhân viên thuộ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))) 
---- Xóa dùng thuốc ứng với đơn thuốc của bệnh nhâ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)))) 
-- Xố đơn thuốc của bệnh nhân thuộ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))) 
----- Xố tạm ứng của bệnh nhân thuộ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))) 
----- Xố bệnh án của bệnh nhâ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))) 
-------Xố các bệnh nhân thuộ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)) 
--- Xố dùng thuốc mà nhân viên thuộc tỉnh lậ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)))) 
------ Xố đơn thuốc mà nhân viên lậ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))) 
----- Xố bệnh án mà nhân viên lậ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)) ) 
-----Xố tất cả nhân viên thuộ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)) 
-------- Xố tất cả các xã thuộc tỉnh------------------ 
DELETE From tblXa 
Where tblXa.MaHuyen in 
(Select MaHuyen From tblHuyen 
 Where tblHuyen.MaTinh = @Matinh) 
--------Xố tất cả các huyện thuộc tỉnh--- 
DELETE From tblHuyen 
Where tblHuyen.Matinh = @Matinh 
--------- Xố tỉnh có mã tỉnh được chỉ ra-- 
DELETE From tblTinh 
Where MaTinh=@Matinh 
GO 
Đối với các thủ tục xố một huyện cũng nhaư một xã ta cũng phải đi xó tất cả 
các bệnh nhân và nhân viên trực thuộc địa danh đó. 
Trong qúa trình trình bày dữ liệu chúng tôi đã sử dụng một số View để kết nối 
bảng ví dụ 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 
 Để tìm kiếm một bệnh nhân chúng tôi sử dụng một hàm tìm kiếm hàm này trả 
về một table các tiêu chí tìm kiếm được chỉ ra bằng các tham số đầu vào của hàm. Ví 
dụ về một hàm tìm kiếm bệnh nhân theo họ và tên đầy đủ 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 
----------------------------------------- 
Trọng đoạn chương trình trên việc tìm một bệnh nhân là khá đơn giản. Giả sử 
ta nhớ đầy đủ họ và tên đầy đủ của bệnh nhân ta có thể tìm theo phương pháp trên. 
Song nếu chỉ nhớ được họ hoặc tên của bệnh nhân thi ta cũng có thể tìm được bệnh 
nhân bằng các hàm tìm theo họ, theo tên bệnh nhân, trong chương trình còn sử dụng 
một số hàm khác mà chúng tôi không tiện trình bày trong báo cáo này. 
Thoạt tiên ta có cảm giác một hàm (Function) hơi giống với một View song 
với View thì không có dữ liệu đầu vào còn với hàm thì ngược lại. Rõ ràng để truy 
xuất dữ liệu với hàm là linh hoạt hơn với View rất nhiều. 
chương V: MỘT SỐ FORM CHÍNH CỦA 
CHƯƠNG TRÌNH 
- Form Chính, khi chạy chương trình thì Form này được gọi đầu tiên và từ 
đây ta có thể gọi và thực hiện tất cả các Form khác 
Form chính của chương trình 
- Form thông tin bệnh nhân: ở Form này ta có thể xem, sửa, xóa thậm chí có 
thể thêm mới thông tin về bệnh nhân. Ngồi ra Form này cò có thể tạo mới cũng như 
xem chi tiết một bệnh án cũng như bảo hiểm y tế. 
 - Form hồ sơ nhân viên tại đây ta có thể thêm mới hoặc sửa, xố thông tin về 
nhân viên 
 - Form tim kiếm bệnh nhân. Ơû đây chúng ta có thể tìm kiếm bệnh nhân theo 
những tiêu chí được chỉ ra ví dụ: tim bênh nhân theo họ, theo tên, theo họ tên đầy đủ 
hoặc theo địa chỉ…… ở đây ta cũng có thể in thông tin bệnh nhân đó ra giấy. 
 - Form Thống kê bênh nhân tương tự Form tìm kiếm song ở đây chỉ thống kê 
số bệnh nhân theo bệnh, theo độ tuổi… cung như Form tìm kiếm Form này cũng có 
thể in báo biểu được 
 Ngồi ra trong chương trình còn có một số Form khác chúng tôi không tiện trình 
bày ở đây song ở trên là một số Form chính của chương trình. 
Chương VI: KẾT LUẬN VÀ ĐỀ XUẤT Ý KIẾN 
VI.1. KẾT LUẬN 
 Đứng trước xu hướng phát triển nhanh và mạnh của nền công nghệ thông tin 
thế giới cũng như công nghệ thông tin nước nhà, việc tin học hố công việc quản lý 
hành chính là vô cùng quan trọng và bức thiết hiện nay. Nó xẽ giúp cho các cơ quan 
hành chính giải quyết những công việc một cách nhanh chóng gọn nhẹ và ít sai xót, 
đặc biệt là trong lĩnh vực quản lý sổ sách chứng từ. Ưùng dụng cơ sở dữ liệu đã giải 
quyết được vấn đề bức thiết nêu trên. 
 Trong đợt thực tập chuyên ngành này chúng tôi đã được giao đề tài quản lý 
bệnh nhân tại bệnh viện đa khoa tỉnh Khánh Hồ. Tuy chương trình chưa được hồn 
thiện các chức năng, song nó đã cho chúng tôi thấy được vấn đề quan trọng trong việc 
thiết lập một cơ sở dữ liệu trong thực tế là như thế nào đặc biệt là trong lĩnh vực quản 
lý, với chương trình quản lý này khi hồn thiện xẽ giúp cho nhân viên trong bệnh viện 
quản lý bệnh nhân cũng như quản lý nhân viên trong bệnh viện một cách nhanh chóng 
và hiệu quả. 
VI.2. HẠN CHẾ CỦA CHƯƠNG TRÌNH 
 Do thời gian thực hiện là tương đối hạn chế so với một đề tài khá rộng và 
phong phú nên không thể tránh khỏi những thiếu sót nhất định. Bên cạnh đó chương 
trình còn một số chức năng chưa hồn thiện và chính xác. Hơn nữa trong quá trình vữa 
viết chương trình và vừa tìm hiểu ngôn ngữ SQL Server nên chưa thể phát huy được 
hết thế mạnh của ngôn ngữ cài đặt, như trong chương trình chưa sư dụng Triggers và 
hầu như các Stored Procedure và các View còn khá đơn giản và hiệu quả chưa cao. 
VI.3. HƯỚNG PHÁT TRIỂN CỦA ĐỀ TÀI 
 Chưng trình quản lý bênh nhân hồn thiện xẽ góp phần quan trọng trong việc 
quản lý chứng từ sổ sách về bệnh nhân tại bệnh viện. Song cần phải có sự quản lý 
song song giữa bệnh nhân và nhân viên trong bệnh viện. 
 Nếu chương trình được cài đặt trên môi trường mạng hay có một trang Web 
của bệnh viện trên mạng Internet để giúp cho người thân của bệnh nhân có thể theo 
dõi việc điều trị của người thân của mình tại bệnh viện mà không nhất thiết phải đến 
bệnh viện. Điều quan trong nữa là đối với những bệnh nhân phải chuyển bệnh viện (ví 
dụ bệnh nhân cấp cứu chuyển từ Nha Trang đi Thành Phố Hồ chí Minh), trong một số 
trường hợp cấp bách như vậy không thể đem theo hồ sơ bệnh án ngay được thì bác sĩ 
nơi điều trị mới này có thể truy cập trang Web của bệnh viện mà bệnh nhân đến từ đó, 
để xem thông tin về bệnh nhân và đưa ra phương án điều trị hợ lý. 
TÀI LIỆU THAM KHẢO 
[1]. Phạm Hữu Khang(Chủ biên) 
 Lập trình ứng dụng chuyên nghiệp SQL Server 2000 tập 1,2,3 
[2]. Nguyễn Văn Hồng và nhóm tác giả Elicom 
 Tự học Microsoft SQL Server 7.0 
[3]. TS Trần Văn Tư – Phú Thành – Thiên Trường và nhóm kỹ sư tin học ứn dụng 
 Microsoft SQL Server 7.0 
[4]. TS Đỗ Trung Tuấn 
 Mô Hình Cơ Sở Dữ Liệu 
[5]. PTS Nguyễn Tiến (Dũng chủ biên) biên dịch Trần Thế San – Vũ Hữu Tường 
 Kỹ Năng Lập Trình Visual Basic 6 
[6]. Cát Văn Thành – Hạnh Nguyên 
 Những bài thực hành cơ sở dữ liệu Visual Basic căn bản 
[7]. Nguyễn Thị Ngọc Mai 
 Lập trình cơ sở dữ liệu với Visual Basic 6.0 
[8]. Nguyễn Hữu Trọng 
 Bài giảng cơ sở dữ liệu và phân tích thiết kế hệ thống thông tin quản lý 
[9]. Trần Thành Trai 
 Phân tích và thiết kế hệ thống thông tin quản lý 
[10]. Nguyễn Đình Tê 
 Lập trình cơ sở dữ liệu với Visual Basic trong 21 ngày tập 1,2,3