Файл: разработка автоматизированной информационной системы учета товаров в продовольственном магазине.doc

Модули Справочника:

Кнопка «Первая»:

DataBD.ADOPostavshik.FindFirst;

Кнопка «Последняя»:

DataBD.ADOPostavshik.FindLast;

Кнопка «Предыдущая»:

DataBD.ADOPostavshik.FindPrior;

Кнопка «Следующая»:

if DataBD.ADOPostavshik.FindNext=false then showMessage('Последняя запись');

Кнопка «Удалить»:

If DataBD.ADOPostavshik.Eof Then Abort;

If messagebox(0,'Вы действительно хотите удалить запись?','Запрос',33)=1

then DataBD.ADOPostavshik.delete;

Вызов формы поиска:

Application.CreateForm(TFormPoiskPost, FormPoiskPost);

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

Application.CreateForm(TFormDobPost, FormDobPost);

Кнопка «Выход»:

Close;

кнопка «поиска по коду»:

DataBD.ADOQPoiskPost.Active:=false;

DataBD.ADOQPoiskPost.SQL.Clear;

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

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

DataBD.ADOQPoiskPost.SQL.Add('WHERE Postavshik.id_postav LIKE '''+Edit1.Text+'%''');

Продолжение прил. А

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).

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

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

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;

DataBD.ADOQProd.SQL.Clear;

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

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

DataBD.ADOQProd.Active:=true;

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

databd.ADOpostavshik.append;

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

if dataBD.ADOPostavshik.Modified then

dataBD.ADOPostavshik.post;

Кнопка «Изменить»:

dataBD.ADOQProd.Refresh;

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

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;

rv2.Execute;

ПРИЛОЖЕНИЕ Б

Отчеты в режиме работы пользователя с АИС «Магнит»