* Giao diện Form, Report - Menu giao diện chính
Hình 5: Menu giao diện chính
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 39 GVHD: Th.s Lưu Thị Bích Hương - Form danh mục bộ môn
- Form danh mục chức vụ
Hình 6: Form danh mục bộ môn
Hình7: Form danh mục chức vụ
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 40 GVHD: Th.s Lưu Thị Bích Hương - Form danh mục hồ sơ giáo viên cơ hữu
- Form danh mục hồ sơ giáo viên thỉnh giảng
Hình8: Form danh mục hồ sơ giáo viên cơ hữu
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 41 GVHD: Th.s Lưu Thị Bích Hương - Form lương cho giáo viên thỉnh giảng
Hình9: Form danh mục hồ sơ giáo viên thỉnh giảng
Hình10: Form lương cho giáo viên thỉnh giảng
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 42 GVHD: Th.s Lưu Thị Bích Hương - Form lương cho giáo viên cơ hữu
- Form thưởng cho giáo viên thỉnh giảng
Hình11: Form lương cho giáo viên cơ hữu
Hình12: Form thưởng cho giáo viên thỉnh giảng
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 43 GVHD: Th.s Lưu Thị Bích Hương - Form thưởng cho giáo viên cơ hữu
- Form truy lĩnh cho giáo viên cơ hữu
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 44 GVHD: Th.s Lưu Thị Bích Hương - Form tìm kiếm thông tin về giáo viên cơ hữu
Hình14: Form truy lĩnh cho giáo viên cơ hữu
Hình15: Form tìm kiếm thông tin về giáo viên cơ hữu
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 45 GVHD: Th.s Lưu Thị Bích Hương - Form tìm kiếm thông tin về giáo viên thỉnh giảng
- Report hợp đồng lao động
Hình16: Form tìm kiếm thông tin về giáo viên thỉnh giảng (adsbygoogle = window.adsbygoogle || []).push({});
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 46 GVHD: Th.s Lưu Thị Bích Hương - Report thanh lý hợp đồng lao động
- Report Lương cho giáo viên cơ hữu
Hình18: Report thanh lý hợp đồng lao động
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 47 GVHD: Th.s Lưu Thị Bích Hương - Report lương cho giáo viên thỉnh giảng
- Report thưởng cho giáo viên cơ hữu
Hình20: Report lương cho giáo viên thỉnh giảng
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 48 GVHD: Th.s Lưu Thị Bích Hương - Report thưởng cho giáo viên thỉnh giảng
* Một số câu lệnh được Visual Basic xây dựng trong chương trình quản lý chi trả lương cho giáo viên trường Trung cấp bán công kinh tế kỹ thuật Bắc Thăng Long. Câu lệnh trong các Form được xây dựng tương tự nhau, chẳng hạn trong Form DOAN:
- Thêm một Record:
Private Sub cmdthem_Click()
If cmdthem.Caption = "Thêm" Then cmdthem.Caption = "Huỷ" cmdsua.Enabled = False cmdxoa.Enabled = False
Hình22: Report thưởng cho giáo viên thỉnh giảng
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 49 GVHD: Th.s Lưu Thị Bích Hương cmdluu.Enabled = True cmdthoat.Enabled = False cmbma.Locked = False txtten.Locked = False txtmagv.Locked = False txtgia.Locked = False cmbma.Text = "" txtten = "" txtmagv = "" txtgia = "" cmbma.SetFocus Else cmdthem.Caption = "Thêm" cmdsua.Enabled = True cmdxoa.Enabled = True cmdluu.Enabled = False cmdthoat.Enabled = True cmbma.Locked = True txtten.Locked = True txtmagv.Locked = True txtgia.Locked = True If rsnhanvien.RecordCount = 0 Then cmbma.Text = "" txtten = "" txtgia = ""
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 50 GVHD: Th.s Lưu Thị Bích Hương txtmagv = "" Else cmbma.Text = rsnhanvien!mada txtten = rsnhanvien!tenda txtmagv = rsnhanvien!msgv txtgia = rsnhanvien!dongiada End If End If End Sub - Sửa một Record:
Private Sub cmdsua_Click()
If cmdsua.Caption = "Sửa" Then oldms = cmbma cmdsua.Caption = "Huỷ" cmdthem.Enabled = False cmdxoa.Enabled = False cmdluu.Enabled = True cmdthoat.Enabled = False cmbma.Locked = False txtten.Locked = False txtmagv.Locked = False txtgia.Locked = False Else cmdsua.Caption = "Sửa" cmdthem.Enabled = True
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 51 GVHD: Th.s Lưu Thị Bích Hương cmdxoa.Enabled = True cmdluu.Enabled = False cmdthoat.Enabled = True cmbma.Locked = True txtten.Locked = True txtmagv.Locked = True txtgia.Locked = True If rsnhanvien.RecordCount = 0 Then cmbma.Text = "" txtten = "" txtmagv = "" txtgia = "" Else cmbma.Text = rsnhanvien!mada txtten = rsnhanvien!tenda txtmagv = rsnhanvien!msgv txtgia = rsnhanvien!dongiada End If End If End Sub - Xoá một Record:
Private Sub cmdxoa_Click() Dim CSDL As Database Dim re As Recordset
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 52 GVHD: Th.s Lưu Thị Bích Hương Set re = CSDL.OpenRecordset("DOAN", dbOpenDynaset) Dim msv As String
Dim sql As String
msv = InputBox("Hãy nhập mã số đồ án cần xóa ?") re.MoveFirst
Do While Not re.EOF If (re!mada = msv) Then
(adsbygoogle = window.adsbygoogle || []).push({});
Exit Do
If MsgBox("Bạn có muốn xóa không ?", vbYesNo, "Xóa dữ liệu", 0, 0) = vbYes Then
End If End If
re.MoveNext Loop
If re.EOF Then
MsgBox "Không tồn tại đồ án có mã số này", vbInformation, "Thông báo"
Else re.Delete Data1.Refresh
MsgBox "Dữ liệu đã được xóa", vbInformation, "Thông báo" End If
re.Close CSDL.Close
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 53 GVHD: Th.s Lưu Thị Bích Hương End Sub
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 54 GVHD: Th.s Lưu Thị Bích Hương
kết luận và hướng phát triển
* Đánh giá chương trình 1. Tính năng của đề tài
Đề tài “Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long” là đề tài có tính thực tế cao. Trong khi xây dựng chương trình em đã dựa trên kết quả khảo sát cụ thể hệ thống quản lý chi trả lương cũ của trường, và đưa ra những biện pháp tối ưu mang lại hiệu quả cao cho người quản lý và những người liên quan, đề tài này có thể ứng dụng vào trường Trung cấp bán công kinh tế kỹ thuật Bắc Thăng Long.
2. Kết quả đạt được
Sau khi cho chương trình chạy thử, chương trình đã đạt được một số kết quả do bài toán thực tế đặt ra như:
- Dễ dàng cập nhật, tìm kiếm thông tin. - Tìm kiếm thống tin nhanh, chính xác. - Kiểm soát lương của giáo viên.
- Thống kê báo cáo chính xác đạt hiệu quả cao.
3. Những hạn chế cần khắc phục
Hệ thống đã đạt được một số yêu cầu ban đầu do bài toán thực tế đặt ra, tuy nhiên về giao diện cũng như quy trình khai thác hệ thống cũng chưa thật sự thân thiện và dễ sử dụng cho người khai thác hệ thống. Ngoài ra hệ thống cần phải sửa đổi một số chức năng, cấu trúc dữ liệu cho phù hợp với thực tế.
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 55 GVHD: Th.s Lưu Thị Bích Hương
4. Hướng phát triển của đề tài
Mục đích của đề tài mới tập trung vào mô hình quản lý chi trả lương cho trường Trung cấp bán công kinh tế kỹ thuật Bắc Thăng Long, chưa có tính mở rộng cho các trường dân lập, bán công khác cùng hệ cùng mô hình. Với mô hình bài toán quản lý chi trả lương như trên, cùng với sự cho phép của thời gian, sự hướng dẫn, góp ý tận tình của các thầy cô và bạn bè em mong muốn bài toán này có thể phát triển để áp dụng cho các trường khác.
* Kết luận
Sau một thời gian làm đề tài với thời gian có hạn chương trình đã đạt được cơ bản yêu cầu ban đầu đặt ra. Tuy vậy, để chương trình được ứng dụng tốt hơn thân thiện hơn với người sử dụng và ứng dụng được vào cho trường Trung cấp bán công kinh tế kỹ thuật Bắc Thăng Long thì em cần phải đầu tư thêm thời gian và công sức thì mới có thể đưa vào ứng dụng trong thực tế.
Một lần nữa em xin chân thành cảm ơn cô Lưu Thị Bích Hương và các thầy cô trong khoa Tin học trường Đại học sư phạm Hà Nội 2 đã dày công hướng dẫn, giảng dạy, chỉ bảo em để em hoàn thành đề tài này.
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long (adsbygoogle = window.adsbygoogle || []).push({});
SVTH: Nguyễn Thị Loan 56 GVHD: Th.s Lưu Thị Bích Hương
Tài liệu tham khảo
1. Đậu Quang Tuấn, Lập trình cơ sở dữ liệu Visual Basic 6.0, NXB Trẻ.
2. Đinh Xuân Lâm, Visual Basic cho sinh viên và kỹ thuật viên khoa công nghệ thông tin, NXB Thống Kê.
3. Nguyễn Thị Ngọc Mai, Microsof Visual Basic 6.0 và lập trình cơ sở dữ liệu, NXB Lao Động Xã Hội.
4. Đức Hùng, Thiết kế chương trình với Visual Basic, NXB Thống Kê.
5. Đinh Xuân Lâm, Những bài thực hành cơ sở dữ liệu Visual Basic cơ bản, NXB Thống Kê.
6. Đinh Xuân Lâm, Những bài thực hành cơ sở dữ liệu Visual Basic nâng cao, NXB Thống Kê.
7. Nguyễn Đình Tê, Lập trình ứng dụng cơ sở dữ liệu (tập 1), NXB Lao Động Xã Hội.
8. Nguyễn Đình Tê, Lập trình ứng dụng cơ sở dữ liệu (tập 2), NXB Lao Động Xã Hội.
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 57 GVHD: Th.s Lưu Thị Bích Hương
Phụ lục
* Yêu cầu
Yêu cầu hệ thống:
- Để độ phân giải màn hình ở mức thấp.
- Máy phải cài office, Vietkey để gõ tiếng Việt.
- Thiết lập font .Vntime, size 11 cho các item trong Properties của Windows: Active Title Bar, Icon, Inactive Title Bar, Menu, Message Box, Palette Title, Select Items, Tool Tip.
Yêu cầu nhập liệu:
- Mã số giáo viên thỉnh giảng có dạng TGxxx, ví dụ TG002. Mã số giáo viên cơ hữu có dạng CHxxx, ví dụ CH001.
- Mã số bộ môn có dạng BMxx, ví dụ BM03.
- Mã số học hàm có dạng HHxx, mã học vị có dạng HVxx. - Mã khoa có dạng Kxx.
- Mã đồ án có dạng DAxxx.
- Khi tìm kiếm, thông tin tìm kiếm gõ bằng tiếng Việt.
* Cài đặt:
Copy file setup trong đĩa CDROM vào đĩa cứng. Vào setup.exe trong file setup để cài đặt chương trình:
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long
SVTH: Nguyễn Thị Loan 58 GVHD: Th.s Lưu Thị Bích Hương - Khi đó xuất hiện hộp thoại sau, ta nhấn vào biểu tượng setup (nếu muốn cài đặt theo đường dẫn mặc định) hay chọn Change Directory nếu muốn thay đổi đường dẫn rồi nhấn biểu tượng setup để tiếp tục quá trình cài đặt.
- Hộp thoại sau xuất hiện ta chon Continue
Quản lý chi trả lương cho giáo viên trường TCBCKT - KT Bắc Thăng Long (adsbygoogle = window.adsbygoogle || []).push({});