Разработчик: Садовников Алексей 313 группа

«Клиент». Пример формы приведен на рисунке 34.

Рисунок 34. Форма «Клиент»

Для того чтобы узнать про клиента адрес телефон и др. нужно в левой части экрана нажать на ссылку «клиент».

В правой части экрана появится информация о клиенте.

Рассмотрим фрагмент кода:

#Выбор значений из таблицы клиент

$const=«SELECT form, fio, otv, ur_adr, fiz_adr, tel, vid

FROM form_sob, client, vid_doc

WHERE form_sob.id=client.id_form_sob and vid_doc.id = client.id_vid_doc»;

$sth = $dbh->prepare($const);

$sth->execute;

print <

Надпись Клиент сделана с помощью фильтра Shadow.

Клиент

Полный системный код «Клиент» приведен в приложение A.

«Продукция». Пример формы приведен на рисунке 35.

Рисунок 35. Форма «Продукция»

Для того чтобы узнать вид продукции, упаковку, дату производства нужно в левой части экрана нажать на ссылку «Продукция».

В правой части экрана появится информация о продукции.

Рассмотрим фрагмент кода:

#Выбор значений из таблицы продукция

$const=«SELECT vid_pr, naz, upack, sor, data, sroc, cena, kol FROM vid_pr, upac, sort, prod

WHERE vid_pr.id=prod.id_vid_pr and upac.id=prod.id_upac and sort.id=prod.id_sort»;

$sth = $dbh->prepare($const);

$sth->execute;

print <

Надпись Продукция сделана с помощью фильтра Shadow.

Продукция

Полный системный код «Продукция» приведен в приложение Б.

«Реализация». Пример формы приведен на рисунке 36.

Рисунок 36. Форма «Реализация»

Для того чтобы узнать, кому, когда и кто реализовал продукцию нужно в левой части экрана нажать на ссылку «Реализация».

В правой части экрана появится информация об реализации продукции.

Рассмотрим фрагмент кода:

#Выбор значений из таблицы реализация продукции

$const=«SELECTmen.fio1, client.fio, vid_pr.vid_pr, dog. pred, realiz.data, realiz.kol FROM men, client, vid_pr, dog, realiz

WHERE men.id=realiz.id_men and client.id=realiz.id_client and vid_pr.id=realiz.id_vid_pr and dog.id=realiz.id_dog»;

$sth = $dbh->prepare($const);

$sth->execute;

print <

Надпись Реализация продукции сделана с помощью фильтра Shadow.

Реализация продукции

Полный системный код «Реализация» приведен в приложение В.

«Договор». Пример формы приведен на рисунке 37.

Рисунок 37. Форма «Договор»

Для того чтобы узнать предмет доновора дату подписания нужно в левой части экрана нажать на ссылку «Договор».

В правой части экрана появится информация о договоре.

Рассмотрим фрагмент кода:

#Выбор значений из таблицы договор

$const=«SELECT pred, otv, form, data FROM form_ras, dog

WHERE form_ras.id=dog.id_form_ras»;

$sth = $dbh->prepare($const);

$sth->execute;

print <

Надпись Договор сделана с помощью фильтра Shadow.

Договор

Полный системный код «Договор» приведен в приложение Г.

«Данные о документе». Пример формы приведен на рисунке 38.

Рисунок 38. Форма «Данные о документе»

Для того чтобы узнать вид документа, кем выдан нужно в левой части экрана нажать на ссылку «Данные о документе».

В правой части экрана появится информация о данных документов.

Рассмотрим фрагмент кода:

#Выбор значений из таблицы данные о документе

$const=«SELECT vid, cer, data, mest, kem FROM vid_doc, dan_doc

WHERE vid_doc.id=dan_doc.id_vid_doc»;

$sth = $dbh->prepare($const);

$sth->execute;

print <

Надпись Данные о документе сделана с помощью фильтра Shadow.

Данные о документе

Полный системный код «Данные о документе» приведен в приложение Д.

«Поощрения». Пример формы приведен на рисунке 39.

