Bài tập thực hành môn cơ sở dữ liệu ORACLE

ĐẠI HỌC QUỐC GIA TP.HỒ CHÍ MINH TRƯỜNG ĐẠI HỌC CÔNG NGHỆ THÔNG TIN 10:12:17 AM Bài tập 1: Xây dựng khối lệnh tính n giai thừa set serveroutput on; declare n number; gt number; begin n:=&n; gt:=1; for i in n loop gt:=gt*i; end loop; dbms_output.put_line(gt); end; 10:24:08 AM Bài tập 2: Xây dựng khối lệnh xuất bảng cửu chương thứ n set serveroutput on; declare n number; begin n:=&n; for i in loop dbms_output.put_line(n || ' x ' || i || ' = ' || i*n); end loop; end; 11:39:15 AM Bài tập 3: Xây dựng khối lệnh giải phương trình bậc Ax2 + B = Bài tập 4: Xây dựng khối lệnh giải phương trình bậc Ax2 + Bx + C = Bài tập 5: Xây dựng khối lệnh nhập cạnh tam giác A,B,C Cho biết tam giác có hợp lệ khơng? Bài tập 6: Xây dựng khối lệnh nhập cạnh tam giác A,B,C Cho biết tam giác có hợp lệ khơng? Nếu có cho biết loại tam giác: đều, cân, vuông, vuông cân, thường Bài tập 7: Xây dựng khối lệnh nhập ngày, tháng, năm Cho biết ngày, tháng, năm có hợp lệ không? 11:39:19 AM Bài tập 1: Xây dựng khối lệnh kiểm tra MAKH có tồn khơng? set serveroutput on; declare vMaKH khachhang.MaKH%type; vHoTen khachhang.HoTen%type; begin vMaKH:='&vMaKH'; select HoTen into vHoTen from khachhang where MaKH = vMaKH; dbms_output.put_line(vMAKH || ' co ho ten la: ' || vHoTen); exception when no_data_found then dbms_output.put_line('Khong co MaKH ' || vMaKH); end; 12:02:10 PM Bài tập 2: Xây dựng khối lệnh nhập NUOCSX cho biết sản phẩm (MaSP,TenSP) nước này? set serveroutput on; declare vNuocSX SANPHAM.NuocSX%type:='&vNuocSX'; vMaSP SANPHAM.MaSP%type; vTenSP SANPHAM.TenSP%type; cursor curNuocSX is select MaSP,TenSP from SANPHAM where NuocSX = vNuocSX; begin open curNuocSX; fetch curNuocSX into vMaSP,vTenSP; if curNuocSX%ROWCOUNT=0 then dbms_output.put_line('Khong co NuocSX ' || vNuocSX); else dbms_output.put_line(vNuocSX || ' san xuat cac san pham:'); dbms_output.put_line('MaSP TenSP'); loop dbms_output.put_line(vMaSP || ' ' || vTenSP); fetch curNuocSX into vMaSP,vTenSP; exit when curNuocSX%NOTFOUND; end loop; end if; close curNuocSX; end; 2:19:34 PM Bài tập 3: Xây dựng khối lệnh liệt kê sản phẩm bán nhân viên? set serveroutput on; declare vMaNV NHANVIEN.MaNV%type; vHoTen NHANVIEN.HoTen%type; vTenSP SANPHAM.TenSP%type; cursor curNhanVien is select MaNV,HoTen from NHANVIEN; begin open curNhanVien; loop fetch curNhanVien into vMaNV,vHoTen; exit when curNhanVien%NOTFOUND; dbms_output.put_line(vMaNV || ' ' || vHoTen); /* */ declare cursor curSanPham is select distinct tensp from nhanvien nv,hoadon hd,sanpham sp,cthd ct where nv.manv = hd.manv and hd.sohd = ct.sohd and ct.masp = sp.masp and nv.manv = vMaNV; begin open curSanPham; loop fetch curSanPham into vTenSP; exit when curSanPham%NOTFOUND; dbms_output.put_line(' ' || vTenSP); end loop; close curSanPham; /* */ end; end loop; close curNhanVien; end; 3:21:11 PM Bài tập 4: Xây dựng khối lệnh cho phép xoá CTHD theo SoHD nhập vào Bài tập 5: Xây dựng khối lệnh cho phép cập nhật lại giá sản phẩm ứng với mã sản phẩm nhập vào Bài tập 6: Xây dựng khối lệnh cho phép tìm sản phẩm khách hàng mua ứng với mã khách hàng cần tìm Bài tập 7: Xây dựng khối lệnh cho phép xoá sản phẩm ứng với tên sản phẩm nhập vào Bài tập 8: Xây dựng khối lệnh cho phép thêm sản phẩm 3:25:22 PM Bài tập 1: Xây dựng hàm tính n giai thừa? create or replace function giaithua(n number) return number is gt number; begin gt:=1; for i in n loop gt:=gt*i; end loop; return gt; end; set serveroutput on; declare n number; begin n:=&n; dbms_output.put_line(n || ' ! = ' || giaithua(n)); end; 3:36:49 PM 10 Bài tập 2: Xây dựng thủ tục kiểm tra MAKH có tồn khơng? create or replace procedure kiemtraMaKH(vMaKH in char) is vHoTen KHACHHANG.HoTen%TYPE; begin select HoTen into vHoTen from khachhang where MaKH = vMaKH; dbms_output.put_line(vMAKH || ' co ho ten la: ' || vHoTen); exception when no_data_found then dbms_output.put_line('Khong co MaKH ' || vMaKH); end; set serveroutput on; declare vMaKH KHACHHANG.MaKH%TYPE; begin vMaKH :='&vMaKH'; kiemtraMaKH (vMaKH); end; 3:53:48 PM Tương tự hoàn tất tập khối lệnh function procedure 11 Bài tập 1: Xây dựng ràng buộc thêm khách hàng hiển thị thơng báo “Đã thêm thành công”? create or replace trigger trgInsertKhachHang after insert on KHACHHANG for each row begin dbms_output.put_line('Da them cong'); end; set serveroutput on; insert into KHACHHANG(MaKH,HoTen) values('KH90','ABC'); 4:19:38 PM 12 Bài tập 2: Xây dựng ràng buộc xố khách hàng hiển thị thơng báo “Đã xố thành cơng”? create or replace trigger trgInsertKhachHang after delete on KHACHHANG for each row begin dbms_output.put_line('Da xoa cong'); end; set serveroutput on; delete from khachhang where makh = 'KH90' 4:27:38 PM 13 Bài tập 3: Xây dựng ràng buộc thêm hố đơn hiển thị họ tên khách hàng ứng với hoá đơn đó? create or replace trigger trgInsertHoadon after insert on HOADON for each row declare vMaKH KHACHHANG.MaKH%TYPE; vHoTen KHACHHANG.HoTen%TYPE; begin if :new.MaKH IS NOT NULL then vMaKH:=:new.MaKH; select HoTen into vHoTen from khachhang where MaKH = vMaKH; dbms_output.put_line('SoHD: ' || :new.SoHD || ' cua khach hang ' || vHoTen); end if; end; set serveroutput on; insert into HOADON(SoHD,MaKH) values(2001,'KH90'); 4:43:54 PM 14 Bài tập 4: Xây dựng ràng buộc thêm hố đơn hiển thị họ tên nhân viên ứng với hố đơn Bài tập 5: Xây dựng ràng buộc thêm CTHD cập nhật tự động trị giá hoá đơn ứng với CTHD vừa thêm Bài tập 6: Xây dựng ràng buộc xố khách hàng xố tồn liệu có liên quan khách hàng Bài tập 7: Xây dựng ràng buộc cập nhật giá sản phẩm cập nhật lại tồn liệu có liên quan với sản phẩm 4:49:00 PM 15 ... i*n); end loop; end; 11:39:15 AM Bài tập 3: Xây dựng khối lệnh giải phương trình bậc Ax2 + B = Bài tập 4: Xây dựng khối lệnh giải phương trình bậc Ax2 + Bx + C = Bài tập 5: Xây dựng khối lệnh nhập... end; 3:21:11 PM Bài tập 4: Xây dựng khối lệnh cho phép xoá CTHD theo SoHD nhập vào Bài tập 5: Xây dựng khối lệnh cho phép cập nhật lại giá sản phẩm ứng với mã sản phẩm nhập vào Bài tập 6: Xây dựng... mã khách hàng cần tìm Bài tập 7: Xây dựng khối lệnh cho phép xoá sản phẩm ứng với tên sản phẩm nhập vào Bài tập 8: Xây dựng khối lệnh cho phép thêm sản phẩm 3:25:22 PM Bài tập 1: Xây dựng hàm tính