Разработка Web-приложения средствами C Builder - Отчет по практике

Цель: Формирование у студентов общих и профессиональных компетенций, приобретение практического опыта при освоении таких видов деятельности, как «Разработка программных модулей, программного обеспечения для компьютерных систем» и «Разработка Web-приложений» Разработка программного модуля, программного обеспечения для компьютерных систем (средствами C Builder).Разделим всех посетителей на несколько групп в порядке повышения уровня отношений с сайтом: · Случайные Заинтересовавшиеся - Посетители, которые опять-таки попали на сайт случайно, но заинтересовавшись в обнаруженных данных решают изучить найденное подробнее. В итоге посетители относящиеся к этой категории либо переходят в категорию «Целевые» либо покидают сайт забывая о нем. Постоянные - Это люди которые заходят на сайт уже не в первый раз, они следят за обновлениями на сайте ожидая публикации новой информацией которой они заинтересованы. "next":function(){if(this.current<this.a.length-1)this.set(this.a[this.current 1]);}, "prev":function(){if(this.current>0)this.set(this.a[this.current-1]);}, "SETTITLE":function(){if(this.a[this.current].title){this.e.APPENDCHILD(todo.create("div",{"class":"todo_gallery_title"},this.a[this.current].title),{});}}, "SETNAV":function(){ if(this.a.length==1)return;Она так же автоматически определяет местоположение столбца с email в файле, в случае если столбец с email не обнаружен, выдает пользователю соответствующее сообщение. Так как списки могут достигать огромных размеров и некоторые email повторяются программа не должна удалять email в файле большее количество раз чем он входит в список с неправильными email. Сообщаем об ошибке если пользователь не выбрал файл и прекращаем работу Сообщаем если пользователь не выбрал файл с правильными email и прекращаем работу При нажатии на кнопку выбора файла с правильными email откроется диалоговое окно в котором вам будет предоставлен выбор, после выбора на форме автоматически заполнится колонка с email вы должны будете проверить ту ли колонку нашла программа.В заключении скажу, что я получил много знаний и навыков необходимых для работы.Сайт предназначен для публикации данных связанных с Игримским Сайт должен содержать следующие обязательные html страницы: 1 - Главная (домашняя) страница; 2 - О колледже; 3 - Перечень нормативных документов; 4 - Обратная связь; 5 - Информация необходимая для поступления; Головная (начальная) страница сайта должна содержать гиперссылки, обеспечивающие переход с нее на все страницы сайта. Допускается увеличение времени загрузки отдельных страниц до 45 секунд, но не более чем на 25% числа страниц сайта. Основной диапазон разрешения мониторов, на которых будет просматриваться сайт.

Оглавление

Введение

Глава 1. Разработка Web-приложения

Постановка задачи

Карта сайта

Интерфейс сайта

Алгоритмы реализации интерактивных функций сайта

Анализ работы по разработке сайта

Глава 2. Разработка программного продукта средствами C Builder

Постановка задачи

Структура программы

Интерфейс программы

Алгоритмы реализации основных функций программы

Анализ работы по разработке программного продукта

Заключение

Приложения

Техническое задание для сайта

Программный код сайта

Программный код программы

Цель и задача практики

Цель: Формирование у студентов общих и профессиональных компетенций, приобретение практического опыта при освоении таких видов деятельности, как «Разработка программных модулей, программного обеспечения для компьютерных систем» и «Разработка Web-приложений»

Задачи: 1. Разработка программного модуля, программного обеспечения для компьютерных систем (средствами C Builder).

2. Разработка Web-приложения (средствами PHP, AJAX).

Общие сведения о предприятии.

ООО НОВАИНТЕХ Сферы деятельности: Ремонт оргтехники, продажа программного обеспечения, услуги системного администрирования, ремонт компьютеров. Расположен по ул. Ленина, 10п ст3.

программный сайт интерфейс компьютерный

В заключении скажу, что я получил много знаний и навыков необходимых для работы.

ФОРУМОБРАТНАЯ связь

Новости

Спартакада ипк

20 июня на площади перед зданием колледжа состоялось торжественное закрытие Спартакиады ИПК 2011-2012 учебного года. Спартакиада - это традиционное мероприятие, которое проходит ежегодно в нашем колледже. В течение года все группы участвуют в соревнованиях по 10-ти видам спорта, как в командном, так и в личном зачете. Читать далее...

Лето, ах, лето!

С наступлением теплых летних деньков как-то не хочется все время думать об учебе. Жизнь в нашем общежитии скучной не назовешь -&nbsp;одни делают ремонт в комнате, другие пишут диплом, третьи просто гуляют, наслаждаясь теплыми деньками, а вот мы решили заняться полезным делом. Читать далее...

Неделя здоровья в колледже

Как отмечалось ранее, Неделя Здоровья обещала быть насыщенной и интересной! Но, по известным всем причинам (траур в связи с авиакатастрофой в Тюмени), тематическая дискотека «Здорово жить!» с конкурсами и играми не состоялась. Ребята отнеслись с пониманием к этому факту и согласились провести ее позже. Запланированная зимняя рыбалка из соображений безопасности (уж слишком быстро весна вступила в свои права), обещала стать летней. Читать далее...

Строки, опаленные …

5 мая, в преддверии торжеств по случаю Великой Победы, состоялся праздничный концерт! Ежегодно в колледже проводится конкурс песен и стихов на военную тематику «Строки, опаленные войной». Читать далее...

Днем молодого изберателя

К этому событию была приурочена интеллектуальная игра «У тебя есть свой голос!», в ходе этой игры ребятам предстояло проявить свои знания в области избирательного права, проявить смекалку в блиц - опросе, эффектно представить команду, заявив о своем политическом кредо, достойно пройти испытания в капитанском конкурсе и многое другое. Читать далее...

Администрация

Директор

Список сотрудников

Студсовет

Структура

Состав

Устав

Образование

Специальности

Абитуриенту

Студенту

Очно-заочное

Другое

Все новости

Конкурсы

Ведение ФГОС

Публичный доклад

Инновационная деятельность

Главная

Фотогалерея

Контакты

О нас

Нормативные документы

ФОРУМОБРАТНАЯ связь

Страница обратной связи:

Обратная связь

@import url("assets/css/contact.css");

@import url("assets/css/lay.css");

.style1 {color: #FFFFFF}

Напишите нам

Произошла ошибка, сообщение не может быть отправлено!

Сообщение успешно отправлено!Спасибо.

Ваше имя: Это поле обязательно для заполнения

Ваш Email: Введите правильный email!

Тема: Вопрос от абитуриента

Вопрос от студента

Другое

Ваше сообщение: Здравствуйте, Это поле обязательно для заполнения

Цифры:

Цифры введены неверно!

Программный код программы

//---------------------------------------------------------------------------

#include

#include

#include

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TFORM1 *Form1;

TSTRINGLIST *s=new TSTRINGLIST;

int ech=0;

ANSISTRING name;

ANSISTRING name2;

int nep=0;

int prav=0;

//---------------------------------------------------------------------------

__fastcall TFORM1::TFORM1(TCOMPONENT* Owner)

: TFORM(Owner)

{

}

//--------------------------------------------------------------------------- void __fastcall TFORM1::Button1Click(TOBJECT *Sender)

{

COMBOBOX1->Items->Clear();

COMBOBOX1->Text="";

Variant MYEXCEL = CREATEOLEOBJECT("Excel.Application");

if (LISTBOX1->Count==0)

{

SHOWMESSAGE("Вы еще не выбрали файл с неправильными email");

} else

{ if(OPENDIALOG1->Execute()) name2=OPENDIALOG1->FILENAME;

if (name2=="")

{

SHOWMESSAGE("Вы не выбрали файл с правильными email!");

} else

{

MYEXCEL.OLEPROPERTYGET("WORKBOOKS").OLEPROCEDURE("Open", name2.c_str());

Variant VCELLS = MYEXCEL.OLEPROPERTYGET("Cells");

Variant VVARSHEET = MYEXCEL.OLEPROPERTYGET("Worksheets").OLEPROPERTYGET("Item",1);

int IFIRSTROW = MYEXCEL.OLEPROPERTYGET("ACTIVESHEET").OLEPROPERTYGET("USEDRANGE").OLEPROPERTYGET("Row");

int ICOLUMNCOUNT = MYEXCEL.OLEPROPERTYGET("ACTIVESHEET").OLEPROPERTYGET("USEDRANGE").OLEPROPERTYGET("Columns").OLEPROPERTYGET("Count");

int IFIRSTCOL = MYEXCEL.OLEPROPERTYGET("ACTIVESHEET").OLEPROPERTYGET("USEDRANGE").OLEPROPERTYGET("Column");

String mail;

for (int i=0; i<ICOLUMNCOUNT; i )

{ mail = VCELLS.OLEPROPERTYGET("Item",IFIRSTROW,IFIRSTCOL);

COMBOBOX1->Items->Add(mail);

IFIRSTCOL ;

} int w = 1;

String str= VCELLS.OLEPROPERTYGET("Item", 2,w);

String str2= VCELLS.OLEPROPERTYGET("Item", 3,w);

while (((str.Pos("@")==0)&&(str2.Pos("@")==0))&&(w<=ICOLUMNCOUNT))

{ w ;

str= VCELLS.OLEPROPERTYGET("Item", 2,w);

str2= VCELLS.OLEPROPERTYGET("Item", 3,w);

} w-;

if (str.Pos("@")||str2.Pos("@"))

{

COMBOBOX1->ITEMINDEX = w;

} else

{

COMBOBOX1->ITEMINDEX = -1;

SHOWMESSAGE("Пожалуйста выберите колонку с email вручную");

} ech ;

MYEXCEL.OLEPROCEDURE("Quit");

}

}

}

//--------------------------------------------------------------------------- void __fastcall TFORM1::Button2Click(TOBJECT *Sender)

{

ANSISTRING name;

Variant MYEXCEL = CREATEOLEOBJECT("Excel.Application");

s->Clear();

LISTBOX1->Clear();

if(OPENDIALOG1->Execute()) name=OPENDIALOG1->FILENAME;

if (name=="")

{

SHOWMESSAGE("Вы не выбрали файл с неправильными email!");

} else

{

MYEXCEL.OLEPROPERTYGET("WORKBOOKS").OLEPROCEDURE("Open", name.c_str());

// получение параметров таблицы: колво строк, столбцов int IFIRSTROW = MYEXCEL.OLEPROPERTYGET("ACTIVESHEET").OLEPROPERTYGET("USEDRANGE").OLEPROPERTYGET("Row");

int IFIRSTCOL = MYEXCEL.OLEPROPERTYGET("ACTIVESHEET").OLEPROPERTYGET("USEDRANGE").OLEPROPERTYGET("Column");

int IROWSCOUNT = MYEXCEL.OLEPROPERTYGET("ACTIVESHEET").OLEPROPERTYGET("USEDRANGE").OLEPROPERTYGET("Rows").OLEPROPERTYGET("Count");

int ICOLSCOUNT = MYEXCEL.OLEPROPERTYGET("ACTIVESHEET").OLEPROPERTYGET("USEDRANGE").OLEPROPERTYGET("Columns").OLEPROPERTYGET("Count");

Variant VCELLS = MYEXCEL.OLEPROPERTYGET("Cells");

for (int i=IFIRSTROW-1; i<IROWSCOUNT; i )

{ for (int j=IFIRSTCOL; j<IFIRSTCOL ICOLSCOUNT; j )

{ s->Add(VCELLS.OLEPROPERTYGET("Item", i 1,j));

Application->PROCESSMESSAGES();

}

}

LISTBOX1->Items->ADDSTRINGS(s);

int Strok=s->Count;

String stroki= Strok;

SHOWMESSAGE("Колво неправильных email: " String(stroki));

nep=1;

MYEXCEL.OLEPROCEDURE("Quit");

}

}

//--------------------------------------------------------------------------- void __fastcall TFORM1::Button3Click(TOBJECT *Sender)

{

Variant MYEXCEL = CREATEOLEOBJECT("Excel.Application");

if (LISTBOX1->Count==0)

{

SHOWMESSAGE("Вы еще не выбрали файл с неправильными email");

} else

{ if (name2=="")

{

SHOWMESSAGE("Вы не выбрали файл с правильными email!");

} else

{ if(SAVEDIALOG1->Execute()) name=SAVEDIALOG1->FILENAME ".xls";

{ if (name=="")

{

SHOWMESSAGE("Вы не выбрали куда сохранить новый файл!");

} else

{ if(!COPYFILE(OPENDIALOG1->FILENAME.c_str(), name.c_str(), true))

{

SHOWMESSAGE("Невозможно скопировать" OPENDIALOG1->FILENAME ".");

}

MYEXCEL.OLEPROPERTYGET("WORKBOOKS").OLEPROCEDURE("Open", name.c_str());

Variant VCELLS = MYEXCEL.OLEPROPERTYGET("Cells");

Variant VVARSHEET = MYEXCEL.OLEPROPERTYGET("Worksheets").OLEPROPERTYGET("Item",1);

int IFIRSTROW = MYEXCEL.OLEPROPERTYGET("ACTIVESHEET").OLEPROPERTYGET("USEDRANGE").OLEPROPERTYGET("Row");

int IROWSCOUNT;

int q=IFIRSTROW;

int w=COMBOBOX1->ITEMINDEX;

w ;

IROWSCOUNT = MYEXCEL.OLEPROPERTYGET("ACTIVESHEET").OLEPROPERTYGET("USEDRANGE").OLEPROPERTYGET("Rows").OLEPROPERTYGET("Count");

PROGRESSBAR1->Position = 0;

PROGRESSBAR1->Max = IROWSCOUNT;

//Колво email до проверки <<< int YROWSCOUNT = MYEXCEL.OLEPROPERTYGET("ACTIVESHEET").OLEPROPERTYGET("USEDRANGE").OLEPROPERTYGET("Rows").OLEPROPERTYGET("Count");

int emaildel = 0;

q=IFIRSTROW;

PROGRESSBAR1->Position = 0;

PROGRESSBAR1->Max = IROWSCOUNT;

while (LISTBOX1->Count>0)

{

Application->PROCESSMESSAGES();

String str= VCELLS.OLEPROPERTYGET("Item", q,w);

if (CHECKBOX1->Checked)

{

Application->PROCESSMESSAGES();

String str= VCELLS.OLEPROPERTYGET("Item", q,w);

if (str == "")

{

ANSISTRING ch = q;

VVARSHEET.OLEPROPERTYGET("Rows",ch.c_str()).OLEPROCEDURE("Select");

MYEXCEL.OLEPROPERTYGET("Selection").OLEPROCEDURE("Delete");

} else

{ if (LISTBOX1->Items->INDEXOF(str) == -1)

{ q ;

} if (LISTBOX1->Items->INDEXOF(str) != -1)

{ int i = LISTBOX1->Items->INDEXOF(str);

LISTBOX1->Items->Delete(i);

emaildel ;

ANSISTRING ch = q;

VVARSHEET.OLEPROPERTYGET("Rows",ch.c_str()).OLEPROCEDURE("Select");

MYEXCEL.OLEPROPERTYGET("Selection").OLEPROCEDURE("Delete");

}

IROWSCOUNT = MYEXCEL.OLEPROPERTYGET("ACTIVESHEET").OLEPROPERTYGET("USEDRANGE").OLEPROPERTYGET("Rows").OLEPROPERTYGET("Count");

} if (q>IROWSCOUNT)

{

LISTBOX1->Items->Clear();

}

IROWSCOUNT = MYEXCEL.OLEPROPERTYGET("ACTIVESHEET").OLEPROPERTYGET("USEDRANGE").OLEPROPERTYGET("Rows").OLEPROPERTYGET("Count");

PROGRESSBAR1->Position ;

} else

{ if (LISTBOX1->Items->INDEXOF(str) == -1 || str == "" )

{ q ;

} if (LISTBOX1->Items->INDEXOF(str) != -1)

{ int i = LISTBOX1->Items->INDEXOF(str);

LISTBOX1->Items->Delete(i);

emaildel ;

ANSISTRING ch = q;

VVARSHEET.OLEPROPERTYGET("Rows",ch.c_str()).OLEPROCEDURE("Select");

MYEXCEL.OLEPROPERTYGET("Selection").OLEPROCEDURE("Delete");

}

IROWSCOUNT = MYEXCEL.OLEPROPERTYGET("ACTIVESHEET").OLEPROPERTYGET("USEDRANGE").OLEPROPERTYGET("Rows").OLEPROPERTYGET("Count");

PROGRESSBAR1->Position ;

if (q>IROWSCOUNT)

{

LISTBOX1->Items->Clear();

}

}

} int Rowsa=YROWSCOUNT-1;

int Rowsb=IROWSCOUNT-1;

SHOWMESSAGE("Колво удаленных email:" String(emaildel) "\NКОЛ-во email до проверки: " String(Rowsa) "\NКОЛ-во email после проверки: " String(Rowsb));

MYEXCEL.OLEPROPERTYSET("Visible",true);

emaildel=0;

name="";

name2="";

if (LISTBOX1->Count==0)

{

LPCSTR Text = "Хотите выбрать еще один файл с правильными email ?";

LPCSTR Caption = "EXCELFIND";

LPCSTR Text2 = "Восстановить список с неправильными email ?";

if (MESSAGEBOX(Handle,Text,Caption,MB_YESNO) == IDYES)

{ if (MESSAGEBOX(Handle,Text2,Caption,MB_YESNO) == IDNO)

{ SHOWMESSAGE("Выберите файл с неправильными email");

Button2->Click();

if (LISTBOX1->Count>0)

{

SHOWMESSAGE("Выберите файл с правильными email");

Button1->Click();

} else

{

SHOWMESSAGE("Вы не выбрали файл с неправильными email

выберите его еще раз");

}

} else

{

LISTBOX1->Items->ADDSTRINGS(s);

SHOWMESSAGE("Выберите файл с правильными email");

Button1->Click();

}

}

}

}

}

}

}

}

//---------------------------------------------------------------------------

Размещено на