Interface 69

uses 69

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

Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls, Menus, DB, ADODB, jpeg, 69

ExtCtrls; 69

type 69

TForm4 = class(TForm) 69

DBText1: TDBText; 69

Edit1: TEdit; 69

Edit2: TEdit; 69

Label1: TLabel; 69

Label2: TLabel; 69

Label3: TLabel; 69

Button1: TButton; 69

DBGrid1: TDBGrid; 69

DBText2: TDBText; 69

Button2: TButton; 69

Label4: TLabel; 69

Label5: TLabel; 69

GroupBox1: TGroupBox; 69

MainMenu1: TMainMenu; 69

N1: TMenuItem; 69

N4: TMenuItem; 69

Button3: TButton; 69

DBEdit1: TDBEdit; 69

Label6: TLabel; 69

DBEdit2: TDBEdit; 69

N2: TMenuItem; 69

Label7: TLabel; 69

N3: TMenuItem; 69

Edit3: TEdit; 69

Edit4: TEdit; 69

Edit5: TEdit; 69

Label8: TLabel; 69

Label9: TLabel; 69

Label10: TLabel; 69

Image1: TImage; 69

procedure Button1Click(Sender: TObject); 69

procedure Button3Click(Sender: TObject); 69

procedure Button2Click(Sender: TObject); 69

procedure N2Click(Sender: TObject); 69

procedure N3Click(Sender: TObject); 69

procedure N1Click(Sender: TObject); 69

private 69

{ Private declarations } 69

public 69

{ Public declarations } 69

end; 69

var 69

Form4: TForm4; 69

implementation 69

uses Unit2, Unit1, Unit3, Unit7, Unit5, Unit8, Unit6; 69

{$R *.dfm} 70

procedure TForm4.Button1Click(Sender: TObject); 70

begin 70

DM.ADOT5.Edit; 70

DM.ADOT3.Edit; 70

DM.ADOT5['Клиент']:=Edit2.Text; 70

DM.ADOT5['Менеджер']:=Form1.DBLookupComboBox1.Text; 70

DM.ADOT5['Дата_продажи']:=Form1.DateTimePicker1.Date; 70

DM.ADOT3['ÔÈÎ']:=Edit2.Text; 70

DM.ADOT3['Адрес']:=Edit3.Text; 70

DM.ADOT3['Телефон']:=Edit4.Text; 70

DM.ADOT3['Документ']:=Edit5.Text; 70

DM.ADOT3.Post; 70

DM.ADOT5.Post; 70

DM.ADOT6.Append; 70

DM.ADOT6.Edit; 70

DM.ADOT6['ID_продукция']:=StrToInt(DBEdit1.Text); 70

DM.ADOT6['Количество']:=StrToInt(Edit1.Text); 70

DM.ADOT6.Post; 70

// DM.ADOT7.Edit; 70

// DM.ADOT7['Количество']:= DM.ADOT7['Количество']-StrToInt(Edit1.Text); 70

//DM.ADOT7.Post; 70

begin 70

Form8.ADOQuery1.SQL.Clear; 70

Form8.ADOQuery1.SQL.Add('SELECT Состав_продажи.ID, Продукция.Название, Продукция.Цена, Состав_продажи.Количество, Продукция.Цена*Состав_продажи.Количество AS Сумма, Продажи.Менеджер'); 70

Form8.ADOQuery1.SQL.Add('FROM Продукция INNER JOIN (Продажи INNER JOIN Состав_продажи ON Продажи.ID = Состав_продажи.ID_продажа) ON Продукция.ID = Состав_продажи.ID_продукция'); 70

Form8.ADOQuery1.SQL.Add('Where Продажи.ID='+IntToStr(StrToInt(DBEdit2.Text))); 70

Form8.ADOQuery1.Open; 70

end; 70

end; 70

procedure TForm4.Button3Click(Sender: TObject); 70

begin 70

Form4.Close; 70

Form3.Show; 70

end; 70

procedure TForm4.Button2Click(Sender: TObject); 70

begin 70

form3.Show; 70

end; 70

procedure TForm4.N2Click(Sender: TObject); 70

begin 70

Form8.ADOQuery1.Open; 70

Form8.QuickRep1.Preview; 70

end; 70

procedure TForm4.N3Click(Sender: TObject); 70

begin 70

Form5.Show; 70

end; 70

procedure TForm4.N1Click(Sender: TObject); 70

begin 70

form3.Show; 70

end; 70

end. 70

unit Unit5; 70