Dùng hệ thống thông tin trong trình viết quản lý Bệnh viện Khánh hòa - 2

Chia sẻ: Le Nhu | Ngày: | Loại File: PDF | Số trang:30

Thêm vào BST

Báo xấu

77
lượt xem 16
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Khoa (Mã khoa, Tên khoa) Chuyên môn (Mã chuyên môn, Tên chuyên môn) Chức Vụ (Mã chức vụ, Tên chức vụ) Bệnh (Mã bệnh, Tên bệnh) Vị trí (Mã vị trí, Tên vị trí) Nhân viên (Mã NV, Họ tên NV, Ngày sinh NV, Giới tính NV, Số nhà NV, Điện thoại NV, Mã xãc, Mã khoa, Mã CM, Mã CV) Dòng khám bệnh (Mã khám bệnh, Mã nhân viên, Mã bệnh nhân, Mã bệnh, Mã vị trí, Ngày KB, Nội dung KB, Chi phí KB) Bệnh nhân (Mã bệnh nhân, Họ bệnh nhân, Tên bệnh nhân, Ngày sinh BN,...

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Dùng hệ thống thông tin trong trình viết quản lý Bệnh viện Khánh hòa - 2

Khoa (Mã khoa, Tên khoa) Chuyên môn (Mã chuyên môn, Tên chuyên môn) Chức Vụ (Mã chức vụ, Tên chức vụ) Bệnh (Mã b ệnh, Tên bệnh) Vị trí (Mã vị trí, Tên vị trí) Nhân viên (Mã NV, Họ tên NV, Ngày sinh NV, Giới tính NV, Số nhà NV, Điện thoại NV, Mã xãc, Mã khoa, Mã CM, Mã CV) Dòng khám bệnh (Mã khám bệnh, Mã nhân viên, Mã b ệnh nhân, Mã b ệnh, Mã vị trí, Ngày KB, Nội dung KB, Chi phí KB) Bệnh nhân (Mã b ệnh nhân, Họ bệnh nhân, Tên b ệnh nhân, Ngày sinh BN, Giới tính BN, Mã xã) Bảo hiểm y tế (Mã bệnh nhân, Số thẻ BHYT, Ngày bắt đầu, Ngày kết thúc, Phần trăm) Cơ quan (Mã cơ quan, Tên cơ quan, Điện thoại CQ, Fax cơ quan) Cán bộ (Mã b ệnh nhân, Mã cơ quan) Tạm ứng (Mã T.ứng, Lần T.ứng, Số tiền, Ngày T.ứng, Mã bệnh nhân) Bệnh án (Mã khám bệnh, Mã nhân viên, Mã bệnh nhân, Mã bệnh, Mã vị trí, Mã nơi Đ.T, Ngày vào, Ngày ra, Tình trạng ra) Nơi Điều Trị (Mã nơi Đ.T, Tên nơi Đ.T, Đơn giá) Dịch Vụ Dùng (Mã khám Bệnh, Mã nhân viên, Mã b ệnh nhân, Mã b ệnh, Mã vị trí, Mã nơi Đ.T, Mã dịch Vụ, Lần dùng) Dịch Vụ (Mã dịch vụ, Tên d ịch vụ, Đơn giá D.V) Thuốc Dùng (Mã khám Bệnh, Mã nhân viên, Mã bệnh nhân, Mã bệnh, Mã vị trí, Mã thuốc, Số lượng, Liều dùng)
Thuốc (Mã thuốc, Tên thuốc, Đơn giá) 4. Danh Sách Các Bảng 4.1 Bảng Tỉnh Tỉnh (Mã tỉnh, Tên tỉnh) Tên trường Loại dữ liệu Mô tả Kích thước Mã tỉnh Char Mã tỉnh Len()=2 Tên tỉnh Char Tên tỉnh 30 Giải Thích + Bảng tỉnh lưu trữ thông tin về tỉnh mà bệnh nhân và Nhân Viên đang sống 4.2 Bảng Huyện Huyện (Mã Huyện, Tên Huyện, Mã Tỉnh) Tên trường Loại dữ liệu Mô tả Kích thước Mã huyện Char Mã huyện Len()=4 Tên huyện Char Tên huyện 30 Mã tỉnh Char Mã tỉnh Len()=2 Giải Thích + Bảng huyện lưu trữ thông tin về huyện mà b ệnh nhân và Nhân Viên đang sống - Trường m ã huyện gồm có 4 ký tự 2 ký tự đầu là mã tỉnh m à huyện đó trực thuộc hai ký tự tiếp theo là th ứ tự huyện trong tỉnh. - Trường m ã tỉnh là khóa ngoài của bảng huyện trường này nh ận thông mã tỉnh từ bảng tỉnh 4.3 Bảng Xã Xã (Mã xã, Tên xã, Mã huyện)
Tên trường Loại dữ liệu Mô tả Kích thước Mã xã Char Mã xã Len()=6 Tên xã Char Tên xã 30 Mã huyện Char Mã huyện Len()=4 Giải thích + Bảng xã cùng với bảng huyện và b ảng tỉnh lưu trữ thông tin địa chỉ của bệnh nhân cũng như nhân viên - Trường m ã xã gồm có 6 ký tự 4 ký tự đầu là mã huyện mà xã trực thuộc còn hai ký tự sau là thứ tự xã trong huyện. - Trường m ã huyện là khóa ngoài của bảng xã, trường n ày nhận thông tin từ trường m ã huyện của bảng huyện 4.4 Bảng KHOA KHOA (Mã khoa, Tên khoa) Tên trường Loại dữ liệu Mô tả Kích thước Mã khoa Char Mã khoa Len()=2 Tên khoa Char Tên khoa 30 Giải thích + Bảng Khoa lưu trữ thông tin về khoa mà nhân viên (Bác sĩ) đang làm việc 4.5 Bảng CHUYÊN MÔN CHUYÊN MÔN (Mã chuyên môn, Tên chuyên môn) Tên trường Loại dữ liệu Mô tả Kích thước Mã chuyên môn Char Mã chuyên môn Len()=2 Tên chuyên môn Char Tên chuyên môn 30
Giải thích + Bảng chuyên môn lưu trữ thông tin về chuyên môn của nhân viên 4.6. Bảng Chức Vụ Ch ức Vụ (Mã chức vụ, Tên chức vụ) Tên trường Loại dữ liệu Mô tả Kích thước Mã chức vụ Char Mã chức vụ Len()=2 Tên chức vụ Char Tên chức vụ 30 Giải thích + Bảng chức vụ lưu trữ thông tin về chức vụ của Nhân Viên 4.7. Bảng Bệnh Bệnh (Mã bệnh, Tên bệnh) Tên trường Loại dữ liệu Mô tả Kích thước Mã bệnh Char Mã b ệnh Len()=4 Tên bệnh Char Tên bệnh 30 Giải thích + Bảng này lưu trữ tất cả các bệnh hiện có 4.8. Bảng Vị Trí Vị Trí (Mã vị trí, Tên vị trí) Tên trường Loại dữ liệu Mô tả Kích thước Mã vị trí Char Mã vị trí Len()=2 Tên vị trí Char Tên vị trí 30 Giải Thích + Bảng n ày lưu trữ thông tin về vị trí mà bệnh nhân được khám bệnh 4.9. Bảng Nhân Viên
Nhân Viên (Mã NV, Họ Tên NV, Ngày Sinh NV, Giới Tính NV, Số Nh à NV, Điện Thoại NV, Mã Xã, Mã Khoa, Mã CM, Mã CV) Tên Trường Loại Dữ Liệu Mô Tả Kích Thước Mã NV Char Mã nhân viên Len()=5 Họ Tên NV Char Họ tên nhân viên 30 Ngày Sinh NV Date Ngày sing nhân viên Giới Tính NV Boolear Giới tính nhân viên Số Nhà NV Char Số nhà nhân viên 30 Điện Thoại NV Char Điện thoại nhân viên 15 Mã Xã Char Mã xã Len()=6 Mã Khoa Char Mã khoa Len()=2 Mã CM Char Mã chuyên môn Len()=2 Mã CV Char Mã chức vụ Len()=2 Giải thích + Bảng nhân viên lưu trữ tất cả thông tin về nhân viên (Bác sĩ) - Trường ngày sinh Nhân Viên nh ận dữ liệu sao cho tuổi của nhân viên không được lớn h ơn 65 và không được nhỏ hơn 18 - Trường giới tính nhân viên nhận kiểu dữ liệu Boolear (True tương ứng với nam, False tương ứng với nữ). - Trường số nh à nhân viên để xác định chỗ ở của nhân viên. - Bảng Nhân Viên nh ận Mã Xã, Mã Khoa, Mã CM, Mã CV làm khóa ngoài các trường n ày nhận giá trị tương ứng từ các bảng Xã, Khoa, Chuyên môn, Chức vụ. 4.10. Bảng Dòng Khám Bệnh
Dòng Khám Bệnh (Mã Khám Bệnh, Mã Nhân Viên, Mã bệnh nhân, Mã Bệnh, Mã Vị trí, Ngày KB, Nội Dun g KB, Chi Phí KB) Tên trường Loại dữ liệu Mô tả Kích thước Mã khám b ệnh Char Mã khám bệnh Len()=9 Mã nhân viên Char Mã nhân viên Len()=5 Mã bệnh nhân Char Mã bệnh nhân Len()=9 Mã bệnh Char Mã b ệnh Len()=5 Mã Vị Trí Char Mã vị trí Len()=2 Ngày KB Date Ngày khám bệnh Nội dung KB Char Nội dung khám bệnh 50 Chi phí KB Money Chi phí khám bệnh>0 Giải thích Bảng dòng khám bệnh là mối kết hợp giữa các thực thể nhân viên, b ệnh + nhân, bệnh, vị trí nên nó nh ận tất cả các khóa của các theca thể tham gia vào mối kết hợp làm khóa chính, các giá trị của các trường n ày được lấy tương ứng từ các bảng tương ứng. Ngoài ra nó còn có khóa riêng là Mã khám bệnh - Ngày KB không đư ợc sau ngày hiện tại - Chi phí KB là khoản tiền mà bệnh nhân phải trả sau khi khám bệnh khoản này không được nhỏ h ơn 0. 4.11. Bảng bệnh nhân bệnh nhân (Mã Bênh Nhân, Họ bệnh nhân, Tên bệnh nhân, Ngày Sinh BN, Giới Tính BN, Mã Xãc Tên trường Loại dữ liệu Mô tả Kích thước Mã bệnh nhân Char Mã bệnh nhân Len()=9
Họ bệnh nhân Char Họ bệnh nhân 20 Tên bệnh nhân Char Tên b ệnh nhân 10 Ngày sinh BN Date Ngày sinh b ệnh nhân Giới tính BN Boolear Giới tính bệnh nhân Mã xã Char Mã xã Len()=6 Giải thích + Bảng bệnh nhân lưu trữ tất cả các thông tin về bệnh nhân - Mã bệnh nhân gồm 9 ký tự 4 ký tự đầu là năm mà bệnh nhân đó khám, còn lại 5 ký tự sau là thứ tự bệnh nhân đó đến khám trong năm - Ngày sinh bệnh nhân không được sau ngày hiện tại và tuổi bệnh nhân không được lớn h ơn 150 - Giới tính bệnh nhân là True tương ứng với Nam, False tương ứng với Nữ - Bảng bệnh nhân nhận m ã xã làm khóa ngoài, trường này nhận giá trị từ bảng Xã 4.12 Bảng bảo hiểm y Tế bảo hiểm y tế (Mã b ệnh nhân, Số thẻ BHYT, Ngày bắt đầu, Ngày kết thúc, Phần trăm) Tên trường Loại dữ liệu Mô tả Kích thước Mã bệnh nhân Char Mã bệnh nhân Len()=9 Số thẻ BHYT Char Số thẻ bảo hiểm y tế Len()=9 Ngày bắt đầu Date Ngày bắt đầu Ngày kết thúc Date Ngày kết thúc Phần trăm Int Phần trăm Giải thích
+ Bảng Bảo hiểm y tế lưu thông tin về BHYT của các bệnh nhân có thẻ BHYT - Thực thể bảo hiểm y tế là th ực thể chuyên biệt hóa của thực thể bệnh nhân nên nhận khóa của thực thể bệnh nhân là mã bệnh nhân làm khóa chính - Trường Số Thẻ BHYT là số thẻ bảo hiểm y tế để xác định thẻ đó là của ai - Trường ngày bắt đầu là ngày mà thẻ bảo hiểm y tế có hiệu lực ngày này không được sau ngày kết thúc và sau ngày hiện tại - Trường ngày kết thúc là ngày mà thẻ bảo hiểm y tế không còn hiệu lực (ngày này thư ờng cách ngày bắt đầu một năm). - Trường phần trăm là một số nguyên nằm trong khoảng (1..100) Bảng Cơ Quan 4.13. Cơ Quan (Mã cơ quan, Tên cơ quan, Điện thoại CQ, Fax cơ quan) Tên trường Loại dữ liệu Mô tả Kích thước Mã cơ quan Char Mã cơ quan Len()=6 Tên cơ quan Char Tên cơ quan 30 Điện thoại CQ Char đ iện thoại cơ quan 15 Fax cơ quan Char Fax cơ quan 15 Giải thích + Bang cơ quan lưu trữ thông tin về cơ quan mà những bệnh nhân có BHYT thuộc một cơ quan nào đó - Trường điện thoại cơ quan và trư ờng fax cơ quan chứa điện thoại và fax cơ quan và hai trường n ày cho phép Null Bảng Cán Bộ 4.14. Cán Bộ (Mã bệnh nhân, Mã Cơ Quan)
Tên trường Loại dữ liệu Mô tả Kích thước Mã bệnh nhân Char Mã bệnh nhân Len()=9 Mã cơ quan Char Ma cơ quan Len()=6 Giải thích + Bảng cán bộ là th ực thể chuyên biệt hóa của thực thể bảo hiểm y tế nên nó nhận thuộc tính khóa của thực thể này làm khóa ngoài ra đ ể xác định Cán Bộ đó thuộc cơ quan nào thi bảng này ph ải nhận th êm khóa của thực thể cơ quan làm khóa chính. Hai trư ờng này lấy giá trị từ trường Mã b ệnh nhân trong bảng bệnh nhân và trường Mã Cơ Quan trong bảng Cơ Quan 4.15 Bảng Tạm ứng Tạm ứng (Mã tạm ứng, Lần T.Ư, Số Tiền, Ngày T.Ư, Mã bệnh nhân) Tên trường Loại dữ liệu Mô tả Kích thước Mã tạm ứng Char Mã tạm ứng Len()=11 Lần tạm ứng Int Lần tạm ứng Số tiền Money Số tiền tạm ứng Ngày tạm ứng Date Ngày tạm ứng Mã bệnh nhân Char Mã bệnh nhân Len()=9 Giải thích + Bảng Tạm ứng lưu trữ thông tin về số tiền mà bệnh nhân đã tạm ứng cho bệnh viện, số lần tạm ứng, mỗi lần số tiền là bao nhiêu,... - Mã tạm ứng gồm có 11ký tự 9 ký tự đầu là mã b ệnh nhân lấy từ bảng bệnh nhân, hai ký tự tiếp theo là số lần mà bệnh nhân đó tạm ứng. - Lần tạm ứng là lần m à b ệnh nhân đóng một phần viện phí trong thời gian điều trị tại bệnh viện.
- Trường số tiền là số tiền bệnh nhân tạm ứng tương ứng với lần ở trên - Ngày tạm ứng là ngày mà bệnh nhân đóng tạm ứng, ngày này ph ải sau ngày nhập viện, và phải trước hoặc trùng với ngày hiện tại. - Để xác định lần tạm ứng đó là của ai th ì bảng này nh ận Mã b ệnh nhân làm khóa ngoài 4.16 Bảng Bệnh án Bệnh án (Mã khám bệnh, Mã nhân viên, Mã bệnh nhân, Mã bệnh, Mã vị trí, Mã nơi Đ.T, Ngày vào, Ngày ra, Tình trạng ra) Tên trường Loại dữ liệu Mô tả Kích thước Mã khám b ệnh Char Mã khám bệnh Len()=9 Mã nhân viên Char Mã nhân viên Len()=5 Mã bệnh nhân Char Mã bệnh nhân Len()=9 Mã bệnh Char Mã b ệnh Len()=5 Mã vị trí Char Mã vị trí Len()=2 Mã nơi Đ.T Char Mã nơi điều trị Len()=2 Ngày vào Date Ngày bệnh nhân nhập viện Ngày ra Date Ngày bệnh nhân ra viện Tình trạng ra Char Tình ra viện của bệnh nhân50 Giải thích + Bệnh án là mối kết hợp được sinh ra từ mối kết hợp Dòng Khám Bệnh nên nó nhận tất cả các khóa chính của bảng Dòng Khám Bệnh và nó có Khóa riêng của nó (Mã Bệnh án) ngoài ra thực thể Nơi Điều Trị cũng tham gia vào mối kết hợp này nên nó nh ận thêm khóa của thực thể này làm khóa
- Ngày vào là ngày mà bệnh nhân nhập viên n gày này không được sau ngày ra hoặc sau ngày hiện tại - Ngày ra là ngày mà bệnh nhân được xuất viện ngày này cũng phải trước hoặc trùng với ngày hiện tại - Tình trạng ra là nhận xét của bác sĩ khi bệnh nhân xuất viện 4.17 Bảng Nơi Điều Trị Nơi Điều Trị (Mã nơi Đ.T, Tên nơi Đ.T, Đơn giá) Tên trường Loại dữ liệu Mô tả Kích thước Mã nơi Đ.T Char Mã nơi điều trị Len()=2 Tên nơi Đ.T Char Tên nơi điều trị 30 Đơn giá Money Đơn giá nơi điều trị Giải thích + Nơi điều trị là nơi mà bệnh nhân điều trị khi ở bệnh viện. - Đơn giá nói điều trị luôn nhận giá trị lớn hơn 0 4.18 Dịch Vụ Dùng Dịch Vụ Dùng (Mã khám bệnh, Mã nhân viên, Mã b ệnh nhân, Mã bệnh, Mã vị trí, Mã nơi Đ.T, Mã dịch vụ, Lần dùng) Tên trường Loại dữ liệu Mô tả Kích thước Mã khám b ệnh Char Mã khám bệnh Len()=9 Mã nhân viên Char Mã nhân viên Len()=5 Mã bệnh nhân Char Mã bệnh nhân Len()=9 Mã bệnh Char Mã b ệnh Len()=5 Mã vị trí Char Mã vị trí Len()=2 Mã nơi Đ.T Char Mã nơi điều trị Len()=2
Mã dịch vụ Char Mã dịch vụ Len()=2 Lần dùng Int Lần dùng d ịch vụ Giải thích Thực thể dịch vụ dùng là chuyển từ mối kết hợp giữa Bệnh án với dùng + dịch vụ nên nó phải nhận tất cả các khóa của bệnh án làm khóa chính ngoài ra nó còn nh ận khóa của thực thể Dịch Vụ làm khóa chính (M• Dịch Vụ). - Lần dùng là lần mà bệnh nhân đó dùng một loại dịch vụ 4.19. Bảng Dịch Vụ Dịch Vụ (Mã dịch vụ, Tên d ịch vụ, Đơn giá DV) Tên trường Loại dữ liệu Mô tả Kích thước Mã dịch vụ Char Mã dịch vụ Len()=2 Tên dịch vụ Char Tên dịch vụ 30 Đơn giá D.V Money Đơn giá dịch vụ Giải thích + Bảng dịch vụ lưu trữ những thông tin về những dịch vụ mà bệnh viện có Đơn giá dịch vụ không đ ược nhỏ hơn 0 - 4.20. Bảng Thuốc Dùng Thuốc Dùng (Mã khám Bệnh, Mã nhân viên, Mã b ệnh nhân, Mã bệnh, Mã vị trí, Mã thuốc, Số lượng, Liều dùng) Tên Trường Loại Dữ Liệu Mô Tả Kích Thước Mã khám b ệnh Char Mã khám bệnh Len()=9 Mã nhân viên Char Mã nhân viên Len()=5 Mã bệnh nhân Char Mã bệnh nhân Len()=9 Mã bệnh Char Mã b ệnh Len()=5
Mã vị trí Char Mã vị trí Len()=2 Mã thuốc Char Mã thuốc Len()=4 Số lượng Int Số lượng thuốc dùng Liều dùng Char Liều lượng thuốc dùng Giải thích bảng thuốc dùng là mối kết hợp được sinh ra từ mối kết hợp khám bệnh + (thực thể dòng khám bệnh) nên nó nh ận khóa của thực thể dòng khám b ệnh làm khóa đồng thời nó nhận thuộc tính khóa của thực thể thuốc làm khóa. + Thực thể này kết hợp với thực thể dòng khám b ệnh và th ực thể thuốc để tạo thành đơn thuốc. - Số lương là số lượng một loại thuốc được cấp trong một đơn thuốc - Liều dùng công thức dùng thuốc 4.21 Bảng Thuốc Thuốc (Mã Thuốc, Tên Thuốc, Đơn Giá) Tên Trường Loại Dữ Liệu Mô Tả Kích Thước Mã Thuốc Char Mã thuốc Len()=9 Tên ThuốcChar Tên thuốc 30 Đơn Giá Money Đơn giá thuốc Giải thích + Bảng thuốc lưu trữ thông tin về thuốc Chương IV. Th ực hiện Cài đặt hệ thống i. cách kết nối dữ liệu
Trong chương trình em thực hiện kết nối thông qua đối tượng ADO (ActiveX Data Object), đối tư ợng này cung cấp hầu hết các công cụ để thực hiện kết nối với cơ sở dữ liệu ADO Interface: Các đối tương ADO giao tiếp với dữ liệu thông qua ODBC (Open Database Connectivity), chúng có thể giao tiếp với bất kỳ loại dữ liệu nếu như ODBC driver hỗ trợ. Thực hiện kết nối với cơ sở dữ liệu: Như phần tổng quan ngôn ngữ ta đã nói để đối tượng ADO kết nối được với cơ sở dữ liệu (hay để ứng dụng có thể hoạt động xử lý trên cơ sở dữ liệu) ta phải viết mã lệnh cho công cụ này kết nối với cơ sở dữ liệu. Cụ thể để kết nối với cơ sở dữ liệu dbBenhNhan ta làm như sau: Public cn As ADODB.Connection Public Sub OpenDb() Set Cn = New ADODB.Connection Cn.Provider = "SQLOLEDB.1;" Cn.ConnectionString = " Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DbBenhNhan" Cn.Open End Sub trên ta khai báo biến Cn là toàn cục cấp modul, Cn có kiểu Trong modul đối tượng ADODB.Connection tức đối tượng này dùng để kết nối với cơ sở dữ liệu và đ ối tượng này có thể được gọi ở mọi nơi trong chương trình. II. các phương thức đối tượng ADODb
- Open method: Được sử dụng để mở một liên kết với Database. Ngay sau khi tạo instance cho conection object ta có thể mở một kết nối với datasour để truy suất dữ liệu. - Execute method: Cho phép th ực thi một câu lệnh tác động trên datasour. Trong đó commandText là chuỗi lệnh cần thực hiện, thông qua tham số option các giá trị khác nhau quy đ ịnh loại commandText. Giá trị Danh hiệu hằng tương ứng Loại của CommandText 0 AdCmdUnknown Mặc định khi định nghĩa 1 AdCmdText Là một câu lệnh, VD: câu lệnh SQL 2 AdCmdTableTên của table m à ta sẽ tạo Recordset 3 AdCmdStoreProc Một Stor Procedure trong datasour Thông thường các giá trị trên đư ợc gắn sẵn vào các danh hiệu hằng và được lưu trữ trong file Include có tên là adovbs.inc. Trong chương trình này em sử dụng giá trị mặc định tức adCmdUnknown - Close method: phương thức này dùng để đóng các kết nối được chỉ ra sau câu lệnh. Ta cũng có thể set đối tượng n ày về nothing Ngoài ra Visual Basic còn cung cấp một dịch vụ kết nối bằng Data Environment rất tiện lợi đây cũng là một dạng kết nối ADO rất dễ sử dụng, tất cả hầu như được thực hiện qua giao diện đồ họa. Trong Data Environment có thể lưu trữ các bảng (Table), lưu trữ các thủ tục lưu trữ (Stor Procedure) cũng như các hàm (Function) và các bảng ảo (View) khác III. Một số modul chính của chương trình Để hiển thị dữ liệu trong trong một Table ta sử dụng đối tưởng Listview đối tượng n ày tương đối tiện lợi để hiển thị dữ liệu cụ thể 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 Trong đó listItem là đối tư ợng Listview có chức năng hiển thị dữ liệu, biến rs có kiểu Recordset để lưu trữ dữ liệu trong một Recor (dữ liệu trong bảng). Trong đoạn chương trình trên ta còn sử dụng phương th ức Set rs = cn.Execute(Str) để thực hiện câu truy vấn (SQL) trong ngoặc, câu truy vấn này lấy về dữ liệu đ ược cất trong biến Record (rs) và được hiển thị trên Listview. Để thêm m ới dữ liệu vào m ột Table trong chương trình ta sử dụng đối tượng Data Environment đối tư ợng này cho phép gọi các h àm hoặc các thủ tục nh ư
cách gọi của Visual Basic. Dưới đây là ví dụ cách gọi một hàm có tên Sp_NhapTinh có ch ức năng thêm một tỉnh mới DE.Sp_NhapTinh MaTinh, TenTinh Trong đó DE là đ ối tượng Data Environment và hàm Sp_NhapTinh là hàm (có thể là các thủ tục thậm chí là một View) được viết và lưu trong cơ sở dữ liệu. Tương tự với các thủ tục khác cũng được thực hiện bằng cách gọi nh ư trên, tuy nhiên đối với thủ tục xóa dữ liệu trong một Table lại là một việc khá phức tạp bởi việc này còn liên quan đế một số ràng buộc về khóa. Ví dụ việc xóa một tỉnh thành, ta phải đi xóa toàn bộ các huyện, xã trực thuộc tỉnh đó, không những vậy ta còn ph ải xóa tất cả các bệnh nhân và nhân viên cùng các giấy tờ có liên quan, cụ thể ta có m ã lệnh như sau: CREATE PROCEDURE Sp_XoaTinh @MaTinh Char(2) AS ------------------------------------------- -- Xoa Tat ca can bo la benh nhan truc thuoc tinh Delete From tblCanBo Where tblCanBo.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 Tat ca cac bao hiem y te cua benh nhan thuoc tinh Delete From tblBaoHiemYTe Where tblBaoHiemYte.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 tam ung cua cac benh nhan thuoc tinh 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 Dung dich vu ma benh an dung Delete From tblDichVuDung Where tblDichVuDung.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 Dung Dich Vu Delete From tblDichVuDung Where tblDichVuDung.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 Benh An cua Benh Nhan thuoc tinh tren 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 Benh An ma Nhan Vien lap Delete From tblBenhAn