Bài thuyết trình Báo cáo Đề tài: Quản lý thư viện - Lê Trương Thanh Tâm

Trường Cao Đẳng Sư Phạm Long AnLớp Tin Học K34Báo Cáo Đề TàiQuản Lý Thư ViệnThực hiện: Lê Trương Thanh Tâm Nguyễn Văn Út Năm học: 2011 - 2012GIỚI THIỆU1. 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ỆU2. 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ỆU2. 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ỆU2. 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ỆU3. 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ỆU5. Ý 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. BGHThư Viện SáchPhòng phục vụ bạn đọc Phòng tracứu mục lụcPhòng mượnKho bảo quảnPhòng Tài vụThông tin người đọcThô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ỆNQuản lý sáchQuản lý mượn trảQuản lý độc giảDanh sách trễ hạnNhập mớiTìm kiếmXóa sáchNhập mớiTìm kiếmXóa độc giảHiệu chỉnhHiệu chỉnhLập phiếu mượnCập nhật Tìm độc giả Thống kêThống kêThống kê sách mượnThống kê sách cònThống kê sách mớiIn giấy báo trễ hạnBá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 trongSơ đồ 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 Độc giảXóaNhậpLiệt kê Quản lý SáchHiệu chỉnhĐộc giả 5.Sơ đồ luồng dữ liệu.c).Sơ đồ quản lý mượn trả sách :	 	 1	 	 2 5	 	 	 5	 	 1 2 3	 2	 	 	 2 5	 	 	 4 2	 4 2	 	 	 	 Hiệu Chỉnh Phiếu MượnTìm kiếmCho mượnCho MượnTạo phiếuĐộc giảĐộc giả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ê sáchCho mượnNhân Viên Thư ViệnLiệt kêĐộc giảPhiếu mượnKho Sáche).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 	 6Thẻ Thư ViệnĐộc giảHiệu chỉnhTìm kiếm Kho sáchQuản lý SáchNhậpXóaThống kêQuản lý sáchNhậpTìm kiếm Hiệu ChỉnhLiệt kêCho mượnTạo phiếu Tìm kiếm Nhân viên Thư ViệnNhân viên Thư ViệnCá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 databaseQuery Nhập SáchQuery 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ốngForm đă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 IfEnd SubB. 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ý chungQuản lý sách mượnTìm kiếm1. 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 mucQuản lý khoa hocQuản lý Nha Xuat BanQuản lý danh mucQuản lý nhap phieu muonCác đoạn code trong chương trìnhPrivate Sub Command14_Click()	On Error GoTo Err_Command14_Click	DoCmd.GoToRecord , , acFirstExit_Command14_Click:	MsgBox " ban dang o dong dau!"Exit SubErr_Command14_Click: 	 MsgBox Err.Description Resume Exit_Command14_ClickEnd Sub	Private Sub Command15_Click()On Error GoTo Err_Command15_Click DoCmd.GoToRecord , , acLastExit_Command15_Click: MsgBox "ban dang o dong cuoi!" Exit SubErr_Command15_Click: MsgBox Err.Description Resume Exit_Command15_ClickEnd SubCác đoạn code trong chương trìnhPrivate Sub Command6_Click()On Error GoTo Err_Command6_ClickIf 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 acCmdSaveRecordExit_Command6_Click: Exit SubErr_Command6_Click: MsgBox Err.Description Resume Exit_Command6_Click End SubPrivate Sub Command7_Click()On Error GoTo Err_Command7_Click DoCmd.RunCommand acCmdDeleteRecordExit_Command7_Click: Exit SubErr_Command7_Click: MsgBox Err.Description Resume Exit_Command7_Click End SubPrivate Sub Command9_Click()On Error GoTo Err_Command9_Click DoCmd.GoToRecord , , acNextExit_Command9_Click: Exit SubErr_Command9_Click: 'MsgBox Err.Description MsgBox "ban khong the di chuyen tiep" Resume Exit_Command9_ClickEnd SubPrivate Sub Command11_Click()On Error GoTo Err_Command11_Click DoCmd.CloseExit_Command11_Click: Exit SubErr_Command11_Click: MsgBox Err.Description Resume Exit_Command11_Click End SubPrivate Sub Command12_Click()On Error GoTo Err_Command12_Click DoCmd.GoToRecord , , acPreviousExit_Command12_Click: Exit SubErr_Command12_Click: 'MsgBox Err.Description MsgBox "ban khong the di chuyen tiep" Resume Exit_Command12_Click End SubPrivate Sub Command13_Click()On Error GoTo Err_Command13_ClickIf 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 SubErr_Command13_Click: MsgBox Err.Description Resume Exit_Command13_Click End Sub