Bài tập access 2

Chia sẻ: Vu Tien DUNG | Ngày: | Loại File: DOC | Số trang:17

Thêm vào BST

Báo xấu

531
lượt xem 218
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Tham khảo tài liệu 'bài tập access 2', công nghệ thông tin, cơ sở dữ liệu phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Bài tập access 2

ACCESS 2 : PH ẦN BAØI TAÄP T aäp tin CSDL laø QLSV.m d b Baøi 1: Caùc yeâu caàu xöû lyù chính: Boä nuùtdi chuyeåncoù xöû lyù thoângbaùoloãi baèngtieángVieät(khoângdaáu)khi khoâng theådi chyeånñöôïc nöõa Nuùt Theâm:cho pheùptheâmmôùi moätmaãutin Nuùt Huûy: neáuKhoa hieänhaønhtreânformkhoângcoù sinh vieânthì cho huûy, ngöôïc laïi thì khoâng. Nuùt Thoaùt:ñoùngform, tröôùckhi thoaùtcoù hoûi laïi ngöôøi duøng. Baøi 2: Caùc yeâu caàu xöû lyù chính:
Boä nuùtdi chuyeåncoù xöû lyù thoângbaùoloãi baèngtieángVieät(khoângdaáu)khi khoâng theådi chyeånñöôïc nöõa Nuùt Theâm:cho pheùptheâmmôùi moätmaãutin Nuùt Huûy: neáuKhoa hieänhaønhtreânformkhoângcoù sinh vieânthì cho huûy, ngöôïc laïi thì khoâng. Nuùt Thoaùt:ñoùngform, tröôùckhi thoaùtcoù hoûi laïi ngöôøi duøng. Nuùt : hieänra formBaøi 1 ñeåtheâm1 Khoa Maõ khoa:laø 1 combobox chöùacaùcKhoa, goàm2 coät:MAKH, TENKH Phaùi: laø combobox cho pheùpchoïn NamhayNöõ (töôngöùngvôùi caùcgiaùtrò -1 vaø 0) Khi theâm,söûatreânsubform: ComboMaõ moânchöùacaùcmoânhoïc, goàm2 coät:MAMH, TENMH KieåmtraÑieåmnaèmtrongkhoaûngtöø 0 ->10 Baøi 3: Caùc yeâu caàu xöû lyù chính: Baétñaàuchaïy formthì môøñi 2 nuùtGhi, Khoâng List box chöùadanhsaùchtaátcaûcaùcmoânhoïc Boä nuùtdi chuyeåncoù xöû lyù saùng/môøkhi khoâng theådi chyeånñöôïc nöõa Nuùt Theâm:cho pheùptheâmmôùi 1 maãutin treânform, khi ñoùcho saùnglaïi 2 nuùtGhi, Khoângvaømôøñi caùc nuùtchöùcnaêngcoønlaïi. Nuùt Ghi, Khoâng:thöïc hieänghi hoaëckhoângghi maãutin. Khi thöïc hieänthaønh coângseõmôøñi 2 nuùtnaøyvaøsaùngcaùcnuùtchöùcnaêngcoønlaïi. -2-
Nuùt Huûy: huûymoânhoïc hieänhaønh,neáumoânhoïc ñoù ñaõcoù ñieåmthì khoângcho pheùpxoùa. Nuùt Tìm: cho pheùptìm theocoätMAMH baèngformtìm cuûaAccess Nuùt Thoaùt:ñoùngform, tröôùckhi thoaùtcoù hoûi laïi ngöôøi duøng. Khi choïn 1 moânhoïc tronglist box, thì maãutin hieänhaønhtreânformseõtöông öùngvôùi giaùtrò ñöôïc choïn tronglist box. Khi di chuyeånmaãutin hieänhaønhtreânform, veätsaùngtronglist box cuõngtöông öùngtaïi vò trí MAMH hieänhaønhtreânform. Baøi 4: Caùc yeâu caàu xöû lyù chính: Ban ñaàukhi chöachoïn Maõ khoa,formkhoângtheåhieändöõ lieäu. ComboChoïn maõkhoachöùataátcaûcaùckhoa,goàm2 coät:MAKH, TENKH List box SV chöùadanhsaùchcaùcsinhvieântheokhoañöôïc choïn ôû comboChoïn maõkhoa SubformKeát quaûchöùakeátquaûcaùcmoânhoïc cuûasinh vieânñöôïc choïn trong list box SV Khi choïn 1 maõkhoa,teânkhoatöï ñoänghieänra. Khi ñoù, lieätkeâcaùcsinhvieân thuoäckhoañoù tronglist box SV. OÂ Toångsoásinhvieân:ñeámtoångsoásinh vieânhieäncoù tronglist OÂ Ñieåmtrungbình: tính ñieåmtrungbình cuûasinhvieânñöôïc choïn tronglist SV -3-
OÂ Toångsoámoânñaäu:ñeámsoámoânñaäucuûasinh vieânñöôïc choïn tronglist SV OÂ Toångsoásinhvieântrongkhoa:ñeámsoásinh vieâncuûakhoañöôïc choïn trong comboMaõ khoa OÂ Xeáploaïi: ÑTB >=9 : Gioûi ÑTB >=7 : Khaù ÑTB >=5 : TB Nuùt In baùocaùo:xuaátbaùocaùoÑieåmthi cuûasinhvieântheokhoa( Phaàn Report2) ra maønhình. Löu yù chæñöara thoângtin lieânquanñeánkhoañöôïc choïn trongcomboMaõ khoa. Baøi 5: Trang 1: Caäp nhaät Trang 2: Lieät keâ Caùc yeâu caàu xöû lyù chính: Caùcyeâucaàuchöùcnaêngôû trangCaäpnhaättöôngtöï nhö Baøi 3 List box moânhoïc chöùadanhsaùchtaátcaûcaùcmoânhoïc. Khi môùi di chuyeånsangtrangLieätkeâ,veätsaùngtronglist box phaûi töôngöùng vôùi giaùtrò cuûaMAMH ôû trangCaäpnhaät. -4-
Ngöôïc laïi, khi choïn 1 moânhoïc tronglist box vaøtrôûveàtrangCaäpnhaätthì maãutin hieänhaønhcuûaformphaûi töôngöùngvôùi giaùtrò vöøachoïn tronglist box. OÂ Toångsoámoânhoïc: ñeámtoångsoámoânhoïc ñangcoù tronglist box. Baøi 6: Caùc yeâu caàu xöû lyù chính: ComboChoïn coätcho pheùpchoïn caùccoätcoù treân formnhaèmmuïc ñích tìm kieám,saépxeáp,loïc döõ lieäutheocoätvöøachoïn. OÂ Giaù trò tìm/ loïc döõ lieäucho pheùpnhaäpvaøogiaùtrò caàntìm hoaëcgiaùtrò caànloïc töôngöùngvôùi teâncoätñöôïc choïn trongcomboChoïn coät. Nuùt Tìm kieám:thöïc hieäntìm theocoätñöôïc choïn trongcomboChoïn coätvôùi giaùtrò tìm ñöôïc nhaäptrongoâ Giaù trò tìm/ loïc döõ lieäu. Nuùt Saépxeáp:thöïc hieänsaépxeáptheoteâncoätñöôïc choïn trongcomboChoïn coätvôùi daïngsaépxeápñaõchoïn. Nuùt Loïc döõ lieäu:thöïc hieänloïc döõ lieäutheoteâncoätñöôïc choïn trongcombo Choïn coätvôùi giaùtrò loïc ñöôïc nhaäptrongoâ Giaù trò tìm/ loïc döõ lieäu. Nuùt Huûy loïc: hieänlaïi taátcaûmaãutin treânform. -5-
GroupLoïc tröïc tieáptheoPhaùi: thöïc hieänloïc döõ lieäutheoPHAÙI. Muïc Taát caûchöùcnaênggioánghuûyloïc. Nuùt Thoaùt:ñoùngform, tröôùckhi thoaùtcoù hoûi laïi ngöôøi duøng. Baøi 7: a. Taïo Menu sau: Caùc yeâu caàu xöû lyù chính: Môû Baûng : chöùataátcaûcaùcbaûngtrongCSDL laø QLSV.mdb Môû Form : chöùataátcaûcaùcformtrongCSDL laø QLSV.mdb Môû Report: chöùataátcaûcaùcreporttrongCSDL laø QLSV.mdb Môû Query : chöùataátcaûcaùcquerytrongCSDL laø QLSV.mdb HELP : choïn Thoângtin seõhieånthò choïn Thoaùtseõñoùnglaànlöôït . b. Taïo Toolbar sau: Caùc yeâu caàu xöû lyù chính: GaénTOOLBAR naøyvaøoformBaøi 1 ôû treân. Thieátlaäpcaùcboänuùtdi chuyeån. ñoùngformhieänhaønh. HÖÔÙNG DAÃN -6-
Baøi 1: Taïo Macro nhoùmnhösau: Baøi 2: Taïo Macro nhoùmnhösau: Baøi 3: Taïo Macro nhoùmnhösau: -7-
Baøi 4: -8-
Toångsoásinh vieân:=DCount("masv","sinhvien") Ñieåmtrungbình: =DAvg("diem","ketqua","masv='"& [lstsv] & "'") Toångsoámoânñaäu: =DCount("mamh","ketqua","masv='"& [lstsv] & "' and diem>=5") Toångsoámoânrôùt: =DCount("mamh","ketqua","masv='"& [lstsv] & "' anddiem
Baøi 7: DuøngcaùcleänhAll Tables,All Forms,All Reports,All Queries,All Macros ThaotaùcgaénToolbarvaøoform: choïn theûOthers\ Toolbar. - 10 -
ACCESS 3 : PHẦN BAØI TAÄP Taäp tin CSDL laø QLSV.mdb Söû duïng VBA (Visual Basic for Applications) Baøi 1: Yeâu caàu: ThieátkeágioángFormhoäpthoaïi treân. Nhaánnuùt Chaøo: seõhieånthò lôøi chaøo:“Chaøo möøng baïn ñeán hoïc phaàn ACCESS 3.” Nhaánnuùt Thoaùt: seõñoùngForm. Baøi 2: Yeâu caàu: Nhaäp teân cho textboxTeân(Name:txtten).Nhaánvaøonuùt Thoâng Baùo thì textboxThoângbaùo(Name:txtthongbao)seõxuaáthieänchuoãi “Chaøo baïn ” cuøngvôùi teânvöøanhaäpcho textboxTeânôû treân. Nuùt Xoaù: xoaùtraéng2 textbox. Con troû seõnaèmtaïi txtten. Nuùt Thoaùt: ñoùngform Baøi 3: - 11 -
Yeâu caàu: Khi nhaánnuùt Tính: Seõ tính ñieåmtrungbình vaøhieånthò ñieåmtrungbình taïi txtDTB. Sauñoùhieånthò keátquaûxeáploaïi hoïc taäpcuûahoïc sinhtaïi txtXL. Bieát raèng: Ñieåmtrungbình = 10 : Xuaátsaéc 10 >Ñieåmtrungbình>=9 : Gioûi 8 >Ñieåmtrungbình>=7 : Khaù 7 >Ñieåmtrungbình>=5 : Trungbình Ngöôïc laïi : Yeáu Baøi 4: Yeâu caàu xöû lyù chöùc naêng: Khi click vaøonuùtDanhsaùchsinhvieânthì cho môûReport1vaøloïc nguoàndöõ lieäutheoKhoa ñangchoïn trongcombobox. - 12 -
Khi click vaøonuùtBaûngñieåmthì cho môûReport2vaøloïc nguoàndöõ lieäutheo sinhvieânñangchoïn treânlistbox. Caùcthaotaùctheâm,xoùa,söûathoângtin ñieåmthi cuûasinh vieânseõñöôïc thöïc hieäntröïc tieáptreânsubform Maõ moânhoïc cuûasubformlaø 1 combobox duøngñeålieätkeâtaátcaûnhöõng moânhoïc chöacoù ñieåmcuûasinhvieânñangchoïn treânlistbox. Teânmoânhoïc khoângcho chænhsöûa,giaùtrò seõtöï ñoänghieånthò saukhi choïn moätmaõmoâncoù trongdanhsaùchcuûacombobox maõmoân. Yeâu caàu xöû lyù loãi: Khoa chæcho pheùpchoïn 1 trongnhöõnggiaùtrò coù trongdanhsaùchcuûacombo box. Neáungöôøi duøngnhaäp1 giaùtrò khoângtoàntaïi trongdanhsaùchphaûi thoângbaùovaø yeâucaàuhoï choïn laïi giaùtrò cho Khoa. Maõ moânhoïc chæcho pheùpchoïn 1 trongnhöõnggiaùtrò coù trongdanhsaùch cuûacombobox. Neáungöôøi duøngnhaäp1 giaùtrò khoângtoàntaïi trongdanh saùchphaûi thoângbaùovaøyeâucaàuhoï choïn laïi giaùtrò cho Maõ moânhoïc. Ñieåmphaûi töø 0 ñeán10 Ñieåmphaûi laø kieåusoá. Baøi 5: Yeâu caàu xöû lyù chöùc naêng: Caùcthaotaùctheâm,xoùa,söûathoângtin cuûasinhvieânseõñöôïc thöïc hieäntröïc tieáptreânsubform.Giôùi tính trongsubformlaø 1 combobox lieätkeâ2 giaùtrò laø NamvaøNöõ. - 13 -
Caùcthaotaùctheâm,xoùa,söûathoângtin ñieåmthi cuûasinh vieânseõñöôïc thöïc hieäntröïc tieáptreânsubform Maõ moântrongsubformlaø 1 combobox lieätkeânhöõngmoânchöacoù ñieåmcuûa sinhvieânhieänhaønh. Teânmoânhoïc khoângcho chænhsöûa,giaùtrò seõtöï ñoänghieånthò saukhi choïn 1 maõmoâncoù trongdanhsaùchcuûacombobox Maõ moân. Yeâu caàu xöû lyù loãi: Combobox Khoa gioángbaøi 4 Combobox Maõ moânhoïc gioángbaøi 4 Giôùi tính chæcho pheùpchoïn 1 trongnhöõnggiaùtrò coù trongdanhsaùchcuûa combobox. Neáungöôøi duøngnhaäp1 giaùtrò khoângtoàntaïi trongdanhsaùch phaûi thoângbaùovaøyeâucaàuhoï choïn laïi giaùtrò cho Giôùi tính. Tuoåi töø 18 ñeán70 Ñieåmtöø 0 ñeán10 Hoïc boångtöø 0 ñeán1.000.000 Ngaøyphaûi laø kieåungaøy Ñieåmphaûi laø kieåusoá. Baøi 6: Yeâu caàu xöû lyù chöùc naêng: Loïc döõ lieäucuûasubtheo2 ñieàukieänlaø Tuoåi cuûasinh vieânvaøKhoa maø sinhvieânñangtheohoïc Ñieàukieänloïc cuûatuoåi laø Lôùn hôn hayNhoû hôn giaùtrò naøoñoù. Söû duïng moätcombobox ñeångöôøi söûduïngchoïn pheùptoaùncaànloïc. - 14 -
Ñieàukieänloïc cuûaKhoa theo1 teânkhoa.Söû duïngcombobox lieätkeâdanh saùchnhöõngteânkhoahieäncoù trongCSDL. Khi click vaøonuùtLoïc thì subformseõhieånthò nhöõngsinhvieânthoûañieàukieän loïc. Chæloïc neáuñieàukieänchöùagiaùtrò loïc coù döõ lieäu,neáukhoângthì seõ boûquañieàukieänloïc naøokhoângcoù giaùtrò. Khi click vaøonuùtBoû loïc thì deõhieånthò taátcaûdöõ lieäucuûasubformnhökhi loïc döõ lieäu. HÖÔÙNG DAÃN Baøi 1: CODE CHO NUÙT CHAØO: PrivateSub CMDCHAO_Click() MsgBox " Chaøomöøngbaïnñeánhoïc phaànACCESS 3" End Sub CODE CHO NUÙT THOAÙT: PrivateSub cmdthoat_Click() DoCmd.Close End Sub Baøi 2: CODE CHO NUÙT THOÂNG BAÙO: PrivateSub cmdtb_Click() txttb="Chaøobaïn " & " " & txtnt& " !!!" End Sub CODE CHO NUÙT XOÙA: PrivateSub cmdxoa_Click() txtnt="" txttb="" txtnt.SetFocus End Sub Baøi 3: CODE CHO NUÙT TÍNH: PrivateSub cmdtinh_Click() txtdiemtb=(Val(txttoan)* 2 +Val(txtly) +Val(txthoa))/ 4 - 15 -
SelectCasetxtdiemtb Case10 txtXL ="Xuaátsaéc" CaseIs >=9 txtXL ="Gioûi" CaseIs >=7 txtXL ="Khaù" CaseIs >=5 txtXL ="Trungbình" CaseElse txtXL ="Yeáu" End Select End Sub Baøi 4: CODE CHO NUÙT DANH SAÙCH SINH VIEÂN: PrivateSub Command12_Click() DoCmd.OpenReport"Report1”,acViewPreview,, "makh=forms!bai4!cbokhoa" End Sub CODE CHO NUÙT BAÛNG ÑIEÅM: PrivateSub Command13_Click() DoCmd.OpenReport" Report2",acViewPreview,, "masv=forms!bai4!lstsv" End Sub Tại On Not in List của combo box: PrivateSub MAMH_NotInList(NewDataAs String, ResponseAs Integer) Response=0 MsgBox "Ban ph i chọn giá trị có trongComboBox", vbYesNo, "ThôngBáo" ả End Sub Tại Before Update của textbox: PrivateSub DIEM_BeforeUpdate(CancelAs Integer) If (DIEM 10) Then MsgBox "Ñieåmphaûi töø 0 ñeán10", vbYesNo, "ThoângBaùo" Cancel =True End If End Sub - 16 -
Tại On Error của formsub: PrivateSub Form_Error(DataErrAs Integer,ResponseAs Integer) Response=0 SelectCaseDataErr Case2113: MsgBox "Ñieåmphaûi laø kieåudöõ kieäusoá!" CaseElse MsgBox "Loãi khaùc!" End Select End Sub Baøi 6: CODE CHO NUÙT LOÏC: PrivateSub cmdloc_Click() If cbopheptinh=1 Then Me.sub2.Form.FilterOn=True Me.sub2.Form.Filter=" tuoi>"& txttuoi & "andmakh='"& cbokhoa& "'" Else Me.sub2.Form.FilterOn=True Me.sub2.Form.Filter=" tuoi