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

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.FormActivate(Sender: TObject);

begin

Table1.Active:=True;

end;

end.

Файл unit6.pas

unit Unit6;

interface

uses

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

Dialogs, jpeg, ExtCtrls;

type

TIntro = class(TForm)

Image1: TImage;

Timer1: TTimer;

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Intro: TIntro;

implementation