Tạo Menu như sau : (1điểm)

Trong đó nội dung từng Menu lệnh như sau

HƯỚNG DẪN GIẢI ĐỀ ÔN THI SỐ 06Câu 1 : Câu 1 :

a. Thiết kế bảng dữ liệu :

- BảngNhaxuatban : Với MANXB chọn Require = YES; Index = Yes, no duplicate. (đặt khóa MANXB)

- BảngThe : Với MATHE chọn Require = YES; Index = Yes, no duplicate. (đặt khóa MATHE)

- BảngTacpham : Với MATP chọn Require = YES; Index = Yes, no duplicate. (đặt khóa MATP)

- BảngChitietthe : 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ệnIS NULLSave và đặt tên Query2

c. Đầu tiên tạo một truy vấn tạmtì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.

28

d. Right Click Textbox MATHE  chọn change to  chọn combo box  Right Click TextboxMATHE 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ọnAfter 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

---

ĐỀ ÔN THISỐ 7

THỜI GIAN : 120 PHÚT