9. Проаналізувати заданий фрагмент коду програмного модуля і визначити:

- загальне призначення модуля;

- склад візуальних компонетів та іх призначення;

- склад процедур – обробників подій та їх призначення;

- засоби контролю введення та обробки даних.

include <vcl.h>

#pragma hdrstop

#include <Math.hpp>

#include "Unit1.h"

#include <math.h>

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

float n,k,h,i;

n=StrToFloat(Edit1->Text);

k=StrToFloat(Edit2->Text);

h=StrToFloat(Edit3->Text);

Memo1->Lines->Add("x y");

StringGrid1->ColCount=2;

StringGrid1->Cells[0][0]="x";

StringGrid1->Cells[1][0]="y";

ListBox1->Items->Add("x y");

while (n<=k)

{i=i+1;

StringGrid1->RowCount=i+1;

StringGrid1->Cells[0][i]=FloatToStrF(n,ffGeneral,6,2);

StringGrid1->Cells[1][i]=FloatToStrF(sin(n),ffGeneral,6,2);

ListBox1->Items->Add (FloatToStrF(n,ffGeneral,6,2)+" "+ FloatToStrF(sin(n),ffGeneral,6,2));

Memo1->Lines->Add(FloatToStrF(n,ffGeneral,6,2)+" "+ FloatToStrF(sin(n),ffGeneral,6,2));

n=n+h;

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

ListBox1->Items->Clear();

Memo1->Lines->Clear();

StringGrid1->RowCount=0;

StringGrid1->ColCount=0;

StringGrid1->Cells[0][0]="";

}

//---------------------------------------------------------------------------

10. Для заданого графічного інтерфейсу користувача описати призначення програмного модуля, перелік візуальних компонентів та принципи їх використання.

Записати процедуру для кнопки «Вхід у систему».

11. Проаналізувати заданий фрагмент коду програмного модуля і визначити:

- загальне призначення модуля;

- склад візуальних компонетів та іх призначення;

- склад процедур – обробників подій та їх призначення;

- засоби контролю введення та обробки даних.

void __fastcall TForm1::Panel1Click(TObject *Sender)

{

Table1->First();

{for (int i = 0; i < Table1->RecordCount; i++)

{if (Table1KLogin->Value==Edit1->Text)

if (Table1KPassword->Value==Edit2->Text)

{

Label4->Caption=Table1KAccess->Value;

Label2->Visible=False;

Label3->Visible=False;

Edit1->Visible=False;

Edit2->Visible=False;

Panel1->Visible=False;

N1->Visible=True;

N4->Visible=True;

N12->Visible=True;

N13->Visible=True;}

Table1->Next();}

}

}

12. Для заданого графічного інтерфейсу користувача описати призначення програмного модуля, перелік візуальних компонентів та принципи їх використання.

Записати процедуру для кнопки «Вхід у систему».

13. Проаналізувати заданий фрагмент коду програмного модуля і визначити:

- загальне призначення модуля;

- склад візуальних компонетів та іх призначення;

- склад процедур – обробників подій та їх призначення;

- засоби контролю введення та обробки даних.

#include <vcl.h>

#pragma hdrstop

#include "Unit4.h"

#include "Unit10.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm4 *Form4;

int sz,i;

//---------------------------------------------------------------------------

void __fastcall TForm4::N2Click(TObject *Sender)

{

Query1->Close();

Query1->SQL->Clear();

Query1->SQL->Add("SELECT *");

Query1->SQL->Add("FROM 'Spisok.db'");

Query1->SQL->Add ("ORDER BY SNazVid");

Query1->Open();

Form4->DataSource1->DataSet=Query1;

}

//---------------------------------------------------------------------------

void __fastcall TForm4::FormActivate(TObject *Sender)

{

Table1->First();

{for (int i = 0; i < Table1->RecordCount; i++)

{sz=sz+Table1SOklad->Value;

Table1->Next();}

}

Label12->Caption="Сума заробітної плати складає: " + IntToStr(sz)+ " ãðí.";

Table1->First();

}

//---------------------------------------------------------------------------

void __fastcall TForm4::N6Click(TObject *Sender)

{

Form10->QuickRep1->Preview();

}