quản lý bệnh nhân và nhân viên tại bệnh viện đa khoa tỉnh khánh hoà - nguyễn ngọc hùng cường

Thực Tập Chuyên Ngành LỜI NÓI ĐẦU Ngày nay, với phát triển vượt bậc khoa học kỹ thuật Công nghệ thông tin lĩnh vực nhiều ứng dụng thiết thực lĩnh vực sống xã hội chúng ta, đặc biệt công cụ hỗ trợ đắc lực thiếu công tác quản lý Dễ dàng thấy sở liệu ứng dụng quan trọng cơng tác tin học hố quản lý kinh doanh doanh nghiệp Nhờ vào công tác tin học hố mà cơng tác quản lý, điều hành doanh nghiệp tỏ có hiệu quả, nhanh chóng, xác, lưu trữ gọn, bảo mật cao dễ dàng Chính lẽ mà sở liệu giải pháp hữu hiệu cho doanh nghiệp tồn phát triển cách nhanh chóng Bệnh viện đa khoa tỉnh Khánh Hồ trung tâm khám chữa bệnh lớn tỉnh Khánh Hồ Do đó, nhu cầu ứng dụng việc quản lý tin học vào việc quản lý Bệnh nhân nhân viên bệnh viện nhu cầu tất yếu Chính lý mà em chọn đề tài Hiện nay, có nhiều phần mềm hệ quản trị sơ khác Tuy nhiên, vào tình hình quản lý bệnh nhân nhân viên thực tế bệnh viện mà em chọn hệ quản trị sở liệu quan hệ Miccrsoft Access 2000 ngôn ngữ hỗ trợ cài đặt Visual Basic 6.0 Mặc dù, có nhiều cố gắng thời gian thực tập có hạn nên tránh khỏi sai lầm thiếu sót Rất mong đóng góp bảo quý thầy cô bạn đọc Cuối cùng, em xin chân thành cảm ơn hướng dẫn bảo tận tình thầy hướng dẫn Ths Nguyễn Hữu Trọng, với hướng dẫn, giúp đỡ nhiệt tình kỹ sư Hội (Phòng kế hoạch tổng hợp bệnh viện tỉnh Khánh Hoà) giúp em hoàn thành đồ án thực tập chuyên ngành Sinh Viên Thực Hiện Nguyễn Ngọc Hùng Cường Trang1 Thực Tập Chuyên Ngành MỤC LỤC Phần I : GIỚI THIỆU TỔNG QUAN VỀ NGÔN NGỮ CÀI ĐẶT .2 Quản lý nhân viên bệnh viện Quy trình khám chữa bệnh Ràng buộc toàn vẹn 13 CẤP SỐ CHO .23 BỆNH NHÂN .23 BS KHÁM BỆNH 23 THU PHÍ KHÁM BỆNH 23 THU VIỆN PHÍ .25 STT 26 PHƯƠNG THỨC 26 Phần I : GIỚI THIỆU TỔNG QUAN VỀ NGÔN NGỮ CÀI ĐẶT I Giới thiệu Microsoft Acceess 2000 I.1 Micro soft Acceess 2000 gì? Khái niệm hệ quản trị sở liệu quan hệ (Relational Database Management System): Là hệ thống chương trình hỗ trợ tác vụ quản lý, khai thác liệu theo mơ hình sở liệu quan hệ Microsoft Acceess hệ quản trị sở liệu quan hệ trợ giúp cho người sử dụng lưu trữ thơng tin liệu bên ngồi vào máy tính dạng bảng tính toán, xử lý liệu bảng lưu trữ I.2 Các đặc điểm của Microsoft Acceess 2000 Hỗ trợ chế tự động kiểm tra khoá chính, phụ thuộc tồn tại, miền giá trị… liệu bên bảng cách chặt chẽ Với cơng cụ trình thơng minh (Winzard) cho phép người sử dụng thiết kế đối tượng Microsoft Acceess cách nhanh chóng Với cơng cụ truy vấn thí dụ QBE (Query By Example) hỗ trợ cho người sử dụng thực truy vấn mà không cần quan tâm đến cú pháp Trang2 Thực Tập Chuyên Ngành câu lệnh ngôn ngữ truy vấn có cấu trúc SQL (Structure Query Language) viết Với kiểu trường liệu nhúng OLE (Object Linking and Embeding) cho phép người sử dụng đưa vào bên tập tin sở liệu Acceess ứng dụng khác Windows như: tập tin văn Word, bảng tính Axcel, hình ảnh BMP, âm Wav … Dữ liệu lưu trọn gói tập tin: Tất đối tượng ứng dụng lưu tập tin sở liệu tập tin sở liệu Access (MDB) Ứng dụng sử dụng mơi trường mạng máy tính nhiều người sử dụng, sở liệu bảo mật tốt Có khả trao đổi liệu qua lại với ứng dụng khác, chuyển đổi qua lại với ứng dụng như: Word, Axcel, Fox, Dbase, HTML … Kết nối trực tiếp vào hệ sở liệu Microsoft SQL Server để phát triển ứng dụng mơ hình khách chủ (Client / Server) I.3 Đối tượng bảng sở liệu Access 2000 Bảng: Là thành phần sở tập tin sở liệu Access, dùng để lưu trữ liệu, cấu trúc sở liệu Do đối tượng phải tạo trước Bên bảng, liệu lưu thành nhiều cột nhiều dịng Thí dụ: Một bảng bệnh nhân dùng lưu thông tin bệnh nhân bệnh viện gồm cột: Mã bệnh nhân, Họ bệnh nhân, ngày sinh bệnh nhân,… Cụ thể sau: Trang3 Thực Tập Chuyên Ngành Hình :Màn hình hiển thị bảng bệnh nhân Microsoft Access 2000 II Cơ sở liệu gì? Cơ sở liệu kho chứa thơng tin Có nhiều loại sở liệu sở liệu quan hệ, sở liệu phổ biến Một sở liệu quan hệ: - Kho chứa liệu bảng, cấu tạo dòng gọi mẫu tin, cột gọi trường Cho phép lấy (hay truy vấn) tập hợp liệu từ bảng Cho phép nối bảng với cho mục đích truy cập mẫu tin liên quan với chứa bảng khác II.1 Bảng Trường: Các sở liệu cấu tạo từ bảng dùng thể phân nhóm liệu - Bảng: chứa mẫu tin mẫu liệu riêng rẽ bên phân nhóm liệu Mẫu tin: chứa trường Mỗi trường thể phận liệu mẫu tin Ví dụ mẫu tin chứa mục bệnh nhân chứa trường Họ tên bệnh nhân, Ngày sinh bênh nhân, giới tính bệnh nhân, nơi sinh bệnh nhân, địa bệnh nhân… Trang4 Thực Tập Chuyên Ngành Ta dùng chương trình Visual Basic 6.0 để tham chiếu thao tác với sở liệu, bảng, mẫu tin II.2 Thiết kế sở liệu: Để tạo sở liệu, trước hết ta phải xác định thơng tin cần quản lý Sau thiết kế sở liệu, tạo bảng trường định nghĩa kiểu liệu có Sau tạo cấu trúc sở liệu tạo liệu dạng mẫu tin Ta khơng thể đưa liệu vào mà khơng có bảng hay định nghĩa trường liệu khơng có chỗ để chứa Do thiết kế sở liệu cục kỳ quan trọng, khó thay đổi thiết kế tạo II.3 Recordset gì? Một ta có khả tạo bảng, ta cần phải biết cách thao tác với chúng Thao tác bảng liên quan đến việc nhập lấy liệu từ bảng khác việc kiểm tra sửa đổi cấu trúc bảng Để thao tác với cấu bảng, ta dùng câu lệnh định nghĩa liệu Để thao tác liệu bảng, ta dùng Recorset Một Recorset cấu trúc thể tập hợp mẫu tin lấy từ sở dũ liệu Về khái niệm tương tự bảng, có thêm vài thuộc tính riêng biệt quan trọng Các Recorset thể đối tượng, khái niệm tương tự đối tượng giao diện người sử dụng (như nút lệnh hộp văn bản) mà ta làm quen với Visual Basic 6.0 Cũng kiểu đối tượng khác Visual Basic, đối tượng Recordset có thuộc tính phương thức riêng II.4 Tạo lược đồ sở liệu Mặc dù việc tạo danh sách bảng trường cách tốt để xác định cấu trúc sở liệu, ta cịn có cách để xem bảng trường dạng đồ hoạ Sau khơng xem bảng trường có, mà thấy mối liên hệ chúng Để làm điều cách ta tạo lược đồ Lược đồ đồ đường sở liệu Lược đồ thể bảng, trường mối quan hệ sở liệu Có lược đồ sở liệu phần quan trọng thiết kế phần mềm cho ta cách nhìn nhanh có sở liệu Các lược đồ có vị trí quan trọng lâu dài sau thiết kế sở liệu hoàn tất Ta cần đến lược đồ để thi hành câu truy vấn nhiều bảng Khơng có phương pháp thức để tạo lược đồ, Microsoft Access công cụ tương đối thuận tiện dễ dàng việc tạo lược đồ II.5 Các mối liên hệ Trang5 Thực Tập Chuyên Ngành Mối liên hệ cách định nghĩa thức hai bảng liên hệ với Khi ta định nghĩa mối liên hệ ta thông báo với máy sở liệu hai trường bảng liên quan nối với Hai trường liên quan với mối liên hệ khố khố ngoại Khố ngoại khố bảng liên quan chứa bảng khố Mối quan hệ sau thơng báo cho máy sở liệu hai bảng liên quan với mối liên hệ khoá ngoại liên quan với khố Bộ máy Acceess / Jet khơng địi hỏi ta phải khai báo tường minh mối quan hệ này, có lợi làm điều đơn giản hố công việc lấy liệu dựa mẫu tin nối qua hai hay nhiều bảng Ngoài việc ghép mẫu tin liên quan bảng riêng biệt, ta định nghĩa mối quan hệ để tận dụng mạnh tính tồn vẹn tham chiếu, thuộc tính máy sở liệu trì liệu sở liệu nhiều bảng ln ln qn Khi tính tồn vẹn tham chiếu tồn sở liệu, máy sở liệu ngăn cản ta xoá mẫu tin mẫu tin khác tham chiếu đến sở liệu.Sau định nghĩa mối quan hệ sở liệu, việc định nghĩa mối quan hệ lưu trữ ta xố II.6 Chuẩn hố Chuẩn hố khái niệm liên quan đến mối quan hệ Về bản, nguyên tắc chuẩn hoá phát biểu bảng sở liệu loại trừ tính không quán giảm thiểu hiệu quả.Các sở liệu mô tả không quán khidữ liệu bảng không tương ứng với liệu nhập vào bảng khác Một sở liệu hiệu không cho phép ta trích liệu xác mà ta muốn Khi sở liệu chuẩn hoá đầy đủ chứa mẫu thông tin sở liệu bảng riêng xa hơn, xác định mẫu thơng tin thơng qua khố thơng tin Ta định cách thức để chuẩn hố sở liệu Thơng thường, thứ ứng dụng sở liệu từ thiết kế bảng truy vấn, từ giao diện người sử dụng đến cách thức hoạt động báo cáo xuất phát từ cách chuẩn hoá liệu III Giới Thiệu Tổng Quan Về Các Đối Tượng Truy Cập Dữ Liệu Với Lớp (trong Visual Ba sic 6.0) : Có số phương tiện giúp cho việc áp dụng kỹ thuật hướng đối tượng truy cập liệu VB: Trang6 Thực Tập Chuyên Ngành Gắn mẫu tin với đối tượng: Đây kỹ thuật đơn giản nhất, khơng cần lập trình nhiều Mỗi trường mẫu tin trở thành thuộc tính đối tượng; lấy liệu từ sở liệu hay lưu liệu vào sở liệu xử lý qua đối tượng Ủy nhiệm xử lý liệu cho đối tượng Recorset chứa đối tượng: Đây kỹ thuật tốt ta cần xử lý số không giới hạn mẫu tin Kỹ thuật dễ lập trình, có nhiều chức quản lý cung cấp sẵn mơ hình đối tượng sử dụng (DAO hay RDO) Kỹ thuật đặc biệt hữu dụng dùng ADO ADO cung cấp khả ngắt kết nối với nguồn liệu, cho phép ứng dụng Client thao tác với liệu khơng cần thao tác với server Bởi nhiều người sử dụng kết nối đồng thời điểm yếu hệ thống Client / Server, ngắt kết nối nghĩa giải pháp linh hoạt III.1 Mơ hình liệu ADO: (ActiveX Data Object: Đối tượng liệu ActiveX) Ta hình dung mơ hình ADO mơ hình làm giảm kích thước mơ hình RDO (Đối tượng liệu từ xa) Mơ hình đối tượng liệu ActiveX gọn Nó thiết kế phép người lập trình lấy tập Record từ nguồn liệu cách nhanh Tốc độ tính đơn giản mục tiêu cối lõi ADO, mơ hình thiết kế phép bạn tạo đối tượng Recordset mà không cần phải chuyển qua đối tượng trung gian khác q trình Thực tế có ba đối tượng cốt lõi sau mơ hình: - Connection đại diện kết nối liệu thực Command sử dụng để thực thi query dựa vào kết nối liệu Recordset đại diện cho tập record chọn query thông qua đối tượng Command Đối tượng Connection có sưu tập đối tượng gọi đối tượng Errors đối tượng giữ lại thơng tin lỗi có liên quan đến kết nối Đối tượng Command có sưu tập đối tượng con, Paramters để giữ tham số thay cho query Recorset có đối tượng sưu tập Properties để lưu thông tin chi tiết đối tượng Connection Command Parameter Trang7 Sơ đồ mơ hình ActiveX Data Object Thực Tập Chuyên Ngành Recorset Fields Error III.2 Các thuộc tính ADO đặc biệt: Mơ hình ADO có số thuộc tính khơng có mơ hình khác DAO RDO Các thuộc tính điều khiển cách thức tạo dataset quyền hạn truy cập kết nối liệu Có thuộc tính sau: - Connection string (Chuỗi kết nối) Command Text (Văn câu lệnh) Command Type (Kiểu câu lệnh) Cursor location (Định vị trỏ) Cursor Type (Kiểu trỏ) Look type (Kiểu khoá) Mode type (Kiểu chế độ làm việc) Chương II: ĐẶC TẢ BÀI TOÁN Bệnh viện đa khoa tỉnh Khánh Hoà cần quản lý số thơng cần thiết bệnh nhân nhân viên hệ thống mạng máy tính cục bệnh viện Sau khảo sát trạng phân tích viên nắm thơng tin cần quản lý sau: Quản lý nhân viên bệnh viện Trang8 Thực Tập Chuyên Ngành Mỗi nhân viên bệnh viện quản lý thơng tin sau đây: Họ, tên, giới tính, ngày sinh, nơi sinh, địa chỉ, dân tộc, trình độ chuyên mơn, đơn vị cơng tác, chức vụ, tơn giáo, trị, loại hình đào tạo, ngoại ngữ Trong lý lịch quản lý: - Nơi sinh quản lý: Huyện, tỉnh - Địa quản lý: Số nhà, đường Chính trị quản lý Đoàn viên Đảng viên Nếu Đảng viên quản lý ngày vào Đảng, ngày thức, chi sinh hoạt Nhân viên bệnh viện chia làm hai loại: Công chức hợp đồng Nếu cơng chức quản lý: Ngày vào biên chế, q trình lương Q trình lên lương cơng chức bao gồm: Ngạch, bậc, ngày lên lương Mỗi ngạch lương có số tháng lên lương xác định trước Nếu nhân viên hợp đồng lao động quản lý: Số hợp đồng, ngày bắt đầu hợp đồng, mức lương, tên chức vụ người ký hợp đồng Quản lý bệnh nhân Khi bệnh nhân nhập viện lần đầu tiên, bệnh viện lưu thông tin sau: Họ, tên, giới tính, ngày sinh, địa chỉ, đối tượng Bệnh nhân chia làm hai loại: Loại có bảo hiểm y tế khơng có bảo hiểm y tế Nếu bệnh nhân có bảo hiểm y tế quản lý: Số thẻ bảo hiểm y tế, thời gian hiệu lực, phần trăm bảo hiểm, nơi khám bệnh ban đầu Nếu bệnh nhân có thẻ bảo hiểm y tế cơng nhân viên tổ chức, quan quản lý thêm: Tên, địa chỉ, điện thoại, fax cuả quan công tác Địa bệnh nhân quan quản lý: Số nhà, đường (thôn, ấp), xã (phường), quận (huyện), tỉnh (thành phố) Quy trình khám chữa bệnh Bệnh nhân đến bệnh viện để khám chữa bệnh (vì bệnh viện đa khoa) nên có trường hợp sau: - Bệnh nhân đến để khám chữa bệnh thông thường - Bệnh nhân tình trạng cần cấp cứu đặc biệt (các thủ tục nhập viện tiến hành sau) - Bệnh nhân sản phụ trường hợp cấp cứu (thì đưa trực tiếp đến khoa sản) Nhìn chung, bệnh nhân đến bệnh viện để khám chữa bệnh theo quy trình chung sau: - Bước 1: Bệnh nhân đến nơi tiếp nhận bệnh nhân (nơi cấp số) để xác lập việc khám bệnh định vị trí khám bệnh - Bước 2: Bệnh nhân bác sĩ khám bệnh Trang9 Thực Tập Chuyên Ngành - Bước 3: Sau khám xong bệnh nhân thuộc hai loại: Điều trị nhà hay nhập viện + Bước 3.1: Nếu bệnh nhân điều trị nhà bác sĩ cho toa thuốc ghi đầy đủ tên thuốc, số lượng cách dùng Nếu bệnh nhân có thẻ bảo hiểm y tế đến nơi cấp thuốc bảo hiểm y tế để nhận thuốc trả phần giá thuốc theo quy định phần trăm thẻ bảo hiểm Ngược lại, bệnh nhân phải trả tất chi phí khám bệnh tự mua thuốc + Bước 3.2: Nếu bệnh nhân phải nhập viện bác sĩ khám bệnh cho lệnh nhập viện, có ghi đầy đủ thông tin bệnh nhân, bệnh dự đoán đưa đến khoa điều trị - Bước 4: Tại khoa điều trị, bệnh nhân chuẩn đoán lập bệnh án chi tiết Trên bệnh án ghi đầy đủ thông tin bệnh nhân bệnh mà bệnh mắc phải Quá trình điều trị bệnh nhân thể đầy đủ bệnh án Trong khoảng thời gian quy định tuỳ theo bệnh nhân, bệnh nhân bác sĩ khám, cho toa thuốc Trên toa thuốc ghi tên thuốc, số lượng cách dùng Trong trình điều trị, bệnh nhân sử dụng dịch vụ hỗ trợ khám bệnh như: Xét nghiệm, X_quang, siêu âm,… Việc sử dụng theo định bác sĩ khám chữa bệnh Mỗi dịch vụ có giá tiền riêng Khi bệnh nhân điều trị lựa chọn loại phịng nằm điều trị với giá dịch vụ riêng cho loại phòng - Bước 5: Thanh tốn viện phí: Trong q trình điều trị, ngày, bệnh viện yêu cầu bệnh nhân tốn viện phí lần (bằng cách bệnh nhân đóng số tiền tạm ứng theo khả mình), sau xuất viện nhân viên vào số tiền tạm ứng tính để biết bệnh nhân tốn đầy đủ tiền viện phí chưa Nếu bệnh nhân có thẻ bảo hiểm y tế đóng phần trăm viện phí theo bảo hiểm bao gồm tiền thuốc dịch vụ hỗ trợ chữa trị khám bệnh Riêng tiền phịng, có thẻ bảo hiểm y tế, bệnh nhân bảo hiểm loại phòng rẻ nhất, bệnh nhân nằm điều trị loại phòng có giá tiền cao tự trả phần chênh lệch Khi xuất viện, bệnh nhân tốn tồn số viện phí cịn lại Trong q trình điều trị, có bệnh nhân trốn viện, khơng tốn viện phí Bệnh viện lưu lại tất thông tin bệnh nhân trốn viện Nếu sau chữa trị ngày mà bệnh nhân khơng đóng tạm ứng tiền viện phí (hay tiền tạm ứng viện phí trước hết), khoa (phịng) nơi điều trị bệnh nhân trình ban lãnh đạo biết để xem xét giải - Bước 6: Theo chu kỳ tháng, bệnh viện tốn tiền viện phí với Bảo hiểm y tế Trang10 Thực Tập Chuyên Ngành Option Explicit Public Test_connection As Boolean Public mahuyen As String Public cn As New ADODB.Connection Public ConnectionString As String Sub open_mdb() **************************************************************** Dim db_name, str As String db_name = App.Path & "\QLCNVC_MoiNhat.mdb" ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db_name & "" DE1.CE1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & db_name & "" DE1.CE1.Open cn.Open ConnectionString Test_connection = True End Sub Các phương thức đối tượng Connection - Open method : Được sử dụng để mở liên kết với database Ngay sau tạo instance cho Connection Object, ta mở kết nối với Data Soure để truy xuất liệu + Execute method: Cho phép thực thi câu lệnh tác động lên Data Soure Trong CommandText chuỗi lệnh cần thực hiện, thơng số option giá trị khác quy định loại CommandText Giá trị Danh hiệu tương ứng adCmdUnknown adCmdText adCmdTable adCmdStoreProc Loại CommandText Mặc định định nghĩa Là câu lệnh, ví dụ SQL Tên table mà ta tạo Recordset từ Một Store procedure Data soure Thông thường giá trị gán sẵn vào danh hiệu đặt file include có tên adovbs.inc - Close method: Đóng kết nối mở Trang36 Thực Tập Chuyên Ngành Connection.Close Command object: Thay dùng phương thức Execute Connection để query hay update data soure, ta sử dụng Command Methods CreateParameter: Dùng để tạo đối tượng Parameter Execute: Dùng để thực thi câu lệnh đặc tả phương thức CommandText Properties ActiveConnection: Chỉ định đối tượng Connection sử dụng đối tượng Command CommandText: Chỉ định câu lệnh cần thực sở liệu CommandTimeout: Xác định thời gian thực thi lệnh, giá trị thời gian tính theo second CommandType: Cho biết kiểu query đặc tả CommandText Prepared: Tạo lệnh chuẩn bị trước thực thi Recordset Oject: Là kết trả thực query, thực chất bảng nhớ, ta truy xuất record qua phương thức thuộc tính Methods: Open: Mở recordset Addnew:Tạo record Recordset Update:Cập nhật thay đổi vào record hành Delete: Xoá record hành Move: Dịch chuyển trỏ record hành MoveFirst: Đến record MoveNext: Đến record MovePrevious: Trở record trước MoveLast: Đến record cuối Requery: Thực thi lại query tạo recordset GetRow: Chứa record vào query Close: Đóng lại đối tượng Recordset Properties: AbsolutePosition: Số thứ tự (vật lý) record BOF: Là True trỏ nằm trước record EOF: Là True trỏ nằm sau record cuối CursorType: Kiểu trỏ sử dụng recordset RecordCount: Trả tổng số record recordset Trang37 Thực Tập Chuyên Ngành Tạo Recordset: Trước tiên ta instace cho record phát biểu Recordset_name = Server.CreataObject(“ADODB.Recordset”) Sau dùng phương thức Execute đối tượng Connection hay Command để tạo recordset Recordset_name = ConnectionObject.Execute (CommandText,_ Recordaffected, Options) Trong đó: Soure: Là CommandObject hay lệnh SQL Store Procedure ActiveConnection: Là tên Connection mở kết nối với database CursorType: Là kiểu trỏ sử dụng với recordset, thông số có kiểu số gán trị qua tên tương ứng sau: + AdOpen ForwardOnly = 0: Là giá trị mặc định, cho phép duyệt record theo chiều từ đầu đến cuối, không cho phép cập nhật hay xố bỏ record + AdOpenKeyset = 1: Chế độ cho phép cập nhật record, cấm truy xuất đến record user khác thêm vào record + AdOpenDynamic = : Chế độ cho phép tất thao tác như: thêm vào, loại bỏ, cập nhật duyệt theo tất chiều lên xuống tuỳ ý + AdOpenStatic = 3: Gần giống chế độ OpenForwardOnly Một số đoạn chương trình xây dựng thao tác: Thêm, xố, sửa, lưu khỏi record Ví dụ formChứcvụ Option Explicit Private flag As String Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdDel_Click() Xoa_Du_Lieu End Sub Private Sub cmdNew_Click() set_null End Sub - Trang38 Thực Tập Chuyên Ngành Private Sub cmdSave_Click() If flag "Update" Then flag = "Save" End If Luu_Du_Lieu End Sub Private Sub cmdUpdate_Click() txtTenCV.Enabled = True txtTenCV.SetFocus End Sub Private Sub Form_Load() Display_listView End Sub Private Sub Display_listView() Dim rs As New ADODB.Recordset Dim str Dim mItem As ListItem ListItem.ListItems.Clear str = "select * from chucvu order by Macv asc" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then While Not rs.EOF Set mItem = ListItem.ListItems.Add(, , rs!MaCV) mItem.SubItems(1) = rs!tencv rs.MoveNext Wend End If txtMaCV.Enabled = False txtTenCV.Enabled = False End Sub Private Sub ListItem_ItemClick(ByVal Item As MSComctlLib.ListItem) txtMaCV = Item.Text txtTenCV = Item.SubItems(1) txtMaCV.Enabled = False End Sub Trang39 Thực Tập Chuyên Ngành Private Sub Xoa_Du_Lieu() Dim str Dim response Dim rs As New ADODB.Recordset If Trim(txtMaCV) = "" Then Exit Sub End If response = MsgBox(" Bạn có chắn xố Chức Vụ ? ", vbYesNo + vbQuestion, "Thong Bao") If response = vbNo Then Exit Sub Else str = "delete from Chucvu where Macv = '" & Trim(txtMaCV) & "'" cn.Execute (str) End If set_null Display_listView End Sub Private Sub Luu_Du_Lieu() Dim rs As New ADODB.Recordset Dim str Dim Nghiamap 'kiểm tra độ dài mã Chức Vụ If Len(Trim(txtMaCV)) Then MsgBox "Ban phải nhập mã số có số Vui lịng nhập lại", vbOKOnly + vbInformation, "Thông báo" txtMaCV.SetFocus Exit Sub End If -'kiem tra mãcv va Têncv trước lưu 'Neu Macv="" va Tencv="" thi không cho nhập If Trim(txtMaCV) = "" Or Trim(txtTenCV) = "" Then MsgBox " Chu y : Bạn phải nhập vào mã tên Chức Vụ trước lưu ", vbOKOnly + vbExclamation, "Thông báo" Me.MousePointer = Exit Sub End If 'kiểm tra nhập có phải số khơng? If Not IsNumeric(txtMaCV.Text) Then MsgBox "Ma chức vụ phải số Vui lòng nhập lại", _ Trang40 Thực Tập Chuyên Ngành vbOKOnly + vbExclamation, "Thông báo" txtMaCV.SetFocus txtMaCV.Text = "" Exit Sub End If ' mở table Chức Vụ str = "select * from Chucvu where Macv = '" _ & Trim(txtMaCV) & "'" rs.Open str, cn 'kiểm tra tên ChứcVụ có trùng khơng? trùng khơng cho nhập If TrungTen = True Then MsgBox "Tên Chức Vụ nhập bạn không cần nhập nữa", _ vbOKOnly + vbExclamation, "Thông báo" Exit Sub End If 'lưu vào table recordset If rs.EOF = True Then str = "insert into Chứcvụ values('" _ & Trim(txtMaCV) & "','" & Trim(txtTenCV) & "')" cn.Execute (str) Else Nghiamap = MsgBox("Chức vụ có mã [" & txtMaCV & "] tồn Bạn có muốn sửa khơng?", vbYesNo + vbExclamation, "Thơng báo") If Nghiamap = vbNo Then Exit Sub Else 'sua lai Tên chức vụ str = "Update chucvu set TenCV = '" & Trim(txtTenCV) & "' where Macv = '" & Trim(txtMaCV) & "'" cn.Execute (str) End If End If 'hiển thị danh sách Chức Vụ Display_listView cmdNew.SetFocus Me.MousePointer = End Sub 'tao txtMãcv va txtTêncv tính rỗng Private Sub set_null() txtMaCV.Enabled = True Trang41 Thực Tập Chuyên Ngành txtTenCV.Enabled = True txtMaCV.Text = "" txtTenCV.Text = "" txtMaCV.SetFocus End Sub -Private Function TrungTen() As Boolean Dim rs As New ADODB.Recordset Dim str Dim kiemtra str = "select * from CHucvu " rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then Do While Not rs.EOF str = rs!tencv If UCase(txtTenCV.Text) = UCase(str) Then TrungTen = True Exit Do End If rs.MoveNext Loop End If End Function Private Sub txtMacv_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 txtTenCV.SetFocus End Select End Sub -Private Sub txtTencv_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 cmdSave_Click End Select End Sub Trang42 Thực Tập Chuyên Ngành Chương V : GIỚI THIỆU MỘT SỐ GIAO DIỆN CHÍNH KHI CHẠY CHƯƠNG TRÌNH Hình 1: Giao diện chương trình Trang43 Thực Tập Chuyên Ngành Hình : Hồ sơ nhân viên bệnh viện Hình : Hồ sơ bệnh nhân bệnh viện Trang44 Thực Tập Chuyên Ngành Hình 4: Form Báo biểu – In ấn hồ sơ nhân viên Hình 5: Form Báo biểu hồ sơ nhân viên Trang45 Thực Tập Chuyên Ngành Hình 6: Form Giới thiệu chương trình Hình 7: Form giới thiệu danh sách liên tịch bệnh viện Trang46 Thực Tập Chuyên Ngành Hình 8: Form Giới thiệu danh sách trưởng khoa bệnh viện Trang47 Thực Tập Chuyên Ngành Hình 9: Form Danh sách khoa điều trị có bệnh viện Chương VI :KẾT LUẬN VÀ HƯỚNG PHÁT TRIỂN ĐỀ TÀI I Kết luận: Đứng trước xu hướng phát triển công nghệ thông tin vũ bảo, việc tin học hoá việc quản lý hành vơ quan trọng thiết Nó giúp cho quan nhà nước giải cơng việc nhanh chóng hiệu Ứng dụng sở liệu giải vấn đề Với đề tài: Quản lý bệnh nhân nhân viên bệnh viện đa khoa tỉnh Khánh Hồ, chương trình cài đặt chưa hồn thiện chức năng, song có thời gian phát triển hồn thiện chương trình có ích nhiều giúp cho nhân viên bệnh viện công việc lưu trữ thống kê bệnh nhân nhân viên quản lý bệnh nhân bệnh viện cách thuận tiện dễ dàng nhiều II Hạn chế: Do thời gian thực đề tài tương đối hạn chế nên chương trình khơng thể tránh thiếu sót định Bên cạnh chưong trình cị có số chức tiềm kiếm thống kê chưa có đủ thời gian để thực kịp Đồng thời Trang48 Thực Tập Chun Ngành có số form chưa hồn thành đầy đủ xác ràng buộc liệu chưa đầy đủ Do cài đặt ngơn ngữ lập trình Visual Basic 6.0 hệ quản trị sở liệu Microsoft Access 2000 nên chương trình chưa có tính bảo mật cao q trình quản lý III Hướng phát triển đề tài: Để chương trình hoạt động hiệu cần liệu phải lưu trữ hệ quản trị sở liệu có tính bảo mật Cần có kết hợp song song quản lý nhân viên bệnh nhân cách chặt chẽ để việc theo dõi quản lý bệnh viện tốt Nếu đưa chương trình quản lý thông tin bệnh nhân lên trang Web để giúp cho người thân bệnh nhân có thuận lợi để theo dõi trình điều trị bệnh của người thân cho dù ngồi nhà hay nơi Đồng thời bệnh nhân nằm điều trị bệnh viện, lý mà cần phải chuyển đến bệnh viện khác để điều trị Tại bác sĩ bệnh viện tiếp nhận không cần xem hồ sơ bệnh nhân mà cần lên trang web bệnh viện nơi bệnh nhân chuyển đến để xem biết tồn thông tin bệnh nhân như: hồ sơ bệnh nhân, bệnh án bệnh nhân… TÀI LIỆU THAM KHẢO [1] Lập trình sở liệu với Visual Basic 6.0 ( tác giả Nguyễn Thị Ngọc Mai (chủ biên ) Nhà xuất giáo dục 2000) [2] Microsoft Access 2000 (NXB Đại Học Quốc Gia TPHCM 2001, tác giả Nguyễn Thiện Tâm) [3] Bài giảng Cơ sở liệu & Phân tích thiết kế hệ thống thơng tin quản lý (Nguyễn Hữu Trọng, trung tâm ngoại ngữ tin học_trường đại học Thuỷ sản lưu hành nội 10/1999) [4] Lập trình Visual Basic 6.0 21 ngày (Nguyễn Tiến, Ngơ Quốc Việt, Phạm Tuấn Kỳ Nhà xuất giáo dục 1997) [5] Lập trình sở liệu với Visual Basic 6.0 (Đậu Quang Tuấn Nhà xuất trẻ 2000) [6] Lập trình sở liệu 21 ngày (Nguyễn Đình Tê chủ biên, tập Nhà xuất giáo dục 2000) Trang49 ... Trong lý lịch quản lý: - Nơi sinh quản lý: Huyện, tỉnh - Địa quản lý: Số nhà, đường Chính trị quản lý Đồn viên Đảng viên Nếu Đảng viên quản lý ngày vào Đảng, ngày thức, chi sinh hoạt Nhân viên bệnh. .. NV-TĐ (1,n) K-BỆNH - Ngày KB - NDKB - CPKB QTL N-LƯƠNG- (1,1) (1,n) (1,n) BL-N (1,1) (1,n) CHI BỘ - Mã CB - Tên CB B-LƯƠNG - Mã BL - HSL (1,n) NHÂN VIÊN - Mã NV - Họ NV - Tên NV - Ngày sinh -. .. (1,1) BỆNH NHÂN - Mã BN - Họ BN - Tên BN - Ngày sinh BN - Giới tính BN NV-NN - Cấp độ NVĐT (1,n) Đ.TƯỢNG - Mã ĐT - Tên ĐT (1,n) NV-TG (1,1) -NgàyLL - Mã NL - Tên NL - Số TLL T-GIÁO - Mã TG - Tên