Interface 73

uses 73

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

Dialogs, Menus, StdCtrls, DBCtrls, Mask, DB, ADODB, jpeg, ExtCtrls; 73

type 73

TForm6 = class(TForm) 73

Label1: TLabel; 73

Label2: TLabel; 73

Label3: TLabel; 73

Label4: TLabel; 73

Label5: TLabel; 73

DB1: TDBLookupComboBox; 73

DB2: TDBLookupComboBox; 73

DBEdit1: TDBEdit; 73

DBMemo1: TDBMemo; 73

DBEdit2: TDBEdit; 73

Button1: TButton; 73

Button2: TButton; 73

MainMenu1: TMainMenu; 73

N1: TMenuItem; 73

N2: TMenuItem; 73

N3: TMenuItem; 73

DBEdit3: TDBEdit; 73

Label6: TLabel; 73

DataSource1: TDataSource; 73

ADOQuery1: TADOQuery; 73

OpenDialog1: TOpenDialog; 73

Button3: TButton; 73

Image1: TImage; 73

Image2: TImage; 73

procedure N2Click(Sender: TObject); 73

procedure N3Click(Sender: TObject); 73

procedure Button1Click(Sender: TObject); 73

procedure DB1Click(Sender: TObject); 73

procedure Button3Click(Sender: TObject); 73

procedure FormShow(Sender: TObject); 73

private 73

{ Private declarations } 73

public 73

{ Public declarations } 73

end; 73

var 73

Form6: TForm6; 73

implementation 73

uses Unit3, Unit1, Unit2, Unit4; 73

{$R *.dfm} 73

procedure TForm6.N2Click(Sender: TObject); 73

begin 73

Form3.Show; 73

end; 74

procedure TForm6.N3Click(Sender: TObject); 74

begin 74

Form6.Close; 74

end; 74

procedure TForm6.Button1Click(Sender: TObject); 74

begin 74

if Form3.ADOTable1.Modified then Form3.ADOTable1.Post; 74

end; 74

procedure TForm6.DB1Click(Sender: TObject); 74

begin 74

ADOQuery1.SQL.Clear; 74

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

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

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

ADOQuery1.Open; 74

DB2.KeyField:='ID'; 74

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

end; 74

procedure TForm6.Button3Click(Sender: TObject); 74

begin 74

if OpenDialog1.execute then 74

Form3.DBImage1.Picture.LoadFromFile(OpenDialog1.FileName); 74

Form3.ADOTable1.Edit; 74

TBlobField(Form3.ADOTable1.FieldByName('Ôîòî')).LoadFromFile(OpenDialog1.FileName); 74

Form3.ADOTable1.Post; 74

end; 74

procedure TForm6.FormShow(Sender: TObject); 74

begin 74

DB1.ListSource:=DM.DS2; 74

DB1.KeyField:='ID'; 74

DB1.ListField:='Название'; 74

end; 74

end. 74

unit Unit7; 74

Interface 74

uses 74

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

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

type 74

TForm7 = class(TForm) 74

QuickRep1: TQuickRep; 74

TitleBand1: TQRBand; 74

QRLabel1: TQRLabel; 74

DetailBand1: TQRBand; 74

QRDBText4: TQRDBText; 74

ColumnHeaderBand1: TQRBand; 74

QRLabel3: TQRLabel; 74

ADOQuery1: TADOQuery; 74

QRDBText2: TQRDBText; 74

QRDBText6: TQRDBText; 74

QRGroup1: TQRGroup; 74

QRLabel4: TQRLabel; 74

QRDBText3: TQRDBText; 75

GroupFooter1: TQRBand; 75

QRExpr1: TQRExpr; 75

QRExpr2: TQRExpr; 75

QRLabel5: TQRLabel; 75

QRLabel6: TQRLabel; 75

ADOQuery1ID: TAutoIncField; 75

ADOQuery1_: TDateTimeField; 75

ADOQuery1DSDesigner: TWideStringField; 75

ADOQuery1DSDesigner2: TWideStringField; 75

ADOQuery1_2: TWideStringField; 75

ADOQuery1DSDesigner3: TWideStringField; 75

ADOQuery1DSDesigner4: TIntegerField; 75

ADOQuery1DSDesigner5: TIntegerField; 75

ADOQuery1DSDesigner6: TIntegerField; 75

QRLabel7: TQRLabel; 75

SummaryBand1: TQRBand; 75

QRLabel8: TQRLabel; 75

QRLabel9: TQRLabel; 75

QRExpr3: TQRExpr; 75

QRExpr4: TQRExpr; 75

QRLabel2: TQRLabel; 75

QRLabel10: TQRLabel; 75

QRLabel11: TQRLabel; 75

QRSysData1: TQRSysData; 75

QRSysData2: TQRSysData; 75

private 75

{ Private declarations } 75

public 75

{ Public declarations } 75

end; 75

var 75

Form7: TForm7; 75

implementation 75

uses Unit1, Unit2; 75

{$R *.dfm} 75

end. 75

unit Unit8; 75