Разработка информационной системы учета затрат клиента на рекламные кампании для рекламных агентств

Описание рынка рекламы. Бизнес-процессы, взаимодействие между рекламным агентством и клиентом при помощи информационной системы. Расчет стоимости рекламной кампании. Проектирование базы данных и ее нормализация. Разработка пользовательского интерфейса.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 01.08.2017
Размер файла 193,8 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

appXL.Interactive = True

appXL.Visible = True

appXL.UserControl = True

myconn.Close()

Catch ex As MySqlException

MessageBox.Show(ex.Message)

Finally

myconn.Dispose()

End Try

End Sub

End Class

Форма "Авторизация":

Public Class Form4

Dim myconn As New MySqlConnection("Server=localhost; User Id=root;Password= qwerty12345;Database=adagency")

Dim COMMAND As MySqlCommand

Dim READER As MySqlDataReader

Public id_manager As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim READER As MySqlDataReader

Dim password_check As String

Try

myconn.Open()

Dim Query As String

Query = "select id_manager, password_manager from manager where login_manager = '" & Login.Text & "'"

COMMAND = New MySqlCommand(Query, myconn)

READER = COMMAND.ExecuteReader

While READER.Read

password_check = READER.GetString("password_manager")

id_manager = READER.GetInt32("id_manager")

If password_check = Password.Text Then

Form1.Show()

Me.Hide()

Else

MsgBox("Неправильный логин или пароль!", MsgBoxStyle.RetryCancel, "Ошибка авторизации")

End If

End While

myconn.Close()

Catch ex As MySqlException

MessageBox.Show(ex.Message)

Finally

myconn.Dispose()

End Try

End Sub

End Class

Форма "Новый клиент":

Public Class Form3

Dim myconn As New MySqlConnection("Server=localhost; User Id=root;Password= qwerty12345;Database=adagency")

Dim COMMAND As MySqlCommand

Dim READER As MySqlDataReader

Private Sub Button_addnew_advertiser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_addnew_advertiser.Click

Dim READER As MySqlDataReader

Try

myconn.Open()

Dim Query As String

Query = "insert into advertiser (INN, name_advertiser, ph_num) values ('" & INN.Text & "','" & New_advertiser.Text & "', '" & Phone_num.Text & "')"

COMMAND = New MySqlCommand(Query, myconn)

READER = COMMAND.ExecuteReader

MessageBox.Show("Новый рекламодатель успешно добавлен")

Me.Close()

Form1.Advertiser_Update_Form()

Form1.Show()

myconn.Close()

Catch ex As MySqlException

MessageBox.Show(ex.Message)

Finally

myconn.Dispose()

End Try

End Sub

Private Sub Form3_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing

Me.Hide()

Form1.Show()

End Sub

End Class

Размещено на Allbest.ru


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.