Поможем в ✍️ написании учебной работы

Имя

Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

Выберите тип работыЧасть дипломаДипломная работаКурсовая работаКонтрольная работаРешение задачРефератНаучно - исследовательская работаОтчет по практикеОтветы на билетыТест/экзамен onlineМонографияЭссеДокладКомпьютерный набор текстаКомпьютерный чертежРецензияПереводРепетиторБизнес-планКонспектыПроверка качестваЭкзамен на сайтеАспирантский рефератМагистерская работаНаучная статьяНаучный трудТехническая редакция текстаЧертеж от рукиДиаграммы, таблицыПрезентация к защитеТезисный планРечь к дипломуДоработка заказа клиентаОтзыв на дипломПубликация статьи в ВАКПубликация статьи в ScopusДипломная работа MBAПовышение оригинальностиКопирайтингДругое

Нажимая кнопку "Продолжить", я принимаю политику конфиденциальности

Для создания таблицы я использовал Microsoft Access. Основная таблица с персональными данными состоит из 11 столбцов:

- ФИО клиента

- Адрес клиента

- Контактный номер телефона клиента

- Название документа подтверждающего личность клиента

- Техническую возможность подключения услуг

- Название услуги или тарифного плана

- Дата и время вноса заявки в базу данных

- Дополнительная информация (заметки)

- Статус заявки (Подключена/Отклонена)

- ФИО сотрудника которым вносилась заявка

- Фамилия супервайзера данного сотрудника

Я использовал ADOConnection, ADOQuery, ADODataSet, чтобы прикрепить базу данных к своей программе.

 

 2.4. Тестирование и отладка программного продукта

В процессе тестирования программы, была обнаружена ошибка. При включении программы не отображалось содержание таблиц, т.к. я использовал ADOQuery. Для того что бы все отображалось в таблице при запуске, я прописал в коде программы параметры данной таблицы:

ADOQuery1.SQL.Clear;

ADOQuery1. SQL.Add('SELECT * FROM Zayavki');

ADOQuery1.Active:=True;

end;

После повторного запуска, ошибки не обнаружены. Проект запущен.

СПИСОК ИСТОЧНИКОВ И ЛИТЕРАТУРЫ

Ресурсы сети Интернет

1. http://www.delphicode.org/delphi/delphi.htm

2. http://clickoman.narod.ru/help/delphi_2.html

3. http://cybersite.ucoz.net/blog/sintaksis_delphi_urok_3/2013-04-02-8

4. http://esate.ru/uroki/OpenGL/uroki-OpenGL-c-sharp/sintaksis-c-sharp/

 

ЗАКЛЮЧЕНИЕ

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

– Описаны функциональные требования к программному продукту;

– Описан формат входной и выходной информации;

– Разработана структура таблиц данных;

– Выбран, и обоснован выбор программного обеспечения для разработки программного продукта;

– Разработан интерфейс программного продукта;

–  Реализованы функции программного продукта;

–  Проведено тестирование и отладка программного продукта;

 

ПРИЛОЖЕНИЕ 1. ЛИСТИНГ ОСНОВНЫХ ФУНКЦИЙ

unit unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.pngimage, Vcl.ExtCtrls,

Vcl.StdCtrls, Unit7, Unit6, Unit8, Unit9, Unit10, Data.DB, Data.Win.ADODB,

Vcl.ComCtrls, Vcl.OleCtrls, SHDocVw;

type

TForm1 = class(TForm)

Frame61: TFrame6;

Frame71: TFrame7;

Frame81: TFrame8;

Frame91: TFrame9;

Frame101: TFrame10;

ADOQuery1: TADOQuery;

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

DataSource2: TDataSource;

ADOTable1: TADOTable;

Image1: TImage;

Image2: TImage;

WebBrowser1: TWebBrowser;

procedure Frame61Image3Click(Sender: TObject);

procedure Frame61Image2Click(Sender: TObject);

