Quản lý thư viện

LỜI NÓI ĐẦU Một xã hội phát triển góp mặt khoa học công nghệ, đôi với phát triển mạnh mẽ khoa học kĩ thuật, thông tin, tin học sâu ứng dụng vào lĩnh vực xã hội Thông tin trở nên quan trọng nên việc xử lý, nắm bắt thông tin nhanh, xác linh hoạt đường dẫn đến thành công gần nhiêu Nếu trước tin học ứng dụng chủ yếu để giải toán kĩ thuật, ngày bên cạnh lĩnh vực quản lý đư ợc tin học hoá cách nhanh chóng Các toán quản lý vô đa dạng phong phú tuỳ nghành nghề tuỳ lĩnh vực xã hội Cùng với xu việc tin học hoá công tác quản lý thư viện trường học trở nên cần thiết quan tâm ban giám hiệu nhà trường, giai đoạn trường Đại học Cao đẳng thành lập nhiều Với kiến thức tiếp thu vận dụng lý thuyết vào công việc thực tiễn xây dựng phần mềm "Quản Lý Thư viện" lĩnh vực quản lý thư viện không mẻ nơi, lúc mang tính thực cần thiết Qua thời gian phân tích tìm hiểu nghiên cứu bám sát thực tế công việc kết hợp với lý thuyết học, với nhu cầu thực tế chương trình, em xây dựng chương trình Quản Lý Thư Viện ngôn ngữ Visua_Basic Chương trình xây dựng nhằm ứng dụng phần trợ giúp công việc Quản Lý Thư Viện nhà trường Với cố gắng cá nhân, giúp đỡ, bảo tận tình thầy cô giáo tổ môn đặc biệt thầy giáo Quách Xuân Trưởng, giúp đỡ thầy cô khoa Công Nghệ Thông Tin Thái Nguyên đề tài hoàn thành Chương trình Quản Lý Thư Viện bao gồm nội dung sau: Chương I: Cơ sở lý thuyết Chương II: Phân tích hệ thống Chương III: Thiết kế hệ thống Trong điều kiện có hạn, đề tài tránh khỏi thiếu sót em mong nhận đóng góp ý kiến thầy cô giáo, ý kiến đóng góp bạn để chương trình em hoàn thiện CHƯƠNG CƠ SỞ LÝ THUYẾT 1.1 CƠ SỞ LÝ THUYẾT PHÂN TÍCH THIẾT KẾ VÀ XÂY DỰNG HỆ THỐNG THÔNG TIN: 1.1.1 Khái niệm: Quản lý thuật ngữ có nhiều cách hiểu khác “ Quản lý trình biến đổi thông tin đưa đến hành động, trình tương đương việc đưa định…” (J.W.Forester) “ Quản lý bao gồm việc điều hoà tài nguyên để đạt tới mục đích…” ( F.Kasat J.Rosenweing) Dù nói theo cách hay cách khác nhận thấy quan điểm khác mặt khái niệm, nội dung chúng bao gồm yếu tố : - Hướng tới mục đích - Thông qua người - Sử dụng kỹ thuật - Bên tổ chức Quản lý gắn kèm với tổ chức định, tổ chức thông qua người sử dụng công cụ, phương tiện kỹ thuật tiên tiến để đạt mục đích mà tổ chức đặt 1.1.2 Quy trình phát triển hệ thống thông tin: Quy trình phát triển hệ thống thông tin chia làm nhiều giai đoạn Tuỳ thuộc vào phương pháp luận quy định phương thức làm việc đơn vị, quy trình chia thành số lượng bước nhiều khác nhau.Tuy nhiên có tổng hợp chung thành bước : Khảo sát, phân tích, thiết kế, xây dựng, cài đặt bảo trì hệ thống 1.1.2.1 Khảo sát trạng xác lập dự án : Là giai đoạn tìm hiểu quy trình hoạt động hệ thống thực, nhu cầu thông tin làm sở xác định yêu cầu, phạm vi hệ thống thông tin Việc khảo sát thường tiến hành qua giai đoạn : - Khảo sát sơ : Nhằm xác định tính khả thi dự án - Khảo sát chi tiết: Nhằm xác định xác thực khẳng định lợi ích kèm theo Các yêu cầu việc khảo sát : - Khảo sát, tìm hiểu, đánh giá hoạt động hệ thống cũ - Đề xuất yêu cầu, mục tiêu ưu tiên giải cho hệ thống - Phác hoạ giải pháp cân nhắc tính khả thi dự án - Lập kế hoạch cho dự án với dự trù tổng quát 1.1.2.2 Phân tích hệ thống : Là giai đoạn xác định rõ mục tiêu quản lý cần đạt hệ thống, nhận diện phân định thành phần mối quan hệ hệ thống Từ xác định chức xử lý ( Sơ đồ chức nghiệp vụ – BFD), sơ đồ dòng liệu (DFD – Data Flow Diagram) biểu đồ cấu trúc liệu (ERD – Entity Relational Diagram) Cách tiến hành : - Xuất phát từ hệ thống cũ nhu cầu phát triển để xây dựng hệ thống - Chuyển từ mô tả vật lý sang mô tả logic hay chuyển từ mức vật lý sang mức khái niệm Sử dụng kỹ thuật phân tích từ xuống hay từ tổng thể đến chi tiết Phân tích hệ thống thành hai giai đoạn phân tích hệ thống xử lý phân tích hệ thống liệu 1.1.2.3 Thiết kế hệ thống : Là giai đoạn phát triển bước phân tích gian đoạn trước thành mô hình logic vật lý, thiết kế giao diện người sử dụng Trong giai đoạn từ khái niệm biểu diễn mô hình quan hệ thực thể sinh mô hình liệu logic Giai đoạn trình chuyển từ mô hình liệu chức thành thiết kế sở liệu thiết kế modul Trong giai đoạn thiết kế, có nhiều công cụ cho phép đặc tả hệ thống song tất công cụ cần phải sử dụng Người phân tích phải tự chịu trách nhiệm đánh giá để có định xem nên dùng công cụ cho phù hợp với hệ thống cụ thể 1.1.2.4 Xây dựng : Là giai đoạn lập trình sở phân tích, thiết kế giai đoạn trước Kết chương trình Giai đoạn bao gồm bước : - Thi công : Trên sở kết thiết kế tiến hành tích hợp, mã hoá modul chương trình Viết câu lệnh sản sinh CSDL thực câu lệnh hệ quản trị CSDL lựa chọn - Tạo CSDL kiểm tra - Kiểm thử chương trình 1.1.2.5 Cài đặt hệ thống : - Lập tài liệu hướng dẫn sử dụng - Thực việc chuyển đổi sở liệu có yêu cầu thay đổi sang hệ thống Cơ chế chuyển đổi phải thiết kế giai đoạn thiết kế hệ thống - Cài đặt 1.2.6 Bảo trì hệ thống : Bảo trì hệ thống tính từ hệ thống thức đưa vào sử dụng Bao gồm công việc: Theo dõi việc sử dụng hệ thống, nhận thông báo lỗi Sửa đổi, nâng cấp phiên trợ giúp hiệu chỉnh sai sót số liệu 1.2 GIỚI THIỆU VỀ NGÔN NGỮ LẬP TRÌNH VISUAL BASIC 1.2.1 Giới thiệu chung: Ngôn ngữ lập trình Visual Basic (VB) môi trường lập trình tích hợp, chứa đựng tất tài nguyên để xây dựng chương trình mạnh nhanh chóng dựa môi trường Windows Là phương pháp lập trình hiệu quả, cho phép người sử dụng thiết kế nhanh giao diện nhiều công cụ mạnh Để kế chương trình với ngôn ngữ lập trình VB ta cân trải qua bước: + Bướcc 1: Thiết kế giao diện + Bước 2: Thiết kế cấu trúc chương trình + Bước 3: Thiết kế Modun + Bước : Viết lệnh cho tường đối tượng 1.2 Những công cụ cho phép xây dựng ứng dụng môi trường VB: 1.2.2.1 Tạo sở liệu mói VB: Để tạo sở liệu VB ta sử dụng công cụ Visual Data Manager Thực cách thực bước: Tại cử sổ làm việc Microsoft Visual Basic chọn menu Add-Ins/Visual Data Manager Khi xuất cửa sổ VisData: Để lập trình với VB, CSDL quản lý dạng bảng (Table), thông qua Microsoft Access Các Table tạo sau: Từ cử sổ VisData chọn File/New/Microsoft Access/Version7.0, xuất hội thoại yêu cầu nhập vào tên CSDL, chọn đường dẫn nhập vào tên cho CSDL cần tạo, chọn Save để ghi lại trình Tại cửa sổ hiển thị CSDL Database Windows click chuột phải chọn New Table, xuất cửa sổ tạo bảng, nhập tên bảng hộp Table name Để tạo Trường cho bảng chọn Add Field, xuất hội thoại cho phép gõ tên Trường (Name), kiểu Trường (Type), độ rộng Trường (size) + Tên trường: Tên trường tiêu đề cột Tên trường lên tới 64 ký tự bao gồm chữ, số khoảng trống Chúng chứa dấu cách, dấu chấm than ô vuông + Kiểu trường : Cột kiểu liệu đặt tự động Text Mũi tên xuất cột, cho phép bạn thay đổi kiểu liệu Kiểu liệu mà bạn chọn cho trường cụ thể xác định kiểu liệu nhập cho trường Mỗi Table đặc trưng Khoá, Khoá trường bảng giúp bạn xác định ghi Việc tạo khoá thực Add Index Tại hội thoại Add Index to cho phép nhập vào tên Khoá (Name), trường Khoá chọn hộp Available Felds 1.2.2.2 Các phần tử để thiết kế với VB: * Project dự án hay cấu trúc chương trình, tạo hệ thống chương trình phải mở đề án ( project) Thực cách chọn menu File\New Project cửa sổ VB * Hộp Project: Tại hiển thị tất thành phần có project Ta chuyển đổi thành phần cách click chuột chọn * Lưới thiết kế (Form): Là lưới để thiết kế giao diện chương trình, khởi động VB Project mặc định xuất vơi Form, ta dùng Form để thiết kế giao diện Để có From chọn menu Project/ Add Form * Hộp Properties: Bào gồm thuộc tính đối tượng noà nằm giao điện, From coi đối tượng * Hộp công cụ tool box: Là hộp chứa công cụ để thiết kế giao diện chương trình Mỗi công cụ có thuộc tính hiển thị hộp properties ta click chọn công cụ lưới thiết kế From Một số công cụ bản: - Combobox(Hộp danh sách clich chọn) - Chex box (hộp chọn) - Commanbuttom (nut lệnh) - List box (Hộp danh sách) - Text box (hộp chữ) - Label (Nhãn) - Data(Kết nối sở liệu) 1.2.2.3 Sử dụng công cụ (đối tượng) để thiết kế chương trình VB Việc thiết kế chương trình ngôn ngữ lập trình VB thông qua công cụ hay gọi đối tượng Các đối tượng đưa vào From đặc trưng phương thức kiện Phương thức đoạn chương trình chứa đối tượng, cho đối tượng biết cách thức để thực công việc thông qua hành động, hay phương thức hành động đối tượng Sự kiện hành động đối tượng đối tượng bị tác động người dùng Hay nói cách khác việc thực phương thức (các đoạn chương trình) người dung tác động vào đối tượng Các phương thức kết nối với sở liệu thông qua công cụ Data Cho phép ta chuy nhập tới CSDL làm việc với bảng Mỗi Data kết nối với sở liệu thông qua thuộc tính nó: - Name: tên Data - Data base name: đường dẫn tới CSDL tạo - Record source: xác định bảng cần liên kết CSDL Khi cần tạo Truy vấn liên quan đến nhiều bảng CSDL việc liên kết bảng thực thông qua việc sử dụng câu lệnh SQL Các câu lệnh SQL gán vào thuộc tính Recrd source Data Những truy vấn từ đơn giản đến phức tạp thực cách nhanh chóng sác thông qua câu lệnh SQL thuộc tính Rcordsource đối tượng 10 Me.Command2.Enabled = False Me.Command3.Enabled = False txtmatensach.Locked = False txttensach.Locked = False dbmaploai.Locked = False dbmanxb.Locked = False txtsoluong.Locked = False txtgiatien.Locked = False txtsotrang.Locked = False txtngaynhap.Locked = False If Not dtnhap.Recordset.BOF Then dtnhap.Recordset.MoveFirst End If Do While Not dtnhap.Recordset.EOF dtnhap.Recordset.Delete dtnhap.Recordset.MoveNext Loop dtxem.Refresh End Sub Private Sub cmbthoat_Click() If Not dtnhap.Recordset.BOF Then dtnhap.Recordset.MoveFirst End If Do While Not dtnhap.Recordset.EOF dtnhap.Recordset.Delete dtnhap.Recordset.MoveNext Loop dtxem.Refresh Unload Me End Sub Private Sub cmbxoa_Click() Dim n Dim tl If (dtxem.Recordset.EOF = False) And (dtxem.Recordset.BOF = False) Then n = dtxem.Recordset.RecordCount End If If n = Then MsgBox " Không mẩu tin " Else tl = MsgBox("Bạn có muốn xoá tỉnh ko?", vbYesNo + 32, "Thông báo") If tl = Then 46 dtxem.Recordset.Delete dtxem.Refresh dtnhap.Refresh End If End If End Sub Private Sub Command1_Click() dtxem0.Recordset.MoveFirst End Sub Private Sub Command2_Click() If dtxem0.Recordset.BOF Then MsgBox "Da la ban ghi dau" Else dtxem0.Recordset.MovePrevious End If End Sub Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) If dtxem0.Recordset.BOF Then dtxem0.Recordset.MoveNext End If End Sub Private Sub Command3_Click() If dtxem0.Recordset.EOF Then MsgBox "Da la ban ghi dau" Else dtxem0.Recordset.MoveNext End If End Sub Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) If dtxem0.Recordset.EOF Then dtxem0.Recordset.MovePrevious End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Command6_Click() 47 Dim sx, mts As String Dim n, i As Integer If Val(txtslt.Text) < Then MsgBox " Số sách nhập thêm phải không âm" Else If ttt = Then dtsach02.Recordset.MoveFirst sx = dtsach02.Recordset.Fields("Matensach") n = InStr(sx, "1") - mts = Left$(sx, Str(n)) 'MsgBox mts 'MsgBox dtsach02.Recordset.Fields("Tensach") For i = sl + To Val(txtslt.Text) + sl dtsach04.Recordset.AddNew dtsach04.Recordset.Fields("Masach") = dtsach02.Recordset.Fields("Maploai") & "-" & dtsach02.Recordset.Fields("Manxb") & "-" & mts & i dtsach04.Recordset.Fields("Matensach") = mts & i dtsach04.Recordset.Fields("Tensach") = dtsach02.Recordset.Fields("Tensach") dtsach04.Recordset.Fields("Maploai") = dtsach02.Recordset.Fields("Maploai") dtsach04.Recordset.Fields("Manxb") = dtsach02.Recordset.Fields("Manxb") dtsach04.Recordset.Fields("Soluong") = dtsach04.Recordset.Fields("Giatien") = dtsach02.Recordset.Fields("Giatien") dtsach04.Recordset.Fields("Sotrang") = dtsach02.Recordset.Fields("Sotrang") dtsach04.Recordset.Fields("Ngaynhap") = dtsach02.Recordset.Fields("Ngaynhap") dtsach04.UpdateRecord Next i dtsach04.Refresh dtsach02.RecordSource = " SELECT * From Sach0 Where Tensach =" & "'" & dbtensach.Text & "'" dtsach02.Refresh If Val(txtslt.Text) > Then txtsluong.Text = Str(sl + Val(txtslt.Text)) sl = sl + Val(txtslt.Text) txtslt.Text = dtsach03.Refresh End If End If End Sub 48 Private Sub dbtensach_Change() sl = If Not dtsach03.Recordset.BOF Then dtsach03.Recordset.MoveFirst End If Do While Not dtsach03.Recordset.EOF If dtsach03.Recordset.Fields("Tensach") = dbtensach.Text Then sl = sl + End If dtsach03.Recordset.MoveNext Loop dtsach02.RecordSource = " SELECT * From Sach0 Where Tensach =" & "'" & dbtensach.Text & "'" dtsach02.Refresh txtsluong.Text = Str(sl) ttt = End Sub Private Sub Form_Load() t=0 ttt = cmbghi.Visible = False txtmatensach.Locked = True txttensach.Locked = True dbmaploai.Locked = True dbmanxb.Locked = True txtsoluong.Locked = True txtgiatien.Locked = True txtsotrang.Locked = True txtngaynhap.Locked = True dtsach01.RecordSource = " SELECT Sach0.Tensach From Sach0 GROUP BY Sach0.Tensach ORDER BY Sach0.Tensach" dtsach01.Refresh End Sub Private Sub txtmatensach_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttensach.SetFocus End If End Sub Private Sub txtmatensach_LostFocus() Dim matensach1 As String matensach1 = Trim(txtmatensach.Text) If t = Then 49 If trungma(matensach1) Then MsgBox "Mã trùng, Nhập lại", vbOKOnly, "Thông báo" txtmatensach.SetFocus End If If matensach1 = "" Then MsgBox "Mã không rỗng ", vbOKOnly, "Thông báo" txtmatensach.SetFocus End If End If End Sub Private Sub txtngaynhap_KeyPress(KeyAscii As Integer) If Me.cmbghi.Visible = True Then If KeyAscii = 13 Then Me.cmbghi.SetFocus End If End If End Sub Private Sub txttensach_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txtsoluong.SetFocus End If End Sub Private Sub txtsoluong_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txtgiatien.SetFocus End If End Sub Private Sub txtgiatien_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txtsotrang.SetFocus End If End Sub Private Sub txtsotrang_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txtngaynhap.SetFocus End If End Sub Private Sub dbmanxb_Change() Dim ook1 As Boolean ook1 = False Me.dtmanxb.Recordset.MoveFirst 50 Do While Not dtmanxb.Recordset.EOF And Not ook1 If UCase(dtmanxb.Recordset.Fields("Manxb")) = UCase(dbmanxb.Text) Then lbtennxb.Caption = dtmanxb.Recordset.Fields("Tennxb") ook1 = True Else dtmanxb.Recordset.MoveNext End If Loop End Sub Private Sub dbmaploai_Change() Dim ook As Boolean ook = False Me.dtmaploai.Recordset.MoveFirst Do While Not dtmaploai.Recordset.EOF And Not ook If UCase(dtmaploai.Recordset.Fields("Maploai")) = UCase(dbmaploai.Text) Then lbtenploai.Caption = dtmaploai.Recordset.Fields("Tenploai") ook = True Else dtmaploai.Recordset.MoveNext End If Loop End Sub Form Cho mượn sách Function chatsau(st As String) As Integer Dim ok As Boolean Dim n, i, k As Integer ok = False n = Len(st) i=1 Do While Not ok k = Val(Right$(st, i)) If k / = Then ok = True End If i=i+1 Loop chatsau = Val(Right$(st, i - 2)) End Function Private Sub cbvan_Click() Me.dbtensach.Text = "" 51 Me.dbmasach.Text = "" 'dtsach02.RecordSource = " SELECT * From Sach0 Where Tensach like " & "'" & cbvan.Text & "*" & "'" dtsach02.RecordSource = " SELECT * From Sach0 Where left$ (Tensach,1) = " & "'" & cbvan.Text & "'" dtsach02.Refresh dtsach01.RecordSource = " SELECT Sach0.Tensach From Sach0 Where Tensach like " & "'" & cbvan.Text & "*" & "' GROUP BY Sach0.Tensach ORDER BY Sach0.Tensach" dtsach01.Refresh End Sub Private Sub cmbhsach_Click() Dim tl If dbmasach.Text "" Then If Not dtsach04.Recordset.BOF Then dtsach04.Recordset.MoveFirst End If tl = MsgBox("Bạn có chác chắn không?", vbYesNo + 32, "Thông báo") If tl = Then Do While Not dtsach04.Recordset.EOF If UCase(dtsach04.Recordset.Fields("Masach")) = UCase(dbmasach.Text) Then dtsachhuy.Recordset.AddNew dtsachhuy.Recordset.Fields("Masach") = dtsach04.Recordset.Fields("Masach") dtsachhuy.Recordset.Fields("Tensach") = dtsach04.Recordset.Fields("Tensach") dtsachhuy.Recordset.Fields("Ngayhuy") = txtngayhuy.Text dtsachhuy.UpdateRecord 'dtsach04.Recordset.Delete End If dtsach04.Recordset.MoveNext Loop End If dtsach02.RecordSource = " SELECT * From Sach0 Where Tensach =" & "'" & dbtensach.Text & "'" dtsach02.Refresh dtsach03.RecordSource = " SELECT * From Sach0 Where Tensach =" & "'" & dbtensach.Text & "'" dtsach03.Refresh dtsach04.Refresh dbtensach.Text = "" 52 End If End Sub Private Sub cmbhuysach_Click() Dim tl If dbtensach.Text "" Then If Not dtsach04.Recordset.BOF Then dtsach04.Recordset.MoveFirst End If tl = MsgBox("Bạn có chác chắn không?", vbYesNo + 32, "Thông báo") If tl = Then Do While Not dtsach04.Recordset.EOF If UCase(dtsach04.Recordset.Fields("Tensach")) = UCase(dbtensach.Text) Then dtsachhuy.Recordset.AddNew dtsachhuy.Recordset.Fields("Masach") = dtsach04.Recordset.Fields("Masach") dtsachhuy.Recordset.Fields("Tensach") = dtsach04.Recordset.Fields("Tensach") dtsachhuy.Recordset.Fields("Ngayhuy") = txtngayhuy.Text dtsachhuy.UpdateRecord dtsach04.Recordset.Delete End If dtsach04.Recordset.MoveNext Loop End If dtsach02.RecordSource = " SELECT * From Sach0 Where Tensach =" & "'" & dbtensach.Text & "'" dtsach02.Refresh dtsach03.RecordSource = " SELECT * From Sach0 Where Tensach =" & "'" & dbtensach.Text & "'" dtsach03.Refresh dtsach04.Refresh dbtensach.Text = "" End If End Sub Private Sub cmbmsach_Click() Dim ok As Boolean sl = ok = False Luoi3.Visible = True luoinhap.Visible = False 53 If dbmasach.Text = "" Or dbdocgia.Text = "" Or txtngaymuon.Text = "" Or txtngayhtra.Text = "" Then MsgBox " Hãy nhập đầy đủ thông tin " Else dtsachmuon.Recordset.AddNew dtsachmuon.Recordset.Fields("Mathe") = dbdocgia.Text dtsachmuon.Recordset.Fields("Masach") = dbmasach.Text dtsachmuon.Recordset.Fields("Ngmuon") = txtngaymuon.Text dtsachmuon.Recordset.Fields("Nghentra") = txtngayhtra.Text dtsachmuon.UpdateRecord dtsachmuon.Refresh If Not dtsach04.Recordset.BOF Then dtsach04.Recordset.MoveFirst End If 'tl = 'If tl = Then Do While Not dtsach04.Recordset.EOF And Not ok If UCase(dtsach04.Recordset.Fields("Masach")) = UCase(dbmasach.Text) Then dtsach04.Recordset.Edit dtsach04.Recordset.Fields("Sluongcon") = dtsach04.Recordset.Update ok = True End If dtsach04.Recordset.MoveNext Loop 'End If dtsach02.RecordSource = " SELECT * From Sach0 Where Tensach =" & "'" & dbtensach.Text & "'" dtsach02.Refresh 'dtsach03.RecordSource = " SELECT * From Sach0 Where Tensach =" & "'" & dbtensach.Text & "'" 'dtsach03.Refresh 'dtsach04.Refresh 'dbtensach.Text = "" If Not dtsach02.Recordset.BOF Then dtsach02.Recordset.MoveFirst End If Do While Not dtsach02.Recordset.EOF If dtsach02.Recordset.Fields("Tensach") = dbtensach.Text Then sl = sl + End If dtsach02.Recordset.MoveNext 54 Loop If dbtensach.Text "" Then lbsosach.Caption = Str(sl) & " quyển" Else lbsosach.Caption = "" End If lbdmuon.Caption = " mượn" cmbmuonsach.Visible = True cmbmsach.Visible = False End If End Sub Private Sub cmbmuonsach_Click() cmbmsach.Visible = True Me.dbdocgia.Text = "" Me.dbmasach.Text = "" Me.dbtensach.Text = "" Me.txtngayhtra.Text = "" txtngaymuon.Text = Date cmbmuonsach.Visible = False dbdocgia.Locked = False cbvan.Locked = False dbmasach.Locked = False dbsachma.Locked = False dbtensach.Locked = False Me.txtngayhtra.Locked = False Me.txtngaymuon.Locked = False End Sub Private Sub cmbthoat_Click() If Not dtnhap.Recordset.BOF Then dtnhap.Recordset.MoveFirst End If Do While Not dtnhap.Recordset.EOF dtnhap.Recordset.Delete dtnhap.Recordset.MoveNext Loop dtnhap.Refresh Unload Me End Sub Private Sub dbdocgia_Change() lbtendocgia.Caption = dbdocgia.BoundText End Sub Private Sub dbmasach_Change() 55 sl1 = dtsach02.RecordSource = " SELECT * From Sach0 Where Masach =" & "'" & dbmasach.Text & "'" dtsach02.Refresh If Not dtsach02.Recordset.BOF Then dtsach02.Recordset.MoveFirst End If Do While Not dtsach02.Recordset.EOF If dtsach02.Recordset.Fields("Tensach") = dbtensach.Text Then sl1 = sl1 + End If dtsach02.Recordset.MoveNext Loop If dbmasach.Text "" Then lbsomuon.Caption = Str(sl1) & " quyển" Else lbsomuon.Caption = "" End If If dbmasach.Text = "" Then dbsachma.Locked = True Else dbsachma.Locked = False End If dbsachma.Text = "" Luoi3.Visible = True luoinhap.Visible = False End Sub Private Sub dbmasach_Click(Area As Integer) If dbtensach.Text = "" Then MsgBox " Hãy chọn tên sách " End If End Sub Private Sub dbsachma_Change() Dim i, s, n As Integer Dim st As String If dbsachma.Text "" Then s = Abs(chatsau(dbsachma.Text) - chatsau(dbmasach.Text)) lbsomuon.Caption = Str(s + 1) & " quyển" st = Left$(dbmasach.Text, (Len(dbmasach.Text) + Len(Str(chatsau(dbmasach.Text))))) 56 If Not dtsach04.Recordset.BOF Then dtsach02.Recordset.MoveFirst End If If (chatsau(dbsachma.Text) - chatsau(dbmasach.Text)) > Then n = chatsau(dbmasach.Text) Else n = chatsau(dbsachma.Text) End If For i = To s dtnhap.Recordset.AddNew dtnhap.Recordset.Fields("Masach") = st & (n + i) dtnhap.Recordset.Fields("Matensach") = dtsach02.Recordset.Fields("Matensach") dtnhap.Recordset.Fields("Tensach") = dtsach02.Recordset.Fields("Tensach") dtnhap.Recordset.Fields("Maploai") = dtsach02.Recordset.Fields("Maploai") dtnhap.Recordset.Fields("Manxb") = dtsach02.Recordset.Fields("Manxb") dtnhap.Recordset.Fields("Soluong") = dtnhap.Recordset.Fields("Giatien") = dtsach02.Recordset.Fields("Giatien") dtnhap.Recordset.Fields("Sotrang") = dtsach02.Recordset.Fields("Sotrang") dtnhap.Recordset.Fields("Ngaynhap") = dtsach02.Recordset.Fields("Ngaynhap") dtnhap.UpdateRecord Next i dtnhap.Refresh dbmasach.SetFocus Luoi3.Visible = False luoinhap.Visible = True End If End Sub Private Sub dbsachma_GotFocus() If Not dtnhap.Recordset.BOF Then dtnhap.Recordset.MoveFirst End If Do While Not dtnhap.Recordset.EOF dtnhap.Recordset.Delete dtnhap.Recordset.MoveNext Loop dtnhap.Refresh End Sub 57 Private Sub dbtensach_Change() sl = dtsach02.RecordSource = " SELECT * From Sach0 Where Tensach =" & "'" & dbtensach.Text & "'" dtsach02.Refresh dtsach03.RecordSource = " SELECT * From Sach0 Where Tensach =" & "'" & dbtensach.Text & "'" dtsach03.Refresh lbtensach.Caption = dbtensach.Text If Not dtsach02.Recordset.BOF Then dtsach02.Recordset.MoveFirst End If Do While Not dtsach02.Recordset.EOF If dtsach02.Recordset.Fields("Tensach") = dbtensach.Text Then sl = sl + End If dtsach02.Recordset.MoveNext Loop If dbtensach.Text "" Then lbsosach.Caption = Str(sl) & " quyển" Else lbsosach.Caption = "" End If End Sub Private Sub dbtensach_Click(Area As Integer) dbmasach.Text = "" End Sub Private Sub Form_Load() dtsach01.RecordSource = " SELECT Sach0.Tensach From Sach0 GROUP BY Sach0.Tensach ORDER BY Sach0.Tensach" dtsach01.Refresh cmbmsach.Visible = False cmbmuonsach.Visible = True dbdocgia.Locked = True cbvan.Locked = True Me.txtngayhtra.Locked = True Me.txtngaymuon.Locked = True End Sub 58 KẾT LUẬN Trong thời gian 10 tuần qua khảo sát, tìm hiểu thực tế khoa Công Nghệ Thông Tin - ĐH Thái Nguyên, em phân tích hệ thống bước đầu xây dựng phần chương trình tương đối phù hợp với thực tế công tác quản lí thư viện khoa nơi em theo học Tuy nhiên chương trình hoàn cần có thêm thời gian để nghiên cứu tài liệu thực hành nhiều Với trình độ hạn chế nên không tránh khỏi thiếu sót mong thầy cô đóng góp ý kiến để chương trình hoàn thiện Em xin chân thành cảm ơn thầy cô giáo khoa đặc biệt Thầy Quách Quân Trưởng hướng dẫn trực tiếp giúp đỡ em hoàn thành đề tài 59 TÀI LIỆU THAM KHẢO TÀI LIỆU THAM KHẢO [1] Thạch Bình Cường Phân tích thiết kế hệ thống thông tin (Nhà xuất Khoa học kỹ thuật – Năm 2002) [2] Nguyễn Thị Kiều Duyên Lập trình Visual Basic 6.0 (Nhà xuất trẻ - Năm 2000) [3] Đinh Xuân Lâm Những thực hành CSDL với Visual Basic 6.0 (Nhà xuất Thống kê – Năm 2001) [4] Nguyễn Thị Ngọc Mai Visual Basic 6.0 & Lập trình CSDL (Nhà xuất Lao động-Xã hội – Năm 2004) [5] Đoàn Thiện Ngân Tự học Microsoft Access 2002 21 ngày (Nhà xuất Lao động-Xã hội – Năm 2002) [6] Nguyễn Đình Tê Tự học lập trình CSDL với Visual Basic 6.0 (1,2) (Nhà xuất Giáo dục – Năm 2001) [7] Nguyễn Văn Toàn Giáo trình lập trình CSDL với Visual Basic (Nhà xuất bảnQuốc gia TP Hồ Chí Minh – 2003) [8] Trịnh Anh Toàn Hướng dẫưn học Visual Basic 6.0 hình ảnh (Nhà xuất Đà Nẵng – Năm2000) [9] Lê Tiến Vượng Nhập môn CSDL quan hệ (Nhà xuất Thống kê - Năm 2000) [10] Tập giảng “Phân tích thiết kế hệ thống” Bộ môn Các hệ thống thông tin [11] http://www.vovisoft.com [12] http://manguon.com 60 ... viêc đơn gian cho nhân viên quản lý thư viện Xuất phát từ tình hình thực tế nhu cầu sử dụng phần mềm quản lý thư viện em chọn đề tài “Xây dựng chương trình Quản lý thư viện cho khoa Công nghệ thông... 2.1.3 Mô tả toán quản lý Thư viện Thư viện khoa Công Nghệ Thông Tin - ĐH Thái Nguyên - Người có nhu cầu làm thẻ phải làm đơn xin cấp thẻ gửi tới cán quản lý thư viên Cán thư viện làm thủ tục... chức hệ thống quản lý thư viện a Quản lý sách: Nhập sách Cập nhật mã Huỷ sách cũ Sửa đổi sách 21 In phích b Quản lý độc giả Nhập thẻ Cập nhật đơn vị Sửa đổi thẻ In thẻ Huỷ thẻ c Quản lý mượn_ trả