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

Тема: Програмування модулів системи.

Мета: Навчитися додавати до проекту необхідний компонент (модуль).

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

//Form1:

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#pragma resource "*.dfm"

TPasswordDlg *PasswordDlg;

__fastcall TPasswordDlg::TPasswordDlg(TComponent* AOwner) : TForm(AOwner) { }

void __fastcall TPasswordDlg::OKBtnClick(TObject *Sender)

{ if(Password->Text=="qwerty") { PasswordDlg->Visible=false; Form2->Show();}

else ShowMessage("Erorr!"); }

//Form2:

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit9.h"

#include "Unit7.h"

#include "Unit2.h"

#include "Unit8.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)

{ PasswordDlg->Close(); }

void __fastcall TForm2::BitBtn1Click(TObject *Sender)

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

{ ShowMessage("Присутн³й!"); } else ShowMessage("Не присутн³й!"); }

void __fastcall TForm2::Edit1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)

{ if(Edit1->Text=="Введ³ть д³агноз") Edit1->Text=""; }

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

{ if(Edit1->Text != "") if (Key == VK_RETURN) { BitBtn1Click(Sender); } }

void __fastcall TForm2::N2Click(TObject *Sender)

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

void __fastcall TForm2::N3Click(TObject *Sender)

{ Form2->Visible=false; Form4->Visible=true; }

void __fastcall TForm2::N9Click(TObject *Sender)

{ Form2->Close(); }

void __fastcall TForm2::N5Click(TObject *Sender)

{ Form2->Color=clRed;}

void __fastcall TForm2::N21Click(TObject *Sender)

{ Form2->Color=clTeal; }

void __fastcall TForm2::N6Click(TObject *Sender)

{ Form2->Color=clWhite; }

void __fastcall TForm2::N8Click(TObject *Sender)

{ Form5->ShowModal();}

void __fastcall TForm2::N7Click(TObject *Sender)

{ Form6->ShowModal();}

void __fastcall TForm2::N11Click(TObject *Sender)

{ Form7->Show(); Form7->Visible=false; Form7->QuickRep1->Preview(); }

void __fastcall TForm2::N13Click(TObject *Sender)

{ Form8->Show(); Form8->Visible=false; Form8->QuickRep1->Preview(); }

void __fastcall TForm2::N12Click(TObject *Sender)

{ Form9->Show(); Form9->Visible=false; Form9->QuickRep1->Preview(); }

//Form3:

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit9.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.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)

{ PasswordDlg->Close(); }

void __fastcall TForm3::BitBtn1Click(TObject *Sender)

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

{ ShowMessage("Присутн³й!"); } else ShowMessage("Не присутн³й!"); }

void __fastcall TForm3::Edit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)

{ if(Edit1->Text != "") if (Key == VK_RETURN) { BitBtn1Click(Sender); } }

void __fastcall TForm3::Edit1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)

{ if(Edit1->Text=="Введ³ть припарат") Edit1->Text=""; }

void __fastcall TForm3::N2Click(TObject *Sender)

{ Form3->Visible=false; Form2->Visible=true; }

void __fastcall TForm3::N3Click(TObject *Sender)

{ Form3->Visible=false; Form4->Visible=true; }

void __fastcall TForm3::N9Click(TObject *Sender)

{ Form3->Close(); }

void __fastcall TForm3::N8Click(TObject *Sender)

{ Form5->ShowModal(); }

void __fastcall TForm3::N7Click(TObject *Sender)

{ Form6->ShowModal(); }

void __fastcall TForm3::N12Click(TObject *Sender)

{ Form7->Show(); Form7->Visible=false; Form7->QuickRep1->Preview(); }

void __fastcall TForm3::N11Click(TObject *Sender)

{ Form8->Show(); Form8->Visible=false; Form8->QuickRep1->Preview(); }

void __fastcall TForm3::N13Click(TObject *Sender)

{ Form9->Show(); Form9->Visible=false; Form9->QuickRep1->Preview(); }

//Form4:

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit7.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit8.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm4 *Form4;

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

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

{ PasswordDlg->Close(); }

void __fastcall TForm4::BitBtn1Click(TObject *Sender)

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

{ ShowMessage("Присутн³й!"); } else ShowMessage("Не присутн³й!"); }

void __fastcall TForm4::Edit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)

{ if(Edit1->Text != "") if (Key == VK_RETURN) { BitBtn1Click(Sender); } }

void __fastcall TForm4::Edit1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)

{ if(Edit1->Text=="Введ³ть Пр³звище та ³м'я кл³ºнта") Edit1->Text=""; }

void __fastcall TForm4::N2Click(TObject *Sender)

{ Form4->Visible=false; Form2->Visible=true; }

void __fastcall TForm4::N3Click(TObject *Sender)

{ Form4->Visible=false; Form3->Visible=true; }

void __fastcall TForm4::N9Click(TObject *Sender)

{ Form4->Close(); }

void __fastcall TForm4::N8Click(TObject *Sender)

{ Form5->ShowModal(); }

void __fastcall TForm4::N7Click(TObject *Sender)

{ Form6->ShowModal(); }

void __fastcall TForm4::N11Click(TObject *Sender)

{ Form7->Show(); Form7->Visible=false; Form7->QuickRep1->Preview(); }

void __fastcall TForm4::N12Click(TObject *Sender)

{Form8->Show(); Form8->Visible=false; Form8->QuickRep1->Preview(); }

void __fastcall TForm4::N13Click(TObject *Sender)

{ Form9->Show(); Form9->Visible=false; Form9->QuickRep1->Preview(); }

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

Висновок. Я навчився додавати до проекту необхідний компонент (модуль).