De tai
Chia sẻ bởi Nguyễn Văn Út |
Ngày 29/04/2019 |
66
Chia sẻ tài liệu: de tai thuộc Bài giảng khác
Nội dung tài liệu:
Trường Cao Đẳng Sư Phạm Long An
Lớp Tin Học K34
Báo Cáo Đề Tài
Quản Lý Thư Viện
Thực hiện:
Lê Trương Thanh Tâm
Nguyễn Văn Út
Năm học: 2011 - 2012
GIỚI THIỆU
1. Mục đích chọn đề tài:
Chúng tôi nghiên cứu chương trình này nhằm thiết kế một chương trình để quản lý hoạt động của thư viện như: quản lý sách, quản lý độc giả, quản lý việc mượn trả sách của thư viện,… và hàng loạt các xử lý khác một cách hiệu quả và nhanh chóng.
GIỚI THIỆU
2. Chức năng của chương trình:
Gồm các chức năng sau:
Quản lý việc nhập sách mới vào kho, số lượng sách trong kho, số lượng sách đang mượn, tình trạng các đầu sách….với các thông tin về đầu sách như: mã sách, tựa sách, số lượng, năm xuất bản,…
Quản lý việc đăng ký của độc giả với các thông tin như: địa chỉ, nghề nghiệp, điện thoại, việc gia hạn thẻ của độc giả,…
Quản lý mượn trả sách của độc giả như: lập phiếu mượn, cập nhật trả sách,…
GIỚI THIỆU
2. Chức năng của chương trình:
Gồm các chức năng sau:
Tìm và xem dữ liệu theo yêu cầu nhanh chóng như: thông tin về độc giả, thông tin về sách, tình trạng các vị trí lưu trữ trong kho, tình trạng của sách,..
Lập các thống kê về sách và độc giả như:
- Danh sách độc giả trả trễ, độc giả chưa mượn sách lần nào, độc giả mượn sách nhiều nhất,…
- Những sách được mượn nhiều nhất, sách chưa được mượn lần nào, những tháng có độc giả mượn sách, tháng không có độc giả mượn sách,…
GIỚI THIỆU
2. Chức năng của chương trình:
Gồm các chức năng sau:
Báo cáo về tình hình sách trong kho, sách mới nhập trong khoảng thời gian cụ thể, những độc giả trả sách trễ, tiền phạt sách trả trễ của độc giả,vị trí lưu trữ sách trongkho,…
In báo cáo về sách và độc giả khi có yêu cầu.
GIỚI THIỆU
3. Phương pháp thực hiện:
Chương trình được thực hiện bằng phần mềm Microsoft Access trên cơ sở:
Điều tra thu thập dữ liệu tại thư viện trường Cao Đẳng Sư Phạm Long An.
- Phân tích thiết kế hệ thống và xây dựng cơ sở dữ liệu.
4. Phạm vi ứng dụng:
Chương trình có thể áp dụng tại các thư viện trong các trường học hoặc các thư viện công cộng.
GIỚI THIỆU
5. Ý nghĩa:
Ứng dụng tin học trong công tác quản lý giúp cho công việc lưu trữ và cung cấp sách độc giả mượn được nhanh chóng và hiệu quả.
2.Sơ đồ tổ chức.
BGH
Thư Viện Sách
Phòng phục vụ
bạn đọc
Phòng tra
cứu mục lục
Phòng
mượn
Kho bảo quản
Phòng Tài vụ
Thông tin người đọc
Thông tin về sách
3.Sơ đồ môi trường.
1.Ban giám hiệu yêu cầu thống kê về tình hình sách trong kho, sách đang được mượn, sách đã thanh lý…Kết quả trả về cho ban giám hiệu.
2.Độc giả đăng ký mượn sách ở thư viện, hoặc vào thư viện đọc sách.
3.Nhân viên thư viện làm thẻ cho độc giả, lưu giữ thông tin cá nhân của độc giả, quản lý việc mượn và trả sách của độc giả.
5.Nhân viên thư viện quản lý sách của thư viện như: nhập sách mới, thống kê, báo cáo tình hình sách,…
Chương trình quản lý sách và độc giả
Nhân Viên Thư Viện
Độc giả
BGH
4.Sơ đồ chức năng.
QUẢN LÝ THƯ VIỆN
Quản lý sách
Quản lý mượn trả
Quản lý độc giả
Danh sách trễ hạn
Nhập mới
Tìm kiếm
Xóa sách
Nhập mới
Tìm kiếm
Xóa độc giả
Hiệu chỉnh
Hiệu chỉnh
Lập phiếu mượn
Cập nhật
Tìm độc giả
Thống kê
Thống kê
Thống kê sách mượn
Thống kê sách còn
Thống kê sách mới
In giấy báo trễ hạn
Báo cáo
5.Sơ đồ dòng dữ liệu.
Chú thích:
: Kho dữ liệu
: Chức năng xử lý
: Tác nhân ngoài
: Tác nhân trong
Sơ đồ dòng dữ liệu của chương trình được phân tích theo từng chức năng riêng.
5.Sơ đồ dòng dữ liệu.
b).Sơ đồ quản lý độc giả:
5 2
3 7 6
5 2 1 7 6
2 8
8
2
Tìm ki?m
D?c gi?
Xĩa
Nh?p
Li?t k
Qu?n l Sch
Hi?u ch?nh
D?c gi?
5.Sơ đồ luồng dữ liệu.
c).So d? qu?n l mu?n tr? sch :
1
2 5
5
1 2 3 2
2 5
4 2 4 2
1. Yêu cầu tạo phiếu mượn sách.
2. Kết quả.
3. Lấy thông tin về phiếu mượn sách và tạo thông tin vào bảng phiếu mượn.
4. Yêu cầu tìm kiếm.
5. Yêu cầu hiệu chỉnh.
6. Nội dung sau khi hiệu chỉnh.
5.Sơ đồ dò ng dữ liệu.
d).Sơ đồ thống kê:
2
1
1 2
1 2
3
2
3 2
4 2 4
2
Li?t k sch
Cho mu?n
Nhn Vin Thu Vi?n
Li?t k
D?c gi?
Phi?u mu?n
Kho Sch
e).Tổng quát :
1 4
11 7 11 7
2 6 6 2 2 8 8 2
2 6 8 2
8
2
2 6 1
8
6 3 2
2 10
9
11 7
7 11
11 7
1 2 5 7 11 2 6 2
2 6
Th? Thu Vi?n
Độc giả
Hi?u ch?nh
Tìm ki?m
Kho sch
Quản lý Sách
Nh?p
Xĩa
Th?ng k
Qu?n l sch
Nh?p
Tìm ki?m
Hi?u Ch?nh
Li?t k
Cho mu?n
T?o phi?u
Tìm ki?m
Các Thành Phần Dữ Liệu
+ DOCGIA : Mỗi thực thể tượng trưng cho một đọc giả trong quy trình mượn trả sách ở thư viện. Các thuộc tính :Mã độc giả, Tên độc giả, Mã khoa học, Lớp, Ngày sinh, Nơi sinh
+ DANHMUC : Mỗi thực thể tượng trưng cho một loại sách, các thuộc tính : Mã danh mục, Tên danh mục
+ PHIEUMUON : Mỗi thực thể đặc trưng cho một phiếu mượn. Các thuộc tính : Mã phiếu mượn, Mã độc giả, Mã sách, Ngày mượn, Ngày trả, Đã trả
+ SACH : Mỗi thực thể tượng trưng cho một cuốn sách. Các thuộc tính : Mã sách, Mã danh mục, Mã nxb, Mã tác giả, Tên sách, Số trang, Năm xb, Số lượng, Giá tiền
Các Thành Phần Dữ Liệu
+ TACGIA : Mỗi thực thể tượng trưng cho một tác giả. Các thuộc tính : Mã tác giả, Tên tác giả
+ KHOAHOC : Mỗi thực thể tượng trưng cho một khóa học. Các thuộc tính : Mã khóa học, Tên khóa học
+ NXB : Mỗi thực thể tượng trưng cho một NXB. Các thuộc tính : Mã nxb, Tên NXB, Địa chỉ, Điện thoại
Sơ đồ quan hệ
Sơ đồ table database
Sơ đồ Query database
Query Nhập Sách
Query sách chưa trả
Các Chức Năng xử lý
A. Giới Thiệu Chương Trình và Đăng nhập hệ thống
Form đăng ký người dùng mới
Đoạn code cho phép đăng nhập vào giao diện của chương trình
Private Sub cmdlog_Click()
If txtTaiKhoan = "" & txtMatKhau = "" Then `// Neu chua nhap mat khau
MsgBox "Vui long nhap tai khoan cua ban !", 48, "Chu y"
txtTaiKhoan.SetFocus
Exit Sub `// Thoat khoi khoi lenh
End If
rs.MoveFirst
rs.FindFirst "User=`" & txtTaiKhoan & "` and Pass=`" & txtMatKhau & "`"
If Not rs.NoMatch Then
If rs!Quyen = "Khach" Then
MsgBox "Ban khong duoc phep truy cap co so du lieu vi quyen cua ban chi la: " & Chr(34) & "Khach" & Chr(34), 48, "Chu y"
Exit Sub
End If
DoCmd.Close
MsgBox "chao mung ban den voi chuong trinh quan ly thu vien", vbExclamation + vbOKOnly, "chao"
DoCmd.OpenForm "Main", acNormal
Exit Sub
Else
MsgBox "Xin loi !" & vbCr & "Tai khoan hoac mat khau ban vua nhap co the sai hoac khong ton tai.", vbCritical, "Thong bao"
txtTaiKhoan.SetFocus
txtTaiKhoan = ""
txtMatKhau.SetFocus
txtMatKhau = ""
txtTaiKhoan.SetFocus
End If
End Sub
B. Giao Diện
Nhằm giúp bạn có thể lựa chọn các chức năng trong chương trình mà bạn muốn xem như sau:
Quản lý chung
Quản lý sách mượn
Tìm kiếm
1. Quản lý chung
Khi bạn chọn vào nút Quản lý chung thì chương trình sẽ hiển thị ra bảng để bạn lựa chọn, bạn có thể thêm, lưu, xóa và thoát chương trình. Gồm những chức năng sau:
Quản lý độc giả
Quản lý danh muc
Quản lý khoa hoc
Quản lý Nha Xuat Ban
Quản lý danh muc
Quản lý nhap phieu muon
Các đoạn code trong chương trình
Private Sub Command14_Click()
On Error GoTo Err_Command14_Click
DoCmd.GoToRecord , , acFirst
Exit_Command14_Click:
MsgBox " ban dang o dong dau!"
Exit Sub
Err_Command14_Click:
MsgBox Err.Description
Resume Exit_Command14_Click
End Sub
Private Sub Command15_Click()
On Error GoTo Err_Command15_Click
DoCmd.GoToRecord , , acLast
Exit_Command15_Click:
MsgBox "ban dang o dong cuoi!"
Exit Sub
Err_Command15_Click:
MsgBox Err.Description
Resume Exit_Command15_Click
End Sub
Các đoạn code trong chương trình
Private Sub Command6_Click()
On Error GoTo Err_Command6_Click
If Command6.Enabled = True Then
Command13.Enabled = True
Command14.Enabled = True
Command7.Enabled = True
Command9.Enabled = True
Command11.Enabled = True
Command15.Enabled = True
Command12.Enabled = True
Command21.Enabled = True
End If
DoCmd.RunCommand acCmdSaveRecord
Exit_Command6_Click:
Exit Sub
Err_Command6_Click:
MsgBox Err.Description
Resume Exit_Command6_Click
End Sub
Private Sub Command7_Click()
On Error GoTo Err_Command7_Click
DoCmd.RunCommand acCmdDeleteRecord
Exit_Command7_Click:
Exit Sub
Err_Command7_Click:
MsgBox Err.Description
Resume Exit_Command7_Click
End Sub
Private Sub Command9_Click()
On Error GoTo Err_Command9_Click
DoCmd.GoToRecord , , acNext
Exit_Command9_Click:
Exit Sub
Err_Command9_Click:
`MsgBox Err.Description
MsgBox "ban khong the di chuyen tiep"
Resume Exit_Command9_Click
End Sub
Private Sub Command11_Click()
On Error GoTo Err_Command11_Click
DoCmd.Close
Exit_Command11_Click:
Exit Sub
Err_Command11_Click:
MsgBox Err.Description
Resume Exit_Command11_Click
End Sub
Private Sub Command12_Click()
On Error GoTo Err_Command12_Click
DoCmd.GoToRecord , , acPrevious
Exit_Command12_Click:
Exit Sub
Err_Command12_Click:
`MsgBox Err.Description
MsgBox "ban khong the di chuyen tiep"
Resume Exit_Command12_Click
End Sub
Private Sub Command13_Click()
On Error GoTo Err_Command13_Click
If Command13.Enabled = True Then
Command14.Enabled = False
Command6.Enabled = True
Command7.Enabled = False
Command12.Enabled = False
Command9.Enabled = False
Command15.Enabled = False
Command21.Enabled = False
End If
DoCmd.GoToRecord , , acNewRec
Exit_Command13_Click:
Exit Sub
Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click
End Sub
Lớp Tin Học K34
Báo Cáo Đề Tài
Quản Lý Thư Viện
Thực hiện:
Lê Trương Thanh Tâm
Nguyễn Văn Út
Năm học: 2011 - 2012
GIỚI THIỆU
1. Mục đích chọn đề tài:
Chúng tôi nghiên cứu chương trình này nhằm thiết kế một chương trình để quản lý hoạt động của thư viện như: quản lý sách, quản lý độc giả, quản lý việc mượn trả sách của thư viện,… và hàng loạt các xử lý khác một cách hiệu quả và nhanh chóng.
GIỚI THIỆU
2. Chức năng của chương trình:
Gồm các chức năng sau:
Quản lý việc nhập sách mới vào kho, số lượng sách trong kho, số lượng sách đang mượn, tình trạng các đầu sách….với các thông tin về đầu sách như: mã sách, tựa sách, số lượng, năm xuất bản,…
Quản lý việc đăng ký của độc giả với các thông tin như: địa chỉ, nghề nghiệp, điện thoại, việc gia hạn thẻ của độc giả,…
Quản lý mượn trả sách của độc giả như: lập phiếu mượn, cập nhật trả sách,…
GIỚI THIỆU
2. Chức năng của chương trình:
Gồm các chức năng sau:
Tìm và xem dữ liệu theo yêu cầu nhanh chóng như: thông tin về độc giả, thông tin về sách, tình trạng các vị trí lưu trữ trong kho, tình trạng của sách,..
Lập các thống kê về sách và độc giả như:
- Danh sách độc giả trả trễ, độc giả chưa mượn sách lần nào, độc giả mượn sách nhiều nhất,…
- Những sách được mượn nhiều nhất, sách chưa được mượn lần nào, những tháng có độc giả mượn sách, tháng không có độc giả mượn sách,…
GIỚI THIỆU
2. Chức năng của chương trình:
Gồm các chức năng sau:
Báo cáo về tình hình sách trong kho, sách mới nhập trong khoảng thời gian cụ thể, những độc giả trả sách trễ, tiền phạt sách trả trễ của độc giả,vị trí lưu trữ sách trongkho,…
In báo cáo về sách và độc giả khi có yêu cầu.
GIỚI THIỆU
3. Phương pháp thực hiện:
Chương trình được thực hiện bằng phần mềm Microsoft Access trên cơ sở:
Điều tra thu thập dữ liệu tại thư viện trường Cao Đẳng Sư Phạm Long An.
- Phân tích thiết kế hệ thống và xây dựng cơ sở dữ liệu.
4. Phạm vi ứng dụng:
Chương trình có thể áp dụng tại các thư viện trong các trường học hoặc các thư viện công cộng.
GIỚI THIỆU
5. Ý nghĩa:
Ứng dụng tin học trong công tác quản lý giúp cho công việc lưu trữ và cung cấp sách độc giả mượn được nhanh chóng và hiệu quả.
2.Sơ đồ tổ chức.
BGH
Thư Viện Sách
Phòng phục vụ
bạn đọc
Phòng tra
cứu mục lục
Phòng
mượn
Kho bảo quản
Phòng Tài vụ
Thông tin người đọc
Thông tin về sách
3.Sơ đồ môi trường.
1.Ban giám hiệu yêu cầu thống kê về tình hình sách trong kho, sách đang được mượn, sách đã thanh lý…Kết quả trả về cho ban giám hiệu.
2.Độc giả đăng ký mượn sách ở thư viện, hoặc vào thư viện đọc sách.
3.Nhân viên thư viện làm thẻ cho độc giả, lưu giữ thông tin cá nhân của độc giả, quản lý việc mượn và trả sách của độc giả.
5.Nhân viên thư viện quản lý sách của thư viện như: nhập sách mới, thống kê, báo cáo tình hình sách,…
Chương trình quản lý sách và độc giả
Nhân Viên Thư Viện
Độc giả
BGH
4.Sơ đồ chức năng.
QUẢN LÝ THƯ VIỆN
Quản lý sách
Quản lý mượn trả
Quản lý độc giả
Danh sách trễ hạn
Nhập mới
Tìm kiếm
Xóa sách
Nhập mới
Tìm kiếm
Xóa độc giả
Hiệu chỉnh
Hiệu chỉnh
Lập phiếu mượn
Cập nhật
Tìm độc giả
Thống kê
Thống kê
Thống kê sách mượn
Thống kê sách còn
Thống kê sách mới
In giấy báo trễ hạn
Báo cáo
5.Sơ đồ dòng dữ liệu.
Chú thích:
: Kho dữ liệu
: Chức năng xử lý
: Tác nhân ngoài
: Tác nhân trong
Sơ đồ dòng dữ liệu của chương trình được phân tích theo từng chức năng riêng.
5.Sơ đồ dòng dữ liệu.
b).Sơ đồ quản lý độc giả:
5 2
3 7 6
5 2 1 7 6
2 8
8
2
Tìm ki?m
D?c gi?
Xĩa
Nh?p
Li?t k
Qu?n l Sch
Hi?u ch?nh
D?c gi?
5.Sơ đồ luồng dữ liệu.
c).So d? qu?n l mu?n tr? sch :
1
2 5
5
1 2 3 2
2 5
4 2 4 2
1. Yêu cầu tạo phiếu mượn sách.
2. Kết quả.
3. Lấy thông tin về phiếu mượn sách và tạo thông tin vào bảng phiếu mượn.
4. Yêu cầu tìm kiếm.
5. Yêu cầu hiệu chỉnh.
6. Nội dung sau khi hiệu chỉnh.
5.Sơ đồ dò ng dữ liệu.
d).Sơ đồ thống kê:
2
1
1 2
1 2
3
2
3 2
4 2 4
2
Li?t k sch
Cho mu?n
Nhn Vin Thu Vi?n
Li?t k
D?c gi?
Phi?u mu?n
Kho Sch
e).Tổng quát :
1 4
11 7 11 7
2 6 6 2 2 8 8 2
2 6 8 2
8
2
2 6 1
8
6 3 2
2 10
9
11 7
7 11
11 7
1 2 5 7 11 2 6 2
2 6
Th? Thu Vi?n
Độc giả
Hi?u ch?nh
Tìm ki?m
Kho sch
Quản lý Sách
Nh?p
Xĩa
Th?ng k
Qu?n l sch
Nh?p
Tìm ki?m
Hi?u Ch?nh
Li?t k
Cho mu?n
T?o phi?u
Tìm ki?m
Các Thành Phần Dữ Liệu
+ DOCGIA : Mỗi thực thể tượng trưng cho một đọc giả trong quy trình mượn trả sách ở thư viện. Các thuộc tính :Mã độc giả, Tên độc giả, Mã khoa học, Lớp, Ngày sinh, Nơi sinh
+ DANHMUC : Mỗi thực thể tượng trưng cho một loại sách, các thuộc tính : Mã danh mục, Tên danh mục
+ PHIEUMUON : Mỗi thực thể đặc trưng cho một phiếu mượn. Các thuộc tính : Mã phiếu mượn, Mã độc giả, Mã sách, Ngày mượn, Ngày trả, Đã trả
+ SACH : Mỗi thực thể tượng trưng cho một cuốn sách. Các thuộc tính : Mã sách, Mã danh mục, Mã nxb, Mã tác giả, Tên sách, Số trang, Năm xb, Số lượng, Giá tiền
Các Thành Phần Dữ Liệu
+ TACGIA : Mỗi thực thể tượng trưng cho một tác giả. Các thuộc tính : Mã tác giả, Tên tác giả
+ KHOAHOC : Mỗi thực thể tượng trưng cho một khóa học. Các thuộc tính : Mã khóa học, Tên khóa học
+ NXB : Mỗi thực thể tượng trưng cho một NXB. Các thuộc tính : Mã nxb, Tên NXB, Địa chỉ, Điện thoại
Sơ đồ quan hệ
Sơ đồ table database
Sơ đồ Query database
Query Nhập Sách
Query sách chưa trả
Các Chức Năng xử lý
A. Giới Thiệu Chương Trình và Đăng nhập hệ thống
Form đăng ký người dùng mới
Đoạn code cho phép đăng nhập vào giao diện của chương trình
Private Sub cmdlog_Click()
If txtTaiKhoan = "" & txtMatKhau = "" Then `// Neu chua nhap mat khau
MsgBox "Vui long nhap tai khoan cua ban !", 48, "Chu y"
txtTaiKhoan.SetFocus
Exit Sub `// Thoat khoi khoi lenh
End If
rs.MoveFirst
rs.FindFirst "User=`" & txtTaiKhoan & "` and Pass=`" & txtMatKhau & "`"
If Not rs.NoMatch Then
If rs!Quyen = "Khach" Then
MsgBox "Ban khong duoc phep truy cap co so du lieu vi quyen cua ban chi la: " & Chr(34) & "Khach" & Chr(34), 48, "Chu y"
Exit Sub
End If
DoCmd.Close
MsgBox "chao mung ban den voi chuong trinh quan ly thu vien", vbExclamation + vbOKOnly, "chao"
DoCmd.OpenForm "Main", acNormal
Exit Sub
Else
MsgBox "Xin loi !" & vbCr & "Tai khoan hoac mat khau ban vua nhap co the sai hoac khong ton tai.", vbCritical, "Thong bao"
txtTaiKhoan.SetFocus
txtTaiKhoan = ""
txtMatKhau.SetFocus
txtMatKhau = ""
txtTaiKhoan.SetFocus
End If
End Sub
B. Giao Diện
Nhằm giúp bạn có thể lựa chọn các chức năng trong chương trình mà bạn muốn xem như sau:
Quản lý chung
Quản lý sách mượn
Tìm kiếm
1. Quản lý chung
Khi bạn chọn vào nút Quản lý chung thì chương trình sẽ hiển thị ra bảng để bạn lựa chọn, bạn có thể thêm, lưu, xóa và thoát chương trình. Gồm những chức năng sau:
Quản lý độc giả
Quản lý danh muc
Quản lý khoa hoc
Quản lý Nha Xuat Ban
Quản lý danh muc
Quản lý nhap phieu muon
Các đoạn code trong chương trình
Private Sub Command14_Click()
On Error GoTo Err_Command14_Click
DoCmd.GoToRecord , , acFirst
Exit_Command14_Click:
MsgBox " ban dang o dong dau!"
Exit Sub
Err_Command14_Click:
MsgBox Err.Description
Resume Exit_Command14_Click
End Sub
Private Sub Command15_Click()
On Error GoTo Err_Command15_Click
DoCmd.GoToRecord , , acLast
Exit_Command15_Click:
MsgBox "ban dang o dong cuoi!"
Exit Sub
Err_Command15_Click:
MsgBox Err.Description
Resume Exit_Command15_Click
End Sub
Các đoạn code trong chương trình
Private Sub Command6_Click()
On Error GoTo Err_Command6_Click
If Command6.Enabled = True Then
Command13.Enabled = True
Command14.Enabled = True
Command7.Enabled = True
Command9.Enabled = True
Command11.Enabled = True
Command15.Enabled = True
Command12.Enabled = True
Command21.Enabled = True
End If
DoCmd.RunCommand acCmdSaveRecord
Exit_Command6_Click:
Exit Sub
Err_Command6_Click:
MsgBox Err.Description
Resume Exit_Command6_Click
End Sub
Private Sub Command7_Click()
On Error GoTo Err_Command7_Click
DoCmd.RunCommand acCmdDeleteRecord
Exit_Command7_Click:
Exit Sub
Err_Command7_Click:
MsgBox Err.Description
Resume Exit_Command7_Click
End Sub
Private Sub Command9_Click()
On Error GoTo Err_Command9_Click
DoCmd.GoToRecord , , acNext
Exit_Command9_Click:
Exit Sub
Err_Command9_Click:
`MsgBox Err.Description
MsgBox "ban khong the di chuyen tiep"
Resume Exit_Command9_Click
End Sub
Private Sub Command11_Click()
On Error GoTo Err_Command11_Click
DoCmd.Close
Exit_Command11_Click:
Exit Sub
Err_Command11_Click:
MsgBox Err.Description
Resume Exit_Command11_Click
End Sub
Private Sub Command12_Click()
On Error GoTo Err_Command12_Click
DoCmd.GoToRecord , , acPrevious
Exit_Command12_Click:
Exit Sub
Err_Command12_Click:
`MsgBox Err.Description
MsgBox "ban khong the di chuyen tiep"
Resume Exit_Command12_Click
End Sub
Private Sub Command13_Click()
On Error GoTo Err_Command13_Click
If Command13.Enabled = True Then
Command14.Enabled = False
Command6.Enabled = True
Command7.Enabled = False
Command12.Enabled = False
Command9.Enabled = False
Command15.Enabled = False
Command21.Enabled = False
End If
DoCmd.GoToRecord , , acNewRec
Exit_Command13_Click:
Exit Sub
Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click
End Sub
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Nguyễn Văn Út
Dung lượng: |
Lượt tài: 1
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)