Trong đó nội dung từng Menu lệnh nhƣ sau
Mở bảng Mở Query form – report Kết thúc
Trang
HƢỚNG DẪN GIẢI ĐỀ ÔN THI SỐ 06 Câu 1 : Câu 1 :
a. Thiết kế bảng dữ liệu :
- Bảng Nhaxuatban : Với MANXB chọn Require = YES; Index = Yes, no duplicate. (đặt khóa MANXB) - Bảng The : Với MATHE chọn Require = YES; Index = Yes, no duplicate. (đặt khóa MATHE)
- Bảng Tacpham : Với MATP chọn Require = YES; Index = Yes, no duplicate. (đặt khóa MATP) - Bảng Chitietthe : Với MATHE, MATP chọn Require = YES; Index = Yes, duplicated OK. (đặt khóa
MATHE, MATP)
b. Tạo mối quan hệ : Tạo mối quan hệ nhƣ hình sau
- Right click trên bảng TACPHAM chọn Table design chọn MANXB Click thẻ Lookup Click phần display Control chọn Combo box trong phần Row Source click chọn bảng NHAXUATBAN Save & Close thiết kế bảng
- Right click trên bảng CHITIETTHE chọn Table design chọn MATHE Click thẻ Lookup Click phần display Control chọn Combo box trong phần Row Source click chọn bảng THE chọn MATP Click thẻ Lookup Click phần display Control chọn Combo box trong phần Row Source click chọn bảng TACPHAM Save & Close thiết kế bảng Save & Close cửa sổ tạo mối quan hệ. c. Nhập dữ liệu : Nhập bảng THE, NHAXUATBAN TACPHAM CHITIETTHE
Câu 2 : Thực hiện các query
a. Chọn các bảng tham gia truy vấn : THE, TACPHAM, CHITIETTHE chọn đƣa các field MATHE, TENBANDOC, MATP, TENTP, NGAYMUON, NGAYTRA vào lƣới QBE Save truy vấn với tên Query1.
b. Chọn các bảng tham gia truy vấn : CHITIETTHE, THE, TACPHAM Đƣa các field MATHE, TENBANDOC, TENTP, NGAYMUON, NGAYTRA vào lƣới QBE tại field NGAYTRA bỏ dấu kiểm ở phần SHOW phàn Criteria nhập điều kiện IS NULL Save và đặt tên Query2
c. Đầu tiên tạo một truy vấn tạm tìm tổng số sách của mỗi thẻ mƣợn : đƣa bảng CHITIETTHE vào tham gia truy vấn Chọn field MATHE (group by); TSSACH : MATP(count) Save truy vấn với tên Query3 phu.
- Tạo truy vấn tạm tìm số lớn nhất trong số sách mƣợn : đƣa bảng Query3 phu vào tham gia truy vấn chọn field TSSACH (max) Click view SQL VIEW copy câu lệnh SQL (không copy dấu ;) đóng truy vấn tạm không cần SAVE.
- Tạo truy vấn chính để tìm thẻ có TSSACH = số lớn nhất : Chọn bảng QUERY3 PHU, THE đƣa vào lƣới truy vấn các field MATHE; TENBANDOC; TSSACH tại phần criteria của TSSACH dán câu lệnh đã copy vào trong cặp dấu ngoặc đơn Save với tên Query3
d. Đƣa bảng THE, CHITIETTHE vào tham gia truy vấn chọn loại truy vấn Crosstab query MATHE(Groupby–Row heading), TENBANDOC(Groupby–Row heading), NGAYMUON(Groupby – Column heading), MATP(Count – Value) click Run chọn yes lƣu truy vấn với tên QUERY4
Câu 3 : Tạo form THONGTINBANDOC
a. Click create form by using wizard lần lƣợt chọn các field MATHE, TENBANDOC; DIACHI, SODT (bảng the); MATP(chitietthe); TENTP, TACGIA(tacpham); TENNXB(nhaxuatban); NGAYMUON, NGAYTRA (chitietthe) Click Next click Next click Next Chọn kiểu Industrial click next đặt tên form chính là TTBD; tên form phụ TTBD Subform click finish.
b. Về chế độ design view sửa đổi thiết kế lại giống nhƣ trong bài
c. Tạo nút lệnh bằng Wizard, riêng nút xóa không tạo bằng Wizard mà vẽ nút lệnh r.click chọn properties Chọn Event Chọn On Click chọn Macro Builder đặt tên cho Macro là canhbao Click View Conditions nhập và trình bày Macro nhƣ hình vẽ sau Click save trở về cửa sổ tạo form.
d. Right Click Textbox MATHE chọn change to chọn combo box Right Click Textbox MATHE chọn properties chọn data trong phần Control source xóa trống, phần Row source MATHE chọn properties chọn data trong phần Control source xóa trống, phần Row source
nhập câu lệnh SELECT [THE].[MATHE] from [THE]; (có dấu ; cuối câu-xem hình trên), phần
default value nhập “BETX” chọn thẻ Event chọn After Update Code builder nhập đoạn code sau vào giữa Private sub và End sub :
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[MATHE] = '" & Me![MATHE] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
e. Chọn phần form footer của subform tạo textbox rightclick chọn properties chọn thẻ OTHER đặt tên TONGMUON trong phần NAME đóng hộp thoại properties nhập công thức =COUNT([NGAYMUON]) tạo textbox rightclick chọn properties chọn thẻ OTHER đặt tên TONGTRA trong phần NAME đóng hộp thoại properties nhập công thức =COUNT([NGAYTRA]) Vẽ textbox Số sách mƣợn trên FORM chính nhập công thức = [TTBD subform].Form!TONGMUON Vẽ textbox Số sách chƣa trả trên FORM chính nhập công thức = [TTBD subform].Form!TONGTRA Save form
Câu 4 : Tạo báo cáo TBBD
a. Click create REPORT by using wizard lần lƣợt chọn các field MATHE, TENBANDOC, DIACHI, SODT trong bảng THE; MATP (chitietthe); TENTP(tacpham); NGAYMUON; NGAYTRA (chitietthe) Click Next click Next click Next CLick Next Chọn kiểu Align Left 2 CLick Next Chọn hình thức Bold đặt tên cho report THONGBAOBANDOC Click Finish
b. Trở về cửa sổ design trình bày report nhƣ hình sau
Công thức cho tổng số sách đã mƣợn : =DCount("matp";"chitietthe";"mathe=report.mathe")
Công thức cho tổng số sách chƣa trả :
=DCount("matp";"chitietthe";"mathe=report.mathe and ngaytra is null") Câu 5 : Tạo MENU điều khiển
Trang ---
ĐỀ ÔN THI SỐ 7
THỜI GIAN : 120 PHÚT