Лабораторная работа: База данных "Автосервис" в среде Borland Delphi 6.0.

Form7.Show;

end;

procedure TForm2.Button8Click(Sender: TObject);

begin

Form8.QuickRep3.Preview;

end;

end.

unit Unit4;

interface

uses

Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,

Dialogs, DBCtrls, DB, DBGrids, DBTables, Grids, ExtCtrls, Mask, Buttons;

type

TForm4 = class(TForm)

Table2OrderNum: TIntegerField;

Table2CodeWork: TIntegerField;

Table1OrderNum: TAutoIncField;

Table1CodeAuto: TIntegerField;

Table1CodeOwner: TIntegerField;

Table1ActDate: TDateField;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

Panel1: TPanel;

DataSource1: TDataSource;

Panel2: TPanel;

Panel3: TPanel;

Splitter1: TSplitter;

Table1: TTable;

Table2: TTable;