- •Вводный раздел
- •1. Информационные системы. Основные понятия
- •Моделирование информационных систем
- •2. Архитектуры распределенного приложения с базой данных. Функции клиента и сервера при различных вариантах расслоения. Типовые клиенты доступа к бд на основе различных технологий.
- •Модель Клиент – Сервер
- •Трехуровневая модель
- •Распределенная (многоуровневая) модель
- •4 Технологии программ расширений
- •Тема 1. Средства взаимодействия клиента и сервера бд
- •1.1 Сервисы сети Internet. Сетевая архитектура osi.
- •1.2 Протоколы прикладного уровня в стеке tcp/ip. Унифицированный локатор ресурса при работе с бд
- •1.3 Блоки данных в стеке протоколов
- •Тема 2. Удаленные базы данных
- •2.1 Понятие удаленных баз данных
- •2.2 Инструментальные средства проектирования структуры бд. Утилиты автоматизированного проектирования бд.
- •2.3 Характеристика субд удаленного доступа
- •Тема 3. Разработка и эксплуатация серверной части
- •3.1 Проектирование структуры базы данных (на самостоятельное изучение) Вопросы для самостоятельной работы
- •3.2 Создание баз данных, таблиц и индексов
- •Удаление баз данных, таблиц
- •Изменение структуры таблиц
- •3.3 Типы данных в MySql
- •Integer и его вариации
- •3.4 Методы заполнения полей базы данных Использование insert
- •Использование replace
- •Использование delete
- •Использование truncate
- •Использование update
- •Загрузка данных с помощью load data infile
- •Тема 4. Разработка и эксплуатация клиентской части.
- •4.1 Простые запросы
- •4.2 Выбор строк с помощью where
- •Удаление повторений с помощью distinct
- •Выбор групп с помощью having
- •Сортировка результатов поиска с помощью order by
- •Ограничение результатов поиска с помощью limit
- •4.4 Сложные запросы Объединение двух таблиц
- •Объединение нескольких таблиц
- •Самообъединение таблиц
- •Типы объединений
- •4.5 Создание подзапросов
- •4.6 Встроенные функции MySql
- •Операторы
- •Типы таблиц MySql
- •Тема 5. Язык html как средство внешнего представления данных.
- •5.1 Основные правила проектирования пользовательского интерфейса
- •5.2. Построение абзацев в гипертекстовом документе
- •5.3 Построение заголовков в гипертекстовом документе
- •Тема 6. Разработка бизнес-слоя и интерактивных компонентов
- •6.1 Perl как средство разработки программ –приложения
- •6.2 Типы данных в Рerl
- •Переменные
- •Скалярные переменные
- •Массивы
- •Ассоциативные массивы
- •6.3 Конструкции языка Рerl Простые и составные операторы
- •Условные операторы
- •Оператор unless
- •Оператор do
- •Циклы и ветвления
- •Цикл until
- •Циклы for и foreach
- •Оператор безусловного перехода goto
- •Генерация динамических выражений с помощью функции eval
- •6.4 Подпрограммы
- •Использование пакетов для изоляции подпрограмм
- •6.5 Операторы языка Perl .Операторы сравнения
- •Логические операторы
- •6.6 Работа с файлами и строками
- •Функция chop
- •Функция index
- •Функция length
- •Функция substr
- •Функция join
- •Функция split
- •Функции для обработки списков
- •Функция reverse
- •Функция sort
- •Функции работы с массивами
- •Функции push и pop
- •Функция shift
- •Функция unshift
- •Функция splice
- •Функция scalar
- •Функция grep
- •Функции обработки ассоциативных массивов
- •Функция keys
- •Функция values
- •Функция each
- •Функция delete
- •Пример скриптов для выполнения практического задания
- •1. Добавление информации в базу (на примере винного погреба -добавление страны)
- •Часть 1
- •Удаление информации из базы (удаление страны)
- •Часть 2
- •Часть 3
- •Поиск информации в базе данных
- •Занесение новой информации во все таблицы базы данных
- •Часть 1
- •Часть 2
Занесение новой информации во все таблицы базы данных
Часть 1
#!d:/actiperl/bin/perl.exe
# add new wine to database - 1-st stage -- create html form
use DBI;
# declarations
my $dbh ; #database handler
my $sth ; #database statement handler
%countries = (); #declared countries
%typus = (); #declared types of wines
$base = 'wineyard'; #database name
$comp = 'localhost'; #IP-address of host computer
$dbport = '3306'; #standard MySQL port
print "Content-type: text/html\n\n";
print <<EOH;
<HTML>
<HEAD>
<META NAME="Author" CONTENT="Alexandre Lazarev">
<style type="text/css">
.norm {padding-left: 20; padding-right: 10; padding-top: 10; }
a {text-decoration: none; }
</style>
<TITLE>Wineyard DB_connection</TITLE>
</HEAD>
<BODY BGCOLOR="#F0F0F0" TEXT="#000000" LINK="#0000EE" VLINK="#CC0080" ALINK="#CC66CC">
<h1 align="center"><font color="#0602B0" size="+4">Wineyard</font></h1>
<p class="norm" align="center"><font size="+1">Интерфейс к базе данных по винам
на основе <b>MySQL</b></font></p>
<hr align="center" noshade size="2" width="90%">
EOH
# process database index files
$dbh = DBI->connect("DBI:mysql:database=$base;host=$comp;port=$dbport", '', '');
if (not $dbh) {
print <<ERRDB;
<p class="norm">Не удалось открыть связь с базой <b>$base</b> по порту $dbport.<br>
Причина ошибки – <b>$DBI::errstr</b></p>
<hr align="center" noshade size="2" width="90%">
<p class="norm" align="left"><font size="+1"><a href="/wineyard/index.html">Вернуться
к главной странице</a></font></p>
</body></html>
ERRDB
exit;
};
$sth = $dbh->prepare('select ctry, id from country where id > 0');
$sth->execute;
while(($ky, $val)=$sth->fetchrow_array) { #country name is the key
$countries{$ky} = $val;
};
$sth->finish;
$sth = $dbh->prepare('select typ, id from type where id > 0');
$sth->execute;
while(($ky, $val)=$sth->fetchrow_array) { #type of wines is the key
$typus{$ky} = $val;
};
$sth->finish;
$dbh->disconnect;
print <<SOF;
<form name="add_db" action="/cgi-bin/addb.pl" method="post">
<p class="norm" align="left">Добавляется новый напиток</p>
<p class="norm">
<table align="center" border="0" width="90%" cellpadding="2">
<tr><td>Наименование:</td><td><input type="text" size="50" maxlength="100" name="nm"></td></tr>
<tr><td>Страна-производитель:</td>
<td>Выберите из списка <select name="ctid">
SOF
foreach $ky (sort keys %countries) {
$val = $countries{$ky};
print "<option value=$val>$ky\n";
};
print <<MID;
</select></td><tr>
<tr><td>Тип напитка:</td>
<td>Выберите из списка <select name="tpid">
MID
foreach $ky (sort keys %typus) {
$val = $typus{$ky};
print "<option value=$val>$ky\n";
};
print <<EOFR;
</select></td><tr>
<tr><td>Количество:<br>(можно не указывать)</td><td><input type="text" size="8" name="qty"></td></tr>
<tr><td>Номер склада:<br>(можно не указывать)</td><td><input type="text" size="8" name="skl"></td></tr>
<tr><td><input type="submit" value="Отправить в базу"></td>
<td><input type="reset" value="Очистить поля формы"></td></tr>
</table>
</p>
</form>
<hr align="center" noshade size="2" width="90%">
<p class="norm" align="left"><font size="+1"><a href="/wineyard/index.html">Вернуться
к главной странице</a></font></p>
<hr align="center" noshade size="2" width="90%">
</BODY>
</HTML>
EOFR
exit;