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

Тема: Створення простого звіту.

Мета: Навчитися створювати найпростіший звіт та друкувати його.

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

//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"

#include "Unit3.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); }

}

void __fastcall TForm2::BitBtn1Click(TObject *Sender)

{ Form3->Show(); Form3->Visible=false;

Form3->QuickRep1->Preview();

}

//Form3:

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

#include "Unit3.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner) { }

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

{ Form2->Visible=true; }

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

Висновок. Я навчився створювати найпростіший звіт та друкувати його.

22