Реферат: Проектирование информационных систем на базе MySQL и Internet

   my $rows=$sth->execute();

   $flag=0;

   for($j=0;$j<$rows;$j++)

    {

  ($fio2,$eda2,$cpca2,$croka2,$adress2,$vak2)=$sth->fetchrow_array;

      if ($fio2 eq $fio)

      {  

      $flag=1;

      $knkrs=$knkrs-1;

      $sql="update t1 set knkrs='$knkrs' where prof='$bakans';";

      $dbh->do($sql);

      }

    }

   $knkrs=$knkrs+1;

   $sql="update t1 set knkrs='$knkrs' where prof='$bakans';";

   $dbh->do($sql);

   $sth->finish();

    if ($flag==0)   {

    print qq{Уважаемый, $fio, Ваша анкета принята для участия в конкурсе.<br><br>Желаем успеха!};

    $sql="INSERT INTO t2(fio,eda,cpca,croka,adress,vak)values('$fio','$eda','$cpca','$croka','$adress','$bakans')";

    $dbh->do($sql);

          }

    else {

print qq{Уважаемый, $fio, в базе данных уже имеется анкета на Ваше имя, фамилию, отчество. Если Вы хотите заполнить новую анкету - измените свои ФИО дополнив, например, цифровым символом ($fio-2).<br><br>};

   }

      }

 }

}

 print qq{</font></strong></font></p>};

К-во Просмотров: 459
Бесплатно скачать Реферат: Проектирование информационных систем на базе MySQL и Internet