Лабораторна робота №6

Тема: Робота із рядком стану.

Мета: Навчитися створювати додатки з використанням рядка стану.

Лістинг програми:

#include <vcl.h>

#pragma hdrstop

#include <iostream.h>

#include "Unit1.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

String Filename=""; bool save=false;

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner) { }

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Memo1->Clear();

if(Filename=="") N3->Enabled=false;

StatusBar1->Panels->Items[3]->Text="16.09.1996 Гребенюк І.А."; }

void __fastcall TForm1::N3Click(TObject *Sender)

{ Memo1->Lines->SaveToFile(Filename); }

void __fastcall TForm1::N2Click(TObject *Sender)

{

if (OpenDialog1->Execute())

{ Filename=OpenDialog1->FileName;

Memo1->Lines->LoadFromFile(OpenDialog1->FileName);

}

StatusBar1->Panels->Items[2]->Text=OpenDialog1->FileName;

}

void __fastcall TForm1::N4Click(TObject *Sender)

{

if (SaveDialog1->Execute()){

Memo1->Lines->SaveToFile(SaveDialog1->FileName);

Filename= SaveDialog1->FileName;

} }

void __fastcall TForm1::N5Click(TObject *Sender)

{ Close(); }

void __fastcall TForm1::N8Click(TObject *Sender)

{ Memo1->CopyToClipboard(); }

void __fastcall TForm1::N7Click(TObject *Sender)

{ Memo1->CutToClipboard(); }

void __fastcall TForm1::N9Click(TObject *Sender)

{ Memo1->SelectAll(); }

void __fastcall TForm1::N10Click(TObject *Sender)

{ Memo1->CopyToClipboard(); }

void __fastcall TForm1::N11Click(TObject *Sender)

{ Memo1->PasteFromClipboard(); }

void __fastcall TForm1::N12Click(TObject *Sender)

{ Memo1->SelectAll(); }

void __fastcall TForm1::N13Click(TObject *Sender)

{ Memo1->PasteFromClipboard(); }

void __fastcall TForm1::Memo1Change(TObject *Sender)

{

if(Filename!="")

N3->Enabled=true;

StatusBar1->Panels->Items[1]->Text=Memo1->Lines->Count;

}

void __fastcall TForm1::Memo1MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{ if(Filename!="") N3->Enabled=true; }

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{ StatusBar1->Panels->Items[4]->Text=Time(); }

Результат роботи:

Висновок. На даній лабораторній роботі я навчився створювати додатки з використанням рядка стану.

Лабораторна робота №7

Тема: Створення додатка, який працює з таблицями.

Мета: Навчитися відображати дані у вигляді таблиці.

Лістинг програми:

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

#include "Unit1.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner) { }

void admin()

{

Form1->Label2->Visible=false; Form1->Label3->Visible=false;

Form1->Edit1->Visible=false; Form1->Edit2->Visible=false; Form1->Button3->Visible=false;

}

void __fastcall TForm1::FormCreate(TObject *Sender)

{

StringGrid1->Cells[1][0]="PIB"; StringGrid1->Cells[2][0]="AbonPlata";

StringGrid1->Cells[3][0]="PDV(20%)"; StringGrid1->Cells[4][0]="Suuma_do_oplati";

StringGrid1->Cells[0][0]="№_"; admin();

}

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Label2->Visible=true;

Label3->Visible=true; Edit1->Visible=true; Edit2->Visible=true; Button3->Visible=true;

}

void __fastcall TForm1::Button3Click(TObject *Sender)

{

if(Edit1->Text==""|| Edit2->Text==""){

ShowMessage("Не всі занесені данні!!!"); }

else

{

StringGrid1->RowCount=StringGrid1->RowCount+1;

StringGrid1->Height=StringGrid1->Height+25;

StringGrid1->Cells[1][koef]=Edit1->Text; StringGrid1->Cells[2][koef]=Edit2->Text;

float narah,pdv20,suma_do_oplati;

narah=StrToFloat(StringGrid1->Cells[2][koef]);

pdv20=narah*0.2;

suma_do_oplati=pdv20+narah;

StringGrid1->Cells[3][koef]=FloatToStr(pdv20);

StringGrid1->Cells[4][koef]=FloatToStr(suma_do_oplati);

koef++;

StringGrid1->Cells[0][koef-1]=koef-1;

if(CheckBox1->Checked == true)

{ Edit1->Text="";Edit2->Text=""; }

else

{admin();}

}

}

void __fastcall TForm1::Edit2KeyPress(TObject *Sender, char &Key)

{ if( ( Key!=VK_BACK ) && ( Key<'0'||Key>'9' ) && ( Key!=',' ) )

Key = 0x00; }

void __fastcall TForm1::Button2Click(TObject *Sender)

{ StringGrid1->RowCount=StringGrid1->RowCount-1;

StringGrid1->Height=StringGrid1->Height-25; koef--; }

void __fastcall TForm1::Button4Click(TObject *Sender)

{ Form2->Show(); }

Результат роботи:

Висновок. На даній лабораторній роботі я навчився відображати дані у вигляді таблиці.