LỜI NÓI ĐẦU Hiện với phát triển xã hội kinh tế thị trường công việc quản lý ngày khó khăn phức tạp Công việc quản lý ngày đóng góp vai trò quan trọng công việc quan, công ty, xí nghiệp Việc áp dụng thành tựu khoa học kỹ thuật nói chung thành tựu công nghệ thông tin nói riêng vào công tác quản lý không ngừng phát triển Công tác quản lý ngày nhiều quan đơn vị quan tâm quản lý quản lý cho đạt hiệu cao Như nhanh? Bảo mật? Thân thiện? Tất yếu tố nhờ đến thành tựu ngành công nghệ thông tin, phần mềm trợ giúp quản lý thay cho tệp hồ sơ dày cộm, thay cho ngăn tủ đựng hồ sơ chiếm nhiều diện tích ta phải nhiều thời gian để lục lọi, tìm kiếm thông tin cần phải thu thập hay liệu quan trọng Tất điều bất tiện tích hợp phần mềm - sản phẩm ngành tin học Xuất phát từ nhu cầu thực tế quan, xí nghiệp thấy thiếu hệ quản trị sở liệu việc phát triển quản lý Qua phần mềm – chương trình quản lý người sử dụng truy nhập thông tin cách nhanh chóng, tìm kiếm thông tin khoảng thời gian nhanh Và nhờ chúng, người quản lý tránh mát, hư hỏng thông tin phải lưu trữ số lượng sở liệu khổng lồ Ở thời kỳ lịch sử nào, “thư viện” coi kho trí tuệ loài người Nhu cầu sử dụng thư viện rộng rãi Có lẽ, lĩnh vực hoạt động xã hội lại không cần đến thư viện Qui mô thư viện gắn liền với phát triển loài người, với phát triển xã hội phân ngành sản xuất Thư viện ngày đa dạng nội dung lớn số lượng Ngày nhiều thư viện ngành có số lượng hàng vạn sách, hàng trăm số báo tạp chí có số lượng lớn độc giả đến thư viện mượn trả sách ngày Sự biến động tạo nên phức tạp mặt quản lý tra tìm sách Điều phức tạp xử lý thông tin sách để người sử dụng tìm sách cần thiết phục vụ cho vấn đề nghiên cứu Trong tìm kiếm giải pháp khắc phục tình hình trên, máy tính thể phương tiện tối ưu Tuỳ theo nhu cầu thư viện máy tính giải đáp vấn đề nhiều mức khác Phổ biến máy tính giúp cho việc quản lý phục vụ nhu cầu tra tìm thông tin sách thư viện có Mức độ cao máy tính tạo khả tự động hoá sâu thông qua việc thiết lập sử dụng CSDL thư viện tự động hoá trao đổi thông tin thư viện với Từ nhu cầu thực tế, nhu cầu quản lý công việc hàng ngày thư viện quản lý số lượng độc giả đến thư viện mượn sách trả sách, nhu cầu tra cứu thông tin sách mà độc giả cần cho việc học tập giải trí mà khối lượng công việc thư viện nhỏ Vì vậy, em phân tích thiết kế chương trình phục vụ quản lý số công tác thư viện cho công việc Nhưng lần em phân tích thiết kế đề tài lớn nên khó tránh khỏi sai sót Do em mong đóng góp ý kiến thầy cô bạn để đề tài hoàn thiện Em xin chân thành cảm ơn thầy giáo Đặng Minh Ất tận tình hướng dẫn em thực đề tài này, đồng cảm ơn thầy cô giáo Bộ môn Công nghệ Thông tin suốt trình học tập vừa qua CHƯƠNG 1: TỔNG QUAN VỀ ĐỀ TÀI I NHU CẦU TIN HỌC HOÁ: Hằng ngày, thư viện có nhiều bạn đọc mượn sách trả sách hay có công tác quản lý sách Vì số lượng sách lớn cần công tác sách như: lưu trữ thông tin sách phải xếp sách theo môn loại nào, số cá biệt để đảm bảo công việc quản lý sách dễ dàng thuận tiện không nhiều thời gian việc tìm sách phải làm quản lý cách có hiệu Như nói trên, số lượng độc giả mượn sách trả sách ngày nhiều, việc quản lý để độc giả mượn sách tra cứu sách cách thuận lợi nhanh chóng cần quan tâm ý Từ nhu cầu trên, để quản lý thông tin người đọc, sách cần phải có thông tin xác đối tượng mà cần phải có chế quản lý thích hợp Một cách hiệu việc ứng dụng thành tựu công nghệ tin học áp dụng cho công tác Công nghệ thông tin đem lại cho khả to lớn cho việc lưu trữ xử lý thông tin đặc biệt phân chia cấp quản lý cho có hiệu Do đó, cần thiết để tự động hoá (hoặc bán tự động hoá) hợp lý hoá khâu nghiệp vụ quan trọng công tác quản lý như: thống kê, tổng hợp, tìm kiếm, in ấn, Từ lý trên, công việc phân tích thiết kế xây dựng hệ thống quản lý thư viện để khai thác hết ưu việt kỹ thuật đại tiên tiến II KHẢ NĂNG ỨNG DỤNG TIN HỌC TRONG CÔNG TÁC THƯ VIỆN: Để thực tin học hoá công tác thư viện, người ta thiết kế CSDL sau: * CSDL sách chọn lọc theo chuyên đề: loại CSDL nhằm giúp độc giả tìm thông tin tương đối sâu vào sách theo chủ đề định Muốn vậy, yếu tố tìm tin thường mở rộng biểu ghi nhập liệu Thí dụ biểu ghi áp dụng để biên mục cho sách thư viện 15 mục (trường) Mức độ tăng số trường để đảm bảo tìm tin sâu sách phụ thuộc vào nhiều yêu cầu tra cứu nhà quản lý người sử dụng * CSDL thay tư liệu gốc: CSDL nói thư viện tự động hoá hoàn toàn Từng sách, sau lựa chọn nạp vào máy tính theo phương pháp khác hoà nhập vào CSDL để phục vụ yêu cầu độc giả Ngày nay, người ta sử dụng phần nhiều nhớ đĩa quan để lưu giữ thông tin sách nhằm bảo quản luân chuyển phạm vi sử dụng nhiều thư viện * CSDL quản lý thông tin độc giả, số lần mượn thống kê số lượng độc giả mượn sách cuả thư viện đề cập đến Kỹ thuật để tạo lập loại CSDL nêu không ngừng phát triển Ngoài phần mềm tối ưu, người ta sử dụng nhiều phần cứng Thí dụ việc nhập liệu sách vào máy tuỳ theo mức độ phức tạp CSDL mà người ta sử dụng phương tiện nhập thông tin khác như: bàn phím (keyboard), chuột (mouse), máy quét (scaner) III CÁC QUI TRÌNH HOẠT ĐỘNG: Trước hết, ta cần nói đến cấu tạo thư viện Công tác quản lý vấn đề rộng Vì thời gian có hạn em trình bày vấn đề mà báo cáo đề cập tới Thư viện có số phòng sau: + Phòng đọc sách thiếu nhi + Phòng mượn sách thiếu nhi + Phòng mượn sách người lớn + Phòng đọc sách người lớn + Phòng báo chí + Phòng máy tính + Từ phòng liệt kê ta có loại thẻ thư viện sau: + Thẻ mượn sách thiếu nhi + Thẻ đọc sách thiếu nhi + Thẻ đọc sách cho người lớn + Thẻ mượn sách cho người lớn  Chú ý: Thẻ đọc người lớn thẻ mượn người lớn có gía trị phòng báo chí giá trị hai phòng khác Từ liệu ta thấy hoạt động thư viện sau: Trước hết, muốn đăng ký làm thẻ thư viện, người đăng ký làm thẻ phải hoàn thành thủ tục sau:  Nếu đối tượng làm thẻ thiếu nhi (học sinh cấp I cấp II):  Đơn xin làm thẻ thư viện bố (mẹ) viết  Giấy khen (học sinh học sinh giỏi)  Hai ảnh 3x4 (nếu đổi thẻ cần ảnh)  Hộ  Nếu đối tượng làm thẻ sinh viên viên chức nhà nước hay cán hưu:  Giấy giới thiệu quan học tập công tác  Hộ (nếu đối tượng hộ phải có xác nhận quyền địa phương nơi người làm thẻ tạm trú)  Hai ảnh 3x4 (nếu đổi thẻ cần ảnh)  Thẻ sinh viên sinh viên (hoặc giấy chứng minh nhân dân đối tượng làm thẻ công chức nhà nước, đối tượng làm thẻ cán hưu cần phải có thẻ hưu trí) Sau hoàn tất thủ tục trên, tuỳ theo đối tượng làm thẻ đăng ký làm thẻ thư viện Căn vào phiếu đăng ký làm thẻ mà người làm thẻ phát thẻ đọc hay thẻ mượn + Thẻ đọc sách phép mượn sách đọc phòng đọc thư viện đến cuối phải hoàn trả sách lại cho thư viện thẻ có giá trị phòng báo thư viện yêu cầu giống Đối với thẻ đọc sách cho người lớn có số ý sau: + Mỗi lần mượn sách, độc giả mượn không hai sách, thời gian mượn sách 15 ngày, vượt thời gian độc giả phải chịu số tiền định cho ngày hạn Độc giả nhờ người trả sách hộ + Nếu lý độc giả xin gia hạn trả sách sách văn học xin gia hạn khônh lần sách kỹ thuật độc giả phép xin gia hạn hai lần + Nếu làm hư hỏng sách thư viện độc giả phải có trách nhiệm bồi thường sách theo nội qui thư viện Tất loại thẻ có giá trị năm, qúa năm độc giả phải đổi thẻ  Nội quy hai phòng mượn sách thiếu nhi đọc sách thiếu nhi tương tự yêu cầu hai phòng mượn đọc sách người lớn Khi độc giả muốn mượn sách, độc giả phải tra tìm sách mà cần mượn hộp đựng thông tin sách hay hộp gọi hộp phích Mỗi hộp phích mang chủ điểm riêng, chủ điểm ghi hộp hộp phích mang tên văn học dân gian hay hộp mang tên tác giả viết sách Trong hộp có thông tin: số cá biệt sách đó, thông tin tác giả điều bàn tới phần sau Ngoài ra, độc giả tra cứu thông tin sách phòng máy thư viện Khi muốn mượn sách độc giả có phiếu yêu cầu mượn sách Độc giả vi phạm nội quy thư viện chịu kỷ luật theo nội quy thư viện đề IV YÊU CẦU ĐỐI VỚI HỆ THỐNG Danh sách yêu cầu 1.1 Lập thẻ độc giả 1.2 Cập nhật thông tin độc giả 1.3 Hủy thẻ độc giả 1.4 Nhập sách 1.5 Hủy sách 1.6 Tra cứu sách 1.7 Lập phiếu mượn sách 1.8 Nhận trả sách Bảng trách nhiệm yêu cầu Stt Nghiệp Người dùng Phần mềm Ghi Vụ Lập thẻ Cung cấp Kiểm tra quy Cho phép huỷ độc giả thông tin định lưu trữ cập nhật lại hồ độc giả sơ, thay đổi quy định Cập nhật Chọn độc giả Liệt kê danh tuổi Trong thông tin theo danh sách sách trình thực độc giả liệt kê độc giả Kiểm thay đổi tra quy định quy định lưu trữ Hủy thẻ Chọn độc giả Hủy thẻ độc độc giả hết hạn giả hết hạn thẻ độc giả để so với ngày hủy Có thề xoá hay lưu thẻ độc giả Nhập Nhập Kiểm tra thời Có thể thay sách thông tin cần hạn sách đổi quy định thiết sách lưu hạn sách Chọn sách Hủy Có thể thay hết hạn để hủy sách đổi cần lưu Hủy sách hạn cho phép Tra cứu Nhập vào Tra cứu theo Hiển thị sách từ khóa yêu cầu thông cần tra tin lọc Lập phiếu Chọn độc giả Cập nhật Có thể thay mượn sách sách đổi quy định sách độc giả cần độc giả mượn ( có) mượn kiểm tra số lượng cho phép mượn Nhận trả sách Nhận sách ChọnTạo mã số Cập nhật Chọn sách độc giảvà trảnhập thông tin thông tin cần thiết Lưu vào CSDL trả Xuất liệu sách lên lưới (để thay đổi) Thêm tiếp trở Mô hình hóa Người dùng Tạo mã số Nhận Chọn nhập thông tin cần thiết TT độc giả sách Lưu vào CSDL Hủy thẻ, Xuất liệu lên lưới (để thay sách đổi) Lập Thêm tiếp trở thẻ Tra cứu Chọn độc giả cần lập thẻ Những thông tinMượn độc TT độc giả trảgiả hiển thị Nếu chưa lập thẻ Lập thẻ sách nút Lưu để lập, ngược lại xóa Chọn chức cần Hủy thẻ, sách Tra cứu Mượn trả sách Chọn thẻ sách hết hạn ThamSoNguyen để huỷ Xoá khỏi sở liệu Người dùng nhập từ khóa cần tra cứu cột lưới Thông tin lọc Hiển thị kết tìm Người dùng chọn độc giả cần mượn trả sách chọn sách cần mượn cần trả Kiểm tra xem có mượn không, hạn trả sách chưa để phạt Cập nhật Thiết kế phần mềm MH Chính MH Quy định MH Đăng nhập MH Nhận sách MH Độc giả MH Tra cứu MH Mượn trả sách MH Lập thẻ MH User DTPkr.Value = rs!NGAYNHAP Dim tl As String tl = rs!THELOAI cboNgonngu.Text = rs!NGONNGU 'Connection.Closedata Connection.OpenData ("SELECT * FROM THELOAISACH WHERE MATHELOAI='" + Trim(tl) + "'") cboTheloai.Text = rs!TENTHELOAI Connection.Closedata DTPkr.Enabled = False End If End Sub Private Sub Form_Load() AdodcSach.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Library.mdb;Persist Security Info=False" AdodcSach.RecordSource = "Sach" AdodcSach.Refresh 'DataGridSach.Refresh SetDMSach Connection.OpenData ("SELECT * FROM SACH") ' WHERE MASACH='" + Trim(str) + "'") txttext(0).Text = rs!MASACH txttext(1).Text = rs!TENSACH txttext(2).Text = rs!TACGIA txttext(3).Text = rs!NHAXUATBAN txttext(4).Text = rs!NAMXUATBAN txttext(5).Text = rs!TONGSOBAN txttext(7).Text = rs!SOTRANG If (rs!TINHTRANG "") Then txttext(6).Text = rs!DIENTHOAI Else txttext(6).Text = "" End If DTPkr.Value = rs!NGAYNHAP Dim tl As String tl = rs!THELOAI cboNgonngu.Text = rs!NGONNGU 'Connection.Closedata Connection.OpenData ("SELECT * FROM THELOAISACH WHERE MATHELOAI='" + Trim(tl) + "'") cboTheloai.Text = rs!TENTHELOAI Connection.Closedata DTPkr.Enabled = False PreWith = Me.Width PreHeight = Me.Height tf = True stFilte = "" End Sub Private Sub Form_Resize() On Error GoTo TBLoi Dim i, j, k As Integer If Me.Width < 10995 Then Me.Width = 10995 Exit Sub End If If Me.Height < 6615 Then Me.Height = 6615 Exit Sub End If i = Me.Width - PreWith k = Me.Height - PreHeight j = CLng(i / 2) Frame1.Top = Frame1.Top + k Frame1.Width = Frame1.Width + i Frame2.Width = Frame2.Width + i With DataGridSach Width = Width + i ' Top = Top + CInt(k / 3) Height = Height + CInt(2 * k / 2) 'If Columns(8).Width + i - 350 > Then Columns(8).Width = Columns(8).Width + i - 350 Else Columns(8).Width = 300 End With With CmdButton Item(4).Left = Item(4).Left + i ' Item(1).Left = Item(1).Left + j End With PreWith = Me.Width PreHeight = Me.Height Exit Sub TBLoi: ' MsgBox Err.Description, vbCritical + vbOKOnly, "Error" End Sub Private Sub Image1_Click() Call SelectAllRow(tf, AdodcSach, DataGridSach) tf = Not tf End Sub Private Sub Text1_Change(Index As Integer) ''On Error GoTo TBLoi Dim st As String If Trim(Text1(0).Text) = "" And Trim(Text1(1).Text = "") And Trim(Text1(2).Text = "") And Trim(Text1(3).Text = "") Then 'And txtnsx.Text = "" Then AdodcSach.Refresh 'DataGridSach.Refresh SetDMSach Else st = "" If Trim(Right(Text1(0).Text, 1)) "" Then st = st + "MaSach like '" + Trim(Text1(0).Text) + "*'" End If If Trim(Text1(1).Text) "" Then If st "" Then st = st + " and " + "TenSach like '" + Trim(Text1(1).Text) + "*'" Else st = "TenSach like '" + Trim(Text1(1).Text) + "*'" End If End If If Trim(Text1(2).Text) "" Then If st "" Then st = st + " and " + "TheLoai like '" + Trim(Text1(2).Text) + "*'" Else st = "TheLoai like '" + Trim(Text1(2).Text) + "*'" End If End If If Trim(Text1(3).Text) "" Then If st "" Then st = st + " and " + "TacGia like '" + Trim(Text1(3).Text) + "*'" Else st = "TacGia like '" + Trim(Text1(3).Text) + "*'" End If End If If Trim(Text1(3).Text) "" Then If st "" Then st = st + " and " + "NhaXuatBan like '" + Trim(Text1(3).Text) + "*'" Else st = "NhaXuatBan like '" + Trim(Text1(3).Text) + "*'" End If End If AdodcSach.Recordset.Filter = st DataGridSach.Refresh 'Label1.Caption = "Số hội viên: " + Str(datPrimaryRS.Recordset.RecordCount) End If ''TBLoi: End Sub Private Sub Text1_GotFocus(Index As Integer) Text1(Index).SelStart = Text1(Index).SelLength = Len(Text1(Index).Text) End Sub Private Sub Text1_LostFocus(Index As Integer) Text1(Index).SelLength = End Sub Private Sub SetDMSach() With DataGridSach Refresh '.Caption = "Danh mục sách" Columns(0).Width = 900 Columns(0).Caption = "Mã sách" Columns(1).Width = 2100 Columns(1).Caption = "Tên sách" Columns(2).Width = 600 Columns(2).Caption = "Thể loại" Columns(2).Alignment = dbgCenter Columns(3).Width = 2100 Columns(3).Caption = "Tác giả" Columns(4).Width = 1800 Columns(4).Caption = "Nhà xuất bản" Columns(5).Width = 800 Columns(5).Caption = "Năm xuất bản" Columns(5).Alignment = dbgCenter Columns(6).Width = 850 Columns(6).Caption = "Tổng số" Columns(6).Alignment = dbgCenter Columns(7).Width = 1100 Columns(7).Caption = "Chưa mượn" Columns(7).Alignment = dbgCenter Columns(8).Width = 1200 Columns(8).Caption = "Ngày nhập" Columns(8).Alignment = dbgCenter Columns(9).Width = 1200 Columns(9).Caption = "Tình trạng" End With End Sub Private Sub txttext_KeyPress(Index As Integer, KeyAscii As Integer) TextBox_KeyPress KeyAscii, txttext(5) TextBox_KeyPress KeyAscii, txttext(7) TextBox_KeyPress KeyAscii, txttext(4) End Sub * Form danh sách độc giả: Dim bsort As Boolean, tf As Boolean, stFilte As String Dim PreWith As Long, PreHeight As Long Private Sub CmdButton_Click(Index As Integer) Select Case Index Case txttext(0).Text = "DG" txttext(1).Text = "" 'cboGT.Text = "" txttext(3).Text = "" txttext(4).Text = "" txttext(5).Text = "" cboMaLoaiDG.Text = "X" DTPkr.Value = Date DTPkr.Enabled = True cboMaLoaiDG.Enabled = True Case Connection.OpenData ("SELECT * from DOCGIA") Do Until (rs.EOF) If (rs!MADOCGIA = txttext(0).Text) Then MsgBox "Mã độc giả tồn tại!" Exit Sub End If rs.MoveNext Loop Dim i As Integer For i = To If txttext(i).Text = "" Then MsgBox ("Dữ liệu chưa đủ để thêm") Exit Sub End If Next i For i = To If txttext(i).Text = "" Then txttext(i).Text = " " End If Next i sql = "INSERT INTO DOCGIA VALUES" & _ "('" & txttext(0).Text & "','" & txttext(1).Text & "','" & DTPkr.Value & "','" & cboGT.Text & "','" & txttext(3).Text & "','" & txttext(4).Text & "','" & txttext(5).Text & "','" & cboMaLoaiDG.Text & "')" cn.Execute (sql) Connection.Closedata Case If AdodcDG.Recordset.EOF Then Exit Sub End If If DataGridDG.SelBookmarks.Count = Then MsgBox "Phải chọn đối tượng cần xoá", vbCritical + vbOKOnly, "Thông báo" Exit Sub End If Dim tf As VbMsgBoxResult tf = MsgBox("Bạn muốn xoá đối tượng chọn không", vbYesNo, "Thông báo") If tf = vbNo Then Exit Sub End If Connection.OpenData ("DOCGIA") sql = "(DELETE * FROM DOCGIA WHERE MADOCGIA=TRIM('" & txttext(0).Text & "'))" cn.Execute (sql) Connection.Closedata 'Set rs = Nothing MsgBox "Đã hoàn thành trình xoá", vbInformation + vbOKOnly, "Thông báo" Text1_Change Case flagSelect = False Unload Me End Select Text1_Change End Sub Private Sub Combo1_Click(Index As Integer) Dim st As String If ((Trim(Combo1(0).Text) = "") Or (Trim(Combo1(0).Text) = "Tất cả")) And (Trim(Combo1(1).Text = "") Or (Trim(Combo1(1).Text) = "Tất cả")) Then AdodcDG.Refresh SetDMDG Else st = "" If Trim(Right(Combo1(0).Text, 2)) = "N÷" Then st = st + "GioiTinh like '" + "NU" + "*'" Else If (Trim(Combo1(0).Text) "") And (Trim(Combo1(0).Text) "Tất cả") Then st = st + "GioiTinh like '" + Trim(Combo1(0).Text) + "*'" End If End If If (Trim(Combo1(1).Text) "" And Trim(Combo1(1).Text) "Tất cả") Then If st "" Then st = st + " and " + "MaLoaiDG like '" + Trim(Combo1(1).Text) + "*'" Else st = "MaLoaiDG like '" + Trim(Combo1(1).Text) + "*'" End If End If AdodcDG.Recordset.Filter = st DataGridDG.Refresh End If End Sub Private Sub DataGridDG_RowColChange(LastRow As Variant, ByVal LastCol As Integer) Dim str As String If AdodcDG.Recordset.RecordCount > Then str = AdodcDG.Recordset.Fields(0) Connection.OpenData ("SELECT * FROM DOCGIA WHERE MADOCGIA='" + Trim(str) + "'") txttext(0).Text = rs!MADOCGIA txttext(1).Text = rs!HOTENDG cboGT.Text = rs!GIOITINH txttext(3).Text = rs!DIACHI 'txttext(4).Text = rs!DIENTHOAI If (rs!DIENTHOAI "") Then txttext(4).Text = rs!DIENTHOAI Else txttext(4).Text = "" End If If (rs!EMAIL "") Then txttext(5).Text = rs!EMAIL Else txttext(5).Text = "" End If DTPkr.Value = rs!NGAYSINH cboMaLoaiDG.Text = rs!MALOAIDG Connection.Closedata ' DTPkr.Enabled = False ' cboMaLoaiDG.Enabled = False End If End Sub Private Sub Form_Load() AdodcDG.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Library.mdb;Persist Security Info=False" AdodcDG.RecordSource = "DocGia" AdodcDG.Refresh SetDMDG KhoitaoCombo Connection.OpenData ("SELECT * FROM DOCGIA") ' WHERE MARB=1") txttext(0).Text = rs!MADOCGIA txttext(1).Text = rs!HOTENDG cboGT.Text = rs!GIOITINH txttext(3).Text = rs!DIACHI txttext(4).Text = rs!DIENTHOAI txttext(5).Text = rs!EMAIL DTPkr.Value = rs!NGAYSINH cboMaLoaiDG.Text = rs!MALOAIDG Connection.Closedata ' DTPkr.Enabled = False ' cboMaLoaiDG.Enabled = False PreWith = Me.Width PreHeight = Me.Height tf = True stFilte = "" End Sub Private Sub Form_Resize() On Error GoTo TBLoi Dim i, j, k As Integer If Me.Width < 10995 Then Me.Width = 10995 Exit Sub End If If Me.Height < 6615 Then Me.Height = 6615 Exit Sub End If i = Me.Width - PreWith k = Me.Height - PreHeight j = CLng(i / 2) Frame1.Top = Frame1.Top + k Frame1.Width = Frame1.Width + i Frame2.Width = Frame2.Width + i With DataGridDG Width = Width + i ' Top = Top + CInt(k / 3) Height = Height + CInt(2 * k / 2) 'If Columns(8).Width + i - 350 > Then Columns(8).Width = Columns(8).Width + i - 350 Else Columns(8).Width = 300 End With With CmdButton Item(4).Left = Item(4).Left + i ' Item(1).Left = Item(1).Left + j End With PreWith = Me.Width PreHeight = Me.Height Exit Sub TBLoi: ' MsgBox Err.Description, vbCritical + vbOKOnly, "Error" End Sub Private Sub Image1_Click() Call SelectAllRow(tf, AdodcDG, DataGridDG) tf = Not tf End Sub Private Sub Text1_Change(Index As Integer) Dim st As String If Trim(Text1(0).Text) = "" And Trim(Text1(1).Text = "") And Trim(Text1(2).Text = "") And Trim(Text1(3).Text = "") Then 'And txtnsx.Text = "" Then AdodcDG.Refresh SetDMDG Else st = "" If Trim(Right(Text1(0).Text, 1)) "" Then st = st + "MaDocGia like '" + Trim(Text1(0).Text) + "*'" End If If Trim(Text1(1).Text) "" Then If st "" Then st = st + " and " + "HoTenDG like '" + Trim(Text1(1).Text) + "*'" Else st = "HoTenDG like '" + Trim(Text1(1).Text) + "*'" End If End If If Trim(Text1(3).Text) "" Then If st "" Then st = st + " and " + "Diachi like '" + Trim(Text1(3).Text) + "*'" Else st = "Diachi like '" + Trim(Text1(3).Text) + "*'" End If End If If Trim(Text1(4).Text) "" Then If st "" Then st = st + " and " + "DienThoai like '" + Trim(Text1(4).Text) + "*'" Else st = "DienThoai like '" + Trim(Text1(4).Text) + "*'" End If End If AdodcDG.Recordset.Filter = st DataGridDG.Refresh End If End Sub Private Sub Text1_GotFocus(Index As Integer) Text1(Index).SelStart = Text1(Index).SelLength = Len(Text1(Index).Text) End Sub Private Sub Text1_LostFocus(Index As Integer) Text1(Index).SelLength = End Sub Private Sub SetDMDG() With DataGridDG Refresh Columns(0).Width = 900 Columns(0).Caption = "Mã ĐG" Columns(1).Width = 2300 Columns(1).Caption = "Họ tên ĐG" Columns(2).Width = 1100 Columns(2).Caption = "Ngày sinh" Columns(3).Width = 900 Columns(3).Caption = "Giới tính" Columns(4).Width = 2000 Columns(4).Caption = "Địa chỉ" Columns(5).Width = 1100 Columns(5).Caption = "Điện thoại" .Columns(5).Alignment = dbgCenter Columns(6).Width = 2000 Columns(6).Caption = "Email" Columns(6).Alignment = dbgCenter Columns(7).Width = 1100 Columns(7).Caption = "Mã loại ĐG" Columns(7).Alignment = dbgCenter End With End Sub Private Sub KhoitaoCombo() Combo1(0).AddItem ("Nam") Combo1(0).AddItem ("Nữ") Combo1(0).AddItem ("Tất cả") Combo1(1).AddItem ("X") Combo1(1).AddItem ("Y") Combo1(1).AddItem ("Tất cả") End Sub KẾT LUẬN Tự đánh giá kết đề tài Đề tài hoàn thành mức phát triển cộng thêm số chức bảo mật, tiện dụng, dễ sử dụng Các hàm chương trình cố gắng viết ngắn gọn số hàm xử lý lưới dài Còn số chức chưa kịp hoàn thành xong dự tính ban đầu Còn nhiều mặt hạn chế chưa bổ sung Hướng phát triển Nếu có điều kiện thời gian, em cố gắng hoàn thành tốt đề tài mình, để sau ứng dụng vào thực tế TÀI LIỆU THAO KHẢO 1) Phân tích thiết kế tin học hệ thống quản lý doanh nghiệp - nghiệp vụ ( Ngô Trung Việt – Nhà xuất giáo dục 2002) 2) Phân tích thiết kế hệ thống thông tin ( Thạc Bình Cường – Nhà xuất thống kê 2000) 3) Nhập môn sở liệu quan hệ ( Lê Tiến Vương – Nhà xuất khoa học giáo dục 2000) 4) Giáo trình sở liệu SQL – Access ( Trần Công Uẩn - Nhà xuất thống kê 2000) 5) Microsoft Visual Basic 6.0 lập trình sở liệu ( Nguyễn Thị Ngọc Mai - Nhà xuất giáo dục 2002) 6) Giáo trình hệ thống thông tin quản lý ( TS Trương Văn Tỳ – TS Trần Thị Song Minh - Nhà xuất thống kê) 7) Website mã nguồn ngôn ngữ lập trình http: // www Manguon com 8) Website trao đổi học hỏi trực tuyến http:// www Thuvientinhoc.com MỤC LỤC LỜI NÓI ĐẦU CHƯƠNG 1: TỔNG QUAN VỀ ĐỀ TÀI I.NHU CẦU TIN HỌC HOÁ: II.KHẢ NĂNG ỨNG DỤNG TIN HỌC TRONG CÔNG TÁC THƯ VIỆN: III CÁC QUI TRÌNH HOẠT ĐỘNG: .5 IV.YÊU CẦU ĐỐI VỚI HỆ THỐNG 1.Danh sách yêu cầu 2.Bảng trách nhiệm yêu cầu 3.Mô hình hóa 4.Thiết kế phần mềm .10 CHƯƠNG 2: KHẢO SÁT HỆ THỐNG 14 I KHẢO SÁT HOẠT ĐỘNG CỦA HỆ THỐNG CŨ 15 II XÂY DỰNG MÔ HÌNH HỆ THỐNG MỚI .15 Yêu cầu nghiệp vụ .15 Yêu cầu tiến hoá 22 III PHẠM VI ĐỀ TÀI 25 IV KHẢO SÁT NGHIỆP VỤ QUẢN LÝ .25 Yêu cầu nghiệp vụ .25 2.Yêu cầu tiến hoá 33 V LỰA CHỌN MÔI TRƯỜNG CÀI ĐẶT .35 Giới thiệu Visual Basic: .36 2.Giới thiệu hệ quản trị sở liệu Access: 36 CHƯƠNG 3: PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG 38 I MỘT SỐ QUY ƯỚC: 39 II PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG QUẢN LÝ THƯ VIỆN 39 Biểu đồ phân cấp chức toàn hệ thống: .39 Biểu đồ luồng liệu 41 3.Mô hình thực thể liên kết (E-R) 43 CHƯƠNG 4: THIẾT KẾ HỆ THỐNG 44 I THIẾT KẾ CƠ SỞ DỮ LIỆU .45 Bảng DocGia .45 Bảng LoaiDocGia 45 Bảng Sach 45 Bảng TheLoaiSach 45 Bảng TheMuon 45 Bảng QTMuon 45 Bảng CTMuon 45 Bảng ThamSoNguyen .45 9.Bảng TaiKhoan 46 II.THIẾT KẾ GIAO DIỆN MÀN HÌNH 46 Danh sách hình 46 Chi tiết hình 47 III THỬ NGHIỆM VÀ KIỂM TRA .58 PHỤ LỤC 61 CODE MỘT SỐ MODULE CHÍNH CỦA CHƯƠNG TRÌNH 61 KẾT LUẬN .82 Tự đánh giá kết đề tài 82 Hướng phát triển 82 TÀI LIỆU THAO KHẢO 83 MỤC LỤC 84 [...]... sách mà độc giả mượn đông nhất vào tháng nào thì chúng ta có thể ghi số lượng độc giả mượn sách bằng phương pháp thủ công II XÂY DỰNG MÔ HÌNH HỆ THỐNG MỚI Để khắc phục những nhược điểm của hệ thống cũ thì yêu cầu ta phải xây dựng một hệ thống quản lý tự động Hệ thống quản lý thư viện bằng máy tính phải đảm bảo các yêu cầu sau: 1 Yêu cầu nghiệp vụ 1.1 Danh sách các yêu cầu STT 1 Yêu cầu Lập thẻ Biểu mẫu... thẻ thư viện Danh sách độc giả loại độc giả mượn sách Chi tiết mượn sách Danh sách sách loại sách CHƯƠNG 2: KHẢO SÁT HỆ THỐNG I KHẢO SÁT HOẠT ĐỘNG CỦA HỆ THỐNG CŨ Việc quản lý sách tại thư viện hiện nay đang được quản lý theo kiểu thủ công ghi chép bằng tay nên gặp rất nhiều khó khăn, nếu trong một ngày có số lượng độc giả lớn thì rất khó có thể quản lý hết và thư ng gây ra mất mát sách Để có thể quản. .. đọc của người lớn và của thiếu nhi tương tự nhau vì thời gian có hạn nên em chỉ tập trung xây dựng hệ thống quản lý này cho hai phòng mượn và đọc của người lớn, nếu cần xây dựng hệ thống cho hai phòng của thiếu nhi thì ta chỉ cần thay chữ phòng người lớn bằng phòng cho thiếu nhi mà thôi IV KHẢO SÁT NGHIỆP VỤ QUẢN LÝ 1 Yêu cầu nghiệp vụ 1.1 Nghiệp vụ yêu cầu lập thẻ độc giả BM1 Loại thẻ độc giả : ……………………... Database Management System) là hệ thống các chương trình hỗ trợ các tác vụ quản lý, khai thác dữ liệu theo mô hình cơ sở dữ liệu quan hệ Từ phiên bản Microsoft Access đầu tiên phát hành vào năm 1992 đến Microsoft Access 2000 đã qua năm phiên bản Microsoft Access là một trong những hệ quản trị cơ sở dữ liệu phổ biến cho các máy tính PC Microsoft Access 2000 cung cấp hệ thống chương trình ứng dụng rất... commands, functions liên hệ trực tiếp đến MS Windows GUI Những người mới bắt đầu có thể viết chương trình bằng cách học chỉ một vài commands, functions và keywords Khả năng của ngôn ngữ này cho phép những người chuyên nghiệp hoàn thành bất kỳ điều gì nhờ sử dụng ngôn ngữ lập trình MS Windows nào khác 2 Giới thiệu về hệ quản trị cơ sở dữ liệu Access: Hệ quản trị cơ sở dữ liệu quan hệ ( Relational Database... giả lớn thì rất khó có thể quản lý hết và thư ng gây ra mất mát sách Để có thể quản lý tốt yêu cầu phải có số lượng nhân viên nhiều rất tốn kém trong công việc quản lý Do ở phòng đọc số lượng độc giả mượn sách và trả sách trong cùng một ngày nên không cần thiết phải lập sổ theo dõi độc giả mượn và trả sách, nếu cần thống kê số lượng sách mà độc giả mượn trong một ngày là bao nhiêu hay số lượng sách