Средства и порядок испытаний

Во время испытания приложения «SHOP» необходимо использовать персональный компьютер с установленной операционной системой Windows XP и выше. К тому же на компьютере должны быть установлены Delphi 2009, Firebird 2.5, IBExpert.

Для проверки правильности работы системы был принят следующий порядок действий:

а) запустить программу на выполнение;

б) провести тестирование программы по тестам;

в) сравнить реакции программы с ожидаемым результатом;

г) сделать выводы по результатам тестирования о работоспособности программы.

7.6 Методы испытаний

Для проверки правильности работы программы были разработаны тестовые примеры.

Тестовый пример 1. Проверка функции учет информации о производителях.

При запуске приложения на экране появится главное окно приложения (Рисунок Б.1). Таблица изготовителя будет уже заполнена данными об изготовителе. Чтобы заполнить таблицу изготовителя, необходимо заполнить все соответствующие поля, для этого щелкнуть по кнопке «Добавить». Откроется новое окно приложения, в которое нужно будет ввести необходимые данные и нажать кнопку «ОК» (Рисунок Б.2). Чтобы обновить данные в таблице, следует нажать кнопку «Обновить», в результате чего информация в таблице изготовителя будет обновлена (Рисунок Б.3). Для изменения какой – либо записи таблицы, требуется нажать на кнопку «Изменить» и внести необходимые изменения записи, после чего нажать «ОК» (Рисунок Б.4). Записи из таблицы можно также и удалять. Для этого требуется выделить необходимую запись и нажать на кнопку «Удалить». После этого откроется окно с предупреждением, нужно ли удалять данную запись или нет (Рисунок Б.5). Требуется сделать выбор, нажав на кнопку «Да» или «Нет» (Рисунок Б.6).

Тестовый пример 2. Чтобы начать работу с таблицей ассортимент, требуется использовать кнопки «Добавить», «Изменить», «Удалить», «Запросы», а также использовать поле «Фильтр» для фильтрации информации в таблице. Для добавления записи в таблицу требуется использовать кнопку «Добавить» (Рисунок Б.7). При нажатии на эту кнопку осуществляется добавление записи в таблицу ассортимента (Рисунок Б.8). После открытия формы для добавления новой записи, требуется заполнить соответствующие пустые поля «Товар», «Размер», «Цена», «Количество», поле «Текущая дата» заполняется автоматически датой на настоящее время, но если требуется, то можно выбрать другую дату (Рисунок Б.9). После чего, необходимо нажать на кнопку «ОК» (Рисунок Б.10), либо «Отмена» (Рисунок Б.11).

Чтобы изменить какую – то запись в таблице, в начале нужно ее выделить и нажать кнопку «Изменить» (Рисунок Б.12). В результате чего откроется окно изменения записи (Рисунок Б.13). Чтобы внести изменения нужно установить курсор в соответствующее поле и отредактировать информацию (Рисунок Б.14). Далее нажать кнопку «ОК» для подтверждения или «Отменить» для выхода из окна изменений записи.

Чтобы удалить какую – то запись из таблицы, следует выделить ее, после чего нажать кнопку «Удалить» (Рисунок Б.15). Программа выдаст окно с подтверждением, нужно ли удалять текущую запись или нет (Рисунок Б.16). Сделать выбор при помощи кнопки «Да», для того, чтобы запись была удалена, либо кнопки «Нет» для отмены удаления записи из таблицы.

Для выполнения запросов, требуется нажать на кнопку «Запросы» (Рисунок Б.16). Приложение выдаст форму с таблицей и кнопками «Максимальная цена» (Рисунок Б.17), «Средний размер» (Рисунок Б.18), «Значение размера с максимальной ценой больше 1200» (Рисунок Б.19), «Количество размеров» (Рисунок Б.19). Для того, чтобы в таблице отобразилась информация с максимальной ценой обуви, требуется нажать кнопку «Максимальная цена» (Рисунок Б.17), результат будет отображен в таблице (Рисунок Б.20). Для отображения информации обуви среднего размера, нажать кнопку «Средний размер» (Рисунок Б.18). В таблице будет отображен результат данного запроса (Рисунок Б.21). Чтобы приложение вывело в таблицу информацию о том, каково значение размера с максимальной ценой больше 1200, нажать кнопку «Значение размера с максимальной ценой больше 1200» (Рисунок Б.19). В таблице будет выведен результат данного запроса (Рисунок Б.22). Если пользователю необходима информация о количестве размеров обуви, ему необходимо нажать кнопку «Количество размеров» (Рисунок Б.19). После чего приложение выдаст результат данного запроса, который будет выведен в таблице (Рисунок Б.23).

