Разработка информационной системы "Каталог игрушек", в которой содержится информация об игрушках с фотографиями и полным описанием согласно заданию. Отладка и тестирование системы. Создания отчетов в MS Word и в MS Excel с помощью шаблонов и Delphi 7.
Аннотация к работе
Постановка задания Проектирование 2.
Список литературы
Приложение
Введение информационный тестирование отладка
В последнее время резко возрос интерес к программированию. Это связано с развитием и внедрением в повседневную жизнь информационно-коммуникационных технологий. Если человек имеет дело с компьютером, то рано или поздно у него возникает желание, а иногда и необходимость, программировать.
Среди пользователей персональных компьютеров в настоящее время наиболее популярно семейство операционных систем Windows и, естественно, что тот, кто собирается программировать, стремится писать программы, которые будут работать в этих системах.
Несколько лет назад рядовому программисту оставалось только мечтать о создании собственных программ, работающих в среде Windows, т.к. единственным средством разработки был Borland C for Windows, явно ориентированный на профессионалов, обладающих серьезными знаниями и опытом.
Delphi - это среда быстрой разработки, в которой в качестве языка программирования используется язык Delphi. Язык Delphi - строго типизированный объектно-ориентированный язык, в основе которого лежит хорошо знакомый программистам Object Pascal.
Существует четыре варианта пакета Borland Delphi 7 Studio: Personal, Professional, Enterprise и Architect. Каждый из этих комплектов включает стандартный набор средств, обеспечивающих разработку высокоэффективных программ различного назначения, в том числе для работы с базами данных. Вместе с тем, чем выше уровень комплекта (от Personal до Architect), тем большие возможности он предоставляет программисту. Так, комплект Enterprise позволяет разрабатывать приложения работы с удаленными базами данных (например, INTERBASE), а комплект Personal - нет.
1.
Постановка задания
Создать информационную систему, согласно своего варианта. Программа должна быть реализована по технологии клиент-сервер с использованием СУБД MYSQL или SQL Server.
Система предоставляет пользователю возможность выполнения стандартного набора действий, присущих информационным системам: просмотр и редактирование данных, сортировка, поиск, фильтрация, формирование отчетов.
Программа имеет привлекательную форму-заставку, которая содержит информацию о программе (название и версия), год создания на фоне произвольного рисунка. Форма должна иметь скругляющиеся углы.
При запуске программы выполняется регистрация пользователя и сохранения введенных данных в INI файле или реестре. Пользователь может указать логин, пароль, имя сервера, порт и, по желанию, имя БД.
Программа строится на основе MDI интерфейса. Главная форма должна иметь меню, панель инструментов, строка статусу. Строка состояния содержит дату/ время, состояние клавиш NUMLOCK, CAPSLOCK.
В сетках следует использовать цветовое оформление данных по различным критериям, предусмотреть отображение некоторой информации, вычисляемой по отдельным группам записей.
Формы должны иметь единый внешний стиль оформления, средства защиты программы от ошибок пользователя (шаблоны ввода, выпадающие списки с набором значений, календари, ограничение ввода определенного набора символов).
Области задания условий фильтрации должны отображаться вверху текущей формы.
На каждой форме предусмотреть панель инструментов с набором кнопок для выполнения основных операций над записями.
Программа должна иметь систему помощи и инсталлятор для установки на компьютер.
2. Проектирование
2.1 Проектирование данных
База данных «Toys» имеет две таблицы. Таблица «Vidy» для хранения информации о видах игрушек; таблица «Igra» для хранения подробной информации об игрушках.
Эти таблицы связаны между собой по полю id_grup.
Структура базы данных: Таблица 1 - Структура таблицы Vidy
Название поля Тип поля Описание поля id_grup int номер вида, ключевое, счетчик id_nom int номер вида nazv_grup varchar(20) название вида
Таблица 2 - Структура таблицы Igra
Название поля Тип поля Описание поля shifr int ключевое поле id_grup int поле для связи nazv varchar(15) название strana varchar(15) страна производитель material varchar(20) материал cena decimal(7, 2) цена foto image фото игрушки opisanie text описание игрушки
Связывание таблиц проходит по полям id_grup.
2.2 Проектирование функции
При запуске программы открывается привлекательная форма-заставка. После ее закрытия появляется форма-регистрация, в которой нужно ввести логин, пароль, имя сервера и порт. Если введенные данные верны, то открывается главная форма, иначе, всплывает окно с ошибкой о неверно введенных данных. Происходит возврат на форму-регистрацию для ввода данных. Логин, имя сервера и порт сохраняются в ini-файл для более простой регистрации при следующем запуске программы.
Рисунок 1 - Форма-регистрация
После ввода всех необходимых данных открывается главная форма «Каталог игрушек» для просмотра, редактирования, поиска, сортировки, добавления и удаления данных.
Рисунок 2 - Главная форма
Редактирование главной таблицы можно осуществить в самой сетке. А редактирование подчиненной таблицы осуществляется только после двойного клика на нужной записи.
Рисунок 3 - Форма редактирование данных
Для добавления данных в главную таблицу нужно нажать на кнопку «Добавить» под первой сеткой. Добавление происходит с помощью заполнения данных в сетку.
Для добавления данных в подчиненную таблицу нужно нажать на кнопку «Добавить» под второй сеткой. Открывается форма добавления данных. После заполнения полей необходимо кликнуть на кнопку «Сохранить». Данные отобразятся во второй сетке.
Рисунок 4 - Форма добавления данных
Для удаления данных нужно нажать на кнопку «Удалить» и подтвердив запрос удаления, запись будет удалена.
Для реализации поиска данных нужно нажать на кнопку «Поиск данных». С правой стороны окна отобразится панель поиска, в которой нужно ввести условия и нажать на соответствующую кнопку. При этом найденные записи будут отображены во второй сетке.
Рисунок 5 - Панель поиска данных
В программе есть возможность сформировать отчеты в MS Word и MS Excel.
В отчет можно вывести одну активную запись, все записи и отобранные записи.
Так же на главной форме присутствует информационная панель, которая сообщает об общем количестве игрушек, о максимальной цене, о минимальной цене и о средней цене, как по всем видам, так и по отдельному виду товара.
Рисунок 6 - Информационная панель
Меню программы помогает быстрее выполнить определенные операции над данными.
Рисунок 7 - Меню программы
После отображения панели поиска в меню появляется новый пункт «Поиск данных».
Рисунок 8 - Меню программы после открытия панели поиска данных
//перевіряємо, чи заповнене поле foto if adoquery1.Fieldbyname("foto").Asstring "" then
//якщо поле не порожнє begin
//збільшуємо кількість малюнків на 1 d:=d 1;
//зберігаємо вміст поля у файл із ім"ям "pict" з номером N tblobfield(adoquery1.Fieldbyname("foto")).savetofile(extractfilepath(application.Exename) "pict" inttostr(d));
//після формування списку робимо вікно word видимим w.visible:=true;
end;
procedure tform1.info;
begin adoquery1.Active:=false;;
adoquery1.sql.clear;
adoquery1.sql.add("select count(shifr) as kolvo, round(max(cena),2) as maxcen, round(min(cena),2) as mincen, round(avg(cena),2) as sredcen from igra");
adoquery1.Active:=true;
label9.Caption:="Общее количество игрушек: " vartostr(adoquery1.fieldbyname("kolvo").Value);
label12.Caption:="Общая средняя цена: " vartostr(adoquery1.fieldbyname("sredcen").Value);
adoquery1.Active:=false;
adoquery1.sql.clear;
if adotable1.fieldbyname("id_grup").asstring"" then adoquery1.sql.add("select count(shifr) as kolvo, round(max(cena),2) as maxcen, round(min(cena),2) as mincen, round(avg(cena),2) as sredcen from igra where id_grup=" adotable1.fieldbyname("id_grup").asstring) else adoquery1.sql.add("select null as kolvo, null as maxcen, null as mincen, null as sredcen from igra");
adoquery1.Active:=true;
label13.Caption:="Количество игрушек в разделе: " vartostr(adoquery1.fieldbyname("kolvo").Value);
label14.Caption:="Максимальная цена в разделе: " vartostr(adoquery1.fieldbyname("maxcen").Value);
label15.Caption:="Минимальная цена в резделе: " vartostr(adoquery1.fieldbyname("mincen").Value);
label16.Caption:="Средняя цена в разделе: " vartostr(adoquery1.fieldbyname("sredcen").Value);
begin if adotable1.Indexfieldnames=column.Fieldname " DESC" then adotable1.Indexfieldnames:=column.Fieldname else adotable1.Indexfieldnames:=column.Fieldname " DESC";
begin if (dbgrid1.Focused = true) or (dbgrid2.Focused = true) then if Msg.message = WM_MOUSEWHEEL then begin
Msg.message := WM_KEYDOWN;
Msg.LPARAM := 0;
i := HIWORD(Msg.WPARAM) ;
if i > 0 then
Msg.WPARAM := VK_UP else
Msg.WPARAM := VK_DOWN;
Handled := False;
end;
end;
procedure TFORM1.Button1Click(Sender: TOBJECT);
begin adotable1.Append;
adotable1.FIELDBYNAME("id_grup").FOCUSCONTROL;
end;
procedure TFORM1.Button2Click(Sender: TOBJECT);
begin if adotable1.FIELDBYNAME("id_grup").asstring"" then if application.MESSAGEBOX(pchar("Удалить запись""" adotable1.FIELDBYNAME("nazv_grup").ASSTRING """?"), "Подтвердите",mb_yesno mb_iconquestion)=idyes then adotable1.Delete;
end;
procedure TFORM1.Button3Click(Sender: TOBJECT);
begin adotable2.Append;
adotable2.FIELDBYNAME("shifr").FOCUSCONTROL;
adotable2.Edit;
form4:=tform4.create(nil);
form4.showmodal;
form4.Repaint;
end;
procedure TFORM1.Button4Click(Sender: TOBJECT);
begin if adotable2.FIELDBYNAME("shifr").asstring"" then if application.MESSAGEBOX(pchar("Удалить запись """ adotable2.FIELDBYNAME("nazv").ASSTRING """?"), "Подтвердите",mb_yesno mb_iconquestion)=idyes then adotable2.Delete;
//задаем условие поиска для поля "nazv" (текстовое) if edit1.text"" then if s"" then s:=s " and nazv like """ edit1.Text "%""" else s:=s "nazv like """ edit1.Text "%""";
//задаем условие поиска для поля "material" (текстовое) if edit2.text"" then if s"" then s:=s " and material like """ edit2.Text "%""" else s:=s "material like """ edit2.Text "%""";
//задаем условие поиска для поля "strana" (текстовое) if edit3.text"" then if s"" then s:=s " and strana like """ edit3.Text "%""" else s:=s "strana like """ edit3.Text "%""";
//задаем условие поиска для поля "data" (дата от) (дата/время) if edit4.text"" then if s"" then s:=s " and data >= """ formatdatetime("dd.mm.yyyy",strtodate(edit4.text)) """" else s:=s "data >= """ formatdatetime("dd.mm.yyyy",strtodate(edit4.text)) """";
//задаем условие поиска для поля "data" (дата до) (дата/время) if edit5.text"" then if s"" then s:=s " and data <= """ formatdatetime("dd.mm.yyyy",strtodate(edit5.text)) """" else s:=s "data <= """ formatdatetime("dd.mm.yyyy",strtodate(edit5.text)) """";
//задаем условие поиска для поля "cena" (цена от) (числовое) if edit6.text"" then if s"" then s:=s " and cena >= " edit6.Text else s:=s "cena >= " edit6.Text;
//задаем условие поиска для поля "cena" (цена до) (числовое) if edit7.text"" then if s"" then s:=s " and cena <= " edit7.Text else s:=s "cena <= " edit7.Text;
if s="" then exit;
adoquery1.Active:=false;
adoquery1.sql.text:="select * from igra where " s;
procedure TFORM1.FORMKEYDOWN(Sender: TOBJECT; var Key: Word;
Shift: TSHIFTSTATE);
begin
//если нажата F1 if key=vk_f1 then
//запускаем соответствующую страницу Помощи application.helpcontext(screen.activecontrol.helpcontext);
if (getkeystate(vk_capital) and 1) = 1 then statusbar1.Panels[0].Text:="Caps Lock" else statusbar1.Panels[0].text:="";
if (getkeystate(vk_numlock) and 1) = 1 then statusbar1.Panels[1].Text:="Num Lock" else statusbar1.Panels[1].text:="";
end;
procedure TFORM1.N2Click(Sender: TOBJECT);
begin adotable1.Append;
adotable1.FIELDBYNAME("id_grup").FOCUSCONTROL;
end;
procedure TFORM1.N3Click(Sender: TOBJECT);
begin adotable2.Append;
adotable2.FIELDBYNAME("shifr").FOCUSCONTROL;
adotable2.Edit;
form4:=tform4.create(nil);
form4.showmodal;
form4.Repaint;
end;
procedure TFORM1.N5Click(Sender: TOBJECT);
begin if adotable1.FIELDBYNAME("id_grup").asstring"" then if application.MESSAGEBOX(pchar("Удалить запись""" adotable1.FIELDBYNAME("nazv_grup").ASSTRING """?"), "Подтвердите",mb_yesno mb_iconquestion)=idyes then adotable1.Delete;
end;
procedure TFORM1.N6Click(Sender: TOBJECT);
begin if adotable2.FIELDBYNAME("shifr").asstring"" then if application.MESSAGEBOX(pchar("Удалить запись """ adotable2.FIELDBYNAME("nazv").ASSTRING """?"), "Подтвердите",mb_yesno mb_iconquestion)=idyes then adotable2.Delete;
end;
procedure TFORM1.Button9Click(Sender: TOBJECT);
begin popupmenu1.popup(form1.left groupbox2.left button9.left,form1.top groupbox2.top button9.top button9.height);
end;
procedure TFORM1.N10Click(Sender: TOBJECT);
begin try w:=getactiveoleobject("word.application");
begin if radiogroup1.ITEMINDEX=1 then begin adoquery1.active:=false;
adoquery1.sql.clear;
adoquery1.sql.add("select * from igra");
adoquery1.active:=true;
spisok;
end else application.messagebox("Выберите пункт "Просмотр общим списком"!","Ошибка!",mb_ok mb_iconerror);
end;
procedure TFORM1.Button11Click(Sender: TOBJECT);
begin p:="";
//задаем условие поиска для поля "nazv" (текстовое) if edit1.text"" then if p"" then p:=p " and nazv like """ edit1.Text "%""" else p:=p "nazv like """ edit1.Text "%""";
//задаем условие поиска для поля "material" (текстовое) if edit2.text"" then if p"" then p:=p " and material like """ edit2.Text "%""" else p:=p "material like """ edit2.Text "%""";
//задаем условие поиска для поля "strana" (текстовое) if edit3.text"" then if p"" then p:=p " and strana like """ edit3.Text "%""" else p:=p "strana like """ edit3.Text "%""";
//задаем условие поиска для поля "data" (дата от) (дата/время) if edit4.text"" then if p"" then p:=p " and data >= """ formatdatetime("dd.mm.yyyy",strtodate(edit4.text)) """" else p:=p "data >= """ formatdatetime("dd.mm.yyyy",strtodate(edit4.text)) """";
//задаем условие поиска для поля "data" (дата до) (дата/время) if edit5.text"" then if p"" then p:=p " and data <= """ formatdatetime("dd.mm.yyyy",strtodate(edit5.text)) """" else p:=p "data <= """ formatdatetime("dd.mm.yyyy",strtodate(edit5.text)) """";
//задаем условие поиска для поля "cena" (цена от) (числовое) if edit6.text"" then if p"" then p:=p " and cena >= " edit6.Text else p:=p "cena >= " edit6.Text;
//задаем условие поиска для поля "cena" (цена до) (числовое) if edit7.text"" then if p"" then p:=p " and cena <= " edit7.Text else p:=p "cena <= " edit7.Text;
if p="" then exit;
adoquery1.active:=false;
adoquery1.sql.clear;
adoquery1.sql.add("select * from igra where " p);
adoquery1.active:=true;
spisok;
// else
// application.messagebox("Условия для отчета не заданы","Ошибка!",mb_ok mb_iconstop);
end;
procedure TFORM1.N12Click(Sender: TOBJECT);
begin
// пытаемся подключиться к работающемы Excel try e:=getactiveoleobject("excel.application");
//если подключение не удачное, то запускаем Excel except e:=createoleobject("excel.application");
end;
//создаем новую книгу на основе шаблона e.workbooks.add(extractfilepath(application.Exename) "shablon\Anketa.xlt");
//присваиваем имени листа название игрушки e.activeworkbook.sheets.item[1].name:=adotable2.Fieldbyname("nazv").asstring;
//заменяем имя #nazv_grup# на значение поля nazv_grup e.activeworkbook.sheets.item[1].cells.replace
begin popupmenu2.popup(form1.left groupbox2.Left button10.left,form1.top groupbox2.Top button10.top button10.height);
end;
procedure TFORM1.N13Click(Sender: TOBJECT);
begin if radiogroup1.ITEMINDEX=1 then begin adoquery1.Active:=false;
adoquery1.SQL.clear;
adoquery1.sql.add("select * from igra");
adoquery1.Active:=true;
spisok1;
end else application.messagebox("Выберите пункт "Просмотр общим списком"!","Ошибка!",mb_ok mb_iconerror);
end;
procedure TFORM1.Button12Click(Sender: TOBJECT);
begin s:="";
//если первое поле заполнено if edit1.text"" then
//добавляем условие поиска по полю nazv if s"" then s:=s " and nazv like """ edit1.Text "%""" else s:=s "nazv like """ edit1.Text "%""";
//если второе поле заполнено if edit2.text"" then
//добавляем условие поиска по полю strana if s"" then s:=s " and strana like """ edit2.Text "%""" else s:=s "strana like """ edit2.Text "%""";
//если третье поле заполнено if edit3.text"" then
//добавляем условие поиска по полю material if s"" then s:=s " and material like """ edit3.Text "%""" else s:=s "material like """ edit3.Text "%""";
//задаем условие поиска для поля "data" (дата от) (дата/время) if edit4.text"" then if s"" then s:=s " and data >= """ formatdatetime("dd.mm.yyyy",strtodate(edit4.text)) """" else s:=s "data >= """ formatdatetime("dd.mm.yyyy",strtodate(edit4.text)) """";
//задаем условие поиска для поля "data" (дата до) (дата/время) if edit5.text"" then if s"" then s:=s " and data <= """ formatdatetime("dd.mm.yyyy",strtodate(edit5.text)) """" else s:=s "data <= """ formatdatetime("dd.mm.yyyy",strtodate(edit5.text)) """";
//задаем условие поиска для поля "cena" (цена от) (числовое) if edit6.text"" then if s"" then s:=s " and cena >= " edit6.Text else s:=s "cena >= " edit6.Text;
//задаем условие поиска для поля "cena" (цена до) (числовое) if edit7.text"" then if s"" then s:=s " and cena <= " edit7.Text else s:=s "cena <= " edit7.Text;
//проверяем, заданно ли условие поиска
//если условие задано if s="" then exit;
adoquery1.active:=false;
adoquery1.sql.clear;
adoquery1.sql.add("select * from igra where " s);
adoquery1.active:=true;
spisok1;
end;
procedure TFORM1.N8Click(Sender: TOBJECT);
begin adotable2.Edit;
form4:=tform4.create(nil);
form4.showmodal;
form4.Repaint;
end;
procedure TFORM1.N14Click(Sender: TOBJECT);
var s:string;
begin s:="";
//задаем условие поиска для поля "nazv" (текстовое) if edit1.text"" then if s"" then s:=s " and nazv like """ edit1.Text "%""" else s:=s "nazv like """ edit1.Text "%""";
//задаем условие поиска для поля "material" (текстовое) if edit2.text"" then if s"" then s:=s " and material like """ edit2.Text "%""" else s:=s "material like """ edit2.Text "%""";
//задаем условие поиска для поля "strana" (текстовое) if edit3.text"" then if s"" then s:=s " and strana like """ edit3.Text "%""" else s:=s "strana like """ edit3.Text "%""";
//задаем условие поиска для поля "data" (дата от) (дата/время) if edit4.text"" then if s"" then s:=s " and data >= """ formatdatetime("dd.mm.yyyy",strtodate(edit4.text)) """" else s:=s "data >= """ formatdatetime("dd.mm.yyyy",strtodate(edit4.text)) """";
//задаем условие поиска для поля "data" (дата до) (дата/время) if edit5.text"" then if s"" then s:=s " and data <= """ formatdatetime("dd.mm.yyyy",strtodate(edit5.text)) """" else s:=s "data <= """ formatdatetime("dd.mm.yyyy",strtodate(edit5.text)) """";
//задаем условие поиска для поля "cena" (цена от) (числовое) if edit6.text"" then if s"" then s:=s " and cena >= " edit6.Text else s:=s "cena >= " edit6.Text;
//задаем условие поиска для поля "cena" (цена до) (числовое) if edit7.text"" then if s"" then s:=s " and cena <= " edit7.Text else s:=s "cena <= " edit7.Text;
if s="" then exit;
adoquery1.Active:=false;
adoquery1.sql.text:="select * from igra where " s;
adoquery1.Active:=true;
datasource2.Dataset:=adoquery1;
end;
procedure TFORM1.N16Click(Sender: TOBJECT);
begin edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit1.Setfocus;
datasource2.Dataset:=adotable2;
end;
procedure TFORM1.N19Click(Sender: TOBJECT);
begin while width<1023 do begin width:=width 5;
left:=(screen.width-width) div 2;
end;
edit1.Setfocus;
N9.Visible:=true;
end;
procedure TFORM1.N21Click(Sender: TOBJECT);
begin try w:=getactiveoleobject("word.application");
begin if radiogroup1.ITEMINDEX=1 then begin adoquery1.Active:=false;
adoquery1.SQL.clear;
adoquery1.sql.add("select * from igra");
adoquery1.Active:=true;
spisok;
end else application.messagebox("Выберите пункт "Просмотр общим списком"!","Ошибка!",mb_ok mb_iconerror);
end;
procedure TFORM1.N23Click(Sender: TOBJECT);
begin if radiogroup1.ITEMINDEX=1 then begin adoquery1.Active:=false;
adoquery1.SQL.clear;
adoquery1.sql.add("select * from igra");
adoquery1.Active:=true;
spisok1;
end else application.messagebox("Выберите пункт "Просмотр общим списком"!","Ошибка!",mb_ok mb_iconerror);
end;
procedure TFORM1.Edit6KEYPRESS(Sender: TOBJECT; var Key: Char);
begin if (key=".") or (key=",") then key:=DECIMALSEPARATOR;
//если символ не цифра, не запятая, не минус и не Backspace if not (key in ["0".."9",",","-",#8]) or ((key=",") and (pos(",",edit6.Text)>0)) or ((key="-") and (pos("-",edit6.Text)>0)) or ((key="-") and (edit6.SELSTART>0)) then key:=#0;
end;
procedure TFORM1.Edit7KEYPRESS(Sender: TOBJECT; var Key: Char);
begin if (key=".") or (key=",") then key:=DECIMALSEPARATOR;
//если символ не цифра, не запятая, не минус и не Backspace if not (key in ["0".."9",",","-",#8]) or ((key=",") and (pos(",",edit7.Text)>0)) or ((key="-") and (pos("-",edit7.Text)>0)) or ((key="-") and (edit7.SELSTART>0)) then key:=#0;
end;
procedure TFORM1.N27Click(Sender: TOBJECT);
begin form5:=tform5.create(nil);
form5.showmodal;
form5.Repaint;
end;
procedure TFORM1.N25Click(Sender: TOBJECT);
begin application.helpcommand(help_contents, 0);
end;
procedure TFORM1.Button5KEYDOWN(Sender: TOBJECT; var Key: Word;
Shift: TSHIFTSTATE);
begin if key=vk_f1 then application.helpcontext(screen.activecontrol.helpcontext);
procedure TFORM4.DBEDIT5KEYPRESS(Sender: TOBJECT; var Key: Char);
begin if (key=".") or (key=",") then key:=DECIMALSEPARATOR;
//если символ не цифра, не запятая, не минус и не Backspace if not (key in ["0".."9",",","-",#8]) or ((key=",") and (pos(",",dbedit5.Text)>0)) or ((key="-") and (pos("-",dbedit5.Text)>0)) or ((key="-") and (dbedit5.SELSTART>0)) then key:=#0;
end;
procedure TFORM4.FORMKEYDOWN(Sender: TOBJECT; var Key: Word;
Shift: TSHIFTSTATE);
begin if key=vk_f1 then application.helpcontext(screen.activecontrol.helpcontext);
Для проверки программы выполним несколько тестовых заданий.
Откроем главную форму и нажмем кнопку «Добавить» под главной сеткой.
Рисунок 9 - Добавление в таблицу «Vidy»
Выполним проверку добавления в таблицу «Igra». Нажмем на кнопку «Добавить» под второй сеткой.
Рисунок 10 - Добавление в таблицу «Igra»
Проверим, что данные были добавлены.
Рисунок 11 - Проверка добавления в таблицу «Igra»
Выполним проверку удаления из таблицы «Igra». Кликнем на кнопку «Удалить» под второй сеткой. Нажмем «Да» для подтверждения действия.
Рисунок 12 - Удаление записи из таблицы «Igra»
Проверим, что запись была удалена.
Рисунок 13 - Проверка удаления
Проверим удаление из главной таблицы «Vidy». Нажмем на «Удалить» под первой сеткой и подтвердим выполненное действие нажатием пункта «Да».
Рисунок 14 - Удаление из главной таблицы «Vidy»
Проверим, что удаление выполнилось.
Рисунок 15 - Проверка удаления из таблицы «Vidy»
Выберем пункт «Просмотр общим списком» и проверим отображение всех данных в таблице «Igra».
Рисунок 16 - Просмотр общим списком
Проверим работу функции «Редактирование данных». Для этого дважды кликнем на нужной записи. Появится форма редактирования. Изменим нужные характеристики и нажмем на кнопку «Сохранить».
Рисунок 17-18 - Редактирование данных
Проверим, что данные сохранились.
Рисунок 19 - Проверка редактирования данных
Проверим работу функции «Поиск данных». Нажмем на кнопку «Поиск данных», с правой стороны формы появится панель поиска. Введем критерии поиска и нажмем на кнопку «Поиск».
Рисунок 20 - Поиск данных по условию
Протестируем функцию «Отчет», как в MS Word, так и в MS Excel. (см. Дополнение 1 - 6).
5. Сопровождение
5.1 Пособие пользователя
После запуска программы на главной форме «Каталог игрушек» размещены две таблицы. Данные в первой таблице редактируются в самой сетке, а во второй - при помощи двойного клика по нужной записи.
Добавить записи в первую и вторую таблицы можно с помощью кнопок «Добавить». В первой таблице добавление осуществляется в самой сетке, а во второй - при помощи формы добавления. В эту форму нужно ввести необходимую информации, в числовые поля можно ввести только числа. Кнопка «Сохранить» сохраняет данные, а кнопка «Отменить» - отменяет добавление и выходит из формы.
При помощи кнопок «Удалить» можно удалить информацию из таблиц. Появиться окно подтверждения, в котором нужно выбрать подтвердить удаление или отменить.
При помощи кнопки F1 можно узнать подробно, как пользоваться разными функциями программы.
При нажатии на кнопку «Поиск данных» с правой стороны формы открывается панель поиска, в которой задаются критерии для отбора. После ввода условий нужно нажать на кнопку «Поиск».
Если необходимо вывести информацию в отчет, то это можно выполнить с помощью нажатия кнопки «Отчет». В отчет можно вывести одну активную запись, все записи и отобранные данные с помощью функции «Поиск». Отчет создается как в MS Word, так и в MS Excel.