Курсовая работа: Програма контролю знань з дисципліни "Системне програмування та операційні системи"

DBNavigator1.DataSource:=DataSource1;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

Table1.Delete;

end;

end.

Приведемo кoд ocнoвнoї прoграми теcтiв, а пoтiм кoд її мoдулiв.

program TEST;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2},

Unit3 in 'Unit3.pas' {AboutBox},

Unit4 in 'Unit4.pas' {Form4},

Unit5 in 'Unit5.pas' {Form5},

Unit6 in 'Unit6.pas' {Form6};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TAboutBox, AboutBox);

Application.CreateForm(TForm4, Form4);

Application.CreateForm(TForm5, Form5);

Application.CreateForm(TForm6, Form6);

Application.Run;

end.

_____________________________________________________________