Чтобы выйти завершить работу с запросами, необходимо нажать кнопку «Выход» (Рисунок Б.24).

При работе с таблицей ассортимента товара обуви можно также еще и произвести фильтрацию всей информации таблицы. Для этого в пустое поле ввода информации для фильтрации (Рисунок Б.25) ввести ту информацию, которая должна быть найдена (Рисунок Б.26). После чего поставить галочку рядом со словом «Фильтр» (Рисунок Б.27). Приложение выведет найденную запись с введенной в поле фильтрации информацию (Рисунок Б.28).

На форме «Учет о сведениях работы обувного магазина» приложения SHOP существует главное меню, которое состоит из трех пунктов: Файл (Рисунок Б.29), Таблица (Рисунок Б.30), Отчет (Рисунок Б.31). После нажатия на кнопку главного меню «Файл» будет виден выпадающий список с выбором «Выйти» (Рисунок Б.31) для выхода из приложения и «Обновить» (Рисунок Б.32) для обновления информации в таблице изготовитель. После нажатия на кнопку главного меню «Таблица» (Рисунок Б.30) откроется выпадающий список с выбором действий «Добавить» (Рисунок Б.33) для добавления записи в таблицу, «Изменить» (Рисунок Б.34) для изменения записи в таблице, «Удалить» для удаления какой – либо записи из таблицы. На главной форме приложения в главном меню представлена также кнопка «Отчет (Рисунок Б.35). Это пункт нужен для отображения отчета на экран об ассортименте обуви и ее изготовителе (Рисунок Б.36).

8.2 Условия применения

Приложение предназначено для работы на персональных компьютерах стандартной комплектации с операционной системой Windows XP и выше.

Приложение работает как на локальном компьютере, так и в сети. Для работы на сервере на нем установлены СУБД Firebird 2.5 и файл с БД, а на рабочей станции – приложение для работы с БД. Для работы на локальном компьютере на нем установлены СУБД Firebird, приложение для работы с БД, файл с БД.

Описание задачи

8.1 Назначение программы

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

- учет данных об изготовителях;

- учет данных об ассортименте;

- осуществлять запросы к базе данных;

- формировать отчетные документы об ассортименте обуви и ее производителях.

8.2 Условия применения

Описание задачи

Разрабатываемое приложение предназначено для учета поставок медикаментов. Система должна хранить, добавлять, изменять и удалять информацию об ассортименте обуви: ее наименовании, размере, цене и количестве, а также об изготовителе: названии фирмы и ее адресе. Система должна поддерживать следующие функции:

- отображать информацию об ассортименте имеющейся обуви - идентификатор ассортимента, наименование обуви, размер, цену, количество, текущую дату;

- отображать информацию об изготовителе обуви - идентификатор изготовителя, название фирмы, ее адрес;

- формировать сведения об ассортименте обуви;

- формировать сведения об изготовителе обуви;

- осуществлять запросы к базе данных;

- формировать отчетные документы.

Тестовый пример 1. Проверка функции учет информации о производителях.

Для выполнения запросов, требуется нажать на кнопку «Запросы» (Рисунок Б.17). Приложение выдаст форму с таблицей и кнопками «Максимальная цена» (Рисунок Б.18), «Средний размер» (Рисунок Б.19), «Значение размера с максимальной ценой больше 1200» (Рисунок Б.20), «Количество размеров» (Рисунок Б.20). Для того, чтобы в таблице отобразилась информация с максимальной ценой обуви, требуется нажать кнопку «Максимальная цена» (Рисунок Б.18), результат будет отображен в таблице (Рисунок Б.21). Для отображения информации обуви среднего размера, нажать кнопку «Средний размер» (Рисунок Б.19). В таблице будет отображен результат данного запроса (Рисунок Б.22). Чтобы приложение вывело в таблицу информацию о том, каково значение размера с максимальной ценой больше 1200, нажать кнопку «Значение размера с максимальной ценой больше 1200» (Рисунок Б.20). В таблице будет выведен результат данного запроса (Рисунок Б.23). Если пользователю необходима информация о количестве размеров обуви, ему необходимо нажать кнопку «Количество размеров» (Рисунок Б.20). После чего приложение выдаст результат данного запроса, который будет выведен в таблице (Рисунок Б.24).

