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

Một phần của tài liệu 10 De thi Access (Trang 26)

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ả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, (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ọnproperties  Chọn Event Chọn On Click  chọn Macro Builder  đặt tên cho Macro là canhbao  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 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ọ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

Một phần của tài liệu 10 De thi Access (Trang 26)

Tải bản đầy đủ (DOC)

(43 trang)
w