a. Đăng nhập hệ thống:
b. Module Tỡm kiếm:
2. Kiểm thử hệ thống.
Tớch hợp kiểm tra toàn bộ chương trỡnh sem cú lỗi ghỡ xảy ra khụng
CHƯƠNG IV : KẾT LUẬN 1.Nhận xột và tự đỏnh giỏ.
Đề tài quản lý thư viện là một đề tài khỏ thỳ vị về việc quản lý sỏch, đõy là một đề tài nghiờn cứu để ứng dụng trong cụng tỏc quản lý sỏch mà
Trong quỏ trỡnh chỳng em tỡm hiểu, phõn tớch đề tài này dưới sự chỉ bảo của thầy hướng dẫn và thày cụ trường Đại học Phương Đụng cựng cỏn bộ Thư viện. Em đó hiểu được cỏc cụng việc cần phải làm trong một thư viện. Vỡ vậy với chương trỡnh quản lý thư viện của em mặc dự chỉ cú thể giải quyết một phần rất nhỏ nhưng đú chớnh là nền tảng cho việc quản lý sỏch trờn mỏy tớnh. Xong với hy vọng nú sẽ được tiếp tục phỏt triển và hoàn thiện để cú thể giải quyết được nhiều vấn đề trong việc quản lý sỏch.
Đó làm :
Chương trỡnh chỉ quản lý được sỏch và độc giả là sinh viờn. * Đối với người quản trị : Cú thể truy xuất vào toàn bộ hệ thống.
- Thay đổi thụng tin của riờng mỡnh. - Cập nhật nhõn viờn sử dụng.
- Cập nhật sỏch, cập nhật độc giả.
- Tra cứu sỏch, tra cứu độc giả theo nhiều thuộc tớnh. - Thống kờ theo nhiều tiờu chuẩn khỏc nhau
* Thủ thư :
- Xem thụng tin sỏch Xem thụng tin độc giả. - Cập nhật mượn trả sỏch.
- Tra cứu sỏch theo nhiều thuộc tớnh khỏc nhau. * Độc giả :
- Tra cứu sỏch theo nhiều thuộc tớnh khỏc nhau. Chưa làm :
- Chưa quản lý được cỏc độc giả khụng phải là sinh viờn. - Chưa quản lý được sỏch thuộc phũng đọc sau đại học. - Ch ưa quản lý được tư liệu là băng đĩa, bỏo, tạp trớ…
2. Hướng phỏt triển của đề tài :
Chương trỡnh sẽ được mở rộng ra với nhiều loại tài liệu khỏc nhau như băng, đĩa, bỏo, tạp trớ…
Quản lý nhiều đối tượng độc giả khỏc nhau.
Do trỡnh độ và thời gian làm luận văn hiện nay của em cú hạn, chương trỡnh quản lý thư viện chỉ dừng lại ở một số chức năng. Chắc chắn cũn nhiều thiếu sút, hạn chế. Đồng thời chỳng em cũng nhỡn thấy những gỡ đó làm được và chưa làm được trong quỏ trỡnh tỡm hiểu về vấn đề quản lý thư viện. Trong quỏ trỡnh bảo vệ nếu được sự đồng tỡnh ủng hộ và gúp ý của quý thầy cụ, đề tài chỳng em sẽ được hoàn thiện hơn trong tương lai.
PHỤ LỤC
Một số code xử lý
Code kết nối cơ sỏ dữ liệu
Public Sub Ketnoi() On Error Resume Next
Set Cnn = CreateObject("ADODB.Connection") Set Rcs = CreateObject("ADODB.Recordset")
Str = "provider=microsoft.jet.oledb.4.0;data source=" & VBA.Trim(App.Path & "/datas.mdb")
Cnn.Open Str, "admin", ""
DataEnv.Dulieu.ConnectionString = Str DataEnv.Dulieu.Open
End Sub
Code dang nhập
Private Sub cmdDangnhap_Click() On Error Resume Next
If (VBA.Trim(txtTen.Text) = "" Or VBA.Trim(txtMk.Text) = "") Then MsgBox " Bạn phải nhập đầy đủ thông tin !", vbExclamation, "Thông báo"
Exit Sub End If
Str = "select * from tbl_admin where name='" &
VBA.Trim(txtTen.Text) & "' and pas='" & VBA.Trim(txtMk.Text) & "'" If Rcs.State = adStateOpen Then Rcs.Close
Rcs.Open Str, Cnn, adOpenKeyset, adLockPessimistic
MsgBox "Bạn nhập sai tên hoặc mật khẩu!", vbExclamation, "Thông báo"
Exit Sub End If
MsgBox "Đăng nhập thành công!", vbInformation, "Thông báo" Call LogIn
Unload Me End Sub
Code Tỡm kiếm
Private Sub cmdTim_Click() Select Case Tim
Case 0
Str = "select a.masach, a.tensach, b.tentheloai, a.tentacgia, a.nxb, a.namxb, a.lanxb, a.tienphat, a.giasach, a.soluong from(tbl_sach as a INNER JOIN tbl_theloai as b ON a.matheloai=b.matheloai) where a.masach like '%" & VBA.Trim(T1.Text) & "%'"
Case 1
Str = "select a.masach, a.tensach, b.tentheloai , a.tentacgia, a.nxb, a.namxb, a.lanxb,a.tienphat,a.giasach,a.soluong from (tbl_sach as a inner join tbl_theloai as b on a.matheloai=b.matheloai) where a.tentacgia like '%" & VBA.Trim(T1.Text) & "%'"
Case 2
Str = "select a.masach, a.tensach, b.tentheloai, a.tentacgia, a.nxb, a.namxb, a.lanxb,a.tienphat,a.giasach,a.soluong from (tbl_sach as a inner join tbl_theloai as b on a.matheloai=b.matheloai) where a.nxb like '%" & VBA.Trim(T1.Text) & "%'"
Str = "select a.masach, a.tensach, b.tentheloai, a.tentacgia,
a.nxb,a.namxb, a.lanxb, a.tienphat,a.giasach,a.soluong from (tbl_sach as a inner join tbl_theloai as b on a.matheloai=b.matheloai) where a.tensach like '%" & VBA.Trim(T1.Text) & "%'"
Case 4
Str = "select a.masach, a.tensach,b.tentheloai, a.tentacgia,
a.nxb,a.namxb, a.lanxb,a.tienphat,a.giasach,a.soluong from (tbl_sach as a inner join tbl_theloai as b on a.matheloai=b.matheloai) where b.tentheloai like '%" & VBA.Trim(T1.Text) & "%'"
Case 5
Str = "select a.masach,a.tensach,b.tentheloai, a.tentacgia,a.nxb, a.namxb,a.lanxb,a.tienphat,a.giasach,a.soluong from (tbl_sach as a inner join tbl_theloai as b on a.matheloai=b.matheloai) where a.namxb like '%" & VBA.Trim(T1.Text) & "%'"
End Select
lst.ListItems.Clear
If (Rcs.State = adStateOpen) Then Rcs.Close
Rcs.Open Str, Cnn, adOpenKeyset, adLockPessimistic If (Rcs.RecordCount <= 0) Then Exit Sub
Dim I As Integer, lis As ListItem Rcs.MoveFirst
For I = 0 To Rcs.RecordCount - 1
Set lis = lst.ListItems.Add(, , Rcs.Fields(0).Value) lis.SubItems(1) = Rcs.Fields(1).Value
lis.SubItems(2) = Rcs.Fields(2).Value lis.SubItems(3) = Rcs.Fields(3).Value lis.SubItems(4) = Rcs.Fields(4).Value
lis.SubItems(5) = Rcs.Fields(5).Value lis.SubItems(6) = Rcs.Fields(6).Value lis.SubItems(7) = Rcs.Fields(7).Value lis.SubItems(8) = Rcs.Fields(8).Value lis.SubItems(9) = Rcs.Fields(9).Value Rcs.MoveNext Next End Sub
TÀI LIỆU THAM KHẢO
[1]- “Kỹ xảo lập trỡnh VB6”, Nguyễn Trường Sinh, NXB Lao Động – Xó Hội.
[2]- “Phõn tớch thiết kế hệ thống thụng tin quản lý”, Thạc sĩ Đinh Thế Hiển, NXB Thống Kờ.
[3]- “Những bài thực hành VB6”, VN-GUIDE, NXB Thống Kờ. [4]- “Lập trỡnh VB6 ”, Nguyễn Phương Lan, NXB Giỏo Dục.
[5]- “ Những bài thực hành HTML”, VN-GUIDE, NXB Thống Kờ. [6]- “Tự học Microsoft Access”, Nguyễn Văn Hoàng, NXB Thống Kờ.