Дипломная работа: Автоматизация обработки заявок АО "Сейм-Агро"

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
96
,c.ИНН AS [ИНН]
,m.ФИО AS [Менеджер]
,s.Название AS [Статус]
,o.Стоимость AS [Стоимость]
from Заявка o
inner join Клиент c on c.Код=o.Клиент_код
inner join Статус s on s.Код=o.Статус_код
inner join Менеджер m on m.Код=o.Менеджер_код
where o.Поступление between @sd and @ed
END
ALTER PROCEDURE [dbo].[pr_ReportInput]
-- Add the parameters for the stored procedure here
@OrderID int
AS
BEGIN
-- SET NOCOUNT ON added to prevent extra result sets from
-- interfering with SELECT statements.
SET NOCOUNT ON;
select
o.Код AS [Номер]
,o.Поступление AS [Дата заявки]
,c.Название AS [Клиент]
,i.Поставлено AS [Дата поставки]
,i.Адрес AS [Адрес]
,case when isNull(i.Выполнена,0)=0 then 'Не выполнено' else
'Выполнено' end AS [Состояние]
,v.Название AS [Вид]
,s.Название AS [Сорт]
,p.Количество AS [Количество]
from Заявка o
97
inner join Клиент c on c.Код=o.Клиент_код
inner join Поставка i on i.Заявка_код=o.Код
inner join Партия p on p.Поставка_код=i.Код
inner join Продукция itm on itm.Код=p.Продукция_код
left join Вид v on v.Код=itm.Вид_код
left join Сорт s on s.Код=itm.Сорт_код
where o.Код=@OrderID
END
ALTER PROCEDURE [dbo].[pr_ReportOrderID]
-- Add the parameters for the stored procedure here
@OrderID int
AS
BEGIN
-- SET NOCOUNT ON added to prevent extra result sets from
-- interfering with SELECT statements.
SET NOCOUNT ON;
select
o.Код AS [Номер]
,o.Поступление AS [Дата заявки]
,c.Название AS [Клиент]
,c.ИНН AS [ИНН]
,v.Название AS [Вид]
,s.Название AS [Сорт]
, SUM(p.Количество) AS [Количество]
, SUM(p.Стоимость) AS [Стоимость]
, o.Стоимость AS [Итог]
from Заявка o
inner join Клиент c on c.Код=o.Клиент_код
inner join Поставка i on i.Заявка_код=o.Код
inner join Партия p on p.Поставка_код=i.Код
98
inner join Продукция itm on itm.Код=p.Продукция_код
left join Вид v on v.Код=itm.Вид_код
left join Сорт s on s.Код=itm.Сорт_код
where o.Код=@OrderID
GROUP BY o.Код, o.Поступление, c.Название, c.ИНН, v.Название,
s.Название, o.Стоимость
END
99
ПРИЛОЖЕНИЕ В
Исходный код приложения
unit uMain;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.Menus,
Vcl.ExtCtrls, Data.DB, Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids;
type
TfrmMain = class(TForm)
pnlFilter: TPanel;
pnlMain: TPanel;
pnlSub: TPanel;
mm: TMainMenu;
imMain: TMenuItem;
imLibrary: TMenuItem;
imReport: TMenuItem;
imSetting: TMenuItem;
imManager: TMenuItem;
imLinking: TMenuItem;
imClient: TMenuItem;
imBlack0: TMenuItem;
imClose: TMenuItem;
imProduct: TMenuItem;
imBlack1: TMenuItem;
imLibrary1: TMenuItem;
imLibrary2: TMenuItem;
imLibrary3: TMenuItem;
100
imReport1: TMenuItem;
Label1: TLabel;
pmMain: TPopupMenu;
pmSub: TPopupMenu;
imAddMain: TMenuItem;
imEditMain: TMenuItem;
imDeleteMain: TMenuItem;
imReport2: TMenuItem;
imAddSub: TMenuItem;
imEditSub: TMenuItem;
imDeleteSub: TMenuItem;
imPart: TMenuItem;
imReport3: TMenuItem;
grdMain: TDBGrid;
grdSub: TDBGrid;
cbStatusFilter: TDBLookupComboBox;
procedure FormShow(Sender: TObject);
procedure pmMainPopup(Sender: TObject);
procedure pmSubPopup(Sender: TObject);
procedure imAddMainClick(Sender: TObject);
procedure imEditMainClick(Sender: TObject);
procedure imDeleteMainClick(Sender: TObject);
procedure imDeleteSubClick(Sender: TObject);
procedure imEditSubClick(Sender: TObject);
procedure imAddSubClick(Sender: TObject);
procedure imGridClick(Sender: TObject);
procedure imReportClick(Sender: TObject);
procedure imLinkingClick(Sender: TObject);
procedure imCloseClick(Sender: TObject);
private
{ Private declarations }
public
Источник: https://baza.diplomsite.ru/previewfile/1857