lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện
I. KHẢO SÁT, PHÂN TÍCH YÊU CẦU BÀI TOÁN
I.1 Tình hình thực tế
Hiện nay, trên thế giới cũng như ở Việt Nam công nghệ thông tin ã trở thành công nghệ mũi
nhọn, nó là ngành khoa học kỹ thuật không thể thiếu trong việc áp dụng vào các tổ chức, các
hoạt ộng xã hội như: quản lý hệ thống thư viện sách, kinh tế, thông tin, kinh doanh, và mọi hoạt
ộng trong lĩnh vực nghiên cứu…
Ở nước ta hiện nay, việc áp dụng vi tính hóa trong quản lý tại các cơ quan, xí nghiệp, tổ
chức ang rất phổ biến và trở nên cấp thiết, bởi ngành nghề nào cũng òi hỏi con người phải xử
lý khối lượng công việc khổng lồ, và những kiến thức, những suy nghĩ, những ào tạo chuyên
sâu. Một vấn ề cấp thiết ặt ra trong quản lý là làm thế nào ể chuẩn hóa cách xử lý dữ liệu ở
những trường học lớn mà trong ó việc quản lý một hệ thống thư viện với hàng ngàn ầu sách và
quản lý việc mượn – trả sách của hàng ngàn sinh viên là vô cùng phức tạp, chính vì thế nhóm
chúng tôi chọn ề tài “Phân tích thiết kế hệ thống quản lí thư viện sách”.
I.2 Phân tích yêu cầu
I.2.1 Yêu cầu của người sử dụng
Mỗi ộc giả chỉ ược mượn một số sách nhất ịnh trong một khoảng thời gian nhất ịnh. Khi ộc
giả cần tra cứu tài liệu thì òi hỏi:
- Việc truy cập dữ liệu phải ược thực hiện một cách nhanh chóng, chính xác. Các thao tác phải
thuận lợi, ơn giản, dễ bảo trì, có thể iều chỉnh, có tính mở, có khả năng kiểm tra tính úng ắn
của dữ liệu, phát hiện và xử lý lỗi, hệ thống phải có khả năng lưu trữ.
- Giao diện giữa người dùng và máy phải ược thiết kế khoa học, thân thiện, ẹp, gọn và có tính
thống nhất về phương pháp làm việc, cách trình bày.
- Hệ thống có khả năng trợ giúp, giải áp thắc mắc của người dùng khi sử dụng. Như vậy hệ
thống không chỉ áp ứng cho người dùng thông thạo về tin học mà còn áp ứng ược với những
người dùng ít hiểu biết về tin học. LỚP IKTV 4- NHÓM 5 1 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện
- Hệ thống phải có khả năng thực hiện chế ộ hội thoại ở mức ộ nào ó nhằm cung cấp nhanh và
chuẩn xác các yêu cầu bất thường của nhà quản lý, ảm bảo nhanh cho người dùng khai thác
tối a các chức năng mà hệ thống cung cấp. I.2.2 Yêu cầu của người quản lý:
- Giúp ộc giả tiện lợi và tự tin hơn trong việc tìm kiếm, tra cứu với nhiều chức năng bổ sung.
- Đảm bảo việc tìm kiếm là chính xác và ầy ủ, ộc giả không sợ bị tìm sót một tài liệu nào ó.
- Việc mượn trả tài liệu trở nên dễ dàng hơn, bỏ bớt ược các khâu viết phiếu, tra cứu thủ công
chậm chạp như trước kia .
- Giúp tiết kiệm ược nhiều thời gian hơn cho cả ộc giả và người quản lý trong các hoạt ộng mang tính thủ tục.
- Nâng cao trình ộ tin học của cán bộ quản lý cũng như ộc giả, giúp ộc giả làm quen với qui
trình mượn tài liệu từ các thư viện trên thế giới.
- Giúp ộc giả có thể mượn ược nhiều tài liệu với nội dung phong phú hơn, do có thư viện liên kết.
- Giúp ộc giả xây dựng thói quen chủ ộng khi tìm kiếm tư liệu.
- Giúp người ọc chủ ộng hơn thông qua hệ thống tự ánh giá, bầu chọn của ộc giả. Người ọc có
thể trực tiếp tham gia vào việc ánh giá nội dung của tài liệu.
- Việc quản lý quá trình mượn trả sách trở nên dễ dàng hơn, người quản lý chỉ cần sử dụng một
máy tính có kết nối vào cơ sở dữ liệu là có thể lấy ra các thông tin cần thiết. Ngoài ra cũng có
thể thực hiện các hoạt ộng iều tra về nhu cầu, ý kiến ộc giả một cách tiện lợi hơn. Từ ó nắm
bắt ược xu hướng chung của ộc giả, nâng cao hiệu quả của thư viện.
- Từ các tiện lợi trên, ộc giả (chủ yếu là sinh viên và cán bộ giáo viên) sẽ xây dựng ược thói
quen sử dụng thư viện, cảm thấy thích thú với sử dụng thư viện, do ó nâng cao ược trình ộ
chuyên môn, năng lực nghiên cứu nói chung.
I.3 Sơ ồ phân cấp chức năng LỚP IKTV 4- NHÓM 5 2 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện QL Thư Việ n QL Mượ n/Tr ả QL tài li ệ u QL Độ c gi ả Th ể lo ạ i Đọ c t ạ i ch ỗ Mã độ c gi ả Man NXB Tên g v ề Tác gi ả Ngh ề nghi ệ p S ố lư ợ ng Thêm Th ờ i gian Xoá Mô tả chức năng
- Quản lý mượn- trả: hệ thống cho phép quản lý việc mượn trả sách của ộc giả, việc ộc giả
mang sách về hay ọc tại chỗ, thời gian ộc giả sẽ trả sách.
- Quản lý tài liệu: hệ thống cho phép quản lý toàn bộ thông tin của tất cả sách của thư viện, cho
phép thêm, xóa, thay ổi thông tin của sách.
- Quản lý ộc giả: hệ thống cho phép quản lý thông tin cá nhân của từng ộc giả, thêm, xóa, sửa thông tin của ộc giả.
II. PHÂN TÍCH VÀ THIẾT KẾ
II.1 Xây dựng mô hình Use Case
II.1.1 Xác ịnh tác nhân và vai trò của tác nhân -
Với bài toán quản lý thư viện, các chức năng chính của hệ thống quản lý thư viện
ược thực hiện bởi thủ thư và bạn ọc của thư viện ó. Như vậy, chúng ta có hai tác nhân là thủ thư
và bạn ọc, trong ó bạn ọc không phân biệt là sinh viên, học sinh hay giáo viên. -
Tác nhân bạn ọc, anh ta cần các chức năng liên quan ến tìm kiếm tài liệu, xem thông
tin cá nhân, ăng ký mượn và trả sách. -
Còn tác nhân thủ thư sẽ thực hiện cập nhật các thông tin liên quan ến bạn ọc và các
thông tin về tài liệu, thực hiện các giao dịch mượn và trả sách. Dựa vào ó, ta ã xác ịnh ược một LỚP IKTV 4- NHÓM 5 3 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện
số use case như: tìm kiếm tài liệu, cập nhật, cập nhật bạn ọc, cập nhật tài liệu, quản lý mượn
sách, quản lý trả sách,xem thông tin cá nhân. -
Để cập nhật ược thông tin, thủ thư phải thông qua việc ăng nhập hệ thống. Hay nói
cách khác, sự kiện ăng nhập hệ thống sẽ là iều kiện cho use case cập nhật. Vậy ta sẽ cần thêm
use case cập nhật ể cập nhật hệ thống. II.1.2 Mô hình Use Case tổng quát
Hệ thống quản lý thư viện của trường ại học bao gồm các ối tượng là ộc giả, thủ thư và sách tạp chí.
Chức năng chính của hệ thống là cập nhật sách,ộc giả và xử lý mượn trả.
Các ối tượng dữ liệu quản lý: Sách, ộc giả và mượn trả.
Việc phân tích và thiêt kế hệ thống quản lý khá ơn giản nên áp dụng phân tích thiết kế
hướng cấu trúc là phù hợp.
Dựa trên yêu cầu của ề bài, biểu ồ use case tổng quát sẽ ược xây dựng như sau:
II.1.3 Mô hình Use Case chi tiết
Phân rã các use case mức cao: người phát triển tiến hành phân rã các use case tổng quát
thành các use case cụ thể hơn sử dụng quan hệ “extend”. Các use case con (mức thấp) ược lựa
chọn bằng cách thêm vào use case cha một chức năng cụ thể nào ó và thường ược mở rộng dựa
trên cơ sở sự chuyển tiếp và phân rã các chức năng của hệ thống.
Use case cập nhật sẽ ược phân rã thành cập nhật bạn ọc và cập nhật tài liệu. LỚP IKTV 4- NHÓM 5 4 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện
Tiếp tục phân rã sơ ồ use case cho ến khi gặp use case ở nút lá: Use case cập nhật bạn
ọc và cập nhật tài liệu ều có thể tiếp tục phân rã thành các use case con là thêm bạn ọc, thay ổi
thông tin bạn ọc và xóa bạn ọc hay thêm tài liệu, thay ổi thông tin tài liệu và xóa tài liệu. Các
use case này ã là nút lá vì nó biểu diễn một chức năng cụ thể của hệ thống trong ó có tương tác
giữa tác nhân thủ thư và hệ thống LỚP IKTV 4- NHÓM 5 5 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện
Phân rã use case Quản lý mượn trả sách
Use case quản lý mượn – trả sách ược thực hiện bởi thủ thư và có thể ược phân rã thành hai
use case nhỏ là Quản lý mượn và Quản lý trả
II.2 Thiết kế cơ sở dữ liệu A.
Xác ịnh các thực thể 1.
Thực thể tblTAILIEU: ✓
Chứa tác thông tin chi tiết về tài liệu trong thự viện. LỚP IKTV 4- NHÓM 5 6 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện ✓
Các thuộc tính:Matailieu, Tentailieu. 2.
Thực thể tblTACGIA: ✓
Chứa thông tin về tác giả ✓
Các thuộc tính: THELOAI, HOTEN, NamSinh 3. Thực thể tblSACH: ✓
Chứa thông tin về nhà xuất bản sách. ✓
Các thuộc tính:MA SACH, MASOSACH, TENSACH, TACGIA,NHAXB,
NAMXB, LANXB, KEMTHEO, KHOGIAY, SOTRANG……. 4.
Thực thể tblMuon-Tra: ✓
Chứa các thông tin cá nhân của ộc giả về việc mượn-trả. ✓
Các thuộc tính: MASACH, MABD, NGAYMUON, NGAYTRA, GHICHU. 5.
Thực thể tblBANDOC: ✓
Dùng ghi nhận các thông tincủa ộc giả. ✓
Các thuộc tính: MABD, HOTEN, NGAYSINH, GIOITINH, DIACHI, NGAYLAMTHE...
B. Mô tả thực thể
1. Thực thể tblTaiLieu (Tài liệu) Tên thuộc tính Diễn giải Kiểu dữ
Miền giá Loại dữ liệu trị liệu Matailieu Mã tài liệu Text 10 kí tự B Tentailieu Tên tài liệu Text 255 kí tự B
2. Thực thể tblTacGia (Tác giả) Tên thuộc tính Diễn giải Kiểu dữ
Miền giá Loại dữ liệu trị liệu THELOAI Thể loại Text 10 kí tự B HOTEN Họ tên tác giả Text 255 kí tự B Namsinh Năm sinh Date/Time
3. Thực thể tblSACH (Sách) Tên thuộc tính Diễn giải Kiểu dữ
Miền giá Loại dữ liệu trị liệu LỚP IKTV 4- NHÓM 5 7 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện MASACH Mã sách Text 10 kí tự B TENSACH Tên sách Text 255 kí tự B NHAXB Nhà xuất bản Text 255 kí tự B NAMXB Năm xuất bản Number Integer B LANXB Lần xuất bản Text 255 kí tự B KEMTHEO Kèm theo CD Text 255 kí tự B KHOGIAY Khổ giấy Text 255 kí tự B SOTRANG Số trang Text 255 kí tự B
4. Thực thể tblMUON-TRA (Mượn-trả) Tên thuộc tính Diễn giải Kiểu dữ
Miền giá Loại dữ liệu trị liệu MASACH Mã số sách Text 10 kí tự B MABD Mã bạn ọc Text 10 nkí tự B NGAYMUON Ngày mượn Date 255 kí tự B NGAYTRA Ngày trả Date 255 kí tự B GHICHU Chú thích thêm Text 255 kí tự B
5. Thực thể tblBANDOC (bạn ọc) Tên thuộc tính Diễn giải Kiểu dữ
Miền giá Loại dữ liệu trị liệu MABD Mã bạn ọc Text 255 kí tự B HOTEN Họ tên Text 255 kí tự B NGAYSINH Ngày sinh Date B GIOITINH Giới tính Yes/no B DIACHI Địa chỉ Text 255 kí tự B NGAYLAMTHE Ngày làm thẻ Date B
NGAYHETHANTHE Ngày hết hạn thẻ Date B
6. Thực thể tbladmin Tên thuộc tính Diễn giải Kiểu dữ
Miền giá Loại dữ liệu trị liệu LỚP IKTV 4- NHÓM 5 8 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện USER
Tên người dùng ăng nhập Text 255 kí tự B PASSWORD Mật khẩu Text 20 nkí tự B HOTEN Họ tên Text 255 kí tự B
CAUHOIBIMAT Câu hỏi bí mật Text 255 kí tự K TRALOI
Trả lời câu hỏi bí mật Text 255 kí tự K EMAIL Hộp thư iện tử Text 255 kí tự B Ghi chú: Loại dữ liệu: ✓ B: Bắt buộc
✓ K: Không bắt buộc Các ràng buộc dữ liệu 1. tblTAILIEU:
- MATAILIEU: Không ể trống, không trùng và không có khoảng trắng.
- TENTAILIEU: Không ể trống. 2. tblTACGIA:
- THELOAI: Không ể trống, không trùng và không có khoảng trắng. - HOTEN: Không ể trống.
- NAMSINH: <3. tblSACH:
- MASACH: Không ể trống, không trùng và không có khoảng trắng - TENSACH: Không ể
trống, không trùng và không có khoảng trắng - TACGIA: Không ể trống. - CHUDE: Không ể trống.
- NAMXB:<= Năm hiện hành. - NHAXB: Không ể trống. - LANXB: Không ể trống. 4. tblMUON-TRA:
- MASACH: Phải tồn tại trong thực thể tblSACH.
- MABD: Phải tồn tại trong thực thể tblBANDOC. LỚP IKTV 4- NHÓM 5 9 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện
- NGAYMUON: Ngày hiện hành.
- NGAYTRA:>= Ngày hiện hành. - GHICHU: Mang về-ọc tại thư viện 5. tblBANDOC:
- MABD: Không ể trống, không trùng và không có khoảng trắng.
- HOTEN: Không ược ể trống.
- NGAYSINH: << năm hiện hành. - GIOTINH: Yes=nam,No= nữ. - DIACHI: Không ể trống.
- NGAYLAMTHE: Ngày hiện hành. - NGAYHETHANTHE: >= Ngày hiện hành 6. tbladmin:
- USER: Không ể trống, không trùng, không khoản trắng, gồm 20 chữ số
- PASSWORD: Không ể trống, không khoảng trắng, gồm 20 chữ số
- HOTEN: Không ể trống, không trùng, không khoản trắng, gồm 255 chữ số - CAUHOIBIMAT: Theo mẫu - TRALOI: Theo mẫu
- EMAIL: Không ể trống, không khoảng trắng. LỚP IKTV 4- NHÓM 5 10 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện III XÂY DỰNG
III.1 Lựa chọn ngôn ngữ và CSDL
III.1.1 Lựa chọn ngôn ngữ
Microsoft Access là một hệ quản trị cơ sở dữ liệu, khai thác và quản trị cợ sở dữ liệu.
Trong hệ cơ sở dữ liệu có 3 khả năng chính: ịnh nghĩa dữ liệu, khai thác và quản trị dữ liệu.
Là một hệ quản trị cơ sở dữ liệu, các khả năng của Access ược mô tả:
- Lưu trữ dữ liệu trong cơ sở dữ liệu
- Cho phép người dung sử dụng ngôn ngữ hỏi áp SQL
- Có nhiều chức năng trong môi trường a người sử dụng thông qua mật khẩu, ồng thời có chức
năng gán quyền sử dụng cho mỗi cá nhân hay nhóm riêng biệt. Điều quan trọng nhất là nó ảm
bảo các ràng buộc tròn vẹn dữ liệu ngay cả khi ược phân tán trên mạng và cơ chế khác cho phép
nhất quán khi truy cập trong môi trường a người sử dụng.
Là một chương trình chạy trên nền windows nên giao diện rất quen thuộc, nhiều chức năng trợ
giúp thiết kế ơn giản, nhanh, ẹp…..
Cho phép chia sẽ hay kết nối dữ liệu giữa các ứng dụng khác nhau như Word, Excel hay phần
mềm liên kết nhúng ối tượng OLE.
Chương trình không òi hỏi cấu hình máy lớn, giá thành ầu tư ể có ược phần mềm khá phù hợp.
III.1.2 Cơ sở dữ liệu: - Fom login Option Compare Database Private Sub Form_Load() Call grong txtten.SetFocus tao.Enabled = True End Sub Private Sub lamlai_Click() Call grong txtten.SetFocus End Sub Private Sub tao_Click() LỚP IKTV 4- NHÓM 5 11 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện Dim DB As DAO.Database Dim rs As DAO.Recordset Set DB = CurrentDb Set rs = DB.OpenRecordset("tadmin")
rs.MoveFirst Do While (rs.EOF = False)
If (rs.Fields("user") = txtten.Value) Then MsgBox "Ten dang ky da co" Exit Sub End If rs.MoveNext Loop rs.AddNew
If (txtpass.Value = txtpass2.Value) Then
rs.Fields("user") = txtten.Value rs.Fields("pass")
= txtpass.Value rs.Fields("hoten") =
txthoten.Value rs.Fields("cauhoibimat") =
txtbimat.Value rs.Fields("traloi") =
txttraloi.Value rs.Fields("txtemail") =
txtemail.Value rs.Update rs.Close DB.Close
MsgBox "Da dang ky thanh cong!" Call grong Else
MsgBox "Ban khong the dang nhap. Kiem tra Ten dang nhap va Mat khau!",
vbInformation + vbOKOnly, "thongbao" End If End Sub Private Sub grong() txtten = Null txtpass = Null txtpass2 = Null txthoten = Null LỚP IKTV 4- NHÓM 5 12 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện txtbimat = Null txttraloi = Null txtemail = Null Exit Sub End Sub Private Sub THOAT_Click() DoCmd.Close DoCmd.OpenForm ("f_login") End Sub - Form BANDOC
Option Compare Database Private
Sub next_Click() vetruoc.Enabled = True
If CurrentRecord = RecordsetClone.RecordCount Then
MsgBox "Ban dang o mau tin cuoi !", vbOKOnly, "Thong bao" Else DoCmd.GoToRecord , , acNext End If End Sub Private Sub Form_Load() 'Call grong 'CONGMS.Enabled = True 'trums.Enabled = True HUY.Enabled = False End Sub Private Sub HUY_Click() 'Call grong DoCmd.RunCommand acCmdUndo DoCmd.CancelEvent 'CONGMS.Enabled = True
'trums.Enabled = True MASACH.SetFocus HUY.Enabled = False LỚP IKTV 4- NHÓM 5 13 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện End Sub Private Sub luu_Click()
DoCmd.RunCommand acCmdSaveRecord DoCmd.RunCommand acCmdRefresh
STT = DMax("STT", "tbl_bandoc") + 1 'CONGMS.Enabled = True 'CONGMS.SetFocus End Sub Private Sub them_Click() DoCmd.GoToRecord , , acNewRec 'CONGMS.SetFocus HUY.Enabled = True End Sub Private Sub THOAT_Click() DoCmd.Close 'DoCmd.OpenForm "f_main" End Sub Private Sub vetruoc_Click() If CurrentRecord = 1 Then
MsgBox "Ban dang o mau tin dau", vbOKOnly, "Thong bao" vetruoc.Enabled = False Else
DoCmd.GoToRecord , , acPrevious vetruoc.Enabled = True End If End Sub Private Sub xoa_Click()
If MsgBox("Ban co muon xoa khong ?", vbYesNo + vbQuestion, "Thong bao") = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord DoCmd.RunCommand acCmdRefresh HUY.Enabled = False LỚP IKTV 4- NHÓM 5 14 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện End If End Sub - Form MAIN Option Compare Database Private Sub cmbandoc_Click() DoCmd.OpenForm "f_bandoc" End Sub Private Sub cmmuontra_Click() DoCmd.OpenForm "f_muon_tra" End Sub Private Sub ICONSACH_Click() DoCmd.OpenForm ("f_sach") End Sub
Private Sub nhaptacgia_Click()
DoCmd.OpenForm "f_tailieu_tacgia" End Sub Private Sub timkiem_Click() DoCmd.OpenForm "f_timkiem" End Sub Private Sub THOAT_Click()
If MsgBox("Ban co that su muon thoat chuong trinh ?", vbOKCancel + vbInformation, "Thong bao") = vbOK Then DoCmd.Close End If End Sub - Form THONGTINSACH Option Compare Database Dim DB As Database Dim RC As Recordset Private Sub Ctl__Click()
MASACH = DMax("MASACH", "tbl_SACH") + 1 End Sub LỚP IKTV 4- NHÓM 5 15 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện Private Sub Form_Load() 'Call grong End Sub Private Sub luu_Click() Dim S As String Set DB = CurrentDb
Set RC = DB.OpenRecordset("tbl_SACH") If IsNull(MASACH) Then Call grong MASACH.SetFocus Exit Sub End If RC.AddNew
RC("MASACH") = Form![f_thongtinsach]![MASACH] RC.Update RC.Close Call grong ' End If End Sub Private Sub nhaplai_Click() Call grong End Sub
Private Sub THOAT_Click() DoCmd.Close DoCmd.OpenForm "f_main" End Sub Private Sub grong() 'MASACH = Null TENSACH = Null CHUDE = Null TACGIA = Null NHAXB = Null NAMXB = Null LỚP IKTV 4- NHÓM 5 16 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện LANXB = Null KHOGIAY = Null SOLUONG = Null GIA = Null SOTRANG = Null THELOAI = Null KEMTHEO = Null 'NGAYNHAP = Null MASACH.SetFocus End Sub - Form SACH
Option Compare Database Private
Sub next_Click() vetruoc.Enabled = True
If CurrentRecord = RecordsetClone.RecordCount Then
MsgBox "Ban dang o mau tin cuoi !", vbOKOnly, "Thong bao" Else DoCmd.GoToRecord , , acNext End If End Sub Private Sub Form_Load() 'Call grong 'CONGMS.Enabled = True 'trums.Enabled = True HUY.Enabled = False End Sub Private Sub HUY_Click() 'Call grong DoCmd.RunCommand acCmdUndo DoCmd.CancelEvent 'CONGMS.Enabled = True 'trums.Enabled = True MASACH.SetFocus LỚP IKTV 4- NHÓM 5 17 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện HUY.Enabled = False End Sub Private Sub luu_Click()
'MASOSACH = Right(MASOSACH, 4)
'MASOSACH = DMax(Right(MASOSACH, 4)) + 1
DoCmd.RunCommand acCmdSaveRecord DoCmd.RunCommand acCmdRefresh
STT = DMax("STT", "tbl_sach") + 1 'CONGMS.Enabled = True 'CONGMS.SetFocus End Sub Private Sub them_Click() DoCmd.GoToRecord , , acNewRec TENSACH.SetFocus
'MASOSACH = Right(MASOSACH, 4)
'MASOSACH = DMax(Right(MASOSACH, 4)) + 1 'CONGMS.SetFocus HUY.Enabled = True End Sub Private Sub THOAT_Click() DoCmd.Close DoCmd.OpenForm "f_main" End Sub Private Sub vetruoc_Click() If CurrentRecord = 1 Then
MsgBox "Ban dang o mau tin dau", vbOKOnly, "Thong bao" vetruoc.Enabled = False Else
DoCmd.GoToRecord , , acPrevious vetruoc.Enabled = True End If LỚP IKTV 4- NHÓM 5 18 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện End Sub Private Sub xoa_Click()
If MsgBox("Ban co muon xoa khong ?", vbYesNo + vbQuestion, "Thong bao") = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord End If End Sub - Form MUON-TRA
Option Compare Database Private
Sub next_Click() vetruoc.Enabled = True
If CurrentRecord = RecordsetClone.RecordCount Then
MsgBox "Ban dang o mau tin cuoi !", vbOKOnly, "Thong bao" Else DoCmd.GoToRecord , , acNext End If End Sub Private Sub Form_Load() HUY.Enabled = False End Sub Private Sub HUY_Click() DoCmd.RunCommand acCmdUndo
DoCmd.CancelEvent CONGMS.Enabled = True trums.Enabled = True MASACH.SetFocus HUY.Enabled = False End Sub Private Sub luu_Click()
DoCmd.RunCommand acCmdSaveRecord DoCmd.RunCommand acCmdRefresh
STT = DMax("STT", "tbl_MUON_TRA") + 1 LỚP IKTV 4- NHÓM 5 19 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện CONGMS.Enabled = True CONGMS.SetFocus End Sub Private Sub them_Click() DoCmd.GoToRecord , , acNewRec CONGMS.SetFocus HUY.Enabled = True End Sub Private Sub trums_Click()
MASACH = DMax("MASACH", "tbl_MUON_TRA") - 1 trums.Enabled = False CONGMS.Enabled = True End Sub Private Sub CONGMS_Click() DoCmd.GoToRecord , , acNewRec
MASACH = DMax("MASACH", "tbl_MUON_TRA") + 1
MASACH.SetFocus CONGMS.Enabled = False trums.Enabled = True HUY.Enabled = True End Sub Private Sub THOAT_Click() DoCmd.Close DoCmd.OpenForm "f_main" End Sub Private Sub vetruoc_Click() If CurrentRecord = 1 Then
MsgBox "Ban dang o mau tin dau", vbOKOnly, "Thong bao" vetruoc.Enabled = False Else
DoCmd.GoToRecord , , acPrevious vetruoc.Enabled = True End If LỚP IKTV 4- NHÓM 5 20 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện End Sub Private Sub xoa_Click()
If MsgBox("Ban co muon xoa khong ?", vbYesNo + vbQuestion, "Thong bao") = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord DoCmd.RunCommand acCmdRefresh HUY.Enabled = False End If End Sub - Form TACGIA
Option Compare Database Private
Sub next_Click() vetruoc.Enabled = True
If CurrentRecord = RecordsetClone.RecordCount Then
MsgBox "Ban dang o mau tin cuoi !", vbOKOnly, "Thong bao" Else DoCmd.GoToRecord , , acNext End If End Sub Private Sub Form_Load() 'Call grong 'CONGMS.Enabled = True 'trums.Enabled = True HUY.Enabled = False End Sub Private Sub HUY_Click() 'Call grong DoCmd.RunCommand acCmdUndo DoCmd.CancelEvent 'CONGMS.Enabled = True 'trums.Enabled = True Matailieu.SetFocus LỚP IKTV 4- NHÓM 5 21 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện HUY.Enabled = False End Sub Private Sub luu_Click()
DoCmd.RunCommand acCmdSaveRecord DoCmd.RunCommand acCmdRefresh
STT = DMax("STT", "tbl_tailieu") + 1
STT = DMax("STT", "tbl_tacgia") + 1 'CONGMS.Enabled = True 'CONGMS.SetFocus End Sub Private Sub them_Click() DoCmd.GoToRecord , , acNewRec Matailieu.SetFocus 'CONGMS.SetFocus HUY.Enabled = True End Sub Private Sub THOAT_Click() DoCmd.Close DoCmd.OpenForm "f_main" End Sub Private Sub vetruoc_Click() If CurrentRecord = 1 Then
MsgBox "Ban dang o mau tin dau", vbOKOnly, "Thong bao" vetruoc.Enabled = False Else
DoCmd.GoToRecord , , acPrevious vetruoc.Enabled = True End If End Sub Private Sub xoa_Click()
If MsgBox("Ban co muon xoa khong ?", vbYesNo + vbQuestion, "Thong bao") = vbYes Then LỚP IKTV 4- NHÓM 5 22 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện
DoCmd.RunCommand acCmdDeleteRecord End If End Sub
- Form TAILIEU-TACGIA Option Compare Database Private Sub next_Click() vetruoc.Enabled = True
If CurrentRecord = RecordsetClone.RecordCount Then
MsgBox "Ban dang o mau tin cuoi !", vbOKOnly, "Thong bao" Else DoCmd.GoToRecord , , acNext End If End Sub Private Sub Form_Load() 'Call grong 'CONGMS.Enabled = True 'trums.Enabled = True HUY.Enabled = False End Sub Private Sub HUY_Click() 'Call grong DoCmd.RunCommand acCmdUndo DoCmd.CancelEvent 'CONGMS.Enabled = True 'trums.Enabled = True Matailieu.SetFocus HUY.Enabled = False End Sub Private Sub luu_Click()
DoCmd.RunCommand acCmdSaveRecord DoCmd.RunCommand acCmdRefresh
STT = DMax("STT", "tbl_tailieu") + 1 LỚP IKTV 4- NHÓM 5 23 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện
STT = DMax("STT", "tbl_tacgia") + 1 'CONGMS.Enabled = True 'CONGMS.SetFocus End Sub Private Sub them_Click() DoCmd.GoToRecord , , acNewRec Matailieu.SetFocus 'CONGMS.SetFocus HUY.Enabled = True End Sub Private Sub THOAT_Click() DoCmd.Close DoCmd.OpenForm "f_main" End Sub Private Sub vetruoc_Click() If CurrentRecord = 1 Then
MsgBox "Ban dang o mau tin dau", vbOKOnly, "Thong bao" vetruoc.Enabled = False Else
DoCmd.GoToRecord , , acPrevious vetruoc.Enabled = True End If End Sub Private Sub xoa_Click()
If MsgBox("Ban co muon xoa khong ?", vbYesNo + vbQuestion, "Thong bao") = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord End If End Sub - Form TIMKIEM Option Compare Database Private Sub Form_Load() LỚP IKTV 4- NHÓM 5 24 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện End Sub
Private Sub TXTKEY_AfterUpdate() DoCmd.Requery End Sub Private Sub THOAT_Click() DoCmd.Close DoCmd.OpenForm "f_main" End Sub
III.2 Giao diện phần mềm -
Form chính của phần mềm
- Form ăng nhập LỚP IKTV 4- NHÓM 5 25 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện
- Form ăng ký LỚP IKTV 4- NHÓM 5 26 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện
- Form danh sách bạn ọc
- Form Quản lý mượn- trả LỚP IKTV 4- NHÓM 5 27 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện
- Form Quản lý sách
- From cập nhật tài liệu- tác giả LỚP IKTV 4- NHÓM 5 28 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện
Form tìm kiếm thông tin LỚP IKTV 4- NHÓM 5 29 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện
III.3 Kết luận và hướng phát triển Kết luận:
Chương trình Quản Lý Thư Viện ã ược thiết kế dựa trên các yêu cầu của ề bài, và cũng áp ứng
ược những nhu cầu cơ bản của Thủ Thư trong việc quản lý sách, ọc giả,…..
Tuy nhiên vẫn còn những nhược iểm cần khắc phục.
Vì thời gian không nhiều nên chúng em vẫn chưa hoàn thiện hẳn phần mềm, vì thế nên không
tránh khỏi những lỗi của chương trình, chúng em rất mong ược thầy, cô giáo giúp ỡ.
Hướng phát triển:
Với mục ích là phần mềm ược ứng dụng thực tế nên trong tương lai phần mềm có thể thực
hiện ược những yêu cầu sau:
❖ Hỗ trợ kết nối qua mạng (LAN) giúp ộc giả có thể tra cứu dễ dàng.
❖ Thiết kế thêm phần thống kê và báo cáo.
❖ Tích hợp máy ọc mã vạch ể thực hiện tự ộng việc nhập sách, kiểm tra sách.
❖ Nâng cấp mô hình quản lý.
IV TÀI LIỆU THAM KHẢO
Giáo trình môn “Phân tích và thiết kế hệ thống thông tin”
Tài liệu hỗ trợ từ Internet. www.sinhvienit.net www.tailieu.vn
V DANH SÁCH NHÓM VÀ PHÂN CÔNG NHIỆM VỤ LỚP IKTV 4- NHÓM 5 30 lOMoAR cPSD| 37186047
Phân tích và thiết kế hệ thống thông tin
Quản lý thư viện STT HỌ VÀ TÊN
PHÂN CÔNG NHIỆM VỤ 01 LÂM THỊ THU HÀ
Thực hiện phần” Khảo sát, phân tích yêu cầu bài
toán”. Thực hiện việc chỉnh sửa giao diện phần mềm cuối cùng 02 ĐẶNG ĐỨC HUY
Hỗ trợ tổng hợp bài báo cáo. 03 BÙI TIỂU PHI
Hỗ trợ, cung cấp tài liệu tham khảo cho bài báo cáo. 04 CAO HUY PHONG (NTN5)
Phân công nhiệm vụ chi tiết cho thành viên. Thực
hiện phần “ Phân tích và thiết kế”. Tổng hợp toàn
bộ dữ liệu ể làm nên bài báo cáo. Hỗ trợ thiết kế phần mềm. 05 NGUYỄN KHÁNH QUỐC
Cung cấp tài liệu tham khảo cho bài báo cáo. Xây
dựng và thiết kế phần mềm. 06 NGUYỄN MINH SƠN
Hỗ trợ tài liệu cho bài báo cáo 07 HÀ TÚ VÂN
Thực hiện phần “ Xây Dựng”. Hỗ trợ phân tích ề bài yêu cầu 08
NGUYỄN TRẦN QUỐC VŨ Hỗ trợ thực hiện phần “ Phân tích và thiết kế”. Hỗ trợ tài liệu tham khảo LỚP IKTV 4- NHÓM 5 31