Курсовая работа: Создание базы данных "Wc3 Cybersport Data Base"

if s='asd' then begin

deletequery1.Enabled:=true;

editquery1.Enabled:=true;

end;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

form2.show;

end;

end.

unit Unit2;

interface

uses

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

Dialogs, QuickRpt, ExtCtrls, QRCtrls, StdCtrls;

type

TForm2 = class(TForm)

QuickRep1: TQuickRep;

ColumnHeaderBand1: TQRBand;

PageFooterBand1: TQRBand;

PageHeaderBand1: TQRBand;

DetailBand1: TQRBand;

TitleBand1: TQRBand;

Button1: TButton;

SummaryBand2: TQRBand;

Title: TQRLabel;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);