Файл: разработка автоматизированной информационной системы учета товаров в продовольственном магазине.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)=1then 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 thendataBD.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 thendataBD.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;ПРИЛОЖЕНИЕ БОтчеты в режиме работы пользователя с АИС «Магнит» Рисунок 1- Отчет «Поступление товара» Рисунок 2- Отчет «Продажа товара»

---

Рисунок 3- Отчет «Заказа товара» Рисунок 4- Отчет «Прайс-лист

---