LỜI NÓI ĐẦU MỤC LỤC LỜI NÓI ĐẦU 1 PHẦN 1 CƠ SỞ LÝ THUYẾT 2 Ch¬ng 1 Lý thuyÕt c¬ së d÷ liÖu 2 I Tæng quan vÒ c¬ së d÷ liÖu 2 1 Kh¸i niÖm vÒ c¬ së d÷ liÖu 2 2 Sù cÇn thiÕt cña c¬ së d÷ liÖu 2 3 HÖ qu¶n[.]
CƠ SỞ LÝ THUYẾT
Với mục tiêu xây dựng một phần mềm đáp ứng được các chức năng trong việc quản lý nhân sự trong phạm vi trường học, dễ sử dụng và thân thiện với người sử dụng Ngôn ngữ lập trình phù hợp là MicrosoftVisualBasic 6.0 với hệ quản trị CSDL Microsoft Access trên nền Windows được lựa chọn.
Lý thuyết cơ sở dữ liệu
Tổng quan về cơ sở dữ liệu
1 Khái niệm về cơ sở dữ liệu
Cơ sở dữ liệu (CSDL) là một tập hợp có sắp xếp các thông tin, dữ liệu về một vấn đề nào đó, nhằm giúp cho ngời sử dụng dễ dàng tra cứu, sử dụng và cập nhập. Đặc điểm chủ yếu của CSDL là cách tổ chức, sắp xếp thông tin, các dữ liệu có liên quan với nhau sẽ đợ lu trong các tập tin hay trong các bảng Nói cách khác nó là tập hợp các dữ liệu có quan hệ với nhau.
2 Sự cần thiết của cơ sở dữ liệu
Ngày nay nhu cầu tích lũy, lu trữ và xử lý dữ liệu đã có mặt trên mọi lĩnh vực, trong mọi hoạt động của con ngời Nhng thông tin ngày càng lớn và phức tạp, buộc con ngời phải sắp xếp các thông tin sao cho có khoa học, vì vậy đòi hỏi họ phải sử dụng CSDL.
3 Hệ quản trị cơ sở dữ liệu (Database Management System)
Là một công cụ cho phép quản lý và tơng tác với cơ sở dữ liệu nh cho phép xử lý, thay đổi, truy xuất cơ sở dữ liệu.Theo nghĩa này hệ quản trị cơ sở dữ liệu có nhiệm vụ rất quan trọng nh là một bộ phận diễn dịch với ngôn ngữ bậc cao nhằm giúp ngời sử dụng có thể dùng đợc hệ thống mà ít nhiều không cần quan tâm đến thuật toán chi tiết hoặc biểu diễn dữ liệu trong máy tính
Lý thuyết về cơ sở dữ liệu quan hệ
1 Khái niệm cơ bản về cơ sở dữ liệu quan hệ
Khái niệm cơ sở dữ liệu quan hệ: là loại cơ sở dữ liệu cho phép ta truy cập đến dữ liệu thông qua mối quan hệ đến các dữ liệu khác giống nh các bảng tính Để truy cập thông tin ta có thể dùng một ngôn ngữ đặc biệt để truy vÊn
2 Thành phần của cơ sở dữ liệu a) Các trờng dữ liệu (data fields)
Trờng dữ liệu chứa dữ liệu nhỏ nhất (dữ liệu nguyên tố), ví dụ trong bảng HSSV chứa thông tin về sinh viên: trờng MSSV chứa mã sinh viên, trờng ngaysinh chứa thông tin về ngày tháng năm sinh của sinh viên trong trờng
Tất cả các trờng tạo ra sẽ chứa một cơ sở dữ liệu đơn Tuy rằng ta có thể chứa hơn một thành phần dữ liệu trong một trờng (field) đơn, nhng gặp trở ngại khi cập nhập hay sắp xếp thứ tự. b) Các bản ghi dữ liệu (Data Record)
Các bản ghi dữ liệu (record) là tập hợp các trờng dữ liệu có liên quan. Một số bản ghi sinh viên bao gồm các thông tin về sinh viên nh : họ tên, ngày sinh, quê quán, hộ khẩu thờng trú, giới tính c) Bảng dữ liệu (Data Table)
Bằng cách kết hợp fields dữ liệu và record dữ liệu đã tạo ra nguyên tố chung nhất của cơ sở dữ liệu quan hệ là bảng dữ liệu bản ghi dữ liệu, mỗi bản ghi chứa nhiều trờng dữ liệu Cũng nh mỗi bản ghi chứa các trờng có quan hệ, mỗi bảng dữ liệu chứa các bản ghi có quan hệ. Các bảng dữ liệu nên đặt tên theo đúng ý nghĩa để giúp ngời dùng dễ nhớ nội dung của bản ghi và trờng.
Mô hình cơ sở dữ liệu quan hệ yêu cầu mỗi hàng trong một bảng phải là duy nhất Để đảm bảo tính duy nhất cho một hàng bằng cách tạo ra một khoá chính (primary key) một cột hay kết hợp nhiều cột để xác định duy nhất một hàng Một bảng ghi chỉ có một Primary key, mặc dù có thể có một số cột hay tôt hợp các cột khác có thể tạo ra các giá trị duy nhất Những cột (hay tổ hợp các cột) giá trị duy nhất trong bảng đợc xem nh là khoá dự tuyển của primary key Cho đến nay không có một nguyên tắc tuyệt đối nào để xác định khoá dự tuyển nào là tốt nhất Các tính chất đề nghị của khoá dự tuyển tốt nhất là: nhỏ nhÊt
* Khoá ngoại lai (Foreign key): Mặc dù các primary key là thành phần của các bảng riêng biệt, nếu ta chỉ dùng các bảng độc lập mà không có quan hệ, ta rất ít sử dụng primary key để trở nên thiết yếu khi ta tạo ra các quan hệ để liên kết các bảng trong cơ sở dữ liệu quan hệ.
Một trờng đợc gọi là khóa ngoại lai của một bảng A nếu nó không phải là khoá chính của bảng A và liên kết với một bản B qua khoá chính của bảng
B để xác định duy nhất một bản ghi của bảng B.
3 Lý thuyết thiết kế cơ sở dữ liệu quan hệ
Trong phần lớn các ứng dụng chúng ta đều phải tạo ra cơ sở dữ liệu Do các nguyên nhân đặc biệt có một số ứng dụng không thể xây dựng đợc cơ sở dữ liệu từ đầu hoặc phải sử dụng một số cơ sở có sẵn không ở dạng thích hợp cho cơ sở dữ liệu quan hệ Một trong những dạng thờng gặp nhất của ta là chuyển dữ liệu chứa ở dạng dữ liệu bảng tính thành các bàng của cơ sở dữ liệu quan hệ.
Giới thiệu về Hệ quản trị cơ sở dữ liệu Microsoft Access
Microsoft Access là một trong bốn phần mềm ứng dụng của bộ Microsoft office Nó là một hệ quản trị cơ sở dữ liệu (Database Management System) dùng để tao, xử lý các cơ sở dữ liệu Phần mềm này đợc giới thiệu ở Việt Nam từ vài năm gần đây và trở thành 1 trong những phần mềm phổ biến nhất hiện nay Từ trớc đến nay ở Việt Nam nói đến quản lý cơ sở dữ liệu và ngời ta thờng nghĩ ngay đến FoxPro, FoxBase Dùng FoxPro trong quản lý hầu nh có thể yên tâm vì FoxPro có thể làm đợc mọi việc Tuy nhiên nếu đi sâu tìm hiểu Access có thể thấy rằng phần mềm này thể hiện nhiều đặc tính u việt hơn FoxPro, nổi bật hơn cả là tính đơn giản và hiệu quả Thật vậy, Access có thể đáp ứng hầu hết các nhu cầu về quản trị cơ sở dữ liệu nhng vẫn giữ tính thân thiện và dễ sử dụng cho cả ngời lập trình và ngời sử dụng Các khái niệm trong lý thuyết cơ sở dữ liệu đợc thể hiện khá đầy đủ trong Access Nó là một hệ thống có tính hớng đối tợng và có thể dùng trên hệ thống mạnh để chia sẻ với nhiều ngời sử dụng cơ sở dữ liệu Đồng thời Access dễ dàng quản lý, thể hiện và chia sẻ thông tin trong các công việc quản lý dữ liệu hàng ngày.
Trên đây là nhữngu điểm của Microsoft Access so với các phần mềm khác Chắc chắn rằng trong thời gian sắp tới ngời sử dụng sẽ khám phá ra những u điểm này và sử dụng Access một cách rộng rãi phổ biến hơn.
Microsoft Access là một hệ quản trị cơ sở dữ liệu với đầy đủ các chức năng Nó có các tính năng định nghĩa dữ liệu, xử lý dữ liệu và kiểm soát dữ liệu cần thiết để quản lý một lợng dữ liệu lớn. a) Định nghĩa – l lu trữ dữ liệu
Với Microsoft Access chúng ta có thể sử dụng một cách linh hoạt trong việc định nghĩa các dữ liệu nh : văn bản, số, thời gian, ngày tháng, tiền tệ, hình ảnh, âm thanh, tệp dữ liệu, định dạng dữ liệu để hiển thị hoặc in Đồng thời cũng có thể định nghĩa các quy tắc hợp lệ để đảm bảo sự tồn tại chính xác của dữ liệu và mối quan hệ hợp lệ giữa các tệp hoặc các bảng trong cơ sở dữ liệu. b) Xử lý dữ liệu
Microsoft Access sử dụng ngôn ngữ cơ sở dữ liệu SQL rất mạnh để xử lý dữ liệu trong các bảng SQL có thể định nghĩa một tập hợp dữ liệu cần thiết để giải một bài toán cụ thể bao gồm dữ liệu có thể lấy từ nhiều bảng Nhng Access đã đơn giản hoá các nhiệm vụ xử lý dữ liệu Tuy nhiên không nhất thiết bạn phải biết đến SQL vẫn có thể sử dụng Access Access dùng các mối quan hệ do ngời dùng định nghĩa để tự động liên kết các bảng cần thiết Ngời dùng chỉ cần tập trung vào các vấn đề thông tin là chủ yếu bởi Access có các công cụ trợ giúp mạnh để giúp ngời dùng phần lớn các công việc trên máy. Microsoft Access còn có phơng tiện định nghĩa truy vấn đồ hoạ rất mạnh đợc gọi là truy vấn đồ hoạ theo mẫu (Graphical Query by Example – l QBE). c) Kiểm soát dữ liệu
Microsoft Access đợc thiết kế để sử dụng nh một hệ quản trị cơ sở dữ liệu (HQT – l CSDL) đơn lẻ trên một trạm làm việc duy nhất hoặc theo thể thức khách dịch vụ đợc dùng chung trên mạng Ngời dùng có thể chia sẻ dữ liệu của Access với những ngời sử dụng khác bởi Access có tính năng toàn vẹn và bảo mật dữ liệu tốt Access có thể quy định ngời sử dụng hoặc nhóm ngời sử dụng nào đợc truy cập vào các đối tợng (bảng, biểu mẫu, truy vấn) trong cơ sở dữ liệu Microsoft Access cung cấp cơ chế khoá để đảm bảo là không bao giờ có hai ngời sử dụng đồng thời truy cập vào cùng một đối tợng. Đồng thời Access cũng nhận biết và chấp nhận các cơ chế khoá của các cấu trúc cơ sở dữ liệu khác nh (ParDox, SQL, Dbase) đợc gắn kèm với cơ sở dữ liệu Access. d) Microsoft Access – l công cụ để phát triển ứng dụng cơ sở dữ lực Đối với Microsoft Access việc thiết kế và xây dựng các ứng dụng cơ sở dữ liệu trở nên dễ dàng hơn vì Access không đòi hỏi ngời dùng phải hiểu sâu từ việc định nghĩa các thao tác trên dữ liệu thông qua các Form, Report, Query, và các Marco.
Khái niệm cơ sở dữ liệu Đó là hệ chơng trình do Access tạo ra và đợc l- u trên một tệp có đuôi MDB
cơ bản về ngôn ngữ lập trình visual basic
Tổng quan về visual basic
Visual Basic là một ngôn ngữ lập trình đợc sử dụng để phát triển các phần mềm ứng dụng Visual Basic có nhiều tính u việt hơn so với các ngôn ngữ khác ở chỗ tiết kiệm thời gian và công sức hơn khi xây dựng ứng dụng, dễ sử dụng Visual Basic gắn liền với khái niệm lập trình trực quan (Visual), nghĩa là khi thiết kế chơng trình, bạn đợc nhìn thấy kết quả qua từng thao tác và giao diện khi chơng trình thực hiện Đây là thuận lợi lớn so với các ngôn ngữ lập trình khác Visual Basic cho phép bạn chỉnh sửa đơn giản, nhanh chóng: Màu sắc, kích thớc, hình dáng của các đối tợng có mặt trong ứng dụng. Một khả năng khác của Visual Basic chính là khả năng kết hợp các th viện liên kết đông DDL (Dynamic Link Library) Một trong những tính năng thờng đợc sử dụng của Visual Basic là kỹ thuật lập trình truy cập cơ sở dữ liệu.
Các thành phần chính của Visual Basic 6.0
Form là biểu mẫu của mỗi ứng dụng trong Visual Basic.Ta dùng Form (nh là một biểu mẫu) nhằm định vị và sắp xếp các bộ phận trên nó khi thiết kế các thành phần giao tiếp với ngời dùng.
Ta có thể xem Form nh là bộ phận mà nó có thể chứa các bộ phận khác Form chính của ứng dụng, các thành phần của nó tơng tác với các form khác và các bộ phận của chúng tạo nên giao tiếp cho ứng dụng Form chính là giao diện chính của ứng dụng, các Form khác có thể chứa các hộp thoại, hiển thị cho nhập dữ liệu và hơn thế nữa.
Trong nhiều ứng dụng Visual Basic, kích cỡ và vị trí của biểu mẫu vào lúc hoàn tất thiết kế (thờng mệnh danh là thời gian thiết kế, hoặc lúc thiết kế) là kích cỡ và hình dáng mà ngời dùng sẽ gặp vào thời gian thực hiện hoặc lúc chạy Điều này có nghĩa là Visual Basic cho phép ta thay đổi kích cỡ và di chuyển vị trí của các Form đến bất kỳ nơi nào trên màn hình khi tính đối tợng (Properties Windows) Thực tế, một trong những tính năng thiết yếu của Visual Basic đó là khả năng tiến hành các thay đổi động để đáp ứng các sự kiện của ngời dùng.
2 Tools Box (hộp công cụ)
Bản thân hộp công cụ này chỉ chứa các biểu tợng biểu thị cho các điều khiển mà ta có thể bổ sung vào biểu mẫu, là bảng chứa các đối tợng đợc định nghĩa sẵn của Visual Basic Các đối tợng này đợc sử dụng trong Form để tạo thành giao diện cho các chơng trình ứng dụng của Visual Basic Các đối tợng trong thanh công cụ sau đây là thông dụng nhất: a) Scroll Bar: (thanh cuèn)
Các thanh cuốn đợc dùng để nhận dữ liệu hoặc hiển thị kết suất Ta không quan tâm đến giá trị chính xác của một đối tợng nhng lại quan tâm sự thay đổi đó nhỏ hay lớn Nói cách khác, thanh cuốn là đối tợng cho phép nhận từ ngời dùng một giá trị tuỳ theo vị trí con chạy (thumbs) trên thanh cuộn thay cho cách gõ giá trị số.
Thanh cuốn có các thuộc tính quan trọng nhất là:
- Thuộc tính Min : Xác định cận dới của thanh cuốn
- Thuộc tính Max : Xác định cận trên của thanh cuốn.
- Thuộc tính Value : Xác định giá trị tạm thời của thanh cuốn. b) Option Button Control (nút chọn) Đối tợng nút chọn cho phép ngời dùng chọn một trong những lựa chọn đa ra Nh vậy, tại một thời điểm chỉ có một trong các nút chọn đợc chọn. c) Check Box (hép kiÓm tra) Đối tợng hộp kiểm tra cho phép ngời dùng kiểm tra một hay nhiều điển kiện của chơng trình ứng dụng Nh vậy, tại một thời điểm có thể có nhiều hộp kiểm tra đợc đánh dấu. d) Lable (nhãn) Đối tợng nhãn cho phép ngời dùng gán nhãn một bộ phận nào đó của giao diện lúc thiết kế giao diện cho chơng trình ứng dụng Dùng các nhãn để hiển thị thông tin không muốn ngời dùng thay đổi Các nhãn thờng đợc dùng để định danh một hộp văn bản hoặc một điều khiển khác bằng cách mô tả nội dung của nó Một công cụ phổ tiến nhất là hiển thị thông tin trợ giúp. e) Image (hình ảnh) Đối tợng Imge cho phép ngời dùng đa hình ảnh và Form. f) Picture Box Đối tợng Picture Box có tác dụng gần giống nh đối tợng Image. g) Text Box (hộp soạn thảo) Đối tợng Text Box cho phép đa các chuỗi ký tự vào Form Thuộc tính quan trọng nhất của Text Box là thuộc tính Text – l cho biết nội dung hộp Text Box. h) Command Button (nút lệnh) Đối tợng Command Button cho phép quyết định thực thi một công việc nào đó. i) Directory List Box, Drive List Box, File List Box Đây là các đối tợng hỗ trợ cho việc tìm kiếm các tập tin trên một th mục của ổ đĩa nào đó.
List Box (hộp danh sách): đối tợng List Box cho phép xuất các thông tin về chuỗi.
Trên đây là những đối tợng đợc sử dụng thờng xuyên nhất trong phần thiết kế giao diện cho một chơng trình ứng dụng của Visual Basic.
3 Properties Windows (cửa sổ thuộc tính)
Properties Windows là nơi chứa danh sách các thuộc tính của một đối t- ợng cụ thể Các thuộc tính này có thể thay đổi đợc để phù hợp với yêu cầu về giao diện của các chơng trình ứng dụng.
* Các thuộc tính sẵn có đối với các điều khiển có thể chia làm 3 loại: + Các thuộc tính sẵn có của điều khiển chỉ thiết lập lúc thiết kế nghĩa là có thể thiết lập các thuộc tính của điều khiển thông qua cửa sổ thuộc tính (Properties Windows)
+ Các thuộc tính sẵn có của điều khiển chỉ thiết lập lúc chơng trình chạy nghĩa là khi chơng trình chạy ta có thể thay đổi hành vi của các điều khiển, ví dụ nh ta có thể thay đổi thuộc tính Enable của các điều khiển giúp ngời sử dụng có thể tơng tác hoặc không tơng tác với các điều khiển.
+ Các thuộc tính sẵn có của điều khiển có thể thiết lập bất kỳ lúc nào, ví dụ: nh các thuộc tính FillColor, Font có thể thiết lập vào lúc thiết kế chơng trình hoặc lúc chơng trình chạy.
Do các ứng dụng Visual Basic thờng dùng chung mã hoặc các Form đã tuỳ biến trớc đó, nên Visual Basic tổ chức các ứng dụng hình thành các Project Mỗi Project có thể có nhiều Form và mã kích hoạt các điều khiển trên một Form sẽ đợc lu trữ chung với Form đó trong các tập tin riêng biệt Mã lập trình chung mà tất cả các Form trong ứng dụng chia sẽ có thể đợc phân thành các Module khác nhau và cũng đợc lu trữ tách biệt, gọi là các Module mã. Project explorer nêu tất cả các biểu mẫu tuỳ biến đợc và các Module mã chung, tạo nên ứng dụng của ta.
5 Các điều khiển dữ liệu (Data Controls) a) Sử dụng Data Controls Để sử dụng Data Controls ta thiết lập các thuộc tính của nó có thể kết nối đến cơ sở dữ liệu (Database) và các bảng (table) trong cơ sở dữ liệu dữ liệu đó Bản thân Data Controls không hiển thị dữ liệu, nó chỉ hiển thị dữ liệu khi chúng ta kết nối nó đến cơ sở dữ liệu cụ thể Thông thờng ta dùng nó để hiện thị cơ sở dữ liệu trên Form. b) ADO (ActiveX Data Object)
OLEDB (Object Linking and Embebling Database)
Mỗi DBMS (Database Management System) lu trữ dữ liệu dới một dạng cụ thể Ví dụ Microsoft Access lu dữ liệu trong tệp có phần mở rộng là
“.mdb” trong khi đó Foxpro thì lu tệp dới dạng “.dbf”, nghĩa là một cơ sở dữ thời gian và công sức để tạo lại ứng dụng mỗi khi mà chúng ta muốn thay đổi cơ sở dữ liệu, do đó ta cần có cơ chế giải quyết vấn đề này.
Ta chỉ cần lập trình với phần giao diện ngời sử dụng ở phía Client Bởi vì việc truy cập dữ liệu trên cả trình duyệt Web và ứng dụng Visual Basic đợc chuyển hết về phía ActiveX Server để đảm bảo logic chơng trình đợc nhất quán, bất kể loại ứng dụng nào đang đợc dùng.
Trớc đây khi máy tính cha phát triển và sử dụng cha rộng rãi thì các tổ chức chỉ sử dụng một DBMS Cơ sở dữ liệu đợc sử dụng trong các ứng dụng thì ứng dụng đó phải viết cụ thể cho từng loại cơ sở dữ liệu mà ứng dụng đó dùng hoặc viết ứng dụng trong chính cơ sở dữ liệu đó.
KHẢO SÁT HỆ THỐNG QUẢN LÝ CÁN BỘ GIÁO VIÊN TRƯỜNG THPT MỸ HÀO
Nhiệm vụ và mục tiêu
- Tìm hiểu cơ cấu tổ chức và hoạt động giảng dậy của trường THPT Mỹ hào.
- Khảo sát tình hình thực tế hiện nay của trường THPT Mỹ Hào.
- Áp dụng các kiến thức về Cơ sở dữ liệu, phân tích và thiết kế hệ thống thông tin quản lý, phần mềm lập trình, để xây dựng chương trình quản lý Giáo viên trường THPT Mỹ Hào. b Mục tiêu :
- Tìm hiểu và nghiên cứu bài toán Phân tích-Thiết kế hệ thống thông tin quản lý nhân sự trường trung học PT Mỹ hào – Hưng Yên Từ đó phân tích thiết kế hệ thống quản lý nhân sự cho trường THPT Mỹ Hào như cập nhật, bổ sung, tra cứu thông tin của giáo viên trên hệ thống… một cách nhanh chóng, chính xác hiệu quả mà không phải vất vả làm việc trên giấy tờ trước đây. Đồng thời hướng phát triển thêm của hệ thống là trở thành hệ thống không chỉ là quản lý giáo viên mà cả về quản lý nhân sự của trường THPT mỹ hào
Sơ lược về trường THPT Mỹ Hào
- Đương 5-Thi Trấn Bần -Mỹ hào-Hưng Yên.
- Fax : (0321-3)8568639. b Quá trình xây dựng và phát triển của trường :
- Được thành lập vào ngày 1 tháng 12 năm 1963 theo quyết định số 5315/QĐ-UB của UBND Tỉnh Hưng Yên, trường THPT Mỹ Hào là trường công lập đầu tiên của Hưng Yên Hiện nay do Thầy giáo Nguyễn Văn Phê làm hiệu trưởng.
- Năm học 1993-1994 nhà trường có 13 lớp bậc THPT và 3 lớp bậc THCS với tổng số 768 học sinh và 21 nhân viên đều có trình độ từ đại học trở lên.
- Cho đến nay nhà trường đã có 36 phòng học và gồm nhiều phòng chức năng
+ 3 phòng thực hành và thí nghiệm(Lý, Hoá, Sinh) + 1 phòng nghe nhìn.
+ 3 phòng thực hành Tin học.
- Hiện nay nhà trường đang tiếp tục xây dưng thêm
2 khu giang dậy cho giáo viên và học sinh Dự tính số phòng học tên tới 25 phòng học Nhà trường đang phát triển về mọi mặt cả về cơ sở vật chất đến chất lượng giảng dậy ,khu vui chơi giải trí cho hoc sinh Số giao viên dậy giỏi đang tăng lên từng ngày và chất lượng giảng dậy của giáo viên ngày một nâng cao
- Nhà trường đang thực hiện Ứng dụng công nghệ thông tin vào giảng dậy cho học sinh như ,giáo trình trực tuyến , sổ liên lạc điện tử , giải đáp qua website ,tất cả thông tin nhà trường và giáo trình giảng dậy đều được đưa lên website để học sinh có thể vào tìm hiểu và lấy tài liệu
- Đặc biệt nhà trường đã được vinh hạnh trở thành trường chuẩn quốc gia trong thời gian vừa qua nhà trường đã lỗ lực hết mình để trở thành một ngôi trường có chất lượng giảng dậy cao
Cơ cấu tổ chức của trường THPT Mỹ Hào
Cán bộ quản lý Giáo viên
Giáo viên Nhân viên vụ việc a Nghiệp vụ của nhà trường :
- Tổ hành chính : chuyên giải quyết các vấn đề về tiền lương cho nhân viên trong trường, cũng như thực hiện các hoạt động liên quan đến vấn đề tài chính mà ban giám hiệu đề xướng.
- Tổ công đoàn : chịu trách nhiệm việc thực hiện tổ chức, tham gia, quản lý các vấn đề liên quan đến đoàn.
- Tổ bảo vệ : chuyên giải quyết các vấn đề về an ninh trật tự trong nhà trường
- Tổ tạp vụ : đảm nhiệm việc nấu ăn cho nhân viên, bán thực phẩm cho học sinh trong trường, bên cạnh đó là việc giữ gìn vệ sinh trong toàn trường.
- Các tổ chuyên môn : chịu trách nhiệm nghiên cứu chuyên ngành của mình, đồng thời phân công và giảng dạy cho các lớp trong toàn trường. b Quản lý nhân sự của trường THPT Mỹ Hào chia ra làm 2 mảng
Biên chế và hợp đồng
Biên chế Hợp đồng + Cán bộ quản lý
+ Nhân viên văn phòng + Nhân viên vụ việc
- Vệ sinh + Giáo viên dạy tin học c Đặc tả
Hiện nay tại trường THPT Mỹ Hào, phòng văn thư quản lý việc lưu giữ hồ sơ của nhân viên trong trường Tức là quản lý theo nguồn lao động bao gồm đặc điểm về lý lich, nhân sự và lao động Bên cạnh đó việc tìm kiếm theo các tiêu chí cụ thể như : tìm theo họ tên, quê quán…
Vào đầu mỗi năm học, nhà trường sẽ đón thêm 1 số giáo viên mới ra trường về tham gia công tác giảng dạy Sau đó, dựa vào chuyên môn của mình, các giáo viên này sẽ được phân bổ về các tổ chuyên môn Hiệu trưởng sẽ duyệt thông tin lý lịch của từng cán bộ để đưa thêm vào danh sách cán bộ hiện có của nhà trường.
Trong trường hợp nếu phòng giáo dục không thể điều động kịp thời cho 1 số bộ môn bị thiếu giáo viên, thì nhà trường sẽ hợp đồng với 1 số giáo viên bên ngoài để có thể đáp ứng đủ nhu cầu của các bộ môn đó (Sẽ không có trường hợp 1 giáo viên phụ trách 2 chuyên môn như trước đây, vì theo yêu cầu mới của Bộ GD&ĐT, 1 giáo viên chỉ đảm trách chuyên môn của mình, nhằm đảm bảo chất lượng dạy và học của giáo viên và học sinh) Tất cả hồ sơ của các giáo viên này cũng được quản lý như trường hợp của giáo viên thuộc dạng biên chế của nhà trường Tức là, hồ sơ được đánh mã số riêng và sẽ được đưa thêm vào danh sách cán bộ hiện có của nhà trường.
Ngoài việc hợp đồng với 1 số giáo viên, nhà trường phải hợp đồng với 1 số nhân viên như: giám thị, vệ sinh để đáp ứng đầy đủ các nhu cầu cần có của nhà trường.
Vào cuồi năm học, nhà trường sẽ đưa ra việc thống kê theo 1 số tiêu chí cụ thể để có thể đưa ra được những đánh giá cơ bản và chính xác nhất về tình hình nhân sự của nhà trường Tiêu chí này được đưa ra dựa vào nhu cầu thực tế, ví dụ như: Thống kê tất cả các cán bộ nhân viên nhà trường, đưa ra danh sách cán bộ nhân viên theo các điều kiện phù hợp với yêu cầu.
Qua đó, bài toán này được xây dựng dựa trên nhu cầu quản lý hồ sơ nhân viên của Ban giám hiệu nhà trường, tức là quản lý theo nguồn lao động bao gồm đặc điểm về lý lịch, nhân sự và lao động Hệ thống sau khi được xây
PHẦN III: PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG
Sơ đồ phân cấp chức năng nghiệp vụ của trường
Hinh :Biểu đồ phân cấp chức năng
Công việc quản lý nhân viên của trường THPT Mỹ Hào bao gồm các chức năng chính là:
- Đăng ký : Người sử dụng phải đăng ký tài khoản, tài khoản cung cấp sẽ được giới hạn quyền quản lý hệ thống.
- Đăng nhập: Người sử dụng đăng nhập để sử dụng
Chức năng: Cập nhật hồ sơ
- Cập nhật hồ sơ nhân sự: Chức năng dùng để thêm mới hoặc thay đổi thông tin trong hồ sơ nhân sự Thông tin được của nhân viên khi nhà trường tiếp nhận thì sẽ được đưa vào trong hồ sơ hệ thống thông qua chức năng này.
- Cập nhật danh mục: Cập nhật danh mục chức vụ công tác, tổ làm việc
- Tìm kiếm theo mã số cán bộ: Tìm kiếm thông tin của nhân viên theo mã số hồ sơ.
- Tìm kiếm theo họ tên: Tìm kiếm thông tin của nhân viên theo họ tên.
- Tìm kiếm theo tổ: Tìm kiếm thông tin của nhân viên theo tổ.
- Tìm kiếm theo chức vụ: Tìm kiếm thông tin của nhân viên theo chức vụ.
- Thống kê theo tổ: Thống kê tất cả những nhân viên thuộc cùng một tổ
- Thống kê theo chức vụ: Thống kê tất cả những nhân viên có cùng chức vụ.
- Thống kê theo thâm niên: Thống kê tất cả các nhân viên theo từng khoảng thời gian công tác.
- Thống kê theo quê quán: Thống kê tất cả các nhân viên có cùng quê quán.
- Thống kê theo yêu cầu: Thống kê tất cả các nhân viên theo một số yêu cầu cụ thể.
Biểu đồ luồng dữ liệu
2.1 Biều đồ luồng dữ liệu mức ngữ cảnh
Quản lý nhân viên trường THPT Mỹ
2.2 Biểu đồ luồng dữ liệu mức đỉnh
Hồ sơ nviên Đăng nhập
2.3 Biểu đồ luồng dữ liệu mức dưới đỉnh a Biều đồ phân rã chức năng “Admin”
Nhập Pass b Biểu đồ phân rã chức năng “Cập nhật
Người sử dụng Người tuyển dụng
2.1 Cập nhật hồ sơ nhân sự
Báo cáo thông tin c Biểu đồ phân rã chức năng “Tra cứu”
3.1 Tìm theo mã số hồ sơ
Hồ sơ Gviên Hồ sơ Gviên
Kết quả Yêu cầu Kết quả
Kết quả d Biểu đồ phân rã chức năng “ Thống kê in ấn”
4.2 Thống kê theo chức vụ
Hồ sơ nviên Hồ sơ nviên
4.3 Thống kê theo thâm niên
Kết quả Yêu cầu Kết quả
4.4 Thống kê theo quê quán
4.5 Thống kê theo yêu cầu
MaTDCM NganhDT LoaiHinhDT TruongDT NienKhoa
XÂY DỰNG CƠ SỞ DỮ LIỆU
Mô hình quan hệ cơ sở dữ liệu
MaCB HoTen GioiTinh NgaySinh NoiSinh QueQuan DanToc MaTN MaCV NgayChuyenCT QuaTrinhCT MaTo MaTDCM GiaDinh SoCon SoCMND NgayCap NoiCap DiaChi SoDT DangVien SoTheDang NgayVaoDang NoiVaoDang MaTDNN HocHam MaLuong MasoHD MaKhenThuong MaKyLuat
Các bảng CSDL
Tên trường Kiểu dữ liệu Kích thước Diễn giải
MaCB Text 5 Mã cán bộ-Khoá chính
Ngaysinh Date/Time Ngày sinh
MaTN Text 5 Mã thâm niên
MaCV Text 5 Mã chức vụ
NgayChuyenCT Date/Time Ngày chuyển CTác
QuaTrinhCT Memo 10 Quá trình CTác
MaTDCM Text 5 Mã trình độ CM
GiaDinh Yes/No Gia đình
NgayCap Date/Time Ngày cấp
SoDT Text 10 Số điện thoại
DangVien Yes/No Đảng viên
SoTheDang Text 10 Số thẻ đảng
NgayVaoDang Date/Time Ngày vào đảng
NoiVaoDang Text 50 Nơi vào đảng
MaTDNN Text 5 Mã trình độ NN
NgayNhanHH Date/Time Ngày nhận học hàm
MasoHD Text 5 Mã số hợp đồng
LoaiHD Text 50 Loại hợp đồng
NgayHD Date/Time Ngày hợp đồng
NgayBD Date/Time Ngày bắt đầu
NgayKT Date/Time Ngày kết thúc
NgayXL Date/Time Ngày xếp lương
LuongTL Number Lương tháng lĩnh
ThueTN Text 12 Thuế thu nhập
MaKhenThuong Text 5 Mã khen thưởng
MaKyLuat Text 5 Mã kỷ luật b Bảng hợp đồng lao động :
Tên trường Kiểu dữ liệu Kích thước Diễn giải
MasoHD Text 5 Mã số hợp đồng-
NgayHD Date/Time Ngày hợp đồng
LoaiHD Text 50 Loại hợp đồng
NgayBD Date/Time Ngày bắt đầu
NgayKT Date/Time Ngày kết thúc
NgayXL Date/Time Ngày xếp lương
SoBHXH Text 9 Số BHXH c Bảng thâm niên :
Tên trường Kiểu dữ liệu Kích thước Diễn giải
Mã thâm niên- d Bảng chức vụ :
Tên trường Kiểu dữ liệu Kích thước Diễn giải
MaChucVu Text 5 Mã chức vụ-
TenChucVu Text 50 Tên chức vụ e Bảng trình độ chuyên môn :
Tên trường Kiểu dữ liệu Kích thước Diễn giải
MaTDCM Text 5 Mã trình độ CM-
NganhDT Text 50 Ngành đào tạo
LoaiHinhDT Text 50 Loại hình đào tạo
TruongDT Text 50 Trường đào tạo
NienKhoa Text 10 Niên khoá f Bảng hệ thống :
Tên trường Kiểu dữ liệu Kích thước Diễn giải
Username Text 25 Tên truy cập-Khoá chính
Update Yes/No Cập nhật
Manage Yes/No Quản trị
Discription Text 30 Diễn giải chi tiết
FullName Text 30 Họ tên đầy đủ g Bảng tổ :
Tên trường Kiểu dữ liệu Kích thước Diễn giải
MaTo Text 5 Mã tổ-Khoá chính
TenTo Text 50 Tên tổ h Bảng lương :
Tên trường Kiểu dữ liệu Kích thước Diễn giải
MaLuong Text 5 Mã lương-Khoá chính
LuongCB Currency Lương cơ bản
HesoLuong Number Hệ số lương i Bảng khen thưởng :
Tên trường Kiểu dữ liệu Kích thước Diễn giải
Mã khen thưởng-Khoá chính
LyDoKhenThuong Text 150 Lý do khen thưởng
NgayKhenThuong Date/Time Ngày khen thưởng j B k ảng kỷ luật :
Tên trường Kiểu dữ liệu Kích thước Diễn giải
MaKyLuat Text 5 Mã kỷ luật-Khoá chính
LyDoKyLuat Text 150 Lý do kỷ luật
NgayKyLuat Date/Time Ngày kỷ luật
HinhThucKyLuat Text 150 Hình thức kỷ luật l Bảng ngoại ngữ :
Tên trường Kiểu dữ liệu Kích thước Diễn giải
MaTDNN Text 5 Mã trình độ NN-
TenNN Text 20 Tên ngoại ngữ
LoaiTD Text 50 Loại trình độ m Bảng tỉnh thành :
Tên trường Kiểu dữ liệu Kích thước Diễn giải
ID AutọNumber ID-Khoá chính
TinhThanh Text 50 Tỉnh thành n Bảng dân tộc :
Tên trường Kiểu dữ liệu Kích thước Diễn giải
ID AutọNumber ID-Khoá chính
DanToc Text 50 Dân tộc o Bảng học hàm :
Tên trường Kiểu dữ liệu Kích thước Diễn giải
ID AutọNumber ID-Khoá chính
GIỚI THIỆU CHƯƠNG TRÌNH
Giao diện chính của chương trình
Const HH_HELP_CONTEXT = &HF
Private Declare Function HtmlHelp Lib "HHCtrl.ocx" Alias
"HtmlHelpA" (ByVal hwndCaller As Long, _ByVal pszFile As String, _
ByVal uCommand As Long, _dwData As Any) As Long
Private Sub MDIForm_Unload(Cancel As Integer)
'Giai phong doi tuong ADO chinh
Private Sub mnuCap_nhat_chuc_cu_Click()
If frmCapNhat.WindowState = 1 Then frmCapNhat.WindowState = 0
Private Sub mnuCap_nhat_ky_luat_Click() mnuCap_nhat_chuc_cu_Click frmCapNhat.SSTab.Tab = 7
Private Sub mnuCap_nhat_luong_Click() mnuCap_nhat_chuc_cu_Click frmCapNhat.SSTab.Tab = 5
Private Sub mnuCap_nhat_thong_tin_khen_thuong_Click()
Private Sub mnuCap_nhat_To_Click() mnuCap_nhat_chuc_cu_Click frmCapNhat.SSTab.Tab = 3
Private Sub mnuCap_nhat_tinh_thanh_Click() mnuCap_nhat_chuc_cu_Click frmCapNhat.SSTab.Tab = 2
Private Sub mnuCap_nhat_trinh_do_chuyen_mon_Click() mnuCap_nhat_chuc_cu_Click frmCapNhat.SSTab.Tab = 4
Private Sub mnuCap_nhat_trinh_do_ngoai_ngu_Click() mnuCap_nhat_chuc_cu_Click frmCapNhat.SSTab.Tab = 1
Private Sub mnuDang_nhap_he_thong_Click()
If (MsgBox("Ban co chac chan muon quay tro lai man hinh Lua chon ?" & vbCrLf, vbYesNo + vbQuestion, Me.Caption) = vbNo) Then
Else frmluachon.Show frmMDI.Visible = False
Private Sub mnuhuong_dan_Click()
HtmlHelp 0, "C:\QLNS\help.chm", HH_DISPLAY_TOPIC, 0 End Sub
Private Sub mnuLoai_bo_nguoi_su_dung_Click()
Private Sub mnuThay_doi_mat_khau_Click()
Private Sub mnuThay_doi_quyen_su_dung_Click()
Private Sub mnuThem_ho_so_Click()
If frmHoso.WindowState = 1 Then frmHoso.WindowState = 0
Else frmHoso.cmdXoa.Visible = False frmHoso.cmdSua.Visible = False frmHoso.cmdThem.Visible = True
If (MsgBox("Ban co chac chan muon thoat khoi chuong trinh ?" & vbCrLf, vbYesNo + vbQuestion, Me.Caption) = vbNo) Then
Private Sub mnuthong_tin_ct_Click()
Private Sub mnuTim_kiem_Click() frmTimKiem.Show
Private Sub mnuXoa_Ho_so_Click()
Else frmHoso.cmdXoa.Visible = True frmHoso.cmdSua.Visible = False frmHoso.cmdThem.Visible = False
Các Form chức năng của chương trình
2 Form: Tạo tài khoản mới ( Quyền hạn chỉ được Xem )
Dim MainCN As New ADODB.Connection, strCNString As String
Dim MainRS As New ADODB.Recordset
Trong = (txtPassword.Text = "") Or (txtUserName.Text = "") _Or (txtFullName.Text = "") Or (txtDiscription.Text = "")
ShowMSG "Phải nhập đầy đủ các thông tin", 2 txtPassword.SetFocus
'Kiem tra xem co trung mat khau hay khong
Do While Not MainRS.EOF
If MainRS.Fields("UserName").Value = txtUserName.Text Then
ShowMSG "Trùng tài khoản nhập tài khoản khác", 2
MainRS.Fields("UserName").Value = txtUserName.Text
MainRS.Fields("Password").Value = txtPassword.Text
MainRS.Fields("FullName").Value = txtFullName.Text
MainRS.Fields("Discription").Value = txtDiscription.Text MainRS.Fields("Access").Value = chkXem.Value
MainRS.Fields("Update").Value = chkCapNhat.Value
MainRS.Fields("Manage").Value chkQuanTriHeThong.Value
ShowMSG "Đã Thờm người dựng thành cụng", 1 strCNString = "Data Source=" & App.Path & "\QLNS.mdb" End Sub
Private Sub cmdlamlai_Click() txtUserName.Text = "" txtPassword.Text = "" txtFullName.Text = "" txtDiscription.Text = "" cmdlamlai.Enabled = False cmdGhi.Enabled = False chkXem.Enabled = False
Private Sub cmdThoat_Click() txtUserName.Text = "" txtPassword.Text = "" txtFullName.Text = "" txtDiscription.Text = "" frmluachon.Show frmThemnguoidung2.Visible = False chkXem.Enabled = False cmdlamlai.Enabled = False cmdGhi.Enabled = False
MainRS.Open "Select * from HeThong", MainCN, adOpenDynamic, adLockOptimistic chkCapNhat.Enabled = False chkQuanTriHeThong.Enabled = False cmdGhi.Enabled = False cmdlamlai.Enabled = False chkXem.Enabled = False
Private Sub Form_Unload(Cancel As Integer)
Private Sub txtDiscription_Change() cmdGhi.Enabled = True cmdlamlai.Enabled = True chkXem.Enabled = True
3 Form: Đăng nhập vào hệ thống
4 Form: Thay đổi mật khẩu:
5 Form: Thêm người dùng ( dành cho admin )
Option Explicit Private Sub cmdGhi_Click() Dim Trong As Boolean Trong = (txtPassword.Text = "") Or (txtUserName.Text "")_Or (txtFullName.Text = "") Or (txtDiscription.Text = "")
If Trong Then ShowMSG "Phải nhập đầy đủ thông tin", 2 txtPassword.SetFocus
Do While Not MainRS.EOF
If MainRS.Fields("UserName").Value = txtUserName.Text Then
ShowMSG "Trùng tài khoản, nhập tài khoản khác", 2 MainRS.MoveFirst txtPassword.SetFocus Exit Sub
End If MainRS.MoveNext Loop
MainRS.AddNew MainRS.Fields("UserName").Value = txtUserName.Text MainRS.Fields("Password").Value = txtPassword.Text MainRS.Fields("FullName").Value = txtFullName.Text MainRS.Fields("Discription").Value = txtDiscription.Text MainRS.Fields("Access").Value = chkXem.Value
MainRS.Fields("Update").Value = chkCapNhat.Value MainRS.Fields("Manage").Value chkQuanTriHeThong.Value
MainRS.Update ShowMSG " Bạn đã thêm người dùng thành công", 1 End Sub
Private Sub cmdThoa_Click() Unload Me
End SubPrivate Sub Form_Load() Set MainRS = New ADODB.Recordset
MainRS.LockType = adLockPessimistic Set MainRS.ActiveConnection = MainCN MainRS.Open
6 Loại bỏ và thêm bớt người dùng ( dành cho admin )
Code form : Option Explicit Private Sub Form_Load() Dim i As Integer
Set MainRS = New ADODB.Recordset MainRS.Source = "HeThong"
MainRS.LockType = adLockPessimistic Set MainRS.ActiveConnection = MainCN lstUserName.List(i) = MainRS.Fields("UserName").Value i = i + 1 MainRS.MoveNext Loop lstUserName.ListIndex = 0 End Sub
Private Sub lstUserName_Click() fraQuyenSuDung.Enabled = False txtPassword.Enabled = False txtFullName.Enabled = False txtDiscription.Enabled = False Set MainRS = New ADODB.Recordset MainRS.Source = " SELECT * FROM HeThong" _ & " WHERE UserName=" & "'" & lstUserName.List(lstUserName.ListIndex) & "'"
MainRS.LockType = adLockPessimistic Set MainRS.ActiveConnection = MainCN MainRS.Open
If MainRS.Fields("Access").Value Then chkXem.Value = 1
Else chkXem.Value = 0 End If
If MainRS.Fields("Update").Value Then chkCapNhat.Value = 1
If MainRS.Fields("Manage").Value Then chkQuanTriHeThong.Value = 1
Else chkQuanTriHeThong.Value = 0 End If txtPassword.text = MainRS.Fields("Password").Value txtFullName.text = MainRS.Fields("FullName").Value txtDiscription.text = MainRS.Fields("Discription").Value End Sub
Private Sub cmdThem_Click() Unload Me
Private Sub cmdThoat_Click() Unload Me
End Sub Private Sub cmdSua_Click() fraQuyenSuDung.Enabled = True txtPassword.Enabled = True txtFullName.Enabled = True txtDiscription.Enabled = True txtPassword.SetFocus
End SubPrivate Sub cmdGhi_Click()
MainRS.Fields("Manage").Value chkQuanTriHeThong.Value
MainRS.Fields("Password").Value = txtPassword.text MainRS.Update fraQuyenSuDung.Enabled = False txtPassword.Enabled = False txtFullName.Enabled = False txtDiscription.Enabled = False End Sub
Private Sub cmdXoa_Click() ShowMSG "Có chắc chắn muốn xóa ?", 3
If MsgResult = 1 Then MainRS.Delete lstUserName.RemoveItem lstUserName.ListIndex lstUserName.ListIndex = 0
End If End Sub Private Sub Form_Unload(Cancel As Integer) MainRS.Close
Private Sub cmdMove_Click(Index As Integer)
If Data.Recordset.EOF Then
Data.Recordset.FindNext "MaCB LIKE '" &
Data.Recordset.FindNext "HoTen= '" & DBList.Text & "'"
If Data.Recordset.NoMatch Then
Data.Recordset.FindPrevious "HoTen= '" & DBList.Text & "'" End If
8 Form: Thêm, Sửa, Xoá hồ sơ
Option ExplicitDim dangvien As IntegerDim sothedang As StringDim ngayvaodang As DateDim noivaodang As StringDim Phong As StringDim chucvu As StringDim capbac As StringDim quaTrinhCT As String
Dim Luong As String Dim MaTDCM As String Dim MaKyLuat As String Dim MaKhenThuong As String Private Sub cmdCongTac_Click() 'Luu gia tri de neu click thoat thi cap nhat lai Phong = DBCombo(0).Text chucvu = DBCombo(1).Text capbac = DBCombo(2).Text quaTrinhCT = Text(8).Text ngayChuyenCT = DTPicker(3).Value Luong = Combo(5).Text fraCongTac.Visible = True fraCaNhan.Visible = False fraDang.Visible = False fraCongTac.Top = 0 fraCongTac.Left = 0 frmHoso.Height = fraCongTac.Height + 420 frmHoso.Width = fraCongTac.Width + 100 End Sub
Private Sub cmdChuyenMon_Click() fraTTK.Visible = False
'Luu gia tri MaTDCM = DBComboMaTDCM.Text fraTDCM.Visible = True fraCaNhan.Visible = False fraDang.Visible = False fraCongTac.Visible = False fraTDCM.Top = 0 fraTDCM.Left = 0 frmHoso.Height = fraTDCM.Height + 420 frmHoso.Width = fraTDCM.Width + 80 DataTDCM.Recordset.MoveFirst
DataTDNN.Recordset.MoveFirst DataTDNN.Recordset.FindNext "MaTDNN='" &
End Sub Private Sub cmdhdld_Click() fraTTK.Visible = False 'Luu gia tri fraHDLD.Visible = True fraCaNhan.Visible = False fraDang.Visible = False fraCongTac.Visible = False fraTDCM.Visible = False fraHDLD.Top = 0 fraHDLD.Left = 0 frmHoso.Height = fraHDLD.Height + 420 frmHoso.Width = fraHDLD.Width + 80End Sub
'Luu gia tri MaKhenThuong = DBComboMaKhenThuong.Text fraKhenThuong.Visible = True fraCaNhan.Visible = False fraDang.Visible = False fraCongTac.Visible = False fraKyLuat.Visible = False fraKhenThuong.Top = 0 fraKhenThuong.Left = 0 frmHoso.Height = fraKhenThuong.Height + 420 frmHoso.Width = fraKhenThuong.Width + 80 DataKT.Recordset.MoveFirst
9 Form: Cập nhật hệ thống
Option Explicit Private Const Allow = 1 Private Const UnAllow = 2 Private Sub cmdBo_Click() Data.Recordset.CancelUpdate UnAllowUpdate cmdBo.Enabled = False cmdXoa.Enabled = True cmdThem.Enabled = True cmdSua.Enabled = True End Sub
On Error GoTo ErrorHandler Data.Recordset.Update UnAllowUpdate
If Err = 3022 Then ShowMSG "Trùng mã, nhập mã khác", 1 End If
End Sub Private Sub Form_Load() UnAllowUpdate
Data.DatabaseName = App.Path & "\qlns.mdb"
If Data.Recordset.BOF Then Data.Recordset.MoveNext End Sub
Private Sub cmdNext_Click() UnAllowUpdate
If Data.Recordset.EOF Then Data.Recordset.MovePrevious End Sub
Private Sub cmdFirst_Click() Data.Recordset.MoveFirst End Sub
Private Sub cmdLast_Click() Data.Recordset.MoveLast End Sub
Private Sub cmdSua_Click() AllowUpdate
GotFocus Data.Recordset.Edit cmdXoa.Enabled = False cmdThem.Enabled = False End Sub
Private Sub cmdThem_Click() AllowUpdate
GotFocus Data.Recordset.AddNew cmdXoa.Enabled = False cmdSua.Enabled = False End Sub
Private Sub cmdXoa_Click() ShowMSG "Có chắc chán muốn xóa không?", 3
If MsgResult = 1 Then Data.Recordset.Delete Data.Refresh
End If End Sub Private Sub SSTab_Click(PreviousTab As Integer) UnAllowUpdate
Data.DatabaseName = App.Path & "\qlns.mdb"
'========================================'Danh sach cac ham bo xung '========================================Public Sub AllowUpdate() Dim i As Integer
For i = 0 To 22 text(i).Enabled = True Next cmdGhi.Enabled = True cmdBo.Enabled = True Moving UnAllow
Dim i As Integer For i = 0 To 22 text(i).Enabled = False Next cmdXoa.Enabled = True cmdThem.Enabled = True cmdSua.Enabled = True cmdGhi.Enabled = False cmdBo.Enabled = False Moving Allow
End Sub Public Function isEmpty() Dim i As Integer
End Function Public Sub ChoiseTable() Select Case SSTab.Tab Case 0
Dim maso, ten, mato, machucvu maso = "%" + txtMaso.text + "%" ten = "%" + txtHoten.text + "%" mato = "%" + txtTo.text + "%" machucvu = "%" + txtChucvu.text + "%"
SQL1 maso, ten, mato, machucvu
Devm.Commands.Item("QTimkiem").CommandText = St dgrdLke.DataMember = "QTimkiem"
If Devm.rsQTimkiem.RecordCount = 0 Then
ShowMSG "Không tìm thấy người nào", 1
Public Sub SQL1(maso, ten, mato, machucvu)
St = St + "Select MaCB,HoTen,NgaySinh,QueQuan,MaTo,MaCV"
St = St + " Where MaCB Like " + """" + maso + """"
St = St + " and HoTen Like " + """" + ten + """"
St = St + " and MaTo Like " + """" + mato + """"
St = St + " and MaCV Like " + """" + machucvu + """"
11.Form: Thống kê báo cáo
Một số Danh sách thông kê :
Code form : Option Explicit Dim strSQL As String Dim strSQLtemp As String Private Sub cmdIn_Click() ShowDanhSach strSQL End Sub
Private Sub cmdLietKe_Click() Dim stHT, stQQ, stDT, stTo, stCV, stTN, stGT, stDV, stNS, stHH, stNN As String
'Que quan=========================== If cboQQ.text "" Then stQQ = " AND QueQuan='" & cboQQ.text & "'"
'Dan toc============================= If cboDT.text "" Then stDT = " AND DanToc = '" & cboDT.text & "'"
'To=========================== If cboTo.text "" Then stTo = " AND To.TenTo= " & "'"
'Chuc vu============================= If cboCV.text "" Then stCV = " AND ChucVu.TenCV" & "'" & cboCV.text & "'"
'Cap bac============================== If cboTNien.text "" Then stTN = " AND
If cboHH.text "" Then stHH = " AND HosoCB.HocHam= " & "'" & cboHH.text & "'"
'Ngoai ngu============================= If cboNN.text "" Then stNN = " AND NgoaiNgu.TenNN= " & "'" & cboNN.text & "'"
'Gioi tinh============================= Select Case cboGT.ListIndex Case 1, 2 stGT = " AND GioiTinh ='" & cboGT.text & "'"
End Select 'Dang vien============================= Select Case cboDV.ListIndex Case 0 stDV = ""
Case 2 stDV = " AND (NOT DangVien) "
End Select 'Nam sinh=============================== If txtNS.text "" Then Select Case cboNS.ListIndex Case 0 stNS = " AND YEAR(NgaySinh) = " & txtNS.text Case 1 stNS = " AND YEAR(NgaySinh) > " & txtNS.text Case 2 stNS = " AND YEAR(NgaySinh) < " & txtNS.text End Select
End If strSQL = strSQLtemp & stTo & stCV & stDT & stTN & stQQ & stHH & stNN & stGT & stDV & stNS
Data.Refresh Data.RecordSource = strSQL Data.Refresh
If Not (Data.Recordset.EOF And Data.Recordset.BOF) Then frmThongKe.Height = 7380 Data.Recordset.MoveLast ShowMSG "Có " & Str(Data.Recordset.RecordCount) &
" tìm thấy ", 1 Else frmThongKe.Height = 3945 ShowMSG "Không tìm thấy người nào ", 1 End If
End Sub Private Sub cmdThoat_Click() Unload Me
End Sub Private Sub cmdTimMoi_Click() cboTo.text = "" cboCV.text = "" cboNN.text = "" cboCM.text = "" cboDT.text = "" cboHH.text = "" cboGT.ListIndex = 0 cboDV.ListIndex = 0 cboNS.ListIndex = 0 txtNS.text = ""
End Sub Private Sub DBGrid_DblClick() ShowHoso Data.Recordset.Fields(0).Value End Sub
Private Sub Form_Load() Data.DatabaseName = App.Path & "\qlns.mdb"
LoadFieldToCombo "To", "TenTo", cboTo, False LoadFieldToCombo "ChucVu", "TenCV", cboCV, False LoadFieldToCombo "ThamNien", "ThamNien", cboTNien, False
LoadFieldToCombo "TinhThanh", "TinhThanh", cboQQ, False
LoadFieldToCombo "NgoaiNgu", "TenNN", cboNN, False LoadFieldToCombo "DanToc", "DanToc", cboDT, False LoadFieldToCombo "HocHam", "HocHam", cboHH, False LoadFieldToCombo "TrinhDoChuyenMon", "NganhDT", cboCM, False
AddItemIntoComboBox cboGT, "Tất cả", "Nam", "Nữ" AddItemIntoComboBox cboDV, "Tất cả", "Có", "Không"
AddItemIntoComboBox cboNS, "Bằng", "Trên", "Dưới" strSQLtemp = "SELECT MaCB as `Mã số`," _
& " HoTen as `Họ tên`," _ & " NgaySinh as `Ngày sinh`," _ & " QueQuan as `Quê quán` ," _ & " DanToc as `Dân tộc`," _ & " TenTo as `Tên tổ`, " _ & " TenCV as `Chức vị` ," _ & " ThamNien as `Thâm niên` " _ & " FROM HosoCB, To, ChucVu,
ThamNien,NgoaiNgu " _ & " WHERE (HosoCB.MaTo=To.MaTo) " _ & " AND (HosoCB.MaCV=ChucVu.MaCV)"_
& " AND (HosoCB.MaTN=ThamNien.MaTN) " _ & " AND (HosoCB.MaTDNN=NgoaiNgu.MaTDNN) " strSQL = strSQLtemp End Sub
'Load cboGT,cboNS,cboDV Public Sub AddItemIntoComboBox(ComboBoxName As ComboBox, str1 As String, str2 As String, str3 As String) ComboBoxName.AddItem str1
ComboBoxName.AddItem str2 ComboBoxName.AddItem str3 ComboBoxName.ListIndex = 0End Sub