Чтобы выйти завершить работу с запросами, необходимо нажать кнопку «Выход» (Рисунок Б.25).

При работе с таблицей ассортимента товара обуви можно также еще и произвести фильтрацию всей информации таблицы. Для этого в пустое поле ввода информации для фильтрации (Рисунок Б.26) ввести ту информацию, которая должна быть найдена (Рисунок Б.27). После чего поставить галочку рядом со словом «Фильтр» (Рисунок Б.28). Приложение выведет найденную запись с введенной в поле фильтрации информацию (Рисунок Б.29).

На форме «Учет о сведениях работы обувного магазина» приложения SHOP существует главное меню, которое состоит из трех пунктов: Файл (Рисунок Б.30), Таблица (Рисунок Б.31), Отчет (Рисунок Б.32). После нажатия на кнопку главного меню «Файл» будет виден выпадающий список с выбором «Выйти» (Рисунок Б.32) для выхода из приложения и «Обновить» (Рисунок Б.33) для обновления информации в таблице изготовитель. После нажатия на кнопку главного меню «Таблица» (Рисунок Б.31) откроется выпадающий список с выбором действий «Добавить» (Рисунок Б.34) для добавления записи в таблицу, «Изменить» (Рисунок Б.35) для изменения записи в таблице, «Удалить» для удаления какой – либо записи из таблицы. На главной форме приложения в главном меню представлена также кнопка «Отчет (Рисунок Б.36). Это пункт нужен для отображения отчета на экран об ассортименте обуви и ее изготовителе (Рисунок Б.37).

8.4 Входные и выходные данные

Входными данными является информация о производителях и ассортименте обуви. Выходными данными является информация, сформированная по запросам пользователя, а также отчёт, предназначенный для печати.

Заключение

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

За время работы над курсовым проектом был значительно повышен уровень практических навыков программирования в среде Delphi, освоен процесс разработки клиент-серверных приложений баз данных.

Список использованных источников

1. Еременко А.В., Бобрышева Г.В., Долгова И.А. Проектирование баз данных с помощью Open ModelSphere. - Пенза: Издательство ПГУ, 2011. - 76 с.

2. Еременко А.В., Долгова И.А., Щербакова С.В. Базы данных. Учебник. - Пенза: Издательство ПГУ, 2010. - 110 с.

3. http://dep_ivs.pnzgu.ru/

Приложение А
(обязательное)

(Листинг программы)

unit main001;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Menus, ComCtrls, ExtCtrls, Grids, DBGrids, ActnList, DM;

type

TfmMain = class(TForm)

Panel1: TPanel;

StatusBar1: TStatusBar;

buExit: TButton;

buRefresh: TButton;

DBGrid1: TDBGrid;

buAdd: TButton;

buEdit: TButton;

buDelete: TButton;

MainMenu1: TMainMenu;

mFile: TMenuItem;

mExit: TMenuItem;

mRefresh: TMenuItem;

ActionList1: TActionList;

acQuit: TAction;

acRefresh: TAction;

mTable: TMenuItem;

mInsert: TMenuItem;

mUpdate: TMenuItem;

mDelete: TMenuItem;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

DBGrid2: TDBGrid;

chbFiltr: TCheckBox;

edFilter: TEdit;

Panel2: TPanel;

N1: TMenuItem;

