На форм1 поставили компоненты «mainmenu», «combobox», «edit» и «button». В свойстве combobox нажимаем на items и пишем «Администратор» и «Покупатель» 
В button1 и button2 ввели программу:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (combobox1.ItemIndex=0) and (edit1.text='111') then form12.show else
if (combobox1.ItemIndex=1) and (edit1.text=' ') then form2.Show else
ShowMessage(‘НЕПРАВИЛЬНО ВВЕЛИ ПАРОЛЬ');
end;
procedure TForm1.N1Click(Sender: TObject);
begin
aboutbox.show;
end;
procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then button1.click;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end; end.
Затем на Форм2 будет отображаться система пользователя «Покупатель». Вставляем компонент «Mainmanu». В свойстве «Caption» пишем «Музыкальные инструменты».
В Форм4 вставляем компоненты ADOQuery1, DataSource1, BDgrid1, Label1,2,3,4, Edit1,2,3,4 и Button1,2,3. Затем соединяем ADOQuery1, DataSource1, BDgrid1. В ADOQuery1 указываем путь БД MS Access. В свойстве ADOQuery нажав 3 точки ConnectionString…
В Button1 пишем программу:
procedure TForm4.Button1Click(Sender: TObject);
begin
form11.ADOQuery1.Insert;
form11.ADOQuery1.FieldByName('Название_гитары').AsString:=Edit3.Text;
form11.ADOQuery1.FieldByName('Цена').AsString:=Edit4.Text;
form11.ADOQuery1.FieldByName('Количество').AsString:=Edit5.Text;
end;
В Button2.:
procedure TForm4.Button3Click(Sender: TObject);
begin
form11.show;
end;
В Button3. Пишем следующую программу:
procedure TForm4.Button2Click(Sender: TObject);
begin
close;
end;
В Edit1пишем программу поиска
var help1:string;
begin
help1:='%'+form4.Edit1.Text+'%';
help1:=quotedstr(help1);
with form4.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select* from гитары where Название_гитары like'+help1+' order by Название_гитары');
open;
end;
end;
В Форме5,6,7,8,9,10 точно также сделаем как на Форм4
procedure TForm5.Button1Click(Sender: TObject);
begin
form14.ADOQuery1.Insert;
form14.ADOQuery1.FieldByName('Название').AsString:=Edit2.Text;
form14.ADOQuery1.FieldByName('Мощность').AsString:=Edit3.Text;
form14.ADOQuery1.FieldByName('Тембры').AsString:=Edit4.Text;
form14.ADOQuery1.FieldByName('Цена').AsString:=Edit5.Text;
form14.ADOQuery1.FieldByName('Количество').AsString:=Edit6.Text;
end;
|
|
procedure TForm5.Button3Click(Sender: TObject);
begin
form14.show; end;
procedure TForm6.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm6.Button1Click(Sender: TObject);
begin
form13.ADOQuery1.Insert;
form13.ADOQuery1.FieldByName('Название').AsString:=Edit2.Text;
form13.ADOQuery1.FieldByName('Цена').AsString:=Edit3.Text;
form13.ADOQuery1.FieldByName('Количество').AsString:=Edit4.Text;
end;
procedure TForm6.Button3Click(Sender: TObject);
begin
form13.show;
end;
procedure TForm7.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm7.Button2Click(Sender: TObject);
begin
form15.ADOQuery1.Insert;
form15.ADOQuery1.FieldByName('Название').AsString:=Edit2.Text;
form15.ADOQuery1.FieldByName('Описание').AsString:=Edit3.Text;
form15.ADOQuery1.FieldByName('Цена').AsString:=Edit4.Text;
form15.ADOQuery1.FieldByName('Количество').AsString:=Edit4.Text;
end;
procedure TForm7.Button3Click(Sender: TObject);
begin
form15.show;
end;
end.
procedure TForm8.Button2Click(Sender: TObject);
begin
form16.ADOQuery1.Insert;
form16.ADOQuery1.FieldByName('Название').AsString:=Edit2.Text;
form16.ADOQuery1.FieldByName('Описание').AsString:=Edit3.Text;
form16.ADOQuery1.FieldByName('Цена').AsString:=Edit4.Text;
form16.ADOQuery1.FieldByName('Количество').AsString:=Edit4.Text;
end;
procedure TForm8.FormCreate(Sender: TObject);
begin
form16.show;
end;
procedure TForm8.Button3Click(Sender: TObject);
begin
form16.show;
end;
end.
procedure TForm9.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm9.Button2Click(Sender: TObject);
begin
form17.ADOQuery1.Insert;
form17.ADOQuery1.FieldByName('Название').AsString:=Edit2.Text;
form17.ADOQuery1.FieldByName('Описание').AsString:=Edit3.Text;
form17.ADOQuery1.FieldByName('Цена').AsString:=Edit4.Text;
form17.ADOQuery1.FieldByName('Количество').AsString:=Edit4.Text;
end;
procedure TForm9.Button3Click(Sender: TObject);
begin
form17.show;
end;
end.
procedure TForm10.Button1Click(Sender: TObject);
begin
form18.ADOQuery1.Insert;
form18.ADOQuery1.FieldByName('Название').AsString:=Edit2.Text;
form18.ADOQuery1.FieldByName('Диапазон').AsString:=Edit3.Text;
form18.ADOQuery1.FieldByName('Размер').AsString:=Edit4.Text;
form18.ADOQuery1.FieldByName('Цена').AsString:=Edit5.Text;
form18.ADOQuery1.FieldByName('Количество').AsString:=Edit6.Text;
end;
procedure TForm10.Button3Click(Sender: TObject);
begin
form18.show;
end;
procedure TForm10.FormCreate(Sender: TObject);
|
|
begin
end;
end.
В Форм11 Вставляем компоненты ADOQuery1, DataSource1, BDgrid1 и Button1,2. Соеднияем ADOQuery1, DataSource1, BDgrid. В ADOQuery1 указываем путь БД MS Access. В свойстве ADOQuery нажав 3 точки ConnectionString…
В Button1 пишем программу:
procedure TForm11.Button2Click(Sender: TObject);
begin
showmessage ('Ваш заказ успешно выполнен!');
end;
end.
В Button2:
procedure TForm11.Button1Click(Sender: TObject);
begin
close;
end;
В Форм12 будет отображаться система пользователя «Администратор». Вставляем компоненты ADOQuery1,2,3,4,5,6,7, DataSource1,2,3,4,5,6,7, BDgrid1,2,3,4,5,6,7, Button1,2, DBNavigator1,2,3,4,5,6,7. Соеднияем ADOQuery1, DataSource1, BDgrid,, DBNavigator1. В ADOQuery1 указываем путь БД MS Access. В свойстве ADOQuery ConnectionString нажав 3 точки ConnectionString …
procedure TForm12.Button1Click(Sender: TObject);
begin
close;
end;
В Button2:
procedure TForm12.Button2Click(Sender: TObject);
begin
form11.show;
end; // указываем путь на Корзину покупателя
ЗАКЛЮЧЕНИЕ
В ходе выполнения курсовой работы была разработана база данных «Магазин музыкальных инструментов», с помощью которой можно добавить данные о инструментах, просмотреть их, совершить поиск.
Данная курсовая работа позволила укрепить знания, которые были получены в процессе учебы, и реализовать их в виде данной программы.
По дисциплине «Технология разработки программного обеспечения» самостоятельно были изучены новые возможности и функции Delphi. Авторизация, добавление, удаление данных из таблицы, создание кнопочных форм.
Данная информационная система предназначена для образовательных учреждений, позволяющая удобно вводить и редактировать данные, хранить информацию. Программа имеет удобный и интуитивно понятный интерфейс, выполняет такие функции как выполнение запросов, добавление, удаление записей.
|
|
Данный программный продукт применяется в электронных магазинах музыкального инструмента. В наше время почти все покупают через интернет.
При выполнении курсовой работы сформированы следующие профессиональные (ПК) и общекультурные компетенции (ОК):
ПК 3.1. Анализировать проектную и техническую документацию на уровне взаимодействия компонент программного обеспечения.
ПК 3.2. Выполнять интеграцию модулей в программную систему.
ПК 3.3. Выполнять отладку программного продукта с использованием специализированных программных средств.
ПК 3.4. Осуществлять разработку тестовых наборов и тестовых сценариев.
ПК 3.5. Производить инспектирование компонент программного продукта на предмет соответствия стандартам кодирования.
ПК 3.6. Разрабатывать технологическую документацию.
ОК 1. Понимать сущность и социальную значимость своей будущей профессии, проявлять к ней устойчивый интерес.
ОК 2. Организовывать собственную деятельность, выбирать типовые методы и способы выполнения профессиональных задач, оценивать их эффективность и качество.
ОК 3. Принимать решения в стандартных и нестандартных ситуациях и нести за них ответственность.
ОК 4. Осуществлять поиск, анализ оценку информации, необходимой для постановки и решения профессиональных задач, профессионального и личностного развития.
ОК 5. Использовать информационно-коммуникационные технологии для совершенствования профессиональной деятельности.
ОК 8. Ориентироваться в условиях частой смены технологий в профессиональной деятельности
ОК 9. Самостоятельно определять задачи профессионального и личностного развития, заниматься самообразованием, осознанно планировать повышение квалификации.
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. Белладжио Д., Миллиган Т. Разработка программного обеспечения: управление изменениямиДМК Пресс, Москва, 2009
2. Иванова Г.С. Технология программирования. М.: Изд-во МГТУ им. Баумана
3. ГОСТ 19.701-90. Схемы алгоритмов, программ, данных и систем. Условные обозначения и правила выполнения. – Взамен ГОСТ 19.002-80, ГОСТ 19.003-80; введ. 01.01.1992. – М.: Межгосударственный совет по стандартизации, метрологии и сертификации, 1991. – 23 с. - (Единая система программной документации).
4. ГОСТ 19.102-77. Стадии разработки. – Введ. 01.01.1980. – М.: Межгосударственный совет по стандартизации, метрологии и сертификации, 1991. – 2 с. - (Единая система программной документации).
5. ГОСТ 19.201-78. Техническое задание. Требования к содержанию и оформлению. – Введ. 01.01.1980. – М.: Межгосударственный совет по стандартизации, метрологии и сертификации, 1991. – 2 с. - (Единая система программной документации).
6. ГОСТ 19.402-78. Описание программы. Введ. 01.01.1980. – М.: Межгосударственный совет по стандартизации, метрологии и сертификации, 1991. – 2 с. - (Единая система программной документации).
7. Орлов С.А., Цилькер Б.Я. Технологии разработки программного обеспечения: Учебник для вузов. 4-е изд. Стандарт третьего поколения. – СПб.: Питер, 2012. – 608с.:ил.
8. Гагарина Л.Г., Кокорева Е.В., Виснадул Б.Д. Технология разработки программного обеспечения— Под ред. Л.Г. Гагариной. Учебное пособие. — М.: Форум, ИНФРА-М, 2009. — 400 с.: ил. — (Высшее образование). — ISBN 978-5-8199-0342-1 (Форум), ISBN 978-5-16-003193-4 (ИНФРА-М).