NHIỆM VỤ, MỤC TIÊU VÀ KHẢO SÁT BÀI TOÁN
NHIỆM VỤ VÀ KHẢO SÁT, VAI TRÒ CỦA BÀI TOÁN
I NHIỆM VỤ VÀ MỤC TIÊU CỦA BÀI TOÁN
1 Nhiệm vụ của bài toán
- Tìm hiểu cơ cấu tổ chức của Giáo viên “Trường THCS Thiệu Khánh”
- Tìm hiểu nhiệm vụ và qui trình thực hiện công việc của Giáo viên tại Trường THCS Thiệu Khánh
- Khảo sát tình hình thực tế của Giáo viên
- Áp dụng các kiến thức về Cơ sở dữ liệu và Phân tích - thiết kế hệ thống thông tin quản lý để xây dựng Phần mềm quản lý Giáo viên tự động thực hiện một số công việc bằng máy tính có thể thay thế một phần công việc cho con người.
2 Mục tiêu của bài toán
Nghiên cứu và thử nghiệm bài toán Phân tích - Thiết kế hệ thống thông tin quản lý.
Từ đó phân tích thiết kế cài đặt phần mềm Quản lý giáo viên
II KHẢO SÁT BÀI TOÁN
- Địa chỉ: Xã Thiệu Khánh- Huyện Thiệu Hoá- Thanh Hoá
- Hiệu trưởng: Thầy Nguyễn Đăng Tùng
- Phó hiệu trưởng: Thầy Phạm Đăng Dũng
- Tổng số học sinh: 2283, trường đạt tiêu chuẩn quốc gia.
- Tổng số giáo viên: 50 giáo viên
- Loại hình đào tạo: Công lập
III VAI TRÒ BÀI TOÁN Để đảm bảo và tiện lợi cho quá trình hoạt động chung của trường có hiệu quả thì việc Quản lý giáo viên đòi hỏi phải thường xuyên và chính xác Vị trí của bài toán này trong việc Quản lý giáo viên của trường được xuất phát từ thực tế khách quan của hoạt động quản lý, cần phải đưa tin học vào trong các lĩnh vực quản lý nói chung trong nhà trường, bên cạnh đó yếu tố con người càng không thể được xem nhẹ chính vì vậy cần có một chính sách quản lý thật khoa học nên bài toán Quản lý giáo viên giúp cho việc điều hành chung trong nhà trường ngày một hiệu quả hơn.
ĐẶC TẢ CÁC YÊU CẦU CỦA BÀI TOÁN
I VỊ TRÍ CHỨC NĂNG NHIỆM VỤ QUYỀN HẠN VÀ SƠ ĐỒ TỔ CHỨC CỦA GIÁO VIÊN
1 Chức năng của giáo viên :
GV làm công việc theo dõi quản lý giáo dục học sinh và chịu trách nhiệm trước Hiệu trưởng Nhà trường về nhiệm vụ được phân công như; cố vấn, giúp đỡ và chỉ đạo học sinh thực hiện tốt mọi quyền lợi, nghĩa vụ của học sinh, để thực hiện công việc theo quy chế cũng như sự điều hành của phòng Công tác chính trị & quản lý học sinh về công tác quản lý học sinh chung trong Nhà trường.
- Căn cứ vào tình hình thực tế, ký xác nhận cho học sinh đi phép 01 ngày Từ 02 ngày trở lên thì xác nhận lý do và gửi Trưởng phòng CTCT&QLHS giải quyết
- Có quyền đề nghị phòng CTCT & QLHS, Hội đồng khen thưởng, kỷ luật Nhà trường, biểu dương khen thưởng những cá nhân, tập thể HS có thành tích xuất sắc trong học tập, rèn luyện và ngược lại theo quy chế học sinh, sinh viên.
- Được mời tham gia Hội đồng thi đua, khen thưởng Hội đồng kỷ luật HS theo quy chế công tác HS.
- Chủ động và có những sáng tạo trong công tác quản lý, hướng dẫn HS, tập thể HS khối lớp mình phụ trách Nhằm tạo điều kiện giúp đỡ để HS hoàn thành tốt nhiệm vụ của người HS.
3 Nhiệm vụ của giáo viên :
-Vào đầu năm học GV, tổ chức chỉ đạo tập thể lớp lấy ý kiến thống nhất giới thiệuHọc sinh bầu vào ban đại diện lớp (có biên bản gửi về phòng CTCT&QLHS) Đồng thời thông qua chương trình hoạt động của lớp trong học kỳ, năm học.
- Hướng dẫn Học sinh thực hiện tốt nội quy của Trường, quy chế Công tác HS. Chấp hành tốt đường lối chính sách của Đảng, pháp luật của Nhà nước.
- Tổ chức cho Học sinh thực hiện các nhiệm vụ như; Theo dõi quá trình học tập, rèn luyện, nề nếp sinh hoạt và đời sống hàng ngày Tham gia các tổ chức Đoàn thể và các hoạt động xã hội khác theo kế hoạch chung của Nhà trường.
- Đôn đốc nhắc nhở Học sinh chấp hành tốt nội quy, quy chế học tập, sinh hoạt, thực hiện đầy đủ các chủ trương của Nhà trường về an ninh trạt tự, an toàn giao thông, phòng chống ma tuý và các tệ nạn xã hội.
- Động viên giúp đỡ những Học sinh gặp khó khăn trong học tập, sinh hoạt, liên hệ với các phòng ban chức năng giải quyết những vấn đề liên quan đến quyền lợi, nghĩa vụ của HS
- Phối hợp với các tổ chức Công đoàn, Đoàn TN, Hội HS, tổ chức các hoạt động văn thể mỹ và các hoạt động khác nhằm nâng cao đời sống tinh thần cho HS, giúp HS sử dụng thời gian nhàn rỗi một cách hữu ích
- Mỗi tháng một lần GV tổ chức họp lớp một lần nhận xét, xếp loại HS để làm cơ sở cho việc đánh giá kết quả rèn luyện của HS cuối kỳ, theo dõi tình hình chung để có biện pháp chỉ đạo kịp thời, cũng như triển khai kế hoạch tháng tới.
- Sáng thứ hai hàng tuần GV có mặt lúc 6 giờ để tập trung, đôn đốc HS trực ban và kiểm tra quân số báo cáo cho phòng Công tác chính trị & quản lý học sinh.
- Quản lý và đôn đốc nhắc nhở HS tham gia tuần sinh hoạt công dân HS- vào đầu năm học, các buổi mít tinh nghe thời sự vv…
- Chủ động tổ chức triển khai cho SV nghiên cứu, học tập, về quy chế HS, quy định đánh giá điểm rèn luyện của HS trong quá trình học tập tại Trường.
- Thường xuyên đôn đốc, nhắc nhở, HS lao động vệ sinh khu vực được phân công từ đầu năm học và các đợt đột xuất khác trong học kỳ theo kế hoạch.
- Nhắc nhở HS nộp tiền học phí, tiền nội trú và các khoản lệ phí khác đúng quy định.
- Chiều thứ sáu hàng tuần, GV tổng hợp và nhận xét tình hình học tập của HS lớp khóa mình chủ nhiệm Nộp về phòng CTCT & QLHS vào lúc 15 giờ 30 phút.
HĐ ngoài giò lên lớp Lao động- HN
Toán- Tin Vật lý- KTCN
Sinh học- KTNN Ngữ văn Sử- Địa- GDCD Ngoaị ngữ Thể dục
CƠ SỞ LÝ THUYẾT VÀ CÔNG CỤ PHÁT TRIỂN
CƠ SỞ LÝ THUYẾT
I CÁC KHÁI NIỆM CƠ BẢN
+ Thực thể: Là một đối tượng cụ thể nào đó
+ Thuộc tính thực thể: Tính chất xác định thực thể
+ Lớp thực thể: Các thực thể cùng thuộc tính
Thuộc tính: Tên thuộc tính, miền xác định của thuộc tính
Lược đồ một quan hệ gồm các thuộc tính của thực thể ( Tên miền xác định ) cùng với các mệnh đề ràng buộc.
Lược đồ quan hệ: R==(A1:D1,A2:D2,…An:Dn,M)
Di: Miền xác định của thuộc tính
Nội dung của lược đồ quan hệ gọi là các bộ
+ Các phép toán tối thiểu:
Tìm kiếm dữ liệu theo tiêu chuẩn đã chọn, không làm thay đổi trạng thái CSDL.
Thay đổi cấu trúc CSDL.
Thay đổi nộI dung CSDL.
Xử lý, tính toán trên CSDL.
II KHÁI NIỆM PHỤ THUỘC DỮ LIỆU VÀ CÁC DẠNG
Một thuộc tính gọi là phụ thuộc vào các thuộc tính khác khi giá trị của các thuộc tính này phụ thuộc vào giá tri của phụ thuộc kia Sự phụ thuộc này có thể là gián tiếp hay trực tiếp.
Một quan hệ bao giờ cũng có một nhóm thuộc tính mà giá trị của chúng qui định giá trị các thuộc tính khác, nhóm thuộc tính đó gọi là khoá.
Với một quan hệ tuỳ vào các phụ thuộc của các thuộc tính vào khoá có trong đó mà ta phân chia các quan hệ đó thành các dạng chuẩn khác nhau Các dạng chuẩn cơ bản.
Các dữ liệu lưu trữ dưới dạng chuẩn 3 tránh được hiện tượng dư thừa dữ liệu, tạo cho dữ liệu có tính độc lập cao Các quan hệ nếu chưa ở dạng chuẩn 3 sẽ được phân rã thành các quan hệ nhỏ hơn ở dạng chuẩn 3.
III KHÁI NIỆM CHỈ DẪN VÀ KHOÁ CHỈ DẪN Để có thể tìm kiếm thông tin nhanh theo một tiêu chuẩn nào đó chúng ta tạo ra các thông tin chỉ dẫn theo tiêu chuẩn nào đó Các thông tin chỉ dẫn là các thông tin giúp ta tìm kiếm dữ liệu nhanh Các thông tin này gọi là khoá chỉ dẫn Khoá chỉ dẫn có thể là một trường, hoặc nhiều trường trong trường hợp này phải chỉ ra thứ tự.
Với cách tạo ra khoá chỉ dẫn theo tiêu chuẩn nào đó ta có thể tìm kiếm nhanh dữ liệu theo tiêu chuẩn nào đó.
IV MỤC TIÊU VÀ TÍNH ƯU VIỆT CỦA MÔ HÌNH QUAN HỆ
- Cho một lược đồ dữ liệu dễ sử dụng, mô hình đơn giản, người dùng không cần biết cấu trúc vật lý của dữ liệu Tiện lợi cho người dùng không chuyên tin học
- Tăng cường tính độc lập của dữ liệu, đặc biệt là vật lý.
- Cho một khả năng có một ngôn ngữ thao tác bậc cao.
- Tối ưu việc tìm kiếm dữ liệu trong CSDL, hệ quản trị tự tìm cách truy nhập.
- Cải thiện nâng cao toàn vẹn dữ liệu và bảo mật dữ liệu.
- Có thể phục vụ cho nhiều chương trình ứng dụng.
- Có cơ sở toán học phong phú chắc chắn:
* Dạng chuẩn có độ bền vững và đầy đủ thông tin
CÔNG CỤ PHÁT TRIỂN
I LỰA CHỌN CÔNG CỤ PHÁT TRIỂN VÀ CÁC VẤN ĐỀ KỸ THUẬT
1 Lý do lựa chọn công cụ phát triển
Hiện nay các chương trình được ứng dụng phục vụ cho Trường THCS Cao Răm được viết bằng ngôn ngữ FoxPro LAN 2.0, chạy trên mạng Novell Netware.Và một số Quản lý thì viết bằng Excel Ưu điểm :
- Tiện lợi cho các ứng dụng có tính chất cá nhân hoặc nhóm nhỏ Dễ bảo trì, bảo hành.
- Đồng bộ: Phát triển trên một thiết kế và định hướng thống nhất.
- Tức thời: Dữ liệu được cập nhật tức thời khi phát sinh, đảm bảo thông tin kịp thời.
- Được kiểm toán xác nhận về chương trình, qui trình, tính hợp pháp của các thông tin do máy tính đưa ra.
- Không đáp ứng được mô hình các bài toán có tổ chức dữ liệu lớn Tốc độ đọc, ghi các bảng dữ liệu giảm rất nhanh khi kích thước các bảng dữ liệu tăng từ vài trăm Kb tới hàng ngàn Mb Đồng thờI tốc độ xử lý cũng phụ thuộc vào số lượng ngườI sử dụng.
- Không đáp ứng được các mô hình kiến trúc Client/Server ( Mô hình này hiện đang được sử dụng hết sức rộng rãi và ngày càng khẳng định được tính ưu việt của nó ). Đối với việc phát triển hệ thống, việc lựa chọn công cụ cũng có ý nghĩa hết sức quan trọng Người phát triển hệ thống phảI căn cứ vào khẳ năng của cơ sở mình cũng như các yếu tố đặc thù mà lựa chọn công cụ cho phù hợp.
Trong đề tài Quanr lý Giáo viên có một số yếu tố được xem xét khi lựa chọn công cụ như sau:
* Khả năng phát triển của hệ thống: Hệ thông tin xây dựng trong giai đoan hiện tại đã và đang là bước đi ban đầu trong quá trình tiến tới một hệ thống hoàn hảo, do đó khả năng phải nâng cấp dần trong tương lai là điều không thể tránh khỏi Chính vì vậy, yếu tố hàng đầu cần quan tâm khi lựa chọn công cụ là khả năng hỗ trợ của chúng trong việc bổ sung phát triển hệ thống Công cụ được chọn phảI giảm được chi phí bảo hành và nâng cấp chương trình.
* Hệ quản trị cơ sở dữ liệu được chọn phải có tính cởI mở cao để hệ thống có thể dễ dàng kết nốI với các hệ thống thông tin khác.
* Khả năng mà công cụ có thể giảm nhẹ gánh nặng công việc cho ngườI phát triển.
* Trên cơ sở xem xét các yếu tố trên đây, công cụ được chọn là hệ quản trị có sở dữ liệu MS ACCESS với ngôn ngữ để viết chương trình là Visual basic
+ Hệ thống máy tính chủ yếu được sử dụng hiện nay tại các THCS là máy PC với môi trường làm việc là hệ điều hành Window 98.
+ Đa số người sử dụng trên thực tế đã làm quen với tin học qua máy PC với hệ điều hành Window.
+ Hệ thống chương trình Quản lý giáo viên sẽ rất tiện dụng khi chạy trên môi trường mạng Tuy nhiên nó vẫn có thể cài đặt trên máy lẻ, áp dụng đối với những cơ sở chưa ứng dụng mạng máy tính trong quản lý.
II TỔNG QUAN VỀ HỆ QUẢN TRỊ CƠ SỞ DỮ LIỆU MS ACCESS
Access là một hệ thống quản lý cơ sở dữ liệu ( CSDL ) Cũng giống như các hệ CSDL khác, Access lưu trữ và tìm kiếm dữ liệu, biểu diễn thông tin và tự động làm nhiều nhiệm vụ khác Việc sử dụng Access, chúng ta có thể phát triển cho các ứng dụng một cách nhanh chóng.
Access cũng là một ứng dụng mạnh trong môi trường Windows Ngày từ đầu Access cũng là một sản phẩm của CSDL trong Microsoft Windows Bởi vì cả Window và Access đều xuất phát từ Microsoft nên cả hai sản phẩm này làm việc rất tốt cùng nhau, Access chạy trên nền Windows cũng thể hiện được trong Access Bạn có thể cắt, dán dữ liệu từ bất cứ ứng dụng nào trong môi trường Windows nào cho
Access và ngược lại Bạn có thể liên kết các đối tượng nào đó ví dụ như: OLE trong Excel, Paintbrush và Word for Windows vào môi trường Access.
Dù sao Access là một hệ quản trị dữ liệu rất tốt trong cơ sở dữ liệu, đồng thời nó có thể giúp chúng ta truy nhập tới tất cả các dạng dữ liệu Nó có thể làm việc vớI nhiều hơn một mảng (Table) tạI cùng một thờI điểm để giảm bớt sự rắc rốI của dữ liệu và làm cho công việc dễ dàng thực hiện hơn Chúng có thể liên kết một bảng trong Paradox và một bảng trong dbase, có thể lấy kết quả của việc liên kết đó và kết nốI dữ liệu này vớI những bảng làm việc trong Excel một cách nhanh chóng và dễ dàng.
2 Access cung cấp những công cụ gì?
Access cung cấp những thông tin quản lý CSDL quan hệ thực sự, hoàn thiện với những định nghĩa khoá (Primary key) và khoá ngoại (Foreign key), các loại luật quan hệ (một - một, một-nhiều), các mức kiểm tra mức toàn vẹn của dữ liệu cũng như định dạng và những định nghĩa mặc định cho môi trường (Filed) trong một bảng Bằng việc thực hiện sự toàn vẹn dữ liệu ở mức database engine, Access ngăn chặn được sự cập nhật và xoá thông tin không phù hợp.
Access cung cấp tất cả các kiểu dữ liệu cần thiết cho trường, bao gồm văn bản (text), kiểu số (number), kiểu tiền tệ (currency), kiểu ngày/tháng (data/time), kiểu meno, kiểu có/không (yes/no) và các đốI tượng OLE.Nó cũng hỗ trợ cho các giá trị rỗng ( Null) khi các giá trị này bị bỏ qua.
Việc xử lý quan hệ trong Access đáp ứng được những đòi hỏI vớI kiến trúc mềm dẻo của nó Nó có thể sử dụng như một hệ quản lý CSDL độc lập, hoặc theo mô hình Client/ Server Thông qua ODBC (Open Database Connectivity), chúng ta có thể kết nốI vớI nhiều dạng dữ liệu bên ngoài, ví dụ như: Oracle, Sybase, thậm chí vớI cả những CSDL trên máy tính lớn như DB/2.
VớI Access chúng ta cũng có thể phân quyền cho người sử dụng và cho các nhóm trong việc xem và thay đổI rất nhiều các kiểu đối tượng dữ liệu.
Tóm lại: Microsoft Access là một hệ quản trị cơ sở dữ liệu tương tác với ngườI sử dụng chạy trên môi trường Windows, nó tăng thêm sức mạnh trong công tác tổ chức, tìm kiếm và tổ chức thông tin Các quy tắc kiểm tra dữ liệu, giá trị mặc định, khuôn nhập dữ liệu … của Microsoft Access hoàn toàn đáp ứng yêu cầu Khả năng kết nối và công cụ truy vấn mạnh của nó giúp ta tìm kiếm thông tin một cách nhanh chóng Nó cho phép ta thiết kế được các biểu mẫu và báo cáo phức tạp đáp ứng các yêu cầu đề ra Đối với những yêu cầu quản lý dữ liệu ở mức độ chuyên môn cao
III GIỚI THIỆU TỔNG QUAN NGÔN NGỮ LẬP TRÌNH VISUAL BASIC
PHÂN TÍCH HỆ THỐNG CHƯƠNG TRÌNH QUẢN LÝ GIÁO VIỆ NTẠI TRƯỜNG THCS CAO RĂM- HOÀ BÌNH
MÔ HÌNH HOÁ DỮ LIỆU
1.Mô hình quan niệm dữ liệu
Mô hình quan niệm dữ liệu là cơ sở để trao đổi giữa người phân tích và người yêu cầu thiết kế hệ thống Hệ thống ở đây được phân tích gồm một số thực thể Một số các thực thể bao gồm một số các thuộc tính có đặc tính chung và giữa các thực thể sẽ có các mối kết hợp tương ứng với nhau Mặt khác còn tuỳ thuộc vào lần xuất hiện của mỗi thực thể vào mối kết hợp, mà các mối kết hợp còn có thể có các thuộc tính riêng.
- Thực thể DÂN TỘC chứa các thuộc tính Mã dân tộc, Tên dân tộc Trong đó thuộc tính Mã dân tộc là khoá chính, thuộc tính này nhằm lưu trữ thông tin về dân tộc của từng giáo viên trong nhà trường
- Thực thể TÔN GIÁO chứa các thuộc tính Mã tôn giáo, Tên tôn giáo Trong đó thuộc tính Mã tôn giáo là khoá chính, thuộc tính này nhằm lưu lại những thông tin về giáo viên thuộc tôn giáo nào.
- Thực thể CHỨC VỤ chứa các thuộc tính Mã CV, Tên CV Trong đó Mã CV là khoá chính, thuộc tính này nhằm lưu trữ thông tin về chức vụ của từng giáo viên trong nhà trường
- Thực thể TÌNH TRẠNG GV chứa các thuộc tính Mã Tình trạng, Tên tình trạng Trong đó thuộc tính Mã tình trạng là khoá chính, thuộc tính này nhằm lưu trữ thông tin về tình trạng giáo viên của mỗi giáo viên trong nhà trường
- Thực thể TRÌNH ĐỘ NGOẠI NGỮ chứa các thuộc tính Mã TDNN, TênTDNN Trong đó Mã TDNN là khoá chính, thuộc tính này nhằm lưu trữ những thông tin về ngoại ngữ của giáo viên trong nhà trường
- Thực thể TRÌNH ĐỘ CHUYÊN MÔN chứa các thuộc tính Mã CM, Tên CM. Trong đó Mã CM là khoá chính, thuộc tính này nhằm lưu trữ thông tin về chuyên môn của giáo viên trong nhà trường
- Thực thể HỆ ĐÀO TẠO chứa các thuộc tính Mã hệ đào tạo, Tên hệ đào tạo. Trong đó Mã đào tạo là khoá chính, thuộc tính này nhằm lưu trữ những thông tin về hệ đào tạo của giáo viên trong nhà trường.
- Thực thể NGÀNH ĐÀO TẠO chứa các thuộc tính Mã ngành đào tạo, Tên ngành đào tạo Trong đó Mã ngành đào tạo là khoá chính, thuộc tính này nhằm lưu trữ những thông tin về Ngành đào tạo của giáo viên trong nhà trường.
- Thực thể CHUYÊN MÔN ĐÀO TẠO chứa các thuộc tính Mã chuyên môn đào tạo, Tên chuyên môn đào tạo Trong đó Mã chuyên môn đào tạo là khoá chính, thuộc tính này nhằm lưu trữ những thông tin về Chuyên môn đào tạo của giáo viên trong nhà trường.
- Thực thể HỒ SƠ GIÁO VIÊN chứa các thuộc tính Mã giáo viên, Tên giáo viên, Bí danh, Ngày sinh, giới tính, dân tộc, email, điện thoại, số CMND, ngày cấp, nơi cấp, tôn giáo, Đảng viên, địa chỉ, quê quán, hê, số lương, lương cơ bản, thâm niên, khu vực, chức vụ, phụ cấp, ngành, ưu đãi, thu hút Trong đó Mã giáo viên là khoá chính, thuộc tính này nhằm lưu trữ những thông tin về Hồ sơ giáo viên trong nhà trường.
- Thực thể TỔ CHUYÊN MÔN chứa các thuộc tính Mã tổ chuyên môn , Tên tổ chuyên môn Trong đó Mã tổ chuyên môn là khoá chính, thuộc tính này nhằm lưu trữ những thông tin về Tổ Chuyên môn của giáo viên trong nhà trường.
2 Mối kết hợp giữa các thực thể
- Giữa thực thể HỒ SƠ GIÁO VIÊN với thực thể DÂN TỘC có mối kết hợp (1,1)-(1,n) Vì mỗi giáo viên chỉ có thể ứng với một dân tộc và nhiều dân tộc có thể ứng với nhiều giáo viên
- Giữa thực thể HỒ SƠ GIÁO VIÊN với thực thể TÔN GIÁO có mối kết hợp(1,1)- (1,n) Vì một giáo viên chỉ có thể ứng với một tôn giáo và một tôn giáo có thể ứng với nhiều giáo viên.
- Giữa thực thể HỒ SƠ GIÁO VIÊN với thực thể TRÌNH ĐỘ NGOẠI NGỮ có mối kết hợp (1,n)-(1,n) Vì một giáo viên ứng với nhiều trình độ ngoại ngữ và một ngoại ngữ ứng với nhiều giáo viên.
MÔ HÌNH TỔ CHỨC DỮ LIỆU
Với mô hình quan niệm dữ liệu của bài toán quản Quản lý giáo viên ta có mô hình tổ chức dữ liệu sau:
4 Danh mục tình trạng giáo viên
5 Danh mục Trình độ ngoại ngữ
6 Danh mục Trình độ chuyên môn
7 Danh mục Hệ đào tạo
8 Danh mục Ngành đào tạo
9 Danh mục chuyên môn đào tạo
11 Danh mục Thông tin khác của giáo viên
12 Danh mục Thông tin địa chỉ giáo viên
13 Danh mục Lương, phụ cấp, Số sổ BHXH giáo viên
14 Danh mục tổ chuyên môn
MÔ HÌNH VẬT LÝ DỮ LIỆU
Mô hình vật lý dữ liệu là mô hình của dữ liệu được cài đặt trên máy tính dưới một hệ thống quản trị dữ liệu, trong bài toán Quản lý giáo viên em đã trình bày mô hình vật lý dữ liệu dưới hệ quản trị dữ liệu bằng ACCESS. Ứng với mỗi lược đồ quan hệ trong mô hình tổ chức dữ liệu được cài đặt thành một bảng dữ liệu cơ sở (Table) Ở đây ta chỉ trình bày các yếu tố chính của các table bao gồm các cột: Tên trường, kiểu dữ liệu, kích thước và ràng buộc tính toàn vẹn dữ liệu.
Vậy bài toán Quản lý giáo viên ta có các bảng như sau:
Tên trường Kiểu dữ liệu Độ dài Mô tả
Madantoc(*) Text 10 Mã dân tộc (khóa chính) *
Tendantoc Text 50 Tên dân tộc
Tên trường Kiểu dữ liệu Độ dài Mô tả
) Text 10 Mã tôn giáo (khóa chính) *
TentonGiao Text 50 Tên tôn giáo
Tên trường Kiểu dữ liệu Độ dài Mô tả
) Text 10 Mã chức vụ (khóa chính) *
Tenchucvu Text 50 Tên chức vụ
Tên trường Kiểu dữ liệu Độ dài Mô tả
Matinhtrang(*) Text 10 Mã tình trạng (khóa chính) *
V Text 50 Tên tình trạng giáo viên
Tên trường Kiểu dữ liệu Độ dài Mô tả
) Text 10 Mã trình độ ngoại ngữ, khoá chính Tentrinhdongoaingu Text 50 Tên trình độ ngoại ngữ
Tên trường Kiểu dữ liệu Độ dài Mô tả
) Text 10 Mã tỉnh thành (khóa chính) *
TenTDCM Text 50 Tên trình độ chuyên môn là khoá chính
Tên trường Kiểu dữ liệu Độ dài Mô tả
) Text 10 Mã đào tạo (khóa chính) *
Tenhedaota o Text 50 Tên hệ đào tạo
Tên trường Kiểu dữ liệu Độ dài Mô tả
) Text 10 Mã ngành đào tạo (khóa chính) *
TennganhDT Text 50 Tên ngành đào tạo
Tên trường Kiểu dữ liệu Độ dài Mô tả
MaCMDT(*) Text 10 Mã bằng ngoại ngữ (khóa chính) *
T Text 50 Tên bằng ngoại ngữ
Tên trường Kiểu dữ liệu Độ dài Mô tả
) Text 10 Mã đơn vị công tác (khóa chính) *
Tentochuyenmon Text 50 Tên đơn vị công tác
Tên trường Kiểu dữ liệu Độ dài Mô tả
Magiaovien(*) Text 10 Mã giáo viên( khoá chính)
HotenGV Text 50 Họ tên giáo viên
Ngaysinh Date\Time Ngày sinh
Tendantoc Text 30 Tên dân tộc
SoCMND Number Số chứng minh nhân dân
NoicapCMND Text Nơi cấp chứng minh nhân dân
NgaycapCMND Date\Time Ngày cấp chứng minh nhân dân
SoDT Number Số điện thoại
Tentongiao Text 10 Tên tôn giáo
Tendantoc Text 10 Tên dân tộc
Noiketnapdang Text 5 Nơi kết nạp đảng
Tên trường Kiểu dữ liệu Độ dài Mô tả
Magiaovien(*) Text 10 Mã giáo viên( khoá chính)
HotenGV Text 50 Họ và tên giáo viên
Tenchucvu Text 50 Tên chức vụ
Tentrinhdongoaingu Text 50 Tên trình độ ngoại ngữ
TenTDCM Text 50 Tên trình độ chuyên môn
Tenhedaotao Text 30 Tên hệ đào tạo
TennganhDT Text 50 Tên ngành đào tạo
TenchuyenmonDT Text 50 Tên chuyên môn đào tạo
Noidaotao Text 50 Nơi đào tạo
Namtotnghiep Number Năm tốt nghiệp
Chuyentrachdoi Yes/No Chuyên trách đội
Chuyentrachthuvien Yes/No Chuyên trách thư viện
Chuyentrachthietbi Yes/No Chuyên trách thiết bị
Danhgiavedaoduc Text 10 Đánh gia đạo đức
Danhgiavechuyenmo n Text 50 Đánh giá về chuyên môn
Mamonday Text 10 Mã môn dạy
Mondaychinh Text 50 Môn dạy chính
Daythemmon Text 50 Dạy thêm môn
Diadiemday Text 50 Địa điểm dạy
Tên trường Kiểu dữ liệu Độ dài Mô tả
Magiaovien(*) Text 10 Mã giáo viên( khoá chính)
HotenGV Text 50 Họ và tên giáo viên
DiachiTT Text 50 Địa chỉ thường trú
Ngayvaonganh Date\Time Ngày vào nhành
TentinhtrangGV Text 50 Tên tình trang giáo viên
QTCtac Text 50 Quá trình công tác
Ngayvaobienche Date\Time Ngày vào biên chế
MatinhtrangGV Text 10 Mã trình độ trạng thái
14 Bảng Thongtinluong, phu cap, SoBHXH
Tên trường Kiểu dữ liệu Độ dài Mô tả
Magiaovien(*) Text 10 Mã giáo viên( khoá chính)
HotenGV Text 50 Họ và tên giáo viên
Hesoluong Number Hế số lương
LuongCB Number Lương cơ bản
Thamnien Number Thâm niên vượt khung (2-20%)
Chucvu Number Phụ cấp chức vụ
Khuvuc Number Phụ cấp khu vực
HỒ SƠ GIÁO VIÊN TÌM KIẾM QUẢN LÝ DANH MỤC
4 Thông tin lương, phụ cấp, Sổ BHXH
1 Tìm kiếm theo mã nhân viên
2 Tìm kiếm thông tin khác
Uudai Number Phụ cấp ưu đãi hưởng(30%)
Nganh Number Phụ cấp Ngành (35%)
Thuhut Number Phụ cấp thu hút(70%)
Tongmucluong Number Tổng mức lương
Phucap Number Tổng phụ cấp
Tongluong Number Tổng lương thực lĩnh
SoBHXH Text 10 Số sổ bảo hiểm xã hội
MÔ HÌNH VẬT LÝ XỬ LÝ
Với mô hình tổ chức xử lý đã có , người phân tích sẽ tiến hành xem xét, biến các thủ tục chức năng thành các đơn vị chương trình Ứng với mỗi đơn vị chương trình mà ta đã đặc tả chi tiết để chuẩn bị cho việc cài đặt chương trình.
Một chương trình bao gồm các đơn vị tổ chức xử lý ( là một tập hợp các thủ tục chức năng có liên quan với nhau và được thực hiện liền mạch nhằm thực hiện một quy tắc quản lý nào đó ).
Có hai cách tiếp cận để tổ chức các đơn vị xử lý:
1 Tiếp cận theo không gian của các thủ tục chức năng (vị trí làm việc): Cách tiếp cận này thì các thủ tục chức năng cùng một nơi làm việc được gồm các đơn vị tổ chức xử lý.
2 Tiếp cận theo từng chức năng: Theo cách này thì các thủ tục chức năng giống nhau tổ chức thành các đơn vị tổ chức xử lý.
Sinh viên thực hiện: Vũ Mậu Thụ
Luận Văn Tốt nghiệp Quản Lý Giáo Viên
IPO Chart (IPO: Input - Processing - Output)
Môđun: NHẬP THÔNG TIN CHO GIÁO VIÊN
Hệ thống: QUẢN LÝ GIÁO VIÊN
Mục tiêu: Nhập dữ liệu cho GIÁO VIÊN
Input: Thông tin giáo viên
Output: Thông tin giáo viên ghi vào bảng giáo viên
Nhập thông tin của giáo viên
Tìm thông tin của giáo viên trong bảng Giáo viên
If không tìm thấy Then
Thêm thông tin giáo viên vào bảng Giáo viên
Cập nhật lại thông tin Giáo viên đã có trong bảng Giáo viên
Môđun: NHẬP THÔNG TIN TRÌNH ĐỘ NGOẠI NGỮ
Hệ thống: QUẢN LÝ GIÁO VIÊN
Mục tiêu: Nhập dữ liệu cho bảng TRÌNH ĐỘ NGOẠI NGỮ
Input: Thông tin trình độ ngoại ngữ
Output: Thông tin trình độ ngoại ngữ ghi vào bảng TRÌNH ĐỘ NGOẠI NGŨ
Nhập thông tin của trình độ ngoại ngữ
Tìm thông tin của trình độ ngoại ngữ trong bảng TRÌNH ĐỘ NGOẠI NGỮ
If không tìm thấy Then
Thêm thông tin trình độ ngoại ngữ trong bảng TRÌNH ĐỘ NGOẠI NGỮ
Cập nhật lại thông tin trình độ ngoại ngữ đã có trong bảng TRÌNH ĐỘ NGOẠI NGỮ
Môđun: NHẬP THÔNG TIN VỀ TÔN GIÁO
Hệ thống: QUẢN LÝ GIÁO VIÊN
Mục tiêu: Nhập dữ liệu cho TÔN GIÁO
Input: Thông tin về tôn giáo của giáo viên
Output: Thông tin về tôn giáo của giáo viên ghi vào bảng TÔN GIÁO
Nhập thông tin của TÔN GIÁO
Tìm thông tin về tôn giáo của giáo viên trong bảng TÔN GIÁO
If không tìm thấy Then
Thêm thông tin về tôn giáo trong bảng TÔN GIÁO
Cập nhật lại thông tin về tôn giáo đã có trong bảng TÔN GIÁO End If
Môđun: NHẬP THÔNG TIN VỀ CHỨC VỤ
Hệ thống: QUẢN LÝ GIÁO VIÊN
Mục tiêu: Nhập dữ liệu cho bảng CHỨC VỤ
Input: Thông tin chức vụ của giáo viên
Output: Thông tin chức vụ ghi vào bảng CHỨC VỤ
Nhập thông tin của chức vụ
Tìm thông tin của chức vụ trong bảng CHỨC VỤ
If không tìm thấy Then
Thêm thông tin chức vụ trong bảng CHỨC VỤ
Cập nhật lại thông tin chức vụ đã có trong bảng CHỨC VỤ
Môđun: NHẬP THÔNG TIN TÌNH TRẠNG GIÁO VIÊN
Hệ thống: QUẢN LÝ GIÁO VIÊN
Mục tiêu: Nhập dữ liệu cho TÌNH TRẠNG
Input: Thông tin về của giáo viên
Output: Thông tin về tình trạng của giáo viên ghi vào bảng TÌNH TRẠNG
Nhập thông tin của TÌNH TRẠNG
Tìm thông tin về tình trạng của giáo viên trong bảng TÌNH TRẠNG
If không tìm thấy Then
Thêm thông tin về tình trạng của giáo viên trong bảng TÌNH TRẠNG
Cập nhật lại thông tin về tình trạng của giáo viên đã có trong bảng TÌNH TRẠNG
Môđun: NHẬP THÔNG TIN VỀ TRÌNH ĐỘ CHUYÊN MÔN
Hệ thống: QUẢN LÝ GIÁO VIÊN
Mục tiêu: Nhập dữ liệu cho TRÌNH ĐỘ CHUYÊN MÔN
Input: Thông tin về trình độ chuyên môn của giáo viên
Output: Thông tin về trình độ chuyên môn của giáo viên ghi vào bảng TRÌNH ĐỘ CHUYÊN MÔN
Nhập thông tin của KỶ LUẬT
Tìm thông tin về trình độ chuyên môn của giáo viên trong bảng TRÌNH ĐỘ CHUYÊN MÔN
If không tìm thấy Then
Thêm thông tin về trình độ chuyên môn của giáo viên trong bảng TRÌNH ĐỘ
Cập nhật lại thông tin về trình độ chuyên môn của giáo viên đã có trong bảng TRÌNH ĐỘ CHUYÊN MÔN
Các bảng tiếp theo tương tự có IPO Chart (IPO: Input - Processing - Output)
THIẾT KẾ GIAO DIỆN
CÀI ĐẶT CHƯƠNG TRÌNH
Sau đây là một số thủ tục được thực hiện trong chương trình
Thủ tục mở kết nối dữ liệu
Public cn As New ADODB.Connection
Public rs As ADODB.Recordset
Public grssm As ADODB.Recordset
Public xoaDL As ADODB.Command
Dim TenDL, str As String
TenDL = App.Path & "\CSDL\QLGV.mdb" str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & TenDL & "" cn.Open str
Public Sub FillMSgrid(ByVal mrssM As ADODB.Recordset, ByVal MS1
Dim mijFor As Integer miRow = mrssM.RecordCount miCol = mrssM.Fields.Count
If miRow 0 Then mrssM.MoveFirst
If mrssM.Fields(mijFor) "" Then
MS1.TextMatrix(miiFor, mijFor) = mrssM.Fields(mijFor)
THIẾT KẾ FORM VÀ CODE
2 Thiết kế form Danh mục dân tộc và code
Me.cmdthem.Enabled = FalseMe.cmdluu.Enabled = TrueEnd Sub
If Me.txtmadantoc.Text = "" Then
MsgBox "Phai chon ma can sua truoc"
Dim str As String str = "SELECT * from DM_Dantoc where Madantoc='" & Me.txtmadantoc.Text & "'"
Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open str, cn, adOpenKeyset, adLockPessimistic
Dim xoa As Integer str = "Delete FROM DM_Dantoc where Madantoc='" & Me.txtmadantoc.Text & "'"
Set xoaDL = New ADODB.Command
CommandType = adCmdText xoa = MsgBox("Bạn có muốn xoá ?: " & Me.txtmadantoc.Text, vbQuestion + vbDefaultButton1 + vbYesNo, App.EXEName)
Private Sub Form_Load() openDB
Me.MS1.TextMatrix(0, 0) = " Mã dân tộc"
Me.MS1.TextMatrix(0, 1) = " Tên dân tộc"
Dim str As String str = "select * from DM_Dantoc order by Madantoc"
Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open str, cn, adOpenKeyset, adLockPessimistic QLGV.FillMSgrid rs, MS1
Me.txtmadantoc.Text = Me.MS1.TextMatrix(Me.MS1.Row, 0)
Me.txttendantoc.Text = Me.MS1.TextMatrix(Me.MS1.Row, 1)
Dim str As String str = "SELECT * from DM_Dantoc"
Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open str, cn, adOpenKeyset, adLockPessimistic
Dim str As String str = "SELECT * from DM_Dantoc where Madantoc='" & Me.MS1.TextMatrix(Me.MS1.Row, 0) & "' "
Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open str, cn, adOpenKeyset, adLockPessimistic
Dim str As String str = "SELECT * from DM_Dantoc order by Madantoc"
Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open str, cn, adOpenKeyset, adLockPessimistic
- Các mã nguồn khác viết tương tự
3 Thiết kế form Danh mục tôn giáo
4 Thiết kế form Danh mục chức vụ
5 Thiết kế form Danh mục trạng thái giáo viên
6 Thiết kế form Danh mục trình độ ngoại ngữ
7 Thiết kế form Danh mục trình độ chuyên môn
8 Thiết kế form Danh mục hệ đào tạo
9 Thiết kế form Danh mục chuyên ngành đào tạo
10 Thiết kế form Danh mục thông tin giáo viên
Me.txtanh.Text = Me.CommonDialog1.FileName
Me.Image1.Picture = LoadPicture(Me.txtanh.Text)
Dim rs As New ADODB.Recordset
Dim str str = "select * from Giaovien where Magiaovien='" & Trim(Me.txtmaGV) & "'" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText
If rs.EOF = True Then 'Neu da ton tai
MsgBox "Da cap nhat thanh cong", vbOKCancel + vbExclamation, "Thong bao" LamtuoiMS
MsgBox "Ma giao vien [" & Me.txtmaGV & "] Da co ma giao vien nay Hay xem lai", vbOKOnly + vbExclamation, "Thong bao"
If Me.txtmaGV.Text = "" Then
MsgBox "Ban phai chon Ma giao vien can sua truoc"
Dim str As String str = "SELECT * from Giaovien where Magiaovien='" & Me.txtmaGV.Text & "'" Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open str, cn, adOpenKeyset, adLockPessimistic
Private Sub cmdthongtinkhac_Click() frmThongtinkhac.Show
Dim xoa As Integer str = "Delete FROM Giaovien where Magiaovien='" & Me.txtmaGV.Text & "'" Set xoaDL = New ADODB.Command
CommandType = adCmdText xoa = MsgBox("Ban co muon xoa ?: " & Me.txtmaGV.Text, vbQuestion + vbDefaultButton1 + vbYesNo, App.EXEName)
Private Sub Form_Load() openDB
Me.MS1.TextMatrix(0, 0) = " Mã giáo viên"
Me.MS1.TextMatrix(0, 1) = " Họ & Tên GV"
Me.MS1.TextMatrix(0, 2) = " BÝ danh"
Me.MS1.TextMatrix(0, 3) = " Ngày sinh"
Me.MS1.TextMatrix(0, 4) = " Giíi tÝnh"
Me.MS1.TextMatrix(0, 7) = " Điện thoại"
Me.MS1.TextMatrix(0, 8) = " Sè CMND"
Me.MS1.TextMatrix(0, 9) = " Ngày cấp"
Me.MS1.TextMatrix(0, 10) = " Nơi cấp"
Me.MS1.TextMatrix(0, 11) = " Tôn giáo"
Me.MS1.TextMatrix(0, 12) = " Vào đoàn ngày"
Me.MS1.TextMatrix(0, 13) = " Nơi kết nạp"
Me.MS1.TextMatrix(0, 14) = " Vào đảng ngày"
Me.MS1.TextMatrix(0, 15) = " Ngày chính thức"
Me.MS1.TextMatrix(0, 16) = " Nơi kết nạp đảng"
Dim str As String str = "select * from Giaovien order by Magiaovien"
Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open str, cn, adOpenKeyset, adLockPessimistic
Dim str1 As String str1 = "select * from DM_Dantoc order by Madantoc"
Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open str1, cn, adOpenKeyset, adLockPessimistic
Me.cbodantoc.AddItem rs.Fields(1)
Me.cbodantoc.Refresh rs.MoveNext
Dim str2 As String str2 = "select * from DM_Tongiao order by Matongiao"
Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open str2, cn, adOpenKeyset, adLockPessimistic
Me.cbotongiao.AddItem rs.Fields(1)
Me.cbotongiao.Refresh rs.MoveNext
Me.txtmaGV.Text = Me.MS1.TextMatrix(Me.MS1.Row, 0)
Me.txttenGV.Text = Me.MS1.TextMatrix(Me.MS1.Row, 1)
Me.txtbidanh.Text = Me.MS1.TextMatrix(Me.MS1.Row, 2)
Me.txtngaysinh.Text = Me.MS1.TextMatrix(Me.MS1.Row, 3)
Me.cbogioitinh.Text = Me.MS1.TextMatrix(Me.MS1.Row, 4)
Me.cbodantoc.Text = Me.MS1.TextMatrix(Me.MS1.Row, 5)
Me.txtemail.Text = Me.MS1.TextMatrix(Me.MS1.Row, 6)
Me.txtdienthoai.Text = Me.MS1.TextMatrix(Me.MS1.Row, 7)
Me.txtsocmnd.Text = Me.MS1.TextMatrix(Me.MS1.Row, 8)
Me.txtngaycap.Text = Me.MS1.TextMatrix(Me.MS1.Row, 9)
Me.txtnoicap.Text = Me.MS1.TextMatrix(Me.MS1.Row, 10)
Me.cbotongiao.Text = Me.MS1.TextMatrix(Me.MS1.Row, 11)
Me.txtngayvaodoan.Text = Me.MS1.TextMatrix(Me.MS1.Row, 12)
Me.txtnoiketnapdoan.Text = Me.MS1.TextMatrix(Me.MS1.Row, 13)
Me.txtvaodangngay.Text = Me.MS1.TextMatrix(Me.MS1.Row, 14)
Me.txtngaychinhthuc.Text = Me.MS1.TextMatrix(Me.MS1.Row, 15)
Me.txtnoiketnap.Text = Me.MS1.TextMatrix(Me.MS1.Row, 16)
Me.Image1.Picture = LoadPicture(Me.txtanh.Text)
Dim str As String str = "SELECT * from Giaovien"
Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open str, cn, adOpenKeyset, adLockPessimistic
Dim str As String str = "SELECT * from Giaovien where Magiaovien='" & Me.MS1.TextMatrix(Me.MS1.Row, 0) & "' "
Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open str, cn, adOpenKeyset, adLockPessimistic
Dim str As String str = "SELECT * from Giaovien order by Magiaovien"
Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open str, cn, adOpenKeyset, adLockPessimistic
11 Thiết kế form Danh mục thông tin khác
12 Thiết kế form Danh mục thông tin địa chỉ & Quá trình hoạt động
13 Thiết kế form Danh mục Lương, phụ cấp, sổ BHXH
Dim rs As New ADODB.Recordset
Dim str str = "select * from Luong where Magiaovien='" & Trim(Me.cbomagv) & "'" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText
If rs.EOF = True Then 'Nếu cha tồn tại
MsgBox "Da cap nhat thanh cong", vbOKCancel + vbExclamation,
MsgBox "Ma giao vien [" & Me.cbomagv & "] Da co ma giao vien nay Hay xem lai", vbOKOnly + vbExclamation, "Thong bao"
If Me.cbomagv.Text = "" Then
MsgBox "Ban phai chon Ma giao vien can sua truoc"
Dim str As String str = "SELECT * from Luong where Magiaovien='" & Me.cbomagv.Text
Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open str, cn, adOpenKeyset, adLockPessimistic
Dim xoa As Integer str = "Delete FROM Luong where Magiaovien='" & Me.cbomagv.Text & "'" Set xoaDL = New ADODB.Command
CommandType = adCmdText xoa = MsgBox("Ban co muon xoa ?: " & Me.cbomagv.Text, vbQuestion + vbDefaultButton1 + vbYesNo, App.EXEName)
Private Sub Form_Load() openDB
Me.MS1.TextMatrix(0, 0) = " Mã giáo viên"
Me.MS1.TextMatrix(0, 1) = " Họ & Tên GV"
Me.MS1.TextMatrix(0, 2) = " Mã ngạch"
Me.MS1.TextMatrix(0, 3) = " Tên ngạch"
Me.MS1.TextMatrix(0, 4) = " HS Lơng"
Me.MS1.TextMatrix(0, 5) = " Lơng CB"
Me.MS1.TextMatrix(0, 6) = " Thâm niên"
Me.MS1.TextMatrix(0, 7) = "PC Chức vụ"
Me.MS1.TextMatrix(0, 8) = " PC Khu vùc"
Me.MS1.TextMatrix(0, 11) = " Thu hót"
Me.MS1.TextMatrix(0, 12) = " Tổng mức lơng"
Me.MS1.TextMatrix(0, 13) = " Tổng PC"
Me.MS1.TextMatrix(0, 14) = " Tổng lơng"
Me.MS1.TextMatrix(0, 15) = " Sè BHXH"
Dim str As String str = "select * from Luong order by Magiaovien"
Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open str, cn, adOpenKeyset, adLockPessimistic
Dim str1 As String str1 = "select * from Giaovien order by Magiaovien"
Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open str1, cn, adOpenKeyset, adLockPessimistic
Me.cbomagv.AddItem rs.Fields(0)
Me.cbohoten.AddItem rs.Fields(1)
Me.cbomagv.Refresh rs.MoveNext
Me.cbomagv.Text = Me.MS1.TextMatrix(Me.MS1.Row, 0)
Me.cbohoten.Text = Me.MS1.TextMatrix(Me.MS1.Row, 1)
Me.txtmangach.Text = Me.MS1.TextMatrix(Me.MS1.Row, 2)
Me.txtngach.Text = Me.MS1.TextMatrix(Me.MS1.Row, 3)
Me.txthsl.Text = Me.MS1.TextMatrix(Me.MS1.Row, 4)
Me.txtluongcb.Text = Me.MS1.TextMatrix(Me.MS1.Row, 5)
Me.txtthamnien.Text = Me.MS1.TextMatrix(Me.MS1.Row, 6)
Me.txtchucvu.Text = Me.MS1.TextMatrix(Me.MS1.Row, 7)
Me.txtkhuvuc.Text = Me.MS1.TextMatrix(Me.MS1.Row, 8)
Me.txtuudai.Text = Me.MS1.TextMatrix(Me.MS1.Row, 9)
Me.txtnganh.Text = Me.MS1.TextMatrix(Me.MS1.Row, 10)
Me.txtthuhut.Text = Me.MS1.TextMatrix(Me.MS1.Row, 11)
Me.txttongmucluong.Text = Me.MS1.TextMatrix(Me.MS1.Row, 12)
Me.txtphucap.Text = Me.MS1.TextMatrix(Me.MS1.Row, 13)
Me.txttongluong.Text = Me.MS1.TextMatrix(Me.MS1.Row, 14)
Me.txtBHXH.Text = Me.MS1.TextMatrix(Me.MS1.Row, 15)
Dim str As String str = "SELECT * from Luong"
Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open str, cn, adOpenKeyset, adLockPessimistic
Dim str As String str = "SELECT * from Luong where Magiaovien='" & Me.MS1.TextMatrix(Me.MS1.Row, 0) & "' "
Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open str, cn, adOpenKeyset, adLockPessimistic
Dim str As String str = "SELECT * from Luong order by Magiaovien"
Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open str, cn, adOpenKeyset, adLockPessimistic
Me.cbohoten.ListIndex = Me.cbomagv.ListIndex
Me.cbohoten.ListIndex = Me.cbomagv.ListIndex
Me.txtphucap = CStr(Val(Me.txtluongcb) * Val(Me.txtchucvu) + (Val(Me.txttongmucluong) * Val(Me.txtthamnien)) \ 100)
Me.txttongluong = CStr(Val(Me.txttongmucluong) + Val(Me.txtphucap))
Me.txtphucap = CStr(Val(Me.txtluongcb) * Val(Me.txtchucvu) + (Val(Me.txttongmucluong) * Val(Me.txtthamnien)) \ 100)
Me.txttongluong = CStr(Val(Me.txttongmucluong) + Val(Me.txtphucap))
Me.txtphucap = CStr(Val(Me.txtluongcb) * Val(Me.txtchucvu) + Val(Me.txtkhuvuc) * Val(Me.txtluongcb) + (Val(Me.txttongmucluong) * Val(Me.txtthamnien)) \ 100)
Me.txttongluong = CStr(Val(Me.txttongmucluong) + Val(Me.txtphucap))
Me.txtphucap = CStr(Val(Me.txtluongcb) * Val(Me.txtchucvu) + Val(Me.txtkhuvuc) * Val(Me.txtluongcb) + (Val(Me.txttongmucluong) * Val(Me.txtthamnien)) \ 100)
Me.txttongluong = CStr(Val(Me.txttongmucluong) + Val(Me.txtphucap))
Me.txttongmucluong = CStr(Val(Me.txtluongcb) * Val(Me.txthsl))
Me.txttongmucluong = CStr(Val(Me.txtluongcb) * Val(Me.txthsl))
Me.txtphucap = CStr(Val(Me.txtluongcb) * Val(Me.txtchucvu) + Val(Me.txtkhuvuc) * Val(Me.txtluongcb) + (Val(Me.txttongmucluong) * Val(Me.txtthamnien) + Val(Me.txtuudai) * Val(Me.txttongmucluong) + Val(Me.txtnganh) * Val(Me.txttongmucluong)) \ 100)
Me.txttongluong = CStr(Val(Me.txttongmucluong) + Val(Me.txtphucap))
Me.txtphucap = CStr(Val(Me.txtluongcb) * Val(Me.txtchucvu) + Val(Me.txtkhuvuc) * Val(Me.txtluongcb) + (Val(Me.txttongmucluong) * Val(Me.txtthamnien) + Val(Me.txtuudai) * Val(Me.txttongmucluong) + Val(Me.txtnganh) * Val(Me.txttongmucluong)) \ 100)
Me.txttongluong = CStr(Val(Me.txttongmucluong) + Val(Me.txtphucap))
Me.txtphucap = CStr(Val(Me.txttongmucluong) * Val(Me.txtthamnien)) \ 100 Me.txttongluong = CStr(Val(Me.txttongmucluong) + Val(Me.txtphucap))
Me.txtphucap = CStr(Val(Me.txttongmucluong) * Val(Me.txtthamnien)) \ 100 Me.txttongluong = CStr(Val(Me.txttongmucluong) + Val(Me.txtphucap))
Me.txtphucap = CStr(Val(Me.txtluongcb) * Val(Me.txtchucvu) + Val(Me.txtkhuvuc) * Val(Me.txtluongcb) + (Val(Me.txttongmucluong) * Val(Me.txtthamnien) + Val(Me.txtuudai) * Val(Me.txttongmucluong) + Val(Me.txtnganh) * Val(Me.txttongmucluong) + Val(Me.txtthuhut) * Val(Me.txttongmucluong)) \ 100)
Me.txttongluong = CStr(Val(Me.txttongmucluong) + Val(Me.txtphucap))
Me.txtphucap = CStr(Val(Me.txtluongcb) * Val(Me.txtchucvu) + Val(Me.txtkhuvuc) * Val(Me.txtluongcb) + (Val(Me.txttongmucluong) * Val(Me.txtthamnien) + Val(Me.txtuudai) * Val(Me.txttongmucluong) + Val(Me.txtnganh) * Val(Me.txttongmucluong) + Val(Me.txtthuhut) * Val(Me.txttongmucluong)) \ 100)
Me.txttongluong = CStr(Val(Me.txttongmucluong) + Val(Me.txtphucap))
Me.txttongluong = CStr(Val(Me.txttongmucluong) + Val(Me.txtphucap))
Me.txttongluong = CStr(Val(Me.txttongmucluong) + Val(Me.txtphucap))
Me.txtphucap = CStr(Val(Me.txtluongcb) * Val(Me.txtchucvu) + Val(Me.txtkhuvuc) * Val(Me.txtluongcb) + (Val(Me.txttongmucluong) * Val(Me.txtthamnien) + Val(Me.txtuudai) * Val(Me.txttongmucluong)) \ 100) Me.txttongluong = CStr(Val(Me.txttongmucluong) + Val(Me.txtphucap))
Me.txtphucap = CStr(Val(Me.txtluongcb) * Val(Me.txtchucvu) + Val(Me.txtkhuvuc) * Val(Me.txtluongcb) + (Val(Me.txttongmucluong) * Val(Me.txtthamnien) + Val(Me.txtuudai) * Val(Me.txttongmucluong)) \ 100) Me.txttongluong = CStr(Val(Me.txttongmucluong) + Val(Me.txtphucap))
14 Thiết kế form tìm kiếm
Dim strSQL As String strSQL = "Select * from Giaovien where Magiaovien like '%" & Trim(Me.txttktheomagv.Text) & "%'"
Private Sub Form_Load() openDB
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\CSDL\QLGV.mdb;Persist Security Infose"
Adodc1.RecordSource = "Select * from Giaovien order by Magiaovien"
Dim strSQL As String strSQL = "Select * from Giaovien where Magiaovien like '%" & Trim(Me.txttktheomagv.Text) & "%'"
AN TOÀN DỮ LIỆU
TẠI SAO PHẢI ĐẶT VẤN ĐỀ AN TOÀN DỮ LIỆU
Các dữ liệu thường được lưu trong đĩa cứng của máy tính trong ổ đĩa cứng chung của toàn mạng máy tính.
* Do một sự cố nào đó, ví dụ đĩa bị hỏng, các dữ liệu bị các chương trình VIRUS xoá mất, mất điện đột ngột… các dữ liệu sẽ bị mất, hoặc sai so với ban đầu Đối với hệ thống có lượng dữ liệu lớn thì việc cập nhật lại các dữ liệu đã bị mất tốn nhiều thời gian và rất bất tiện.
* Để khắc phục sự mất mát dữ liệu do các sự cố chúng ta phải tổ chức công tác an toàn dữ liệu.
CÁC PHƯƠNG PHÁP TỔ CHỨC BẢO ĐẢM AN TOÀN DỮ LIỆU
Tuỳ thuộc vào công tác tin học trên thực tế ở từng nơi mà có thể áp dụng các phương pháp sau.
1 Backup số liệu (ghi đơn)
* Phương pháp này rất đơn giản, có thể áp dụng cho bất cứ nơi nào
* Các số liệu được ghi lưu ra đĩa mềm hoặc ra các đĩa cứng khác Công việc ghi lưu được làm theo một định kỳ nào đó, định kỳ càng ngắn thì lượng dữ liệu được đảm bảo càng lớn Việc định kỳ cho việc ghi lưu số liệu tuỳ thuộc vào việc dữ liệu có được cập nhật thường xuyên hay không Định kỳ ghi lưu dữ liệu phải đảm bảo lượng dữ liệu bị mất (không khôi phục được vì chưa được ghi lưu) tại một thời điểm nào đó càng ít càng tốt.
* Các dữ liệu khi bị hỏng sẽ được khôi phục lại từ bản sao nếu chúng đã được ghi lưu, các dữ liệu vào giữa hai kỳ sẽ phảI vào lại Nếu dữ liệu không được ghi lưu thường xuyên thì lượng dữ liệu này là không nhiều.
* Phương pháp ghi lưu số liệu đơn giản, tuy nhiên công việc phải được tiến hành thường xuyên, các đĩa lưu giữ các bản sao phải được bảo quản tốt.
2 Dùng hai ổ đĩa cứng theo chế độ soi gương
* Phương pháp này được áp dụng đối với mạng máy tính nó đòi hỏi hai ổ đĩa hoàn toàn giống nhau.
* Theo cơ chế này chúng ta cũng chỉ làm việc với một ổ đĩa như bình thường. Hai ổ đĩa này sẽ tự động cập nhật các dữ liệu của nhau Theo chế độ này chúng ta sử dụng một ổ đĩa dùng làm việc hàng ngày, ổ đĩa còn lại chỉ lưu trữ các dữ liệu như một bản sao của ổ đĩa dùng làm việc Khi có sự cố ở một ổ đĩa nào đó thì chúng ta vẫn có dữ liệu lưu trữ trên đĩa còn lại.
* Có hai cơ chế dùng hai ổ đĩa theo chế độ trên
* Cơ chế MIRRORING: Dùng hai ổ đĩa giống nhau với một card điều khiển.
* Cơ chế DUPLEXING: Dùng hai ổ đĩa giống nhau với một card điều khiển cho hai ổ đĩa đó.
* Phương pháp này dữ liệu được lưu trữ thành hai bản hoàn toàn tự động, người dùng không cần quan tâm tới việc sao dữ liệu Dữ liệu khi được cập nhật luôn được lưu trữ thành hai bản Trong trường hợp có sự cố thì chỉ làm mất dữ liệu trên một ổ đĩa, như vậy thì ta vẫn còn dữ liệu được lưu trữ trên ổ đĩa còn lại.
3 Dùng hai file server với môi trường mạng
* Dữ liệu được ghi đồng thờI vào hai file, hai file server luôn ghi lưu dữ liệu của nhau.
* VớI phương pháp này dữ liệu khi được cập nhật luôn luôn được lưu trữ thành hai bản khác nhau.
* Trong trường hợp có sự cố trên một file server chúng ta có thể làm việc vớI file server còn lại
Quản lý giáo viên là công tác then chốt và hết sức quan trọng đối với các trường THCS và trường THCS Thiệu Khánh Nói riêng Viêc tin học hoá quá trình” Quản lý giáo viên” là hết sức cần thiết và cấp bách, quyết định sự thành công cho những mắt xích đầu tiên trong chuỗi các hoạt động quản lý tại trường.
Nhận thức được vấn đề đó, em đã thực hiện đề tài “ Xây dựng phần mềm quản lý giáo viên tại trường THCS Thiệu Khánh” với mục đích mang lại lợi ích cho nhà trường
Qua thời gian nghiên cứư và thực hiện đề tài, em đã đạt được các kết qủa sau: + Nghiên cứu một cách có hệ thống quy trình quản lý giáo viên nói chung và hệ thống quản lý giáo viên tại trường THCS Thiệu Khánh nói riêng, đưa ra đề xuất phương hướng tin học hoá quá trình quản lý giáo viên tại trường THCS Thiệu Khánh.
+ Thiết kế cơ sở dữ liệu, tiến hành chuẩn hoá các dữ liệu.
+ Xây dựng các thuật toán cơ bản để giải quyết bài toán Quản lý giáo viên tại trường THCS Thiệu Khánh.
+ Xây dựng phần mềm viết trên Visual Basic 6.0, có chức năng giải quyết các vấn đề của bài toán Quản lý giáo viên tại trường THCS Thiệu Khánh Phần mềm tập trung vào việc quản lý thông tin giáo viên, quản lý phụ cấp, thâm niên, thu hút…
Hướng phát triển của đề tài
Sau khi đề tài được đưa vào sử dụng cùng với sự hoàn thiện về cơ sở hạ tầng và các thiết bị quản lý thông tin của nhà trường, em mong muốn phát triển phần mềm ứng dụng mạnh hơn nữa, và đưa ra nhiều giải pháp áp dụng vào thực tế hơn
1 - " Microsoft Visual Basic & Lập trình cơ sở dữ liệu 6.0 ", Nguyễn Thị Ngọc Mai (chủ biên), Nhà xuất bản lao động -Xã hội.
2 - " Những bài thực hành cơ sở dữ liệu Visual Basic căn bản ", Ks Đinh Xuân Lâm, Nhà xuất bản thống kê.
3 - " Bài giảng Microsoft Access ", Ths.Nguyễn Đình Thuân
4 - "Bài giảng cơ sở dữ liệu & phân tích và thiết kế hệ thống thông tin quản lý ", Ths Nguyễn Hữu Trọng.
5 - " Phân tích thiết kế hệ thống thông tin quản lý ", Ths Đinh Thế Hiển, Nhà xuất bản thống kê - 2000.
6 - " Một số bài luận văn tốt nghiệp " của anh chị các khoá trước.
CHƯƠNG I: NHIỆM VỤ, MỤC TIÊU VÀ KHẢO SÁT BÀI TOÁN 1
A NHIỆM VỤ VÀ KHẢO SÁT, VAI TRÒ CỦA BÀI TOÁN 1
I NHIỆM VỤ VÀ MỤC TIÊU CỦA BÀI TOÁN 1
1 Nhiệm vụ của bài toán 1
2 Mục tiêu của bài toán 1
II KHẢO SÁT BÀI TOÁN 1
III.VAI TRÒ BÀI TOÁN 1
B ĐẶC TẢ CÁC YÊU CẦU CỦA BÀI TOÁN 2
I VỊ TRÍ CHỨC NĂNG NHIỆM VỤ QUYỀN HẠN VÀ SƠ ĐỒ TỔ CHỨC CỦA GIÁO VIÊN 2
1 Chức năng của giáo viên : 2
3 Nhiệm vụ của giáo viên : 2
II ĐẶC TẢ CÁC VẤN ĐỀ CỦA BÀI TOÁN 6
CHƯƠNG II: CƠ SỞ LÝ THUYẾT VÀ CÔNG CỤ PHÁT TRIỂN 8
I CÁC KHÁI NIỆM CƠ BẢN 8
II KHÁI NIỆM PHỤ THUỘC DỮ LIỆU VÀ CÁC DẠNG 8
III KHÁI NIỆM CHỈ DẪN VÀ KHOÁ CHỈ DẪN 9
IV MỤC TIÊU VÀ TÍNH ƯU VIỆT CỦA MÔ HÌNH QUAN HỆ 9
I LỰA CHỌN CÔNG CỤ PHÁT TRIỂN VÀ CÁC VẤN ĐỀ KỸ THUẬT 10
1 Lý do lựa chọn công cụ phát triển 10
II TỔNG QUAN VỀ HỆ QUẢN TRỊ CƠ SỞ DỮ LIỆU MS ACCESS 11
2 Access cung cấp những công cụ gì? 12
III.GIỚI THIỆU TỔNG QUAN NGÔN NGỮ LẬP TRÌNH VISUAL BASIC 13
IV THIẾT KẾ GIAO DIỆN 15
2 Tools Box ( Hộp công cụ ) 16
3 Properties windows (Cửa sổ thuộc tính) 18
V VIẾT LỆNH CHO CÁC ĐỐI TƯỢNG 18
VI ĐIỀU KHIỂN LUỒNG CHƯƠNG TRÌNH 21
6 Lệnh DO LOOP UN TIL 23
VII.HIỂN THỊ THÔNG TIN VÀ NHẬN THÔNG TIN 1 Hộp đối thoại có sẵn 23
2 Phát biểu MsgBox hay hàm MsgBox() 24
VIII.CÁC HÀM VỀ CHUỖI 25
2 Các danh sách mảng môt chiều 29
4 Mảng động và mảng cố định 30
5 Dùng danh sách và mảng với các thủ tục và hàm 32
6 Mở tập tin theo kiểu truy xuất tuần tự bằng Output 32
7 Mở tập tin theo kiểu truy xuất tuần tự bằng Append: 33
8 Mở tập tin theo kiểu truy xuất tuần tự bằng Output 34
9 Phát biểu Write # và Input # 34
IX HÀM VÀ THỦ TỤC DO NGƯỜI DÙNG ĐỊNH NGHĨA 35
XI MỤC ĐÍCH YÊU CẦU NGƯỜI SỬ DỤNG 38
CHƯƠNG III: PHÂN TÍCH HỆ THỐNG CHƯƠNG TRÌNH QUẢN LÝ GIÁO VIỆ NTẠI TRƯỜNG THCS CAO RĂM- HOÀ BÌNH 39
I MÔ HÌNH HOÁ DỮ LIỆU 39
1.Mô hình quan niệm dữ liệu 39
2 Mối kết hợp giữa các thực thể 41
II MÔ HÌNH TỔ CHỨC DỮ LIỆU 43
4 Danh mục tình trạng giáo viên 43
5 Danh mục Trình độ ngoại ngữ 43
6 Danh mục Trình độ chuyên môn 44
7 Danh mục Hệ đào tạo 44
8 Danh mục Ngành đào tạo 44
9 Danh mục chuyên môn đào tạo 44
11 Danh mục Thông tin khác của giáo viên 45
12 Danh mục Thông tin địa chỉ giáo viên 45
13 Danh mục Lương, phụ cấp, Số sổ BHXH giáo viên 45
14 Danh mục tổ chuyên môn 46
III.MÔ HÌNH VẬT LÝ DỮ LIỆU 46
14 Bảng Thongtinluong, phu cap, SoBHXH 51
IV MÔ HÌNH VẬT LÝ XỬ LÝ 51
CHƯƠNG IV: THIẾT KẾ GIAO DIỆN 59
II THIẾT KẾ FORM VÀ CODE 61
2 Thiết kế form Danh mục dân tộc và code 61
3 Thiết kế form Danh mục tôn giáo 65
4 Thiết kế form Danh mục chức vụ 66
5 Thiết kế form Danh mục trạng thái giáo viên 66
6 Thiết kế form Danh mục trình độ ngoại ngữ 67
7 Thiết kế form Danh mục trình độ chuyên môn 67
8 Thiết kế form Danh mục hệ đào tạo 68
9 Thiết kế form Danh mục chuyên ngành đào tạo 68
10 Thiết kế form Danh mục thông tin giáo viên 69
11 Thiết kế form Danh mục thông tin khác 78
12 Thiết kế form Danh mục thông tin địa chỉ & Quá trình hoạt động 79
13 Thiết kế form Danh mục Lương, phụ cấp, sổ BHXH 80
14 Thiết kế form tìm kiếm 92
CHƯƠNG V: AN TOÀN DỮ LIỆU 94
I TẠI SAO PHẢI ĐẶT VẤN ĐỀ AN TOÀN DỮ LIỆU 94
II CÁC PHƯƠNG PHÁP TỔ CHỨC BẢO ĐẢM AN TOÀN DỮ LIỆU 94
1 Backup số liệu (ghi đơn) 94
2 Dùng hai ổ đĩa cứng theo chế độ soi gương 94