procedure FormShow(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure acQuitExecute(Sender: TObject);

procedure acRefreshExecute(Sender: TObject);

procedure buAddClick(Sender: TObject);

procedure buEditClick(Sender: TObject);

procedure buDeleteClick(Sender: TObject);

procedure mInsertClick(Sender: TObject);

procedure mUpdateClick(Sender: TObject);

procedure mDeleteClick(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure chbFiltrClick(Sender: TObject);

procedure N1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmMain: TfmMain;

implementation

uses Add, Edit, EditPrep, AddPrep, Zaproci;

{$R *.dfm}

procedure TfmMain.acQuitExecute(Sender: TObject);

begin

Application.Terminate;

end;

procedure TfmMain.acRefreshExecute(Sender: TObject);

begin

with dm1 do

begin

//Обновляем набор данных dstVid_Voisk

dstAssortiment.FullRefresh;

dstIsgotovitel.FullRefresh;

//Выводим количество записей в таблице Vid_Voisk

StatusBar1.Panels[1].Text := IntToStr(dstAssortiment.RecordCount);

end;

procedure TfmMain.buAddClick(Sender: TObject);

begin

//Создаем форму Add

fmAdd := TfmAdd.Create(Application);

//Выполняем на этой форме добавление записи

if fmAdd.ShowModal = mrOK then

begin

//Подтверждаем транзакцию

dm1.dstAssortiment.Post;

StatusBar1.Panels[1].Text := IntToStr(dm1.dstAssortiment.RecordCount);

end

//или откатываем ее

else dm1.dstAssortiment.Cancel;

end;

procedure TfmMain.buDeleteClick(Sender: TObject);

begin

with dm1 do

begin

if dstAssortiment.RecordCount= 0 then exit;

if Application.MessageBox('Удалить текущую запись?', 'Удаление',

MB_YESNO) = mrYes then dstAssortiment.Delete;

StatusBar1.Panels[1].Text := IntToStr(dstAssortiment.RecordCount);

end;

procedure TfmMain.buEditClick(Sender: TObject);

begin

//Проверить существуют ли записи в таблице

if dm1.dstAssortiment.RecordCount = 0 then exit;

//Создать форму fmEdit

fmEdit := TfmEdit.Create(Application);

//Выполняем на этой форме изменение записи

if fmEdit.ShowModal = mrOK then

begin

//Подтверждаем транзакцию

dm1.dstAssortiment.Post;

StatusBar1.Panels[1].Text := IntToStr(dm1.dstAssortiment.RecordCount);

end

//или откатываем ее

else dm1.dstAssortiment.Cancel;

end;

procedure TfmMain.Button1Click(Sender: TObject);

begin

fmZaprosi.Show;

end;

procedure TfmMain.Button2Click(Sender: TObject);

begin

//Создаем форму Add

fmAddPrep := TfmAddPrep.Create(Application);

//Выполняем на этой форме добавление записи

if fmAddPrep.ShowModal = mrOK then

begin

//Подтверждаем транзакцию

dm1.dstIsgotovitel.Post;

StatusBar1.Panels[1].Text := IntToStr(dm1.dstIsgotovitel.RecordCount);

end

//или откатываем ее

else dm1.dstIsgotovitel.Cancel;

end;

procedure TfmMain.Button3Click(Sender: TObject);

begin

//Проверить существуют ли записи в таблице

if dm1.dstIsgotovitel.RecordCount = 0 then exit;

//Создать форму fmEdit

fmEdPrep := TfmEdPrep.Create(Application);

//Выполняем на этой форме изменение записи

if fmEdPrep.ShowModal = mrOK then

begin

//Подтверждаем транзакцию

dm1.dstIsgotovitel.Post;

StatusBar1.Panels[1].Text := IntToStr(dm1.dstIsgotovitel.RecordCount);

end

//или откатываем ее

else dm1.dstIsgotovitel.Cancel;

end;

procedure TfmMain.Button4Click(Sender: TObject);

begin

with dm1 do

begin

if dstIsgotovitel.RecordCount= 0 then exit;

if Application.MessageBox('Удалить текущую запись?', 'Удаление',

MB_YESNO) = mrYes then dstIsgotovitel.Delete;

StatusBar1.Panels[1].Text := IntToStr(dstIsgotovitel.RecordCount);

end;

procedure TfmMain.chbFiltrClick(Sender: TObject);

var fn : string;

begin

fn := '';

if (chbFiltr.Checked) and (edFilter.Text<>'') then

begin

//Если свойство checked установлено и есть образец для поиска

fn := '(NAME LIKE '''+edFilter.Text+'%'')';

dm1.dstIsgotovitel.Close;

dm1.dstIsgotovitel.MainWhereClause := fn;

dm1.dstIsgotovitel.Open;

end

else

begin

//Если свойство checked не установлено

dm1.dstIsgotovitel.Close;

dm1.dstIsgotovitel.MainWhereClause := fn;

dm1.dstIsgotovitel.Open;

end;

procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);

begin

with dm1 do

begin

//Запрос закрывается.

dstAssortiment.Active := False;

//Закрываем связь с базой данных

dbShop.Connected := False;

end;

procedure TfmMain.FormShow(Sender: TObject);

begin

//Открыть базу данных

with dm1 do

begin

dbShop.Connected := True;

dstIsgotovitel.Active := True;

StatusBar1.Panels[1].Text := IntToStr(dstIsgotovitel.RecordCount);

end;

procedure TfmMain.mDeleteClick(Sender: TObject);

begin

buDelete.Click;

end;

procedure TfmMain.mInsertClick(Sender: TObject);

begin

buAdd.Click;

end;

procedure TfmMain.mUpdateClick(Sender: TObject);

begin

buEdit.Click;

end;

procedure TfmMain.N1Click(Sender: TObject);

begin

with dm1 do

begin

frxReport1.ShowReport();

end;

end.

unit DM;

interface

uses

SysUtils, Classes, DB, pFIBDataSet, FIBDatabase, pFIBDatabase, FIBDataSet,

frxClass, frxDBSet;

type

Tdm1 = class(TDataModule)

dbShop: TpFIBDatabase;

ReadTransaction: TpFIBTransaction;

WriteTransaction: TpFIBTransaction;

dstAssortiment: TpFIBDataSet;

dsAssortiment: TDataSource;

dsQuery: TDataSource;

dstQuery: TpFIBDataSet;

dsIsgotovitel: TDataSource;

dstIsgotovitel: TpFIBDataSet;

dstAssortimentID_F: TFIBIntegerField;

dstAssortimentISDELIE: TFIBStringField;

dstAssortimentADRES: TFIBStringField;

dstIsgotovitelID_ISG: TFIBIntegerField;

dstIsgotovitelNAME: TFIBStringField;

dstIsgotovitelRAZMER: TFIBIntegerField;

dstIsgotovitelCOST: TFIBFloatField;

dstIsgotovitelKOL: TFIBIntegerField;

dstIsgotovitelTEDATA: TFIBDateField;

dstIsgotovitelID_IS: TFIBIntegerField;

dstIsgotovitelISG: TStringField;

dsAll: TDataSource;

dstAll: TpFIBDataSet;

frxReport1: TfrxReport;

frxDBDataset1: TfrxDBDataset;

private

{ Private declarations }

public

{ Public declarations }

end;

var

dm1: Tdm1;

implementation

{$R *.dfm}

end.

unit Zaproci;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, ExtCtrls, DM, StdCtrls;

type

TfmZaprosi = class(TForm)

Panel1: TPanel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button6: TButton;

DBGrid1: TDBGrid;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmZaprosi: TfmZaprosi;

implementation

{$R *.dfm}

procedure TfmZaprosi.Button1Click(Sender: TObject);

begin

DBGrid1.Columns[0].Visible := True;

DBGrid1.Columns[1].Visible := False;

DBGrid1.Columns[2].Visible := False;

DBGrid1.Columns[3].Visible := False;

DBGrid1.Columns[4].Visible := False;

with dm1 do

begin

if dstQuery.Active then dstQuery.Close;

dstQuery.SelectSQL.Clear;

dstQuery.SelectSQL.Add('SELECT MAX(COST)');

dstQuery.SelectSQL.Add('FROM ISGOTOVITEL');

dstQuery.Open;

end;

procedure TfmZaprosi.Button2Click(Sender: TObject);

begin

DBGrid1.Columns[0].Visible := False;

DBGrid1.Columns[1].Visible := True;

DBGrid1.Columns[2].Visible := False;

DBGrid1.Columns[3].Visible := False;

DBGrid1.Columns[4].Visible := False;

with dm1 do

begin

if dstQuery.Active then dstQuery.Close;

dstQuery.SelectSQL.Clear;

dstQuery.SelectSQL.Add('SELECT AVG(RAZMER)');

dstQuery.SelectSQL.Add('FROM ISGOTOVITEL');

dstQuery.Open;

end;

procedure TfmZaprosi.Button3Click(Sender: TObject);

begin

with dm1 do

begin

DBGrid1.Columns[0].Visible := True;

DBGrid1.Columns[1].Visible := False;

DBGrid1.Columns[2].Visible := False;

DBGrid1.Columns[3].Visible := True;

DBGrid1.Columns[4].Visible := False;

if dstQuery.Active then dstQuery.Close;

dstQuery.SelectSQL.Clear;

dstQuery.SelectSQL.Add('SELECT RAZMER, MAX(COST)');

dstQuery.SelectSQL.Add('FROM ISGOTOVITEL');

dstQuery.SelectSQL.Add('GROUP BY RAZMER');

dstQuery.SelectSQL.Add('HAVING (MAX(COST))>1200');

dstQuery.Open;

end;

procedure TfmZaprosi.Button4Click(Sender: TObject);

begin

fmZaprosi.Close;

end;

procedure TfmZaprosi.Button6Click(Sender: TObject);

begin

DBGrid1.Columns[0].Visible := False;

DBGrid1.Columns[1].Visible := False;

DBGrid1.Columns[2].Visible := False;

DBGrid1.Columns[3].Visible := False;

DBGrid1.Columns[4].Visible := True;

with dm1 do

begin

if dstQuery.Active then dstQuery.Close;

dstQuery.SelectSQL.Clear;

dstQuery.SelectSQL.Add('SELECT COUNT (DISTINCT RAZMER)');

dstQuery.SelectSQL.Add('FROM ISGOTOVITEL');

dstQuery.Open;

end;

end.

unit AddPrep;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DBCtrls, ExtCtrls, ComCtrls;

type

TfmAddPrep = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label7: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Panel1: TPanel;

Panel2: TPanel;

buOK: TButton;

buCancel: TButton;

dtpTime: TDateTimePicker;

procedure buOKClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmAddPrep: TfmAddPrep;

implementation

uses DM;

{$R *.dfm}

procedure TfmAddPrep.buOKClick(Sender: TObject);

begin

with dm1 do

begin

//Включаем набор данных в режим добавления записи

dstIsgotovitel.Insert;

//Заносим введенные значения в набор данных dstPhone

dstIsgotovitel.FBN('NAME').AsString := edit1.Text;

dstIsgotovitel.FBN('RAZMER').AsInteger := StrToInt(edit2.Text);

dstIsgotovitel.FBN('COST').AsInteger := StrToInt(edit3.Text);

dstIsgotovitel.FBN('KOL').AsInteger := StrToInt(edit4.Text);

dstIsgotovitel.FBN('TEDATA').AsDateTime := dtpTime.Date;

dstIsgotovitel.FBN('ISG').AsString := DBLookupComboBox1.KeyValue;

end;

procedure TfmAddPrep.FormClose(Sender: TObject; var Action: TCloseAction);

begin

//Удаляем форму из памяти компьютера

Action := caFree;

fmAddPrep := nil;

end;

end.

unit EditPrep;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DBCtrls, ExtCtrls, ComCtrls;

type

TfmEdPrep = class(TForm)

Panel1: TPanel;

Label7: TLabel;

Label5: TLabel;

Label4: TLabel;

Label3: TLabel;

Label2: TLabel;

Label1: TLabel;

Edit4: TEdit;

Edit3: TEdit;

Edit2: TEdit;

Edit1: TEdit;

DBLookupComboBox1: TDBLookupComboBox;

Panel2: TPanel;

buOK: TButton;

buCancel: TButton;

dtpTime: TDateTimePicker;

procedure buOKClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmEdPrep: TfmEdPrep;

implementation

uses DM;

{$R *.dfm}

procedure TfmEdPrep.buOKClick(Sender: TObject);

begin

with dm1 do

begin

//Включаем набор данных в режим добавления записи

dstIsgotovitel.Insert;

//Заносим введенные значения в набор данных dstPhone

dstIsgotovitel.FBN('NAME').AsString := edit1.Text;

dstIsgotovitel.FBN('RAZMER').AsInteger := StrToInt(edit2.Text);

dstIsgotovitel.FBN('COST').AsInteger := StrToInt(edit3.Text);

dstIsgotovitel.FBN('KOL').AsInteger := StrToInt(edit4.Text);

dstIsgotovitel.FBN('TEDATA').AsDateTime := dtpTime.Date;

dstIsgotovitel.FBN('ISG').AsString := DBLookupComboBox1.KeyValue;

end;

procedure TfmEdPrep.FormClose(Sender: TObject; var Action: TCloseAction);

begin

//Удаляем форму из памяти компьютера

Action := caFree;

fmEdPrep := nil;

end;

procedure TfmEdPrep.FormShow(Sender: TObject);

begin

with dm1 do

begin

edit1.Text:=dstIsgotovitel.FBN('NAME').AsString;

edit2.Text:=dstIsgotovitel.FBN('RAZMER').AsString;

edit3.Text:=dstIsgotovitel.FBN('COST').AsString;

edit4.Text:=dstIsgotovitel.FBN('KOL').AsString;

dtpTime.Date := dstIsgotovitel.FBN('TEDATA').AsDateTime;

DBLookupComboBox1.KeyValue:=dstIsgotovitel.FBN('ISG').AsString;

end;

edit1.SetFocus;

end;

end.

ЭКРАННЫЕ ФОРМЫ

Приложение Б

(обязательное)