Рисунок 39. Форма «Поощрения»

Для того чтобы узнать вид поощрения клиента нужно в левой части экрана нажать на ссылку «Поощрения».

В правой части экрана появится информация о поощрениях.

Рассмотрим фрагмент кода:

#Выбор значений из таблицы поощрения

$const=«SELECT fio, posh, data FROM client, vid_posh, posher

WHERE client.id=posher.id_client and vid_posh.id= posher.id_vid_posh»;

$sth = $dbh->prepare($const);

$sth->execute;

print <

Надпись Поощрения сделана с помощью фильтра Shadow.

Поощрение

Полный системный код «Поощрения» приведен в приложение Е.

«Памятные даты». Пример формы приведен на рисунке 40.

Рисунок 40. Форма «Памятные даты»

Для того чтобы узнать памятную дату клиента нужно в левой части экрана нажать на ссылку «Памятные даты».

В правой части экрана появится информация о памятных датах.

Рассмотрим фрагмент кода:

#Выбор значений из таблицы памятные даты

$const=«SELECT fio1, fio, data, prim FROM men, client, pam

WHERE men.id=pam.id_men and client.id=pam.id_client»;

$sth = $dbh->prepare($const);

$sth->execute;

print <

Надпись Памятные даты с помощью фильтра Shadow.

Памятные даты

Полный системный код «Памятных дат» приведен в приложение Ж.

3.2 Режим администрирования

Этот пункт защищен паролем, от несанкционированного доступа. Для того чтобы пользователь незнающий пароля не смог добавить в базу или удалить из нее информацию.

Пример формы приведен на рисунке 41.

Рисунок 41. «Администирование»

Перед тем как войти в базу появяться два поля для ввода «Логина» и «Пароля». Заполните их и нажмите кнопку «Вход». Если вы ошиблись, нажмите кнопку очистить. Для того чтобы добавить информация в базу данных или удалить из нее нужно в левой части экрана нажать на ссылку «Добавление».

Рассмотрим фрагмент кода:

print <

Задаётся стиль оформления страницы.

Надпись База Токаревского мясокомбината сделана с помощью фильтра Shadow.

База Токарёвского мясокомбината

Надпись Администирование сделана с помощью фильтра Shadow.

Администрирование

Верхняя полоска сделана с помощью картинки.

Рамка сделана с помощью функции fieldset

Идентификация

Окно для ввода Логина.

Login:

Окно для ввода Пароля.

Password:

Кнопка Вход и Очистка

EOFR exit;

Полный системный код «Администрирование» приведен в приложение З.

Данный пункт подразумевает в себе добавление: клиента, продукцию, реализацию, договор, данные о документе, поощрения, памятные даты. Пример формы приведен на рисунке 42.

Рисунок 42. «Администрирование»

Рассмотрим файл подробнее:

Токаревский Мясокомбинат

Создание ссылок без подчеркивания.

Задаётся стиль оформления страницы.

Верхняя полоска сделана с помощью картинки.

Надпись Добавление сделана с помощью фильтра Shadow.

Добавление

«Добавить клиента». Пример формы приведен на рисунке 43.

Рисунок 43. «Добавить клиента»

Для того чтобы добавить клинта нужно в меню «Добавление» нажать на ссылку «Добавить Клиента».

Появится окно с семью полями обязательными для заполнения: форма собственности – выбирается из списка, клиент, ответственное лицо, юр. адрес, физ. Адрес, телефон, вид документа – выбирается из списка. После того как вы ввели данные нажмите кнопку «Cохранить в базу» или если ошиблись, нажмите кнопку «Очистить». В случае не заполнения данных в поля появится сообщение, что нужно ввести не внесенные данные. Если все данные внесены, верно, то появится сообщение о том, что данные сохранены в базе.

Полный системный код «Добавить клиента» приведен в приложение И.

«Добавить продукцию». Пример формы приведен на рисунке 44.

Рисунок 44. «Добавить продукцию»

Для того чтобы добавить продукцию нужно в меню «Добавление» нажать на ссылку «Добавить продукцию».

Появится окно с восьми полями обязательными для заполнения. Первое поле: вид продукции – выбирается из списка, второе поле: название из чего сделано, третье поле: упаковка – выбираеться из списка, четвертое поле: сорт – выбирается из списка, пятое поле: дата, шестое поле: срок годности, седьмое поле цена, восьмое поле: количество. После того как вы ввели данные нажмите кнопку «Cохранить в базу» или если ошиблись, нажмите кнопку «Очистить». В случае не заполнения данных в поля появится сообщение, что нужно ввести не внесенные данные. Если все данные внесены, верно, то появится сообщение о том, что данные сохранены в базе.

«Добавить реализацию». Пример формы приведен на рисунке 45.

Рисунок 45. «Добавить реализацию»

Для того чтобы добавить реализацию нужно в меню «Добавление» нажать на ссылку «Добавить реализацию».

Появится окно с шестью полями обязательными для заполнения. Первое поле: менеджер – выбирается из списка, второе поле: клиент – выбирается из списка, третье поле: вид продукции – выбирается из списка, четвертое поле: договор – выбирается из списка, пятое поле: дата, шестое поле: количество. После того как вы ввели данные нажмите кнопку «Сохранить в базу» или если ошиблись, нажмите кнопку «Очистить». В случае не заполнения данных в поля появится сообщение, что нужно ввести не внесенные данные. Если все данные внесены, верно, то появится сообщение о том, что данные сохранены в базе.

«Добавить договор». Пример формы приведен на рисунке 46.

Рисунок 46. «Добавить договор»

Для того чтобы добавить договор нужно в меню «Добавление» нажать на ссылку «Добавить договор».

Появится окно с 4 полями обязательными для заполнения: первое поле: предмет договора, второе поле: ответсвенное лицо, третье поле: форма расчета – выбирается из списка, четвертое поле: дата. После того как вы ввели данные нажмите кнопку «Cохранить в базу» или если ошиблись, нажмите кнопку «Очистить». В случае не заполнения данных в поля появится сообщение, что нужно ввести не внесенные данные. Если все данные внесены, верно, то появится сообщение о том, что данные сохранены в базе.

«Добавить данные документа». Пример формы приведен на рисунке 47.

Для того чтобы добавить данные документов нужно в меню «Добавление» нажать на ссылку «Добавить данные документа».

Появится окно с пятью полями обязательными для заполнения: первое поле: вид документа – выбирается из списка, второе поле: серия, третье поле: дата, четвертое поле: место выдачи, пятое поле: кем выдан. После того как вы ввели данные нажмите кнопку «Cохранить в базу» или если ошиблись, нажмите кнопку «Очистить». В случае не заполнения данных в поля появится сообщение, что нужно ввести не внесенные данные. Если все данные внесены, верно, то появится сообщение о том, что данные сохранены в базе.

Рисунок 47. «Добавить данные документа»

«Добавить поощрения». Пример формы приведен на рисунке 48.

Рисунок 48. «Добавить поощрения»

Для того чтобы добавить поощрения нужно в меню «Добавление» нажать на ссылку «Добавить поощрения».

Появится окно с тремя полями обязательными для заполнения: первое поле: клиент – выбирается из списка, второе поле: вид поощрения – выбирается из списка, третье поле: дата. После того как вы ввели данные нажмите кнопку «Cохранить в базу» или если ошиблись, нажмите кнопку «Очистить». В случае не заполнения данных в поля появится сообщение, что нужно ввести не внесенные данные. Если все данные внесены, верно, то появится сообщение о том, что данные сохранены в базе.

«Добавить памятные даты». Пример формы приведен на рисунке 49.

Рисунок 49. «Добавить памятные даты»

Для того чтобы добавить памятные даты нужно в меню «Добавление» нажать на ссылку «Добавить памятные даты».

Появится окно с 4 полями обязательными для заполнения: первое поле: менеджер – выбрать из списка, второе поле: клиент – выбрать из списка, третье поле: дата, четвертое поле: примечание. После того как вы ввели данные нажмите кнопку «Cохранить в базу» или если ошиблись, нажмите кнопку «Очистить». В случае не заполнения данных в поля появится сообщение, что нужно ввести не внесенные данные. Если все данные внесены, верно, то появится сообщение о том, что данные сохранены в базе.

«Удалить клиента». Пример формы приведен на рисунке 50.

Рисунок 50. «Удалить клиента»

Для того чтобы удалить клиента нужно в меню «Удаление» нажать на ссылку «Клиента».

Появится окно с форма собственности, клиент, ответственное лицо, юр. Адрес, физ. Адрес, телефон, вид документа и удаление.

Для того чтобы удалить продукцию нужно нажать на крестик напротив продукции и запись будет удалена из базы.

Полный системный код «Удаление клиента» приведен в приложение К.

«Удаление продукции». Пример формы приведен на рисунке 51.

Рисунок 51. «Удаление продукции»

Для того чтобы удалить продукцию нужно в меню «Удаление» нажать на ссылку «Наименованию продукции».

Появится окно вид продукции, название, упаковка, сорт, дата производства, срок годности, цена, количество на складу и удаление.

Для того чтобы удалить покупателя нужно нажать на крестик напротив покупателя и запись будет удалена из базы.

«Удалить реализацию». Пример формы приведен на рисунке 52.

Рисунок 52. «Удалить реализацию»

Для того чтобы удалить реализацию нужно в меню «Удаление» нажать на ссылку «Реализация».

Появится окно менеджер, клиент, продукция, предмет договора, дата отгрузки, количество отгруженной продукции и удаление.

Для того чтобы удалить отгрузку продукции нужно нажать на крестик напротив отгрузки и запись будет удалена из базы.

«Удалить договор». Пример формы приведен на рисунке 53.

Для того чтобы удалить договор нужно в меню «Удаление» нажать на ссылку «Договор».

Появится окно предмет договора, ответственное лицо, форма расчета, дата и удаление.

Рисунок 53. «Удалить договор»

Для того чтобы удалить отгрузку продукции нужно нажать на крестик напротив отгрузки и запись будет удалена из базы.

«Удалить данные о документе». Пример формы приведен на рисунке 54.

Рисунок 54. «Удалить данные о документе»

Для того чтобы удалить договор нужно в меню «Удаление» нажать на ссылку «Данные о документе».

Появится окно вид документа, серия, дата выдачи, место выдачи, кем выдан и удаление.

Для того чтобы удалить отгрузку продукции нужно нажать на крестик напротив отгрузки и запись будет удалена из базы.

«Удалить поощрение». Пример формы приведен на рисунке 55.

Рисунок 55. «Удалить поощрение»

Для того чтобы удалить поощрения нужно в меню «Удаление» нажать на ссылку «Поощрения».

Появится окно клиент, поощрения, дата и удаление.

Для того чтобы удалить отгрузку продукции нужно нажать на крестик напротив отгрузки и запись будет удалена из базы.

«Удалить памятные даты». Пример формы приведен на рисунке 56.

Для того чтобы удалить памятные даты нужно в меню «Удаление» нажать на ссылку «Памятные даты».

Появится окно менеджер, клиент, дата, примечание и удаление.

Для того чтобы удалить отгрузку продукции нужно нажать на крестик напротив отгрузки и запись будет удалена из базы.

Рисунок 56. «Удаление памятные даты»

3.3 Генерация отчетов

«Поиск» создан для поиска хранящейся информации в базе данных. Поиск осуществляется по различным критериям: (Ф.И.О.) клиента, наименованию продукции, реализация, договор, данные о документе, поощрения, памятные даты.

Разработана структура подачи запроса для выбора данных из БД, которая может осуществлять запрос.

Пример формы приведен на рисунке 57.

Для того, что бы осуществить поиск по клиенту нужно в меню «Поиск» нажать на ссылку «(Ф.И.О.) клиента».

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

Полный системный код поиск по «клиенту» приведен в приложение Л.

Рисунок 57. Поиск в базе.

Поиск по «(Ф.И.О.) клиента». Пример формы приведен на рисунке 58.

Рисунок 58. «Поиск по Ф.И.О. Клиента»

Поиск по «продукции». Пример формы приведен на рисунке 59.

Рисунок 59. Поиск по «наименованию продукции».

Для того, что бы осуществить поиск по наименованию продукции нужно в меню «Поиск» нажать на ссылку «Наименованию продукции».

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

Поиск по «реализации». Пример формы приведен на рисунке 60.

Для того, что бы осуществить поиск по реализации нужно в меню «Поиск» нажать на ссылку «Реализация».

Рисунок 60. «Поиск по реализации»

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

Поиск по «договору». Пример формы приведен на рисунке 61.

Для того, что бы осуществить поиск по договору нужно в меню «Поиск» нажать на ссылку «Договор».

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

Рисунок 61. «Поиск по договору»

Поиск по «данным документа». Пример формы приведен на рисунке 62.

Рисунок 62. «Поиск по данным документа»

Для того, что бы осуществить поиск по документу нужно в меню «Поиск» нажать на ссылку «Данные документа».

Появится окно, в котором будет поле для ввода документа оно обязательное для заполнения. Нужно ввести интересующее вас документ в это поле и нажать на кнопку «найти». Если вы ошиблись, нажмите кнопку «очистить». В случае если вы не занесли документ и нажали на кнопку «найти» то на экран, не выведется не какой информации. Если вы занесли правильно документ и этот документ есть в базе, то на экран выведется: вид документа, серия, дата выдачи кем выдан, место выдачи.

Поиск по «поощрению». Пример формы приведен на рисунке 63.

Рисунок 63. «Поиск по поощрению»

Для того, что бы осуществить поиск по поощрению нужно в меню «Поиск» нажать на ссылку «Поощрения».

Появится окно, в котором будет поле для ввода поощрения оно обязательное для заполнения. Нужно ввести интересующее вас поощрение в это поле и нажать на кнопку «найти». Если вы ошиблись, нажмите кнопку «очистить». В случае если вы не занесли поощрение и нажали на кнопку «найти» то на экран, не выведется не какой информации. Если вы занесли правильно поощрения и это поощрение есть в базе, то на экран выведется: клиент, поощрения, дата.

Поиск по «памятным датам». Пример формы приведен на рисунке 64.

Рисунок 64. «Поиск по памятным датам»

Для того, что бы осуществить поиск по памятным датам нужно в меню «Поиск» нажать на ссылку «Памятные даты».

Появится окно, в котором будет поле для ввода клинта оно обязательное для заполнения. Нужно ввести интересующее вас клинта в это поле и нажать на кнопку «найти». Если вы ошиблись, нажмите кнопку «очистить». В случае если вы не занесли клинта и нажали на кнопку «найти» то на экран, не выведется не какой информации. Если вы занесли правильно клинта и этот клинт есть в базе, то на экран выведется: клиент, менеджер, дата, примечание.

Заключение

В данной дипломной работе была спроектирована автоматизированная информационная система взаимоотношения и управления с клиентами для ОАО «Токаревский «Мясокомбинат»». База данных создавалась на основе программы MySQL.

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

В ходе написания дипломной работы было выполнено следующее:

1. Разработан алгоритм для формирования полей к базе данных;

2. Спроектирован алгоритм для анализа и обработки информации из базы данных;

3. Разработана клиент-серверная программа для обработки запросов на языке Perl;

4. Разработана гипертекстовая форма запроса, выполняющаяся на клиентской платформе, показана ее надежная работа;

5. Разработанные модули переданы в эксплуатацию.

Спроектированная база данных занимает минимум пространства памяти при условии всех связей между данными. В нее легко можно вводить новые данные. База данных полностью удовлетворяет требованиям клиента, так как она удобна в использовании и выдает нужную информацию. В завершении выполненной работы получил положительный отзыв от организации ОАО «Токаревский «Мясокомбинат»».

Полученная в результате программа может быть представлена как демонстрация моих профессиональных навыков. Все поставленные цели в результате выполнения работы достигнуты.

Список используемой литературы

1. Атре Ш. «Microsoft SQL Server 6.5». М.: Комплект документации, 2004 г. -200 с.

2. Белью К., Браун М., Ливингстон Д. «Perl Web‑профессионалам». Киев: BHV, 2004 г. – 300 с.

3. Голицина ОЛ, Максимов НВ, Попов ИИ. «Базы данных». М.: Диалектика, 2005 г. – 350 с.

4. Дюбуа П. «Применение MySQL и Perl в Web‑приложениях». М.: Вильямс, 2004 г. – 400 с.

5. Игнатович И. «Семейство реляционных баз данных IBM DB2». М.: СУБД 2/05, 2006 г.-250 с.

6. Кастро Э. «Perl & CGI для всемирной паутины» М.: Наука, 2004 г. – 200 с.

7. Клинтон П. «Освой самостоятельно Perl за 24 часа». Киев: Мир 2005 г.-150 с.

8. Конноли Т.К. «Базы данных проектирование реализация и сопровождение». Берг: Диалектика, 2005 г.-180 с.

9. Конноли Т.К. «Базы данных проектирование реализация и сопровождение» Берг: Диалектика, 2005 г.-300 с.

10. Леонтьев Б.К. «Язык программирования Perl для Интернет»; «Новый издательский дом» – 2006 г.-350 с.

11. Маслов В.В. «Введение в Perl». М.: Наука, 2005 г.-200 с.

12. Местерн П. «Perl: интеграция с Интернет». Берг: Диалектика, 2005 г.-200 с.

13. Нагао М., Катаяма Т., Уэмура С. «Реализация языка SQL в СУБД MySQL». М.: Мир, 2006 г.-350 с.

14. Паттерсон Л. «Использование HTML». М.: Изд. дом Вильямс, 2004 г.-400 с.

15. Прохоров А. «Microsoft SQL Server 6.5 DBA Survival Guide, by Mark Spenik & Orryn Sledge». Хабаровск: ISBN, 2005 г.-500 с.

16. Уайтхэд П «Perl: наглядный курс программирования»; М.: «Диалектика», 2005 г.-350 с.

17. Ульман Д. «Теория и практика БД». М.: Машиностроение, 2005 г.-250 с.

18. Фролов П.С. «Базы данных в Интернет» М.: СУБД, 2005 г.-400 с.

19. Шуленин А. «Microsoft SQL Server и активный Internet». Киев: Материалы Форума «Информационные Технологии'98».-2004 г.-350 с.

20. Шуленин А. «Microsoft SQL Server».М.: СУБД 1/05, 2005 г.-180 с.

21. Шнитман В. «Серверы баз данных: проблемы оценки конфигурации системы». М.:СУБД 5–6/05, 2004 г.-350 с.

Приложение A

Код программы «Клиент»

#!/usr/bin/perl

#подключаем модули

use DBI;

use CGI qw (:standard escapeHTML);

#инициализируем переменные

my $dbh; #database handler

my $sth; #database statement handler

my $base = 'comb';

my $comp = 'localhost';

my $dbport = '3306';

#вывод заголовка

print «Content-type: text/html\n\n»;

#вывод документа

print <

Токарёвский мясокомбинат

a {text-decoration:none;}

h3 {font-size:12pt; color:green;}

EOH

#подключаемся к базе

$dbh = DBI->connect («DBI:mysql:database=$base; host=$comp; port=$dbport», 'root', «);

if (not $dbh) {

print <

Не удалось законнектить базу$base по порту $dbport.

Причина неудачи – $DBI:errstr

Вернутьсяк главной странице

ERRDB exit;};

#Выбор значений из таблицы клиент

$const=«SELECT form, fio, otv, ur_adr, fiz_adr, tel, vid

FROM form_sob, client, vid_doc

WHERE form_sob.id=client.id_form_sob and vid_doc.id=client.id_vid_doc»;

$sth = $dbh->prepare($const);

$sth->execute;

print <

Клиент