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

Тема: Створення додатка, який здійснює друк в текстовому і графічному режимах.

Мета: Навчитися друкувати вміст багаторядкового редактора Memo в текстовому режимі та друкувати малюнок та геометричні фігури в графічному режимі.

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { }

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Form1->Memo1->Clear(); Memo1->Text = "Laboratorna robota 9 \t\t\t\tHrebeniuk Ivan";

Image1->Picture->LoadFromFile("C:\\Users\\admin\\Desktop\\My_Lab_9_IZVP\\3\\Image_files\\1.jpg");

}

void __fastcall TForm1::N8Click(TObject *Sender)

{

Form1->Close(); }

void __fastcall TForm1::N7Click(TObject *Sender)

{

if (OpenDialog1->Execute()) Image1->Picture->LoadFromFile(OpenDialog1->FileName); }

void __fastcall TForm1::N9Click(TObject *Sender)

{

if (OpenDialog2->Execute()) Memo1->Lines->LoadFromFile(OpenDialog2->FileName);

}

void __fastcall TForm1::N1Click(TObject *Sender)

{

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

}

void __fastcall TForm1::N6Click(TObject *Sender)

{

if(Form1->PrintDialog1->Execute()) Form1->Print(); }

void __fastcall TForm1::N4Click(TObject *Sender)

{

if(PrintDialog1->Execute()){ Printer()->BeginDoc();

for(int i = 0; i < Memo1->Lines->Count; i++)

{

Printer()->Canvas->TextOut(200, 200 +

( i*Printer()->Canvas->TextHeight(Memo1->Lines->Strings[i])), Memo1->Lines->Strings[i]);

} Printer()->EndDoc(); }

}

void __fastcall TForm1::N5Click(TObject *Sender)

{

if(PrintDialog1->Execute())

{

Printer()->BeginDoc();

Printer()->Canvas->Draw(10,10, Image1->Picture->Graphic); Printer()->EndDoc(); }

}

void __fastcall TForm1::Pechatpechati1Click(TObject *Sender)

{

if(PrintDialog1->Execute())

{

Printer()->BeginDoc(); Printer()->Canvas->Draw(10,10, Image1->Picture->Graphic);

Printer()->EndDoc(); Printer()->BeginDoc();

for(int i = 0; i < Memo1->Lines->Count; i++)

{

Printer()->Canvas->TextOut(200, 200 +

( i*Printer()->Canvas->TextHeight(Memo1->Lines->Strings[i])), Memo1->Lines->Strings[i]);

} Printer()->EndDoc(); Form1->Print(); }

}

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

Висновок. Я навчився друкувати вміст багаторядкового редактора Memo в текстовому режимі та друкувати малюнок та геометричні фігури в графічному режимі.

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

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

Мета: Навчитися створювати таблиці Paradox за допомогою програми Database Desktop та робити заповнення таблиці за допомогою створеного додатку Borland C++6.

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

//Form1:

#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 __fastcall TForm1::Button1Click(TObject *Sender)

{ if(Edit1->Text == "pr-9-12") {

Form1->Visible = false;

Form2->Show(); }

else ShowMessage("ERROR !!!");

}

void __fastcall TForm1::Edit1KeyDown(TObject *Sender, WORD &Key,

TShiftState Shift)

{ if(Edit1->Text != "")

if (Key == VK_RETURN) { Button1Click(Sender); }

}

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,

TShiftState Shift)

{ if(Edit1->Text != "")

if (Key == VK_RETURN) { Button1Click(Sender); }

}

//Form2:

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner) { }

void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)

{ Form1->Close(); }

void __fastcall TForm2::Button1Click(TObject *Sender)

{ if(Table1->Locate("Nazva pidpriemstva",Edit1->Text, TLocateOptions()))

{ ShowMessage("Присутній!"); }

else ShowMessage("Не присутній!");

}

void __fastcall TForm2::Table1CalcFields(TDataSet *DataSet)

{ Table1K_P_B_A->Value = Table1Kilkistpracivnikiv->Value-Table1Kilkistautostoyanok->Value;

}

void __fastcall TForm2::FormKeyDown(TObject *Sender, WORD &Key,

TShiftState Shift)

{ if(Edit1->Text != "")

if (Key == VK_RETURN) { Button1Click(Sender); }

}

void __fastcall TForm2::Edit1KeyDown(TObject *Sender, WORD &Key,

TShiftState Shift)

{ if(Edit1->Text != "")

if (Key == VK_RETURN) { Button1Click(Sender); }

}

void __fastcall TForm2::Button2Click(TObject *Sender)

{ if(Table1->Locate("Nazva pidpriemstva",Edit2->Text, TLocateOptions())) {

ShowMessage("Присутній!"); }

else ShowMessage("Не присутній!");

}

void __fastcall TForm2::Edit2KeyDown(TObject *Sender, WORD &Key,

TShiftState Shift)

{ if(Edit2->Text != "")

if (Key == VK_RETURN) { Button2Click(Sender); }

}

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

Висновок. Я навчився створювати таблиці Paradox за допомогою програми Database Desktop та робити заповнення таблиці за допомогою створеного додатку Borland C++6.