Ngày nay, không ai còn nghi ngờ gì vai trò của thông tin đối với đời sống x• hội. Sự nắm bắt được nhu cầu thực tế x• hội, những thông tin chính xác, nhanh nhậy là nhu cầu chính của con người trong mọi mặt vận động của x• hội, dưới mọi quy mô ngày càng đóng vai trò cốt yếu trong việc quản lý và điều hành. Với trình độ khoa học ngày càng phát triển, đặc biệt là lĩnh vực khoa học điện tử, đ• và đang được quan tâm đầu tư, ứng dụng trong nhiều lĩnh vực khác nhau. Trong đó, việc ứng dụng tin học trong mọi tổ chức kinh tế, hành chính đoàn thể, trong các Xí nghiệp và Công ty, trong các trường Đại học, Viện nghiên cứu và thiết kế rất là quan trọng. Nhờ vào tin học, chúng ta có thể quản lý mọi lĩnh vực một cách nhanh chóng như: Quản lý sinh viên, Quản lý vật tư, Quản lý thư viện, Quản lý bán hàng... mà trước kia khi tin học chưa được phổ biến thì các công việc này đ• làm chúng ta mất rất nhiều thời gian và công sức. Sự phát triển nhanh chóng của máy tính đ• làm thay đổi cục diện của lĩnh vực quản lý. Các phần mềm linh hoạt và thông minh đó đ• giúp chúng ta cho công việc quản lý thuận tiện, nhanh chóng trong việc thống kê, tìm kiếm, tính toán, thông báo kịp thời những thông tin cần thiết, giảm nhẹ không gian lưu trữ, thay thế cho việc làm thủ công với hiệu quả thấp lại cồng kềnh. Xuất phát từ các yêu cầu thực tế và được sự đồng ý của giáo viên hướng dẫn, cô Nguyễn Thu Hương, tôi chọn đề tài: Quản lý thư viện Đề tài quản lý thư viện được xây dựng trên hệ quản trị cơ sở dữ liệu Access97. Đây là một đề tài mang tính thực tế, nhưng với kinh nghiệm chưa nhiều và kiến thức có hạn nên khó tránh khỏi sai sót, tôi mong nhận được nhiều ý kiến đóng góp và chỉ bảo của các thầy cô, các bạn bè để đề tài được hoàn thiện hơn.
Trang 1lời nói đầu
Ngày nay, không ai còn nghi ngờ gì vai trò của thông tin đối với đời sốngxã hội Sự nắm bắt đợc nhu cầu thực tế xã hội, những thông tin chính xác,nhanh nhậy là nhu cầu chính của con ngời trong mọi mặt vận động của xã hội,dới mọi quy mô ngày càng đóng vai trò cốt yếu trong việc quản lý và điều hành
Với trình độ khoa học ngày càng phát triển, đặc biệt là lĩnh vực khoa học
điện tử, đã và đang đợc quan tâm đầu t, ứng dụng trong nhiều lĩnh vực khácnhau Trong đó, việc ứng dụng tin học trong mọi tổ chức kinh tế, hành chính
đoàn thể, trong các Xí nghiệp và Công ty, trong các trờng Đại học, Viện nghiêncứu và thiết kế rất là quan trọng
Nhờ vào tin học, chúng ta có thể quản lý mọi lĩnh vực một cách nhanhchóng nh: Quản lý sinh viên, Quản lý vật t, Quản lý th viện, Quản lý bán hàng
mà trớc kia khi tin học cha đợc phổ biến thì các công việc này đã làm chúng tamất rất nhiều thời gian và công sức Sự phát triển nhanh chóng của máy tính đãlàm thay đổi cục diện của lĩnh vực quản lý Các phần mềm linh hoạt và thôngminh đó đã giúp chúng ta cho công việc quản lý thuận tiện, nhanh chóng trongviệc thống kê, tìm kiếm, tính toán, thông báo kịp thời những thông tin cần thiết,giảm nhẹ không gian lu trữ, thay thế cho việc làm thủ công với hiệu quả thấp lạicồng kềnh
Xuất phát từ các yêu cầu thực tế và đợc sự đồng ý của giáo viên hớngdẫn, cô Nguyễn Thu Hơng, tôi chọn đề tài: Quản lý th viện
Đề tài quản lý th viện đợc xây dựng trên hệ quản trị cơ sở dữ liệuAccess97
Đây là một đề tài mang tính thực tế, nhng với kinh nghiệm cha nhiều vàkiến thức có hạn nên khó tránh khỏi sai sót, tôi mong nhận đợc nhiều ý kiến
đóng góp và chỉ bảo của các thầy cô, các bạn bè để đề tài đợc hoàn thiện hơn
Tôi xin chân thành cảm ơn cô Nguyễn Thu Hơng đã giúp đỡ tận tình đểtôi hoàn thành bài thực tập này
giới thiệu chơng trình
Trang 2Với trình độ khoa học kỹ thuật ngày càng phát triển đặc biệt là khoa học
và thông tin đã bắt đầu đợc quan tâm đầu t và ứng dụng trong nhiều lĩnh vựckhác nhau Trong đó việc ứng dụng tin học vào công việc quản lý cơ sở dữ liệu
và xử lý tính toán, tìm kiếm, chèn xoá một cơ sở dữ liệu để đạt hiệu quả caonhất trong công việc quản lý
Trớc kia, khi tin học cha đợc phổ biến thì các công việc trong quản lý cơ
sở dữ liệu quả là rất vất vả và mất rất nhiều thời gian tìm kiếm theo phiếu Naytin học đợc đa vào quản lý cơ sở dữ liệu đã giúp cho những ngời làm công việcquản lý đỡ vất vả hơn trong công việc Hiện nay, chơng trình quản lý sử dụngbằng ngôn ngữ Access đợc dùng rất phổ biến Chính vì vậy, tôi chọn viết chơngtrình Quản lý th viện bằng ngôn ngữ Access
Sơ lợc về cơ sở dữ liệu của Microsoft Access:
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ả:
- Lu trữ dữ liệu trong cơ sở dữ liệu
- Cho phép ngời dùng 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ậtkhẩu, đồng thời có chức năng gán quyền sử dụng cho mỗi cá nhân hay từngnhóm riêng biệt Điều quan trọng nhất là nó đảm bảo các ràng buộc toàn vẹn dữliệu ngay cả khi đợc phân tán trên mạng và cơ chế khoá cho phép nhất quán khitruy cập trong môi trờng đa ngời dùng
Là một chơng trình chạy trê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 nhWord, Excel hay phần liên kết nhúng đối tợng OLE
- Chơng trình đòi hỏi cấu hình máy lớn, giá thành đầu t để có đợc phầnmềm phù hợp
Các công cụ của Access cần thiết để tạo ra một cơ sở dữ liệu:
1 Table (Bảng): là một thành phần cơ bản của cơ sở dữ liệu trongAccess, là đối tợng quan trọng nhất Trong một Table số liệu đợc tổ chức trênnhiều dòng (record) và trên dòng nhiều cột (field) Có thể tạo nhiều Table trongmột cơ sở dữ liệu, mỗi Table lu trữ về một đối tợng thông tin nào đó Cơ cấu tổ
Trang 32 Query (truy vấn): là công cụ cho phép đặt câu hỏi với dữ liệu lu trongcơ sở dữ liệu Cách thức truy vấn (tức là cách đặt câu hỏi) sẽ cho Access biết tacần những thông tin gì và hệ thống sẽ vận động dữ liệu dựa trên các mối quan
hệ thiết lập sẵn để rút ra kết quả yêu cầu, có các loại truy vấn
- Truy vấn chọn (Select query): là truy vấn thông dụng nhất Với kiểutruy vấn này ta có thể xem xét dữ liệu trong các bảng, thực hiện phân tích vàchỉnh sửa dữ liệu đó Ta có thể xem thông tin từ một bảng hoặc thêm vào các tr-ờng từ nhiều bảng khác
- Crosstabquery: thể hiện dữ liệu dạng hàng và cột nh bảng tính
- Action query: dùng để chỉnh sửa nhiều bản ghi cùng một lúc Loại truyvấn này có thể tạo bảng mới, thêm xoá sửa các bản ghi trong bảng
- Union query: kết hợp các trờng tơng ứng từ hai hay nhiều bảng
- Data - definition query: tạo, xoá, chỉnh sửa các bảng trong CSDL dùngcác lệnh trong SQL
3 Form (biểu mẫu): dùng cho các thao tác nhập liệu, giúp ngời ta có cảmgiác nh đang ghi điền vào các mẫu phiếu Một biểu mẫu trong Access địnhnghĩa một tập dữ liệu ta muốn thu nhập và từ đó đa vào CSDL Ta cũng có thểdùng biểu mẫu để xem xét dữ liệu hay in ra để quảng cáo
4 Report (báo biểu): dùng in ấn hay thể hiện các báo biểu dới nhiều hìnhthức trình bày phong phú, đẹp mắt, đồng thời dùng để thể hiện kết quả của cácbảng Query
5 Macro (lệnh gộp): là một tập hợp các lệnh tự động hoá các thao tác ờng nhật hay vì phải lặp đi lặp lại một cách nhàm chán Khi cho chạy mộtMacro, Access thực hiện lại một loạt thao tác đã quy định trớc
th-6 Modul (đơn thể): là một dạng tự động hoá cao cấp hơn Macro, đợc lậptrình bằng ngôn ngữ Access
nội dung đề tài
Trang 4I Mục đích cơ bản của đề tài
II Khảo sát hệ thống cũ
III ý nghĩa của việc tin học hoá thay cho hệ thống hiện tại
chơng II: phân tích hệ thống
I Phân tích các chức năng cơ bản của hệ thống
1 Các chức năng cơ bản trong hệ thống quản lý th viện
2 Phân loại và gom tụ các chức năng thành các chức năng con của chức năng chính
III Biểu đồ luồng dữ liệu
1 Biểu đồ luồng dữ liệu mức khung cảnh
2 Biểu đồ luồng dữ liệu mức đỉnh
3 Biểu đồ luồng dữ liệu mức dới đỉnh
IV Biểu đồ cấu trúc dữ liệu
Trang 5I Mục đích cơ bản của đề tài
Hệ thống quản lý th viện từ trớc đến nay tuy là làm thủ công nhng cácthao tác thừa hành của nó có tính khoa học rất cao Tuy vậy, nó đòi hỏi rấtnhiều thời gian và công sức của con ngời mà không thể tránh đợc những nhầmlẫn, sai sót Trong thực tế hiện nay, việc quản lý một khối lợng lớn sách báo vàbạn đọc của th viện thật không dễ dàng chút nào, và việc quản lý theo phơngpháp thủ công sẽ mất rất nhiều thời gian, thậm chí không đáp ứng nổi Vì vậy,việc đa tin học vào công tác quản lý sẽ giúp chúng ta giải quyết vấn đề này
II Khảo sát hệ thống cũ
1 Một số nguyên tắc trong quản lý th viện
Về nguyên tắc, dù quản lý trên máy vi tính nhng mô hình hoạt động của
hệ thống th viện vẫn dựa trên phơng thức quản lý truyền thống
Trớc hết, để quản lý một khối lợng lớn sách báo và tạp chí thì phải tổchức tốt hệ thống th mục Hệ thống th mục sẽ giúp bạn đọc tra cứu sách mộtcách hữu hiệu, cán bộ th viện tìm kiếm sách một cách dễ dàng
Thông thờng ta có thể tổ chức hệ thống th mục theo nhiều cách:
- Hệ thống th mục theo thể loại: Hình thức này tiện cho bạn đọc tìm sách
để nghiên cứu theo một chuyên sâu nào đó
- Hệ thống th mục theo tên sách: Đối với hình thức này, khi cần mợnsách biết chính xác tên thì việc tìm kiếm trở nên dễ dàng
- Hệ thống th mục theo tên tác giả: Cách tổ chức này thuận tiện khi bạn
đọc muốn tìm sách của một tác giả nào đó
2 Phân tích hệ thống quản lý th viện cũ
Một yếu tố quan trọng quyết định đến hiệu quả của việc quản lý sách đó
là quản lý bạn đọc Bất cứ lúc nào ngời quản lý th viện cũng có thể biết đợcnhững ai mợn sách gì của th viện Việc nắm vững thông tin về bạn đọc và cácnhu cầu về sách của họ sẽ giúp việc quản lý của họ tốt hơn và từ đó có hớng đầu
t sách thích hợp
Những năm trớc đây, khi máy tính cha đợc sử dụng rộng rãi, các hệthống quản lý đều làm theo phơng pháp thủ công Hệ thống quản lý th việncũng quản lý theo phơng pháp đó Trong tình hình hiện nay, việc quản lý mộtkhối lợng lớn sách báo cũng nh bạn đọc theo phơng pháp này gặp rất nhiều khókhăn Nó đòi hỏi phải có nhiều cán bộ lâu năm, có kinh nghiệm và phải tốnnhiều công sức mà chắc chắn vẫn không thể tránh khỏi sai sót, nhầm lẫn
Những khó khăn này thể hiện qua các công việc quản lý sau:
Trang 6- Đối với việc phục vụ bạn đọc:
Khi bạn đọc mợn một cuốn sách, cán bộ th viện phải kiểm tra xem cuốnsách đó có còn trong th viện không, nếu còn mới làm thủ tục cho mợn Côngviệc này là tất yếu nhng tốn rất nhiều thời gian để tìm sổ và tra cứu Nếu có sựsai lệch về thông tin giữa các bảng danh mục sách và số lợng sách hiện có trongkho sẽ dẫn đến tình trạng bạn đọc phải chờ đợi rất lâu mới nhận đợc câu trả lời
là đã hết sách Trờng hợp bạn đọc không nắm vững những thông tin về cuốnsách thì việc tìm kiếm càng trở nên khó khăn hơn
- Đối với việc quản lý:
Khi cần báo cáo thống kê định kỳ về danh mục các loại sách có trong thviện, tình hình bạn đọc, tổng kinh phí đầu t của cả một th viện sẽ tốn rất nhiềuthời gian, thậm chí không làm nổi
Tóm lại, việc quản lý theo phơng pháp thủ công trong hệ thống cũ làkhông còn phù hợp ở các th viện hiện nay Những tồn tại trên đây cho thấy việc
tổ chức lại hệ thống th viện là rất cần thiết để có thể giải quyết đợc các tồn tạitrên, đáp ứng các yêu cầu trong quản lý th viện
3 Những yêu cầu của hệ thống mới
Công tác quản lý th viện làm việc với một số lợng lớn sách báo và độcgiả, nếu không biết xắp xếp và tổ chức công việc hợp lý sẽ gặp rất nhiều khókhăn
Hệ thống quản lý mới phải khắc phục đợc các nhợc điểm của hệ thống
cũ, phải giúp đợc các cán bộ quản lý th viện làm việc dễ dàng hơn, thuận tiệnhơn giúp bạn đọc đợc phục vụ tốt hơn và để cho họ chấp hành các quy địnhcủa th viện một cách nghiêm túc
III ý nghĩa của việc tin học hoá thay cho hệ thống hiện tại
Hệ thống quản lý hiện tại đợc làm bằng thủ công nên công việc gặpkhông ít khó khăn, nhất là trong vấn đề lu trữ, cập nhật, tra cứu những thôngtin cần thiết Với việc tin học hoá hệ thống hiện tại đã khắc phục những nhợc
điểm nêu trên, đáp ứng công việc yêu cầu đề ra
chơng II: phân tích hệ thống
Trang 7- Nhập sách mới
- Cập nhật thông tin về sách
- Xem danh mục sách và sách cho mợn
- Tra cứu, tìm kiếm theo tên sách, tên tác giảm, thể loại
- Thống kê mợn trả
- Thống kê sách
- Theo dõi thống kê mợn trả của bạn đọc
2 Phân loại và gom tụ các chức năng thành các chức năng con của chức năng chính
Sau khi phân loại và gom tụ ta đợc hệ thống quản lý th viện với 5 chứcnăng chính:
Trang 8e Chức năng tra cứu thông tin gồm:
- Tìm kiếm theo mã sách
- Tìm kiếm theo têb sách
- Tìm kiếm theo chủ đề
- Tìm kiếm theo tên tác giả
II Biểu đồ phân cấp chức năng
Qua quá trình phân tích các chức năng trên của hệ thống quản lý th viện
ta thu đợc một mô hình chung về quả trình quản lý th viện dới dạng biểu đồphân cấp chức năng sau:
III Biểu đồ luồng dữ liệu
1 Biểu đồ luồng dữ liệu mức khung cảnh
Trả sách
In quá
hạn
Nhập thông tin bạn đọc
Sửa thông tin bạn đọc
Huỷ thông tin bạn đọc
Thống kê sách
Thống kê bạn đọc
Thống kê mượn sách
Trang 9phân tích phải xem xét mọi ràng buộc của hệ thống Sơ đồ mức khung cảnh sẽdiễn tả mọi tập hợp các chức năng của hệ thống trong các mối quan hệ trớc sau,trong tiến trình xử lý, bàn giao thông tin cho nhau Đây chính là công cụ chínhcủa quá trình phân tích hệ thống, là cơ sở để thiết kế phần trao đổi và phần dữliệu.
Thông tin Nhập sách
Sách mợn
trả
Trong đó bạn đọc, nhân viên quản lý, sách là những tác nhân ngoài hệthống, các liên kết chỉ các dòng thông tin của hệ thống Sơ đồ dòng dữ liệu làmột trong những dòng công cụ quan trọng nhất trong việc phân tích hệ thống cócấu trúc, nó đa ra phơng pháp thiết kế mối quan hệ giữa các chức năng hoặc quátrình của hệ thống với những thông tin mà chúng sử dụng
2 Biểu đồ luồng dữ liệu mức đỉnh
Chức năng của hệ thống quản lý đợc phân rã thành: Quản lý sách, Quản
lý bạn đọc, Quản lý mợn trả, Thống kê, Tra cứu
Các tác nhân ngoài vẫn bảo toàn, các luồng dữ liệu vẫn bảo toàn, có thêmcác luồng dữ liệu nội bộ, xuất hiện các kho dữ liệu
Hệ thống quản lý
Nhân viên quản lý
Trang 10Bạn đọc Sách Mợn trả
Quản lý sách
Quản lý mượn trả
Trang 113 Biểu đồ luồng dữ liệu mức dới đỉnh
Sơ đồ luồng dữ liệu mức dới đỉnh chi tiết thêm một bớc nữa, từ đó tìm ra luồng dữ liệu cho từng modul chơng trình một cách cụ thể
- Sơ đồ luồng dữ liệu chức năng quản lý sách
- Sơ đồ luồng dữ liệu chức năng quản lý mợn trả
- Sơ đồ luông dữ liệu chức năng quản lý bạn đọc
- Sơ đồ luồng dữ liệu chức năng thống kê
- Sơ đồ luồng dữ liệu chức năng tra cứu
a Biểu đồ luồng dữ liệu chức năng quản lý sách
Sách
Nhập sách
Huỷ thông tin sách
Sửa thông tin sáchSách nhập
Trang 12b Biểu đồ luồng dữ liệu chức năng quản lý mợn trả
Bạn đọc Sách Mợn trả
Mượn sách
In giấy báo quá
hạn
Trả sáchBạn đọc
Trang 13c Biểu đồ luồng dữ liệu chức năng quản lý bạn đọc
Bạn đọc
Nhập thông tin
bạn đọc
Huỷ thông tin bạn đọc
Sửa thông tin bạn đọcBạn đọc
Trang 14d Biểu đồ luồng dữ liệu chức năng thống kê
e Biểu đồ luồng dữ liệu chức năng tra cứu
Sách
Thống kê mượn sách
Nhân viên quản lý
Tra theo
Bạn đọc
Tra theo tên tác giả
Trang 15IV Biểu đồ cấu trúc dữ liệu
1 Biểu đồ thực thể liên kết
MASACH MASACH MABD
TENSACH MABD HOTEN
TACGIA NGAYMUON NGAYSINH
NHAXB NGAYHENTRA GIOITINH
NAMXB DIACHI
SOLUONG NGAYLAMTHE NGAYNHAP NGAYHETHANTHELOAI
NOIDE
2 Sơ đồ liên kết dữ liệu
Trang 16chơng iii: thiết kế cơ sở dữ liệu
2 Bảng Bạn đọc (Table BAN DOC)
Trang 17stt tên trờng kiểu mô tả
II Các chức năng và các Forms của chơng trình
Forms chơng trình chính, Forms này có các Menu gọi đến các Forms chức năng của chơng trình
1 Chức năng nhập số liệu
a Khi chọn chức năng "Nhập sách" thì chơng trình sẽ hiện ra Form
Trang 18- Nút điều khiển "Thoát" thực hiện việc đóng Form "Nhập thông tin sách" lại và quay trở lại chơng trình chính Thủ tục xử lý sự kiện nh sau:
Private Sub thoat_Click()
DoCmd.Close
End Sub
-Nút điều khiển "Không" có tác dụng không nhập thông tin đa vào Thủ tục xử lý sự kiện nh sau:
Private Sub KHONG_Click()
Forms![NHAP_SACH]![MA SACH] = Null
Forms![NHAP_SACH]![TEN SACH] = Null
Forms![NHAP_SACH]![CHU DE] = Null
Forms![NHAP_SACH]![TAC GIA] = Null
Forms![NHAP_SACH]![NHA XB] = Null
Forms![NHAP_SACH]![NAM XB] = Null
Forms![NHAP_SACH]![SO LUONG] = Null
Forms![NHAP_SACH]![NGAY NHAP] = Null
Forms![NHAP_SACH]![NOI DE] = Null
DoCmd.GoToControl "MA SACH"
End Sub
-Nút điều khiển "Đồng ý" thực hiện việc nhập ghi thông tin sách trên Form vào bảng "SACH" Thủ tục xử lý sự kiện nh sau:
Trang 19Dim REC As Recordset
Dim S As String
Set DB = CurrentDb
Set REC = DB.OpenRecordset("SACH")
REC.AddNew
REC("MA SACH") = Forms![NHAP_SACH]![MA SACH]
REC("TEN SACH") = Forms![NHAP_SACH]![TEN SACH]REC("CHU DE") = Forms![NHAP_SACH]![CHU DE]
REC("TAC GIA") = Forms![NHAP_SACH]![TAC GIA]
REC("NHA XB") = Forms![NHAP_SACH]![NHA XB]
REC("NAM XB") = Forms![NHAP_SACH]![NAM XB]
REC("SO LUONG") = Forms![NHAP_SACH]![SO LUONG]REC("NGAY NHAP") = Forms![NHAP_SACH]![NGAY NHAP]REC("NOI DE") = Forms![NHAP_SACH]![NOI DE]
REC.Update
REC.Close
Forms![NHAP_SACH]![MA SACH] = Null
Forms![NHAP_SACH]![TEN SACH] = Null
Forms![NHAP_SACH]![CHU DE] = Null
Forms![NHAP_SACH]![TAC GIA] = Null
Forms![NHAP_SACH]![NHA XB] = Null
Forms![NHAP_SACH]![NAM XB] = Null
Forms![NHAP_SACH]![SO LUONG] = Null
Forms![NHAP_SACH]![NGAY NHAP] = Null
Forms![NHAP_SACH]![NOI DE] = Null
DoCmd.GoToControl "MA SACH"
End Sub
Trang 20b Khi gọi chức năng "Nhập bạn đọc" thì chơng trình sẽ hiện ra Form sau:
- Nút điều khiển "Thoát" thực hiện việc đóng Form lại và quay trở về
ch-ơng trình chính Thủ tục xử lý sự kiện này nh sau:
Private Sub thoat_Click()
Forms![NHAP_BD]![HO TEN] = Null
Forms![NHAP_BD]![NGAY SINH] = Null
Forms![NHAP_BD]![GIOI TINH] = Null
Forms![NHAP_BD]![DIA CHI] = Null
Forms![NHAP_BD]![NGAY LAM THE] = Null
Forms![NHAP_BD]![NGAY HET HAN] = Null
DoCmd.GoToControl "MA BD"
End Sub
-Nút điều khiển "Đồng ý" thực hiện nhệm vụ ghi thông tin nhập vào trên Form vào bảng "BAN DOC" Thủ tục xử lý sự kiện này nh sau:
Trang 21Dim REC As Recordset
Set DB = CurrentDb
Set REC = DB.OpenRecordset("BAN DOC", DB_OPEN_TABLE)REC.AddNew
REC("MA BD") = Forms![NHAP_BD]![MA BD]
REC("HO TEN") = Forms![NHAP_BD]![HO TEN]
REC("NGAY SINH") = Forms![NHAP_BD]![NGAY SINH]
REC("GIOI TINH") = Forms![NHAP_BD]![GIOI TINH]
REC("DIA CHI") = Forms![NHAP_BD]![DIA CHI]
REC("NGAY LAM THE") = Forms![NHAP_BD]![NGAY LAM THE]REC("NGAY HET HAN") = Forms![NHAP_BD]![NGAY HET HAN]REC.Update
REC.Close
Forms![NHAP_BD]![MA BD] = Null
Forms![NHAP_BD]![HO TEN] = Null
Forms![NHAP_BD]![NGAY SINH] = Null
Forms![NHAP_BD]![GIOI TINH] = Null
Forms![NHAP_BD]![DIA CHI] = Null
Forms![NHAP_BD]![NGAY LAM THE] = Null
Forms![NHAP_BD]![NGAY HET HAN] = Null
Trang 22- Nút điều khiển "Thoát" thực hiện nhiệm vụ đóng Form và quay trở về chơng trình chính Thủ tục xử lý sự kiện này nh sau:
Private Sub thoat_Click()
DoCmd.Close
End Sub
- Nút điều khiển "Không" có tác dụng không sửa thông tin bạn đọc trên Form đa vào Thủ tục xử lý sự kiện này nh sau:
Private Sub KHONG_Click()
DoCmd.GoToControl "MA SACH"
End Sub
- Nút điều khiển "Xem" thực hiện việc hiển thị lại tất cả các thông tin về sách có mã sách nhập vào trớc khi sửa Thủ tục xử lý sự kiện này nh sau:
Private Sub XEM_Click()
Dim DB As Database, REC As Recordset
Dim dk, ms As String
Set DB = CurrentDb
Set REC = DB.OpenRecordset("SACH", DB_OPEN_DYNASET)
If Not IsNull(Forms![SUA_SACH]![MA SACH]) Then
ms = Forms![SUA_SACH]![MA SACH]
dk = "[MA SACH]=" + "'" + ms + "'"
REC.FindFirst dk
Trang 23Forms![SUA_SACH]![TAC GIA] = REC.Fields![TAC GIA]
Forms![SUA_SACH]![CHU DE] = REC.Fields![CHU DE]
"SACH" nh trên Form nhập vào sẽ đa ra thông báo không có mã đó Thủ tục xử
lý sự kiện này nh sau:
Private Sub SUA_Click()
Dim DB As Database, REC As Recordset
Dim dk, ms As String
Set DB = CurrentDb
Set REC = DB.OpenRecordset("SACH", DB_OPEN_DYNASET)
If Not IsNull(Forms![SUA_SACH]![MA SACH]) Then
Trang 24REC.Fields![TEN SACH] = Forms![SUA_SACH]![TEN SACH]REC.Fields![TAC GIA] = Forms![SUA_SACH]![TAC GIA]
REC.Fields![NHA XB] = Forms![SUA_SACH]![NHA XB]
REC.Fields![NAM XB] = Forms![SUA_SACH]![NAM XB]
REC.Fields![CHU DE] = Forms![SUA_SACH]![CHU DE]
REC.Fields![SO LUONG] = Forms![SUA_SACH]![SO LUONG]REC.Fields![NGAY NHAP] = Forms![SUA_SACH]![NGAY NHAP]REC.Fields![NOI DE] = Forms![SUA_SACH]![NOI DE]