procedure Frame61Image4Click(Sender: TObject);

procedure Frame71Image1Click(Sender: TObject);

procedure Frame81Image1Click(Sender: TObject);

procedure Frame91Image1Click(Sender: TObject);

procedure Frame81Button1Click(Sender: TObject);

procedure Frame101Image1Click(Sender: TObject);

procedure Frame71Button2Click(Sender: TObject);

procedure Frame101Button2Click(Sender: TObject);

procedure Frame91Button1Click(Sender: TObject);

procedure Frame71Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Frame61Image1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

////активация компонента и обновление параметра SQL

ADOQuery1.SQL.Clear;

ADOQuery1. SQL.Add('SELECT * FROM Zayavki');

ADOQuery1.Active:=True;

end;

procedure TForm1.Frame101Button2Click(Sender: TObject);

begin

 ////поиск по колонке ФИО

ADOQuery1.SQL.Clear;

ADOQuery1. SQL.Add('SELECT * FROM zayavki WHERE ФИО_клиента LIKE :zapros');

ADOQuery1.Parameters.ParamByname ('zapros'). Value := '%' + frame101.Edit1.Text+ '%';

ADOQuery1.Active:=True;

end;

procedure TForm1.Frame101Image1Click(Sender: TObject);

begin ///переход на страницу "Главная"

frame101.Visible:=false;

frame61.Visible:=true;

end;

 ///открывает webbrowser и переходит на сайт компании Ростелеком

procedure TForm1.Frame61Image1Click(Sender: TObject);

begin

 WebBrowser1.Navigate('http://samara.rt.ru/');

webbrowser1.Height:=450;

webbrowser1.Width:=800;

webbrowser1.Visible:=true;

image2.Visible:=true;

image1.Visible:=false;

end;

procedure TForm1.Frame61Image2Click(Sender: TObject);

begin ///переход на страницу "Аутентификации"

Frame81.Visible:=true ;

Frame61.visible:=false ;

end;

procedure TForm1.Frame61Image3Click(Sender: TObject);

begin ///переход на страницу "Новая заявка"

Frame71.Visible:=true ;

Frame61.visible:=false ;

end;

procedure TForm1.Frame61Image4Click(Sender: TObject);

begin ///переход на страницу "Отчет"

 frame61.visible:=false;

 frame91.visible:=true;

end;

procedure TForm1.Frame71Button1Click(Sender: TObject);

begin ///обязательное условие заполнения всех данных полей на странице

 if

 ((frame71.Edit1.Text <> '') and

 (frame71.Edit2.Text <> '') and

 (frame71.Edit3.Text <> '') and

 (frame71.Edit4.Text <> '') and

 (frame71.Combobox1.Text <> '') and

 (frame71.Edit6.Text <> '') and

 (frame71.Edit7.Text <> '') and

 (frame71.Combobox2.Text <> ''))

then begin

///внос данных из полей для заполнения в базу данных

ADOQuery1.edit;

ADOQuery1.insert;

ADOQuery1.FieldByName('фИО_клиента').AsString:=frame71.Edit1.Text;

ADOQuery1.FieldByName('фИО_клиента').AsString:=frame71.Edit1.Text;

ADOQuery1.FieldByName('Адрес').AsString:=frame71.Edit2.Text;

ADOQuery1.FieldByName('Телефон').AsString:=frame71.Edit3.Text;

ADOQuery1.FieldByName('Документ').AsString:=frame71.Edit4.Text;

ADOQuery1.FieldByName('Технология').AsString:=frame71.Combobox1.Text;

ADOQuery1.FieldByName('Тариф').AsString:=frame71.Edit6.Text;

ADOQuery1.FieldByName('ФИО_агента').AsString:=frame71.Edit7.Text;

ADOQuery1.FieldByName('Супервайзер').AsString:=frame71.Combobox2.Text;

ADOQuery1.FieldByName('Заметки').AsString:=frame71.Edit9.Text;

