Interface 75

uses 75

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls, DB, ADODB; 75

type 75

TForm8 = class(TForm) 75

QuickRep1: TQuickRep; 75

TitleBand1: TQRBand; 75

DetailBand1: TQRBand; 75

ColumnHeaderBand1: TQRBand; 75

QRLabel1: TQRLabel; 75

QRLabel2: TQRLabel; 75

QRLabel3: TQRLabel; 75

QRLabel4: TQRLabel; 75

QRDBText3: TQRDBText; 75

QRDBText4: TQRDBText; 75

QRDBText5: TQRDBText; 75

QRLabel5: TQRLabel; 75

QRLabel6: TQRLabel; 75

QRSysData1: TQRSysData; 76

QRDBText1: TQRDBText; 76

QRExpr2: TQRExpr; 76

QRSysData2: TQRSysData; 76

SummaryBand1: TQRBand; 76

QRExpr1: TQRExpr; 76

ADOQuery1: TADOQuery; 76

QRLabel7: TQRLabel; 76

ADOQuery1ID: TAutoIncField; 76

ADOQuery1DSDesigner: TWideStringField; 76

ADOQuery1DSDesigner2: TIntegerField; 76

ADOQuery1DSDesigner3: TIntegerField; 76

ADOQuery1DSDesigner4: TIntegerField; 76

DataSource1: TDataSource; 76

ADOQuery1DSDesigner5: TWideStringField; 76

private 76

{ Private declarations } 76

public 76

{ Public declarations } 76

end; 76

var 76

Form8: TForm8; 76

implementation 76

uses Unit1, Unit3, Unit4, Unit2; 76

{$R *.dfm} 76

end. 76

unit Unit9; 76

Interface 76

uses 76

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

Dialogs, Menus, StdCtrls, DBCtrls, Mask, Grids, DBGrids, jpeg, ExtCtrls; 76

type 76

TForm9 = class(TForm) 76

Label1: TLabel; 76

Label2: TLabel; 76

Label3: TLabel; 76

Label4: TLabel; 76

Label5: TLabel; 76

DB1: TDBLookupComboBox; 76

DB2: TDBLookupComboBox; 76

Edit2: TEdit; 76

DB3: TDBLookupComboBox; 76

DB4: TDBLookupComboBox; 76

MainMenu1: TMainMenu; 76

N1: TMenuItem; 76

N2: TMenuItem; 76

N3: TMenuItem; 76

N7: TMenuItem; 76

N8: TMenuItem; 76

Button1: TButton; 76

DBEdit1: TDBEdit; 76

DBEdit2: TDBEdit; 76

DBGrid1: TDBGrid; 76

Button2: TButton; 76

Image1: TImage; 76

Image2: TImage; 76

procedure N3Click(Sender: TObject); 76

procedure DB1Click(Sender: TObject); 76

procedure DB2Click(Sender: TObject); 76

procedure N2Click(Sender: TObject); 76

procedure Button1Click(Sender: TObject); 76

procedure DB4Click(Sender: TObject); 76

procedure N8Click(Sender: TObject); 77

private 77

{ Private declarations } 77

public 77

{ Public declarations } 77

end; 77

var 77

Form9: TForm9; 77

implementation 77

uses Unit2, Unit3, Unit1, Unit10; 77

{$R *.dfm} 77

procedure TForm9.N3Click(Sender: TObject); 77

begin 77

Form3.Show; 77

Form9.Hide; 77

end; 77

procedure TForm9.DB1Click(Sender: TObject); 77

begin 77

DM.ADOQPrihod.SQL.Clear; 77

DM.ADOQPrihod.SQL.Add('SELECT Категории.ID, Типы_продукции.Название, Категории.Категория '); 77

DM.ADOQPrihod.SQL.Add('FROM Типы_продукции INNER JOIN Категории ON Типы_продукции.ID = Категории.Тип_продукции'); 77

DM.ADOQPrihod.SQL.Add('WHERE Типы_продукции.Название='''+DB1.Text+''''); 77

DM.ADOQPrihod.Open; 77

DB2.KeyField:='ID'; 77

DB2.ListField:='Категория'; 77

end; 77

procedure TForm9.DB2Click(Sender: TObject); 77

begin 77

DM.ADOQPrihod1.SQL.Clear; 77

DM.ADOQPrihod1.SQL.Add('SELECT Категории.Категория, Продукция.ID, Продукция.Название'); 77

DM.ADOQPrihod1.SQL.Add('FROM Категории INNER JOIN Продукция ON Категории.ID = Продукция.ID_категория'); 77

DM.ADOQPrihod1.SQL.Add('WHERE Категории.Категория='''+DB2.Text+''''); 77

DM.ADOQPrihod1.Open; 77

DB4.KeyField:='ID'; 77

DB4.ListField:='Название'; 77

end; 77

procedure TForm9.N2Click(Sender: TObject); 77

begin 77

Form9.Close; 77

end; 77

procedure TForm9.Button1Click(Sender: TObject); 77

begin 77

dm.Prihod.Append; 77

Dm.Prihod.Edit; 77

Dm.Prihod.FieldByName('Склад').Value:=StrToInt(DBEdit2.Text); 77

Dm.Prihod.FieldByName('ID_продукция').Value:=StrToInt(DBEdit1.Text); 77

Dm.Prihod.FieldByName('Количество').Value:=StrToInt(Edit2.Text); 77

if Form3.ADOTable1.Locate('ID',StrToInt(DBEdit1.Text), []) then 77

begin 77

Form3.ADOTable1.Edit; 77

Form3.ADOTable1.FieldByName('Количество').Value:=Form3.ADOTable1.FieldByName('Количество').Value+StrToInt(Edit2.Text); 77

Form3.ADOTable1.Post; 77

end; 78

Dm.Prihod.FieldByName('Дата_прихода').AsDateTime:=Form1.DateTimePicker1.Date; 78

Dm.Prihod.FieldByName('Принимающий').Value:=Form1.DBLookupComboBox1.KeyValue; 78

Dm.Prihod.Post; 78

//Отображаем результаты прихода товаров в таблице 78

//if DM.Prihod.Locate('Дата_прихода',Date, []) then 78

//begin 78

Form10.JurnalPrihoda.SQL.Clear; 78

Form10.JurnalPrihoda.SQL.Add('SELECT Приход_товара.ID,Продукция.Название, Приход_товара.Количество, Приход_товара.Дата_прихода'); 78

Form10.JurnalPrihoda.SQL.Add('FROM Продукция INNER JOIN Приход_товара ON Продукция.ID = Приход_товара.ID_продукция;'); 78

{SELECT Приход_товара.ID,Продукция.Название, Приход_товара.Количество, Приход_товара.Дата_прихода 78

FROM Продукция INNER JOIN Приход_товара ON Продукция.ID = Приход_товара.ID_продукция;} 78

//end; 78

Form10.JurnalPrihoda.Open; 78

//Очищаем поля для последующего ввода данных 78

DM.ADOQPrihod.Active:=False; 78

DM.ADOQPrihod1.Active:=False; 78

Edit2.Text:=''; 78

end; 78

procedure TForm9.DB4Click(Sender: TObject); 78

begin 78

DBEdit1.DataField:='ID'; 78

end; 78

procedure TForm9.N8Click(Sender: TObject); 78

begin 78

//Form10.JurnalPrihoda.Open; 78

Form10.QuickRep1.Preview; 78

end; 78

end. 78

unit Unit10; 78