MySQL & mSQL

         

Благодаря использованию трех параметров эта


<INPUT NAME="address" SIZE=40><br>

Город:

<INPUT NAME="city" SIZE=20>

Штат:

<INPUT NAME="state" SIZE=5>

Почтовый индекс:

<INPUT NAME="zip" SIZE=10><br>

Телефон:

<INPUT NAME="phone" SIZE=15><br>

Возраст:

<INPUT NAME="age" SIZE=5>

Пол:

<SELECT NAME="sex">

END_OF_HTML

if ($any) {

print <<END_OF_HTML; <OPTION VALUE="">He имеет значения

END_OF_HTML

}

print <<END_OF_HTML;

<OPTION VALUE="1">Myжской

<OPTION VALUE="2">Женский

</select><br>

<P>

Записан на:<br>

END_OF_HTML

&print_subjects("MULTIPLE SIZE=5");

}

Благодаря использованию трех параметров эта функция настраивает шаблон формы так, что может использоваться в самых различных целях. Обратите внимание, что эта вспомогательная функция использует другую вспомогательную функцию, print_subjects . Последняя выводит список всех имеющихся предметов из таблицы subject, как в примере Msql.pm.

sub print_subjects { my $modifier = "";

$modifier = shift if @_;

print qq%<SELECT NAME="subjects" $modifier>\n%;

my $out = $dbh->query("select * from subject order by name");

while(my(%keys)=$out->fetchhash) {

print qq%<OPTION VALUE="$keys{'id'}">$keys{'name'}\n%;

}

print "</select>\n";

}

Параметры поиска, введенные в первую форму, передаются функции search2, фактически осуществляющей поиск. На самом деле это функция, написанная для поиска учащегося, данные о котором нужно показать. Поскольку она делает как раз то, что нам требуется, мы можем ею воспользоваться, если сообщим ей, что после поиска хотим перейти

к следующей функции изменения, change2. Для этого мы ввели в форму скрытую переменную subaction=change2 . Она сообщает search2, куда отправить пользователя дальше:

sub search2 {

my $out = $dbh->query(&make_search_query);


Содержание  Назад  Вперед







Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий