ВКР: Разработка АИС управления взаимоотношениями с клиентами

Содержание

• 2. Разработка структуры базы данных и пользовательского интерфейса
• | Телефон: +7 (47557) 21274, |
• | Почтовый индекс: 393550 |
• | Регион: Тамбовская область |
• | Федеральный округ: Центральный ФО |
• Разработчик: Садовников Алексей 313 группа
• Вернутьсяк главной странице 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
• Клиент (Ф.И.О)
• Ответственное лицо
• Юр. адрес
• Физ. адрес
• Телефон
• Вид досумента
• Вернутся на главную
• Вернуться к главной странице ERRDB exit; }; #Выбор значений из таблицы продукция $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
• Название
• Упаковка
• Сорт
• Дата производства
• Срок годности
• Цена
• Количество на складе
• Вернутся на главную
• Вернуться к главной странице ERRDB exit; }; #Выбор значений из таблицы реализация продукции $const=«SELECT men.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
• Клиент (Ф.И.О):
• Продукция
• Предмет договора
• Дата отгрузки
• Количество отгруженной продукции
• Вернутся на главную
• Вернуться к главной странице
• Предмет договора
• Ответственное лицо (Ф.И.О)
• Форма расчёта
• Дата
• Вернутся на главную
• Вернуться к главной странице ERRDB exit; }; #Выбор значений из таблицы данные о документе $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
• Серия
• Дата выдачи
• Место выдачи
• Кем выдан
• Вернутся на главную
• Вернуться к главной странице ERRDB exit; }; #Выбор значений из таблицы поощрения $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
• Поощрение
• Дата
• Вернутся на главную
• Вернуться к главной странице ERRDB exit; }; #Выбор значений из таблицы памятные даты $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
• Клиент (Ф.И.О)
• Дата
• Прим
• Вернутся на главную
• ERRDB exit;}; $user = param («user»); $password = param («password»); my $er = 0; $const = «select * from adm where login = '$user' and password = '$password'»; $sth = $dbh->prepare($const); $sth->execute; while(($log, $pass)=$sth->fetchrow_array) { if ($log = $user) { $er += 1;}; if ($pass = $password) { $er += 1};}; $sth->finish; if ($er < 1) {print
• Вернуться к главной странице ERRDB exit; }; $sth = $dbh->prepare ('select form, id from form_sob where id > 0'); $sth->execute; while(($ky, $val)=$sth->fetchrow_array) { $form_sob{$ky} = $val; }; $sth->finish; $sth = $dbh->prepare ('select vid, id from vid_doc where id > 0'); $sth->execute; while(($ky, $val)=$sth->fetchrow_array) { $vid_doc{$ky} = $val; }; $sth->finish; $dbh->disconnect; print
• Вернуться к главной странице ERRDB exit; }; my $er = 0; if ($fio eq «») { $er += 1; print qq [ ERROR - Не указан Клиент (Ф.И.О)
• ERROR - Не указано Ответственное лицо (Ф.И.О)
• ERROR - Не указан Юридический адрес:
• ERROR - Не указан Физический адрес:
• ERROR - Не указан Телефон:
• Проверьте все поля и исправте ошибки или откажитесь от занесения данных в базу Вернутся к Добавлению
• Добавить еще одну запись в базу
• Вернутся к Добавлению
• EODT exit; Приложение К Код программы «Удаление клиента» #!/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/htmlnn»; #вывод документа print
• Клиент (Ф.И.О)
• Ответственное лицо
• Юр. адрес
• Физ. адрес
• Телефон
• Вид досумента
• Удаление
• Вернутся к удалению
• Вернутьсяк главной странице ERRDB exit;}; my $stb; #удаляем запись при наличии параметра del if ($del>0) {my $qry = «DELETE FROM `client` WHERE `id` = $del LIMIT 1»; $dbh->do($qry); $dbh->do ('FLUSH TABLES, STATUS'); #$dbh->disconnect;} #Выбор значений из таблицы клиент $const=«SELECT client.id, form_sob.form, client.fio, client.otv, client.ur_adr, client.fiz_adr, client.tel, vid_doc.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
• Форма собственности
• Клиент (Ф.И.О)
• Ответственное лицо
• Юр. адрес
• Физ. адрес
• Телефон
• Вид досумента
• Удаление
• Вернутся к удалению
• Вернутся к Поиску
• Вернутьсяк главной странице ERRDB exit;}; $fio=param («fio»); #Выбор значений из таблицы клиент $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 and client.fio='$fio'»; $sth = $dbh->prepare($const); $sth->execute; print
• Клиент (Ф.И.О)
• Ответственное лицо
• Юр. адрес
• Физ. адрес
• Телефон
• Вид досумента
• Вернутся к поиску