Введение в СУБД MySQL


Пример приложения, использующего DBI


DBI допускает любые SQL-запросы, поддерживаемые MySQL и mSQL. Например, рассмотрим базу данных, используемую в школе для ведения учета учащихся, состава классов, результатов экзаменов и т. д. База данных должна содержать несколько таблиц: одну для данных о предметах, другую для данных об учащихся, таблицу для списка экзаменов и по одной таблице для каждого экзамена. Возможность MySQL и mSQL выбирать данные из нескольких таблиц, используя объединение таблиц, позволяет совместно использовать таблицы как согласованное целое для создания приложения, облегчающего работу учителя.

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

CREATE TABLE test ( id INT NOT NULL AUTO_INCREMENT, name CHAR(100), subject INT, num INT)

Для каждого отдельного экзамена структура таблицы такая:

CREATE TABLE t7 ( id INT NOT NULL, q1 INT, q2 INT, q3 INT, q4 INT, total INT )

К имени таблицы t присоединен идентификатор экзамена из таблицы test. При создании таблицы пользователь определяет количество вопросов. Поле total содержит сумму баллов по всем вопросам.

Программа, обрабатывающая данные экзаменов, называется test.cgi. Эта программа, текст которой следует ниже, позволяет только добавлять новые экзамены. Просмотр экзаменов и их изменение не реализованы и оставлены в качестве упражнения. Дополнить этот сценарий будет несложной задачей, если воспользоваться в качестве справочного материала другими сценариями, приведенными в данной лекции. Этот сценарий хорошо показывает возможности DBI:

#!/usr/bin/perl -w use strict; require my_end; use CGI qw(:standard); my Soutput = new CGI; use_named_parameters(1); # Использовать модуль DBI. use DBI; # DBI::connect() использует формат 'DBI:driver:database', в нашем случае # используется драйвер MySQL и открывается база данных 'teach', my $dbh = DBI->connect('DBI:mysql:teach'); # Операция добавления распределена между тремя отдельными функциями. Первая функция, add, # выводит пользователю форму шаблона для создания нового экзамена, sub add { $subject = param('subject') if (param('subjects')); $subject = "" if $subject eq 'all'; print header, start_html('title'=>'Create a New Test', 'BGCOLOR'=>'white'); print <<END_OF_HTML; <Н1>Создание нового экзамена</п1> <FORM ACTION="test.cgi" METHOD=POST> <INPUT TYPE=HIDDEN NAME="action" VALUE="add2"> Предмет: END_OF_HTML my @ids = (); my %subjects = (); my $out2 = $dbh->prepare("select id,name from subject order by name" $out2->execute; # DBI: :fetchrow_array() совершенно аналогична Msql: :fetchrow() while(my($id,$subject)=$out2->fetchrow_array) { push(@ids,Sid); $subjects{"$id"} = Ssubject; } print popup_menu('name'=>'subjects', 'values'=>[@ids], 'default'=>$subject, 'labels'=>\%subjects); print <<END_OF_HTML; <br> Число вопросов: <INPUT NAME="num" SIZE=5><br> Название или идентификатор (например, дата) экзамена: <INPUT NAME="name" SIZE=20> <Р> <INPUT TYPE=SUBMIT VALUE=" Следующая страница "> <INPUT TYPE=RESET> </form></body></html> END_OF_HTML }




Начало  Назад  Вперед