ADOQuery1.FieldByName('Дата и Время').AsString:=DateTimeToStr(Now);

ADOQuery1.post; //сохранение внесенной информации

frame71.Edit1.Text:=''; ///очистка полей для заполнения

frame71.Edit2.Text:='';

frame71.Edit3.Text:='';

frame71.Edit4.Text:='';

Frame71.Combobox1.itemindex:=0;

frame71.Edit6.Text:='';

frame71.Edit7.Text:='';

Frame71.Combobox2.itemindex:=0;

frame71.Edit9.Text:='';

end;

end;

///кнопка очистки полей для заполнения

procedure TForm1.Frame71Button2Click(Sender: TObject);

begin

Frame71.Edit1.clear;

Frame71.Edit2.clear;

Frame71.Edit3.clear;

Frame71.Edit4.clear;

Frame71.Combobox1.itemindex:=0;

Frame71.Edit6.clear;

Frame71.Edit7.clear;

Frame71.Combobox2.itemindex:=0;

Frame71.Edit9.clear;

end;

procedure TForm1.Frame71Image1Click(Sender: TObject);

begin ///переход на страницу "Главная"

frame71.Visible:=false;

frame61.Visible:=true;

///очистка полей для заполнения

 Frame71.Edit1.clear;

Frame71.Edit2.clear;

Frame71.Edit3.clear;

Frame71.Edit4.clear;

Frame71.Combobox1.itemindex:=0;

Frame71.Edit6.clear;

Frame71.Edit7.clear;

Frame71.Combobox2.itemindex:=0;

Frame71.Edit9.clear;

end;

procedure TForm1.Frame81Button1Click(Sender: TObject);

begin ///сравнивание логинов и паролей из базы данных и внесенной в настоящее время пользователем

if ((frame81.edit1.text=frame81.dbedit1.text) and (frame81.edit2.text=frame81.dbedit2.text)) then

 begin

 ///при выполнении предыщего условия, выполняется переход на страницу "Редактирование"

frame81.visible:=false ;

frame101.visible:=true ;

//очистка полей для заполнения

frame81.Edit1.Clear;

frame81.Edit2.Clear;

frame81.Label4.Caption:='';

 

 end

else

begin ///появление уведомления , при не верном вводе лонина или пароля

frame81.label4.Caption:='Не верный ЛОГИН или ПАРОЛЬ';

end;

end;

procedure TForm1.Frame81Image1Click(Sender: TObject);

begin ///переход на страницу "Главная"

frame81.Visible:=false;

frame61.Visible:=true;

///очистка полей для заполнения

frame81.Edit1.Clear;

frame81.Edit2.Clear;

frame81.Label4.Caption:='';

end;

procedure TForm1.Frame91Button1Click(Sender: TObject);

begin ///поиск по базе данных

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM zayavki WHERE ФИО_клиента LIKE :zapros');

ADOQuery1.Parameters.ParamByname ('zapros'). Value := '%' + frame91.Edit1.Text+ '%';

ADOQuery1.Active:=True;

end;

procedure TForm1.Frame91Image1Click(Sender: TObject);

begin ///переход на сраницу "Главная"

frame91.Visible:=false;

frame61.Visible:=true;

end;

procedure TForm1.Image1Click(Sender: TObject);

begin  /// открывает webbrowser и переходит на сайт Яндекс карты

 WebBrowser1.Navigate('https://yandex.ru/maps/51/samara/');

webbrowser1.Height:=450;

webbrowser1.Width:=800;

webbrowser1.Visible:=true;

image1.Visible:=false;

image2.Visible:=true;

end;

 ///Кнопка закрытия Webbrowser

procedure TForm1.Image2Click(Sender: TObject);

begin

webbrowser1.Visible:=false;

webbrowser1.Height:=1;

webbrowser1.Width:=1;

image2.Visible:=false;

image1.Visible:=true;

end;

end.