Курсовая работа: Разработка интерактивной системы обработки базы данных ведомости работы расчетно-кассового узла универсама

uses Unit1;

{$R *.dfm}

procedure TForm4.FormActivate(Sender: TObject);

begin

Query1.Active:=False;

Query1.Active:=True;

end;

end.

Файл unit5.pas

unit Unit5;

interface

uses

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

Dialogs, QuickRpt, ExtCtrls, DB, DBTables, QRCtrls;

type

TForm5 = class(TForm)

QuickRep1: TQuickRep;

QRGroup1: TQRGroup;

QRBand1: TQRBand;

Table1: TTable;

Table1KodZapisi: TAutoIncField;

Table1Nazvanie: TStringField;

Table1Kod: TIntegerField;

Table1Prihod: TFloatField;

Table1Rashod: TFloatField;

Table1Zena: TFloatField;

Table2: TTable;

Table2Kod: TAutoIncField;

Table2Tip: TStringField;