Лабораторна робота №7
Тема: Створення користувацького інтерфейсу.
Мета: Навчитися створювати зрозумілий інтерфейс системи.
Лістинг програми:
//Form1:
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { }
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{ if(Form4->Visible==false) { Form4->Show(); } }
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{ if(Form2->Visible==false) { Form2->Show(); } }
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{ if(Form3->Visible==false) { Form3->Show(); } }
void __fastcall TForm1::Label1DblClick(TObject *Sender)
{ if((Form2->Visible==false)&&(Form3->Visible==false)&&(Form4->Visible==false))
{ Form2->Show();Form3->Show();Form4->Show(); } }
//Form2:
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
bool ed1=true;
__fastcall TForm2::TForm2(TComponent* Owner) : TForm(Owner) { }
void __fastcall TForm2::Edit1Click(TObject *Sender)
{ if(ed1==true) { Edit1->Text=""; ed1=false; } }
void __fastcall TForm2::Edit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{ if(Key == VK_RETURN) { BitBtn1Click(Sender); } }
void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{ if(Edit1->Text!="") {
if(Table1->Locate("NAZVA_PRIPARATY",Edit1->Text,TLocateOptions()))
ShowMessage("Знайдено!"); else ShowMessage(" Не знайдено!"); } }
//Form3:
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
bool ed2=true;
__fastcall TForm3::TForm3(TComponent* Owner) : TForm(Owner) { }
void __fastcall TForm3::BitBtn1Click(TObject *Sender)
{ if(Edit1->Text!="") {
if(Table1->Locate("PIB_KLIENTA",Edit1->Text,TLocateOptions()))
ShowMessage("Знайдено!"); else ShowMessage(" Не знайдено!");
} }
void __fastcall TForm3::Edit1Click(TObject *Sender)
{ if(ed2==true) { Edit1->Text=""; ed2=false; } }
void __fastcall TForm3::Edit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{ if(Key == VK_RETURN) { BitBtn1Click(Sender); } }
//Form4:
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
bool ed3=true;
__fastcall TForm4::TForm4(TComponent* Owner) : TForm(Owner) { }
void __fastcall TForm4::BitBtn1Click(TObject *Sender)
{ if(Edit1->Text!="") {
if(Table1->Locate("TERMINOLOGIA",Edit1->Text,TLocateOptions()))
ShowMessage("Знайдено!"); else ShowMessage(" Не знайдено!"); } }
void __fastcall TForm4::Edit1Click(TObject *Sender)
{ if(ed3==true) {
Edit1->Text=""; ed3=false; } }
void __fastcall TForm4::Edit1KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{ if(Key == VK_RETURN) { BitBtn1Click(Sender); } }
Результат роботи:
Висновок. Я навчився створювати зрозумілий інтерфейс системи.