2. Постановка задачі

2.1. Призначення, функції та достоїнства додатку

Веб-продукт призначений для створення електронної розсилки повідомлень деяким певним користувачам, що є в базі даних проекту, якою може користуватися будь-який користувач. В даному веб-додатку «Розсилка повідомлень» користувач може відправити електронний лист будь-якому адресату, який є в базі даних. Його головним достоїнством є надання користувачу не витрачати часу на реальну пошту, а замінити її швидкодійним веб-додатком відправлення повідомлень різним адресатам через локальну або інтернет мережу.

3. Опис проекту

3.1. Проектування інтерфейсу

Для проектування інтерфейсу було використано принцип послідовності діаграми переходів станів. Весь проект реалізований в одній сторінці «Розсилка повідомлень». Процес основується на описі вимог до інтерфейсу у текстовому вигляді:

1. При вході на сайт завантажується головна сторінка з відповідним інтерфейсом, на якому розміщено: назва сторінки; випадаючий список адресатів,яким можна відправити повідомлення; поле введення адреси відправника; поле введення теми повідомлення; поле введення тексту повідомлення та кнопка відправлення заповненої форми. Форма буде відправлена, якщо всі текстові поля будуть заповненні.

3.2. Основні елементи інтерфейсу

Візуальний інтерфейс WEB – додатку було визначено в процесі розробку WEB – проекту. Далі слідує опис основних елементів інтерфейсу.

Рис. 3.2.1 – Основні елементи інтерфейсу головно сторінки проекту.

Основні елементи інтерфейсу сторінки реєстрації користувачів:

1. Назва сторінки;

2. Заголовок сторінки;

3. Елемент відступу;

4. Поле введення електронної адреси відправника;

5. Повідомлення, про те, що поле «Адреса відправника» повинна бути заповненою;

6. Поле введення теми повідомлення;

7. Повідомлення, про те, що поле «Тема повідомлення» повинна бути заповненою;

8. Поле введення тексту повідомлення;

9. Повідомлення, про те, що поле «Повідомлення» повинна бути заповненою;

10. Кнопка перевірки заповненості важливих полів форми та її відправки;

11. Заголовок текстового поля, який розміщений праворуч;

12. Заголовок текстового поля, який розміщений праворуч;

13. Заголовок текстового поля, який розміщений праворуч;

14. Заголовок випадаючого поля, який розміщений нижче;

15. Випадаючий список можливих адресатів.

4. Детальне проектування

4.1. Розробка бази даних проекту, структура таблиць

База даних веб - додатку «Розсилка повідомлень» створена розробником проекту. До проекту було допущено має доступ будь-який користувач. В самій базі даних міститься 1 таблиця:

• Customers.

Таблиця «Customers» містить атрибути:

• CustomerID;

• CustomerName;

• CustomerEmail;

• GroupName.

Рис. 4.1.1 – Конструкторський вид таблиці Customers.

Рис. 4.1.4 – Логічна схема бази даних.

4.2. Основні модулі, алгоритми

При створенні проекту було використано наступні модулі:

1. Модуль відправлення повідомлення адресатам:

Рис. 4.2.1 – Модуль відправлення повідомлень.

Для роботи бази даних з проектом було використано наступний алгоритм: <%@ Page Language=VB Debug=true %>

<%@ Import Namespace="System.Web.Mail" %>

<%@ Import Namespace="System.Data" %>

<%@ Import Namespace="System.Data.OLEDB" %>

<script runat=server>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)

If Not IsPostBack Then

Dim DBConn as OleDbConnection

Dim DBCommand As OleDbDataAdapter

Dim DSPageData as New DataSet

DBConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" _

& "DATA SOURCE=" _

& Server.MapPath("/INetBook/C4/EmailBlast/" _

& "Access/C4EmailBlast.mdb;"))

DBCommand = New OleDbDataAdapter _

("Select Distinct GroupName from Customers " _

& "Order By GroupName", DBConn)

DBCommand.Fill(DSPageData, _

"Groups")

ddlGroupName.DataSource = _

DSPageData.Tables("Groups").DefaultView

ddlGroupName.DataBind()

End If

End Sub

Sub SubmitBtn_Click(Sender As Object, E As EventArgs)

Dim DBConn as OleDbConnection

Dim DBCommand As OleDbDataAdapter

Dim DSPageData as New DataSet

Dim TheMailMessage as New MailMessage

Dim I as Integer

DBConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" _

& "DATA SOURCE=" _

& Server.MapPath("/INetBook/C4/EmailBlast/" _

& "Access/C4EmailBlast.mdb;"))

DBCommand = New OleDbDataAdapter _

("Select Distinct CustomerEmail from Customers " _

& "Where GroupName = '" _

& ddlGroupName.SelectedItem.Text & "'", DBConn)

DBCommand.Fill(DSPageData, _

"Emails")

TheMailMessage.From = txtFrom.Text

TheMailMessage.Subject = txtSubject.Text

TheMailMessage.Body = txtMessage.Text

For I = 0 to DSPageData.Tables("Emails"). _

Rows.Count - 1

TheMailMessage.To = DSPageData.Tables("Emails"). _

Rows(0).Item("CustomerEmail")

' SmtpMail.Send(TheMailMessage)

Next

if DSPageData.Tables("Emails").Rows.Count = 1 then

lblMessage.Text = "Ваше сообщение отправлено 1" _

& " адресату. Можете осуществить новую рассылку."

Else

lblMessage.Text = "Ваше сообщение отправлено " _

& DSPageData.Tables("Emails").Rows.Count _

& " адресатам. Можете осуществить новую рассылку."

End If

End Sub

Protected Sub ddlGroupName_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)

End Sub