Database Object Demo

No records are listed.

recordsPerPage = 10;
pagesPerBlock = 10;

// The constructor
function pbobj
{
	// Inherit from dbobj
	this%dbobj table="PhoneBook";
	this%keyfield = "ID";
	this%encode:Birthday = "strtotime";
	this%decode:Birthday = "strftime:%d/%m/%Y";
	this%match:Name = "regexp";
	this%match:HeightFrom = "min:Height";
	this%match:HeightTo = "max:Height";
}

pb% = new pbobj;

orderbyOptions = "(array)Height then Name=>'Height, Name',Height (tallest first)=>Height desc,Name only=>Name";

Submit = "{sys%form:Submit}";
clear sys%form:Submit;

rec = "{sys%form:record}";
clear sys%form:record;
if ({#rec:}) {
	Submit = 'Page';
} else {
	rec = 1;
	
	orderby = "{sys%form:orderby}";
	clear sys%form:orderby;
	pb%orderby = "{orderby}";
	orderbySel:{orderby} = "selected";
}

switch ('{Submit}') {
case 'Page':
	pb%query "{session%database:select}" seek="{rec},{recordsPerPage},{pagesPerBlock}";
	break;
case 'Search':
	pb%search = (var)sys%form;
	pb%select seek="{rec},{recordsPerPage},{pagesPerBlock}";
	break;
}

if ('{pb%numrecs}' == 0) {
	display "No records are listed.<br>\n";
} else {
	pagebar = "{pb%page|list:(@value)  ()}";
	display "{pagebar}<br>\n";
	pb%dump pagesize="{recordsPerPage}";
	display "{pagebar}<br>\n";
	if ({#pagebar:}) display "Page {pb%sought:page} showing record {pb%first:rip} to {pb%last:rip} - {pb%count:rip} out of {pb%numrecs}";
	else display "{pb%numrecs|plural:record} {pb%numrecs|verb:be} shown.";
}
</script>
<hr>
<form action="/dbobj.htm">
Name: <input type=text size=20 name=Name value=""> (wild card acceptable, e.g. * for any)<br>
Height
from <input type=text size=10 name=HeightFrom value="">
to <input type=text size=10 name=HeightTo value="">
(blank to ignore)<br>
Order by
<select name=orderby>
<option value=""></option>
<beeforeach orderbyOptions><option value="Name" >Name only</option>
</beeforeach>
</select>
<br>
<input type=submit name=Submit value=Search> (Searching with no criteria will list all records.)
</form>

Back home