Разработка приложения
Создаём новый проект «ProjectMagazin.dpr»:
Рис. 6. Начальная форма проекта
Рис. 7. Вид заполненной таблицы «Компьютер» в среде разработки Delphi.
Рис. 8. Панель настройки сортировки.
Обеспечиваем возможность сортировки по:
«Магазин» и «Модель», «по убыванию» и по «возрастанию»
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
with RadioGroup1 do DM.ADOTable1.Sort:=Items[ItemIndex];
end;
procedure TForm1.RadioGroup2Click(Sender: TObject); var ns: string;
begin
case RadioGroup2.ItemIndex of 0: ns:=' ASC'; 1: ns:=' DESC'; end;
with RadioGroup1 do DM.ADOTable1.Sort:=Items[ItemIndex]+ns;
end;
Фильтрация по цене:
procedure TForm1.Button1Click(Sender: TObject);
begin
with DM.ADOTable1 do begin
Filter:='[Миним цена]<='+MaskEdit1.Text; Filtered:=True; end;
end;
Создание запроса по цене:
procedure TForm1.Button2Click(Sender: TObject);
begin with DM.QueryMagazin do begin Active:=False;
Parameters.ParamByName('cena').Value:=Edit1.Text; Active:=True;
Form2.Label1.Caption:='Отобрано записаей: '+IntToStr(RecordCount); end;
Form2.ShowModal;
end;
Программный код главных функциональных кнопок:
«Добавить запись»
procedure TForm1.Button3Click(Sender: TObject);
begin
DM.ADOTable1.Insert; FormRedactor.ShowModal;
end;
«Удалить запись»
procedure TForm1.Button4Click(Sender: TObject);
begin
if MessageBox(0, PChar('Удалить запись '+DM.ADOTable1DSDesigner.AsString +'?'), 'Подумайте', MB_YESNO or
MB_ICONWARNING or MB_DEFBUTTON2)=id_yes then DM.ADOTable1.Delete;
end;
«Изменить запись»
procedure TForm1.Button5Click(Sender: TObject);
begin
FormRedactor.ShowModal;
end;
Заключение
В результате выполнения данной курсовой работы было разработано программное приложение "Сеть магазинов бытовой техники". Данное программное приложение позволяет осуществлять все основные функции по выбору различной бытовой техники, получение информации по определённому товару или магазину. Разработанная программа может быть использована в работе любой организации, чья деятельность связана с реализацией бытовой техники.
Ее основными преимуществами являются:
Простой и понятный интерфейс, позволяющий работать с программой любому пользователю вне зависимости от навыков работы с ПК;
Разработанная программа довольно проста в использовании;
Данная программа является отказоустойчивой;
Разработанное программное приложение содержит огромное количество информации и при этом потребляет минимум ресурсов компьютера;
Эргономичный и интуитивно понятный интерфейс;
Список литературы
Методические указания к курсовому проектированию по учебной дисциплине «Разработка программных приложений» Беляков А.Ю.
Гофман, В. Э. Delphi. Быстрый старт / В. Э. Гофман, А. Д. Хомоненко. - СПб.: БХВ-Петербург. 2003.- 288с.
Фаронов В. В. Delphi 6. Учебный курс / В. В Фараонов. СПб. : Питер, 2002 -260с.
http://proect66.narod.ru.
https://ru.wikipedia.org.