THỰC HIỆN CÀI ĐẶT CHƯƠNG TRÌNH QLBV

THỰC HIỆN CÀI ĐẶT CHƯƠNG TRÌNH I. Cách tạo kết nối dữ liệu : Database Access Component Database Access Component còn gọi là ADO (ActiveX Data Object), các object của ADO cung cấp cơ chế kết nối (connection) với hầu hết các kiểu database, cũng như việc truy xuất, cập nhật các database này. ADO Interface Các đối tượng trong ADO giao tiếp với database thông qua ODBC (Open Database Connectivity), chúng có thể được sử dụng với bất kỳ loại database nào nếu như có ODBC driver hỗ trợ. Các đối tượng trong ADO : Gồm : Connection, Recordset và Command. Sử dụng Connection ta có thể thiết lập sự liên kết với dữ liệu, thông qua đó ta có thể lấy các Record hoặc cập nhật một record bằng cách sử dụng Command Object. Kết quả thực hiện các query trên database sẽ được lưu vào đối tượng Recordset, trên đối tượng này có thể duyệt và lấy ra một hay nhiều record. Cách kết nối để mở một cơ sở dữ liệu từ SQL Server . 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 1. Các phương thức đối tượng Connection  Open method :Được sử dụng để mở một liên kết với database. Ngay sau tạo instance cho Connection Object, ta có thể mở một kết nối với Data Soure để truy xuất dữ liệu.  Execute method: Cho phép thực thi một câu lệnh tác động lên Data Soure. Trong đó CommandText là chuỗi lệnh cần thực hiện, thông quá 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, ví dụ như là SQL 2 adCmdTable Tên của table mà ta sẽ tạo Recordset từ đó 3 adCmdStoreProc Một Store procedure trong Data soure 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 đặt trong file include có tên adovbs.inc.  Close method: Đóng các kết nối đã mở. Connection.Close 2. Command object:Thay vì dùng phương thức Execute của Connection để query hay update data soure, ta có thể sử dụng Command. Methods CreateParameter: Dùng để tạo một đối tượng Parameter Execute: Dùng để thực thi câu lệnh được đặc tả trong phương thức CommandText. Properties ActiveConnection: Chỉ định đối tượng Connection nào được sử dụng trong đối tượng Command. CommandText: Chỉ định câu lệnh cần thực hiện trên cơ sở dữ liệu. CommandTimeout: Xác định thời gian thực thi lệnh, giá trị thời gian này tính theo second. CommandType: Cho biết kiểu của query đặc tả trong CommandText Prepared: Tạo ra lệnh chuẩn bị trước khi thực thi. 3. Recordset Oject: Là kết quả trả về khi thực hiện một query, thực chất nó là một bảng trong bộ nhớ, ta có thể truy xuất các record của nó qua các phương thức và thuộc tính.  Methods:  Open: Mở recordset mới  Addnew:Tạo một record trong Recordset.  Update:Cập nhật các thay đổi vào record hiện hành.  Delete: Xoá record hiện hành.  Move: Dịch chuyển con trỏ record hiện hành.  MoveFirst: Đến record đầu tiên.  MoveNext: Đến record kế tiếp.  MovePrevious: Trở về record trước đó.  MoveLast: Đến record cuối cùng.  Requery: Thực thi lại query tạo ra recordset.  GetRow: Chứa các record vào một query.  Close: Đóng lại đối tượng Recordset.  Properties:  AbsolutePosition: Số thứ tự (vật lý) của record hiện tại.  BOF: Là True nếu con trỏ nằm trước record đầu tiên.  EOF: Là True nếu con trỏ nằm sau record cuối cùng.  CursorType: Kiểu của con trỏ được sử dụng trong recordset.  RecordCount: Trả về tổng số record trong recordset.  Tạo Recordset: Trước tiên ta instace cho record bằng phát biểu Recordset_name = Server.CreataObject(“ADODB.Recordset”) Sau đó dùng phương thức Execute của đối tượng Connection hay Command để tạo ra recordset. Recordset_name = ConnectionObject.Execute (CommandText,_ Recordaffected, Options) Trong đó:  Soure: Là một CommandObject hay một lệnh SQL hoặc là Store Procedure.  ActiveConnection: Là tên của Connection đã được mở kết nối với database.  CursorType: Là kiểu con trỏ sử dụng với recordset, thông số này có kiểu số và được gán trị qua các tên hằng tương ứng như sau:  AdOpen ForwardOnly = 0: Là giá trị mặc định, chỉ cho phép duyệt các record theo một chiều từ đầu đến cuối, không cho phép cập nhật hay xoá bỏ các record trong đó.  AdOpenKeyset = 1: Chế độ này cho phép cập nhật các record, nhưng cấm truy xuất đến record của user khác thêm vào record.  AdOpenDynamic = 2 : Chế độ này cho phép tất cả các thao tác trên như: thêm vào, loại bỏ, cập nhật và duyệt theo tất cả chiều lên xuống tuỳ ý.  AdOpenStatic = 3: Gần giống như chế độ OpenForwardOnly. CHƯƠNG IV GIỚI THIỆU MỘT SỐ FORM CHÍNH KHI CHẠY CHƯƠNG TRÌNH  Dưới đây là form chính của chương trình, khi chạy chương trình thì form này được gọi đầu tiên, từ form này ta có thể thực hiện chương trình từ các form khác như: Tập tin, Nhập dữ liệu, nhân viên, bệnh nhân, thống ke, tìm kiếm, báo biểu.  Taị giao diện chính của chương trình khi nhấn chuột vào nhập liệu, từ đây chon thông tin cần đăng nhập như: Vị trí khám bệnh, nơi diều trị, bệnh, thuốc, dân tộc, tôn giáo.  Form đăng nhập vị trí khám bệnh Tại đây sẽ thêm mới vị trí khám bệnh khi có vị trí khám bệnh mới được thành lập, hay sửa vị trí khám bệnh khi vị trí khám bệnh thay đổi hoặc xoá vị trí khám bệnh khi vị trí khám bệnh không còn. Thêm mới bằng nút mới, khi không muốn thực hiện công việc này thì nhấn nút bỏ qua. Tương tự khi ta xoá, sửa ta cũng thực hiện như vậy.  Form Xã: Thực hiện bằng cách nhấn vào địa chỉ. Tại đây chọn đăng nhập thông tin cho tỉnh, huyện hay xã. Tại đây thêm mới, xoá bỏ hay sửa thông tin về xã khi một xã tách ra hay thông tin về xã bị thay đổi và xoá bỏ khi xã đó không còn tồn tại. Thêm mới bằng cách nhấn nút mới, huỷ bỏ công việc bằng cách nhấn nút bỏ qua. Thay đổi thông tin về xã bằng cách nhấn nút sửa, huỷ bỏ công việc bằng cách nhấn nút bỏ qua, hoàn thành công việc bằng cách nhấn nút lưu. Xoá thông tin về xã bằng cách nhấn nút xoá.  Form hồ sơ nhân viên: Khi nhấn nhân viên trên form chính. tại đây chọn một số thông tin cần dăng nhập như: Form hồ sơ nhân viên, quá trình công tác Tại đây thêm mới hồ sơ nhân viên khi có nhân viên tới công tác tại bệnh viện, bằng cách nhấn nút mới, hoàn thành công việc khi nhấn nút lưu, huỷ bỏ công việc khi nhấn nút bỏ qua. Sửa hồ sơ về nhân viên khi thông tin về nhân viên thay đổi, bằng cách nhấn nút sửa, hoàn thành công việc nhấn nút lưu, huỷ bỏ công việc nhấn nút bỏ qua. Xoá bỏ thông tin về nhân viên khi nhân viên không còn công tác tại bệnh viện, bằng cách nhấn nút xoá.  Form hồ sơ bệnh nhân: Khi nhấn bệnh nhân sẽ có những thông tin cần quan tâm như: Hồ sơ bệnh nhân, tạm ứng viện phí, bảo hiểm, cơ quan… Tại form hồ sơ nhân viên, có thể thêm mới khi có bệnh nhân đến khám chữa bệnh, sửa đổi thông tin về bệnh nhân, xoá bỏ bệnh nhân khi bệnh nhân không còn diều trị trong khoảng thời gian dài. Ngoài ra còn một số form khác và thông tin khác như tìm kiếm bệnh nhân, tìm kiếm nhân viên, báo biểu, báo cáo thống kê bệnh, danh sách bệnh nhân, danh sách trưởng khoa…. [...]... tuy chương trình cài đặt chưa được hoàn thiện các chức năng, song nếu có thời gian phát triển và hoàn thiện hơn thì chương trình này sẽ có ích rất nhiều giúp cho các nhân viên của bệnh viện trong công việc lưu trữ và thống kê bệnh nhân và nhân viên cũng như quản lý bệnh nhân tại bệnh viện một cách thuận tiện và dễ dàng hơn rất nhiều II Hạn chế: Do thời gian thực hiện đề tài tương đối hạn chế nên chương. .. hiện đề tài tương đối hạn chế nên chương trình không thể tránh được những thiếu sót nhất định Bên cạnh đó chưong trình cò có một số chức năng tiềm kiếm và thống kê chưa có đủ thời gian để thực hiện kịp Đồng thời vẫn còn có một số form chưa hoàn thành đầy đủ và chính xác và các ràng buộc về dữ liệu vẫn chưa đầy đủ lắm hơn nữa trong quá trình vừa viết chương trình vừa tìm hiểu về ngôn ngữ SQL Server... tránh khỏi những thiếu sót III Hướng phát triển đề tài: Để chương trình có thể hoạt động hiệu quả hơn cần dữ liệu phải được lưu trữ bằng hệ quản trị cơ sở dữ liệu có tính bảo mật hơn Cần có sự kết hợp song song giữa quản lý nhân viên và bệnh nhân một cách chặt chẽ hơn để việc theo dõi và quản lý của bệnh viện được tốt hơn Nếu có thể đưa chương trình quản lý các thông tin về bệnh nhân lên các trang Web... Lập trình cơ sở dữ liệu với Visual Basic 6.0 ( tác giả Nguyễn Thị Ngọc Mai (chủ biên ) Nhà xuất bản giáo dục 2000) [2] Lập trình ứng dụng chuyên nghiệp SQL SERVER 2000 (NXB nhà xuất bản giáo dục, Phạm Hữu Khang chủ biên) [3] Bài giảng Cơ sở dữ 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 bộ 10/1999) [4] Lập trình. .. Thuỷ sản lưu hành nội bộ 10/1999) [4] Lập trình Visual Basic 6.0 trong 21 ngày (Nguyễn Tiến, Ngô Quốc Việt, Phạm Tuấn Kỳ Nhà xuất bản giáo dục 1997) [5] Lập trình cơ sở dữ liệu với Visual Basic 6.0 (Đậu Quang Tuấn Nhà xuất bản trẻ 2000) [6] Lập trình cơ sở dữ liệu trong 21 ngày (Nguyễn Đình Tê chủ biên, 3 tập Nhà xuất bản giáo dục 2000) ...CHƯƠNG V KẾT LUẬN HƯỚNG PHÁT TRIỂN ĐỀ TÀI I Kết luận: Đứng trước xu hướng phát triển của công nghệ thông tin như vũ bảo, việc tin học hoá việc quản lý hành chính là vô cùng quan trọng và bức thiết Nó sẽ... dõi và quản lý của bệnh viện được tốt hơn Nếu có thể đưa chương trình quản lý các thông tin về bệnh nhân lên các trang Web để giúp cho người thân của bệnh nhân có sự thuận lợi hơn để theo dõi được quá trình điều trị bệnh của của người thân cho dù là đang ngồi ở nhà hay ở bất kỳ nơi nào Đồng thời khi một bệnh nhân đang nằm điều trị tại bệnh viện, do những lý do gì đó mà cần phải chuyển đến bệnh viện . tỉnh Khánh Hoà, tuy chương trình cài đặt chưa được hoàn thiện các chức năng, song nếu có thời gian phát triển và hoàn thiện hơn thì chương trình này sẽ có. OpenForwardOnly. CHƯƠNG IV GIỚI THIỆU MỘT SỐ FORM CHÍNH KHI CHẠY CHƯƠNG TRÌNH  Dưới đây là form chính của chương trình, khi chạy chương trình thì form này