Курсовая работа: Автоматизированная информационная система магазина "Магнит"

DataBD.ADOQPoiskPost.Active:=true;

кнопка«сброса»:

DataBD.ADOQPoiskPost.Active:=false;

DataBD.ADOQPoiskPost.SQL.Clear;

DataBD.ADOQPoiskPost.SQL.Add('SELECT *');

DataBD.ADOQPoiskPost.SQL.Add('FROM Prodaga');

DataBD.ADOQPoiskPost.Active:=true;

Кнопка «Добавить»:

databd.ADOpostavshik.append;

Кнопка «Сохранить»:

if dataBD.ADOPostavshik.Modified then

dataBD.ADOPostavshik.post;

2.3 Характеристика входной оперативной информации

Журналы предназначены для добавления, изменения, хранения, удаления, просмотра информации о поступлении, заказа и продажи товара (см. Приложение 2).

Модули Журнала

Вызывает форму добавления:

Application.CreateForm(TFormDobPost, FormDobPost);

Вызывает форму изменения:

Application.CreateForm(TFormRedakProd, FormRedakProd);

Кнопка «Сформировать отчет по дате»:

Application.CreateForm(TFormProdDate, FormProdDate);

Кнопка «Поиск»

DataBD.ADOQProd.Active:=false;

DataBD.ADOQProd.SQL.Clear;

DataBD.ADOQProd.SQL.Add('SELECT *');

DataBD.ADOQProd.SQL.Add('FROM Prodaga');

DataBD.ADOQProd.SQL.Add('WHERE Prodaga.Data_prod LIKE '''+Edit1.Text+'%''');

DataBD.ADOQProd.Active:=true;

Кнопка «Сброс»:

DataBD.ADOQProd.Active:=false;