Interface 71

uses 71

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

Dialogs, StdCtrls, DBCtrls, ComCtrls, Grids, DBGrids, Menus, Mask, jpeg, 71

ExtCtrls; 71

type 71

TForm5 = class(TForm) 71

DBGrid1: TDBGrid; 71

Label1: TLabel; 71

Label2: TLabel; 71

Label3: TLabel; 71

DB1: TDBLookupComboBox; 71

Button1: TButton; 71

GroupBox1: TGroupBox; 71

DB2: TDBLookupComboBox; 71

Label4: TLabel; 71

Edit1: TEdit; 71

Edit2: TEdit; 71

Label5: TLabel; 71

MainMenu1: TMainMenu; 71

N1: TMenuItem; 71

N2: TMenuItem; 71

N3: TMenuItem; 71

N4: TMenuItem; 71

Image1: TImage; 71

procedure FormShow(Sender: TObject); 71

procedure Button1Click(Sender: TObject); 71

procedure N2Click(Sender: TObject); 71

procedure N1Click(Sender: TObject); 71

procedure DB1Click(Sender: TObject); 71

procedure DB2Click(Sender: TObject); 71

procedure N4Click(Sender: TObject); 71

procedure N3Click(Sender: TObject); 71

private 71

{ Private declarations } 71

public 71

{ Public declarations } 71

end; 71

var 71

Form5: TForm5; 71

implementation 71

uses Unit1, Unit2, Unit3, Unit4, Unit6, Unit7; 71

{$R *.dfm} 71

procedure TForm5.FormShow(Sender: TObject); 71

begin 71

DM.ADOQ2.SQL.Clear; 71

DM.ADOQ2.SQL.Add('SELECT Продажи.ID as ¹, Продажи.Дата_продажи as [Дата продажи], Типы_продукции.Название as [Категория товара], Продукция.Название as [Наименование], Состав_продажи.Количество as [Количество], Продажи.Менеджер'); 71

DM.ADOQ2.SQL.Add('FROM Типы_продукции INNER JOIN ((Категории INNER JOIN Продукция ON Категории.ID = Продукция.ID_категория) INNER JOIN (Продажи INNER JOIN Состав_продажи ON Продажи.ID = Состав_продажи.ID_продажа)'); 71

DM.ADOQ2.SQL.Add('ON Продукция.ID = Состав_продажи.ID_продукция) ON Типы_продукции.ID = Категории.Тип_продукции;'); 71

DM.ADOQ2.Open; 71

end; 71

procedure TForm5.Button1Click(Sender: TObject); 72

begin 72

DM.ADOQ2.SQL.Clear; 72

DM.ADOQ2.SQL.Add('SELECT Продажи.ID as ¹, Продажи.Дата_продажи as [Дата продажи], Типы_продукции.Название as [Категория товара], Продукция.Название as [Наименование], Состав_продажи.Количество as [Количество], Продажи.Менеджер'); 72

DM.ADOQ2.SQL.Add('FROM Типы_продукции INNER JOIN ((Категории INNER JOIN Продукция ON Категории.ID = Продукция.ID_категория) INNER JOIN (Продажи INNER JOIN Состав_продажи ON Продажи.ID = Состав_продажи.ID_продажа)'); 72

DM.ADOQ2.SQL.Add('ON Продукция.ID = Состав_продажи.ID_продукция) ON Типы_продукции.ID = Категории.Тип_продукции'); 72

DM.ADOQ2.SQL.Add('WHERE Продажи.Дата_продажи between'+ '#'+Edit1.Text+'#'+'and'+ '#'+Edit2.Text+'#'); 72

//DM.ADOQ2.SQL.Add('and Типы_продукции.Название='''+DB2.Text+''''); 72

//DM.ADOQ2.SQL.Add('and Продажи.Менеджер='''+DB1.Text+''''); 72

DM.ADOQ2.Open; 72

end; 72

procedure TForm5.N2Click(Sender: TObject); 72

begin 72

form3.Show; 72

form5.Hide; 72

end; 72

procedure TForm5.N1Click(Sender: TObject); 72

begin 72

Form1.Show; 72

Form5.Hide; 72

end; 72

procedure TForm5.DB1Click(Sender: TObject); 72

begin 72

DM.ADOQ2.SQL.Clear; 72

DM.ADOQ2.SQL.Add('SELECT Продажи.ID as ¹, Продажи.Дата_продажи as [Дата продажи], Типы_продукции.Название as [Категория товара], Продукция.Название as [Наименование], Состав_продажи.Количество as [Количество], Продажи.Менеджер'); 72

DM.ADOQ2.SQL.Add('FROM Типы_продукции INNER JOIN ((Категории INNER JOIN Продукция ON Категории.ID = Продукция.ID_категория) INNER JOIN (Продажи INNER JOIN Состав_продажи ON Продажи.ID = Состав_продажи.ID_продажа)'); 72

DM.ADOQ2.SQL.Add('ON Продукция.ID = Состав_продажи.ID_продукция) ON Типы_продукции.ID = Категории.Тип_продукции'); 72

DM.ADOQ2.SQL.Add('Where Продажи.Менеджер='''+DB1.Text+''''); 72

DM.ADOQ2.Open; 72

end; 72

procedure TForm5.DB2Click(Sender: TObject); 72

begin 72

DM.ADOQ2.SQL.Clear; 72

DM.ADOQ2.SQL.Add('SELECT Продажи.ID as ¹, Продажи.Дата_продажи as [Дата продажи], Типы_продукции.Название as [Категория товара], Продукция.Название as [Наименование], Состав_продажи.Количество as [Количество], Продажи.Менеджер'); 72

DM.ADOQ2.SQL.Add('FROM Типы_продукции INNER JOIN ((Категории INNER JOIN Продукция ON Категории.ID = Продукция.ID_категория) INNER JOIN (Продажи INNER JOIN Состав_продажи ON Продажи.ID = Состав_продажи.ID_продажа)'); 72

DM.ADOQ2.SQL.Add('ON Продукция.ID = Состав_продажи.ID_продукция) ON Типы_продукции.ID = Категории.Тип_продукции'); 72

DM.ADOQ2.SQL.Add('Where Типы_продукции.Название='''+DB2.Text+''''); 72

DM.ADOQ2.Open; 72

end; 72

procedure TForm5.N4Click(Sender: TObject); 72

begin 72

Form5.close; 72

end; 72

procedure TForm5.N3Click(Sender: TObject); 72

begin 73

Form7.ADOQuery1.Open; 73

Form7.QuickRep1.Preview; 73

end; 73

end. 73

unit Unit6; 73