[Main Page]      [Literature]      [Software]      [People]      [Conferences]      [Courses]      [Web-DB]

Web-DB Interfaces:   Example in PL/SQL (Oracle Application Server)

More Information: http://www.oracle.com/

CREATE PROCEDURE course_query AS
BEGIN
	htp.htmlOpen;
	htp.headOpen;
	htp.htitle('Course Database (Query Form)');
	htp.headClose;
	htp.bodyOpen;
	htp.heading(1, 'Course Database (Query Form)');
	htp.formOpen('http://.../courses/course_result');
	htp.print('Please Enter Instructor:');
	htp.formInput('Inst_Name', 20);
	htp.formSubmit('Execute Query');
	htp.formClose;
	htp.bodyClose;
	htp.htmlClose;
END;

CREATE PROCEDURE course_result(Inst_Name IN VARCHAR2) AS
	CURSOR courses_by_inst IS
		select CRN, Title from Course
		where Name = Inst_Name;
	c Course%ROWTYPE;
BEGIN
	htp.htmlOpen;
	htp.headOpen;
	htp.htitle('Course Database (Query Result)');
	htp.headClose;
	htp.bodyOpen;
	htp.heading(1, 'Courses taught by' || Inst_Name);
	htp.ulistOpen;
	FOR c IN courses_by_inst LOOP
		htp.listItem(c.Title || ' (' || c.CRN ')');
	END LOOP;
	htp.ulistClose;
	htp.bodyClose;
	htp.htmlClose;
END;

Stefan Brass (sbrass@sis.pitt.edu), April 23, 1999

Original URL: http://www2.sis.pitt.edu/~sbrass/db/webdb4.html   [HTML 3.2 Checked]