Висновки
Програмний продукт розроблений в ході виконання курсового проекту,дозволяє легко працювати фармацевту з продажем лікарських рослин.
Для реалізації була обрана універсальна мова програмування високого рівня C++, так як вона найбільш підходить для написання складних програм. Надійність
даного проекту забезпечується використанням об'єктно-орієнтованого програмування.
В результаті курсового проекту була розроблена програма, яка дозволяє працювати з лікарськими рослинами. З рослинами користувач може виконувати такі дії: додавання, пошук,видалення,перегляд та створення лікарського засобу.
Також були передбачена виняткова ситуація така як перевірка коректності введення даних.
При розробці програмного продукту були виконані всі завдання, які підлягали розгляду при вивченні предметної області та на етапі проектування. Був проведений повний аналіз існуючих аналогів програмних продуктів, тому можна вважати, що створений програмний продукт максимально повний та повністю відповідає технічному завданню.
Перелік джерел
Г. Буч “Объектно-ориентированный анализ и проектирование с примерами приложений на С++” Пер. с англ. – М.: Бином; СПб.: Невский диалект, 1999.
Э. Ишкова “C++ начала программирования” – М.: Бином, 2001.
С. С. Гайсарян “Объектно-ориентированное проектирование”
М. Плискин “Эволюция языков программирования”
Патрикеев Ю. Н. “Объектно-ориентированное проектирование”
Патрикеев Ю. Н. “Объектно-ориентированное программирование на C++”
Додатки
ДОДАТОК А
Файл Roslyny.h:
#ifndef Roslyny1H
#define Roslyny1H
#include <Classes.hpp>
class Roslyny
{
protected:
AnsiString Nazva;
AnsiString Rid;
AnsiString Kraina;
int Type;
public:
AnsiString getNazva();
AnsiString getRid();
AnsiString getKraina();
void setNazva(AnsiString a);
void setRid(AnsiString a);
void setKraina(AnsiString a);
void Add(AnsiString name_file);
};
class Likarski_roslyny:public Roslyny
{
AnsiString Lik_forma;
AnsiString Pokazannia;
double Tsina;
public:
AnsiString getLik_forma();
AnsiString getPokazannia();
double getTsina();
void setLik_forma(AnsiString b);
void setPokazannia(AnsiString b);
void setTsina(double b);
void Add(AnsiString name_file);
};
class Sumishi
{AnsiString Nazva;
Likarski_roslyny Pokazannia[100];
int Kilkist;
Likarski_roslyny Sklad[100];
float Proportsiy[100];
double Vartist;
public:
AnsiString getNazva();
Likarski_roslyny* getPokazannia();
int getKilkist();
Likarski_roslyny* getSklad();
float* getProportsiy();
void setNazva(AnsiString b);
void setPokazannia(Likarski_roslyny* b);
void setKilkist(int b);
void setSklad(Likarski_roslyny* b);
void setProportsiy(float* b);
double CalcVartist();
};
class Table
{
AnsiString Name_file;
public:
int Print(Likarski_roslyny* A);
void Delete(AnsiString x);
int Search_product(AnsiString x,Likarski_roslyny* A);
AnsiString getName_file();
void setName_file(AnsiString a);
};
#endif
ДОДАТОК Б
Файл Roslyny.cpp:
#include "Roslyny.h"
#include <fstream.h>
AnsiString Convert(AnsiString number)
{
int n=number.Length();
for (int i=1;i<=n;i++) if (number[i]=='.') number[i]=',';
return number;
}
AnsiString Roslyny::getNazva(){return Nazva;};
AnsiString Roslyny::getRid(){return Rid;};
AnsiString Roslyny::getKraina(){return Kraina;};
void Roslyny::setNazva(AnsiString a){Nazva=a;};
void Roslyny::setRid(AnsiString a){Rid=a;};
void Roslyny::setKraina(AnsiString a){Kraina=a;};
void Roslyny::Add(AnsiString name_file)
{
ofstream f;
f.open(name_file.c_str(),ios::app);
f<<Nazva.c_str();
f<<endl<<Rid.c_str();
f<<endl<<Kraina.c_str();
f.close();
};
AnsiString Likarski_roslyny::getLik_forma(){return Lik_forma;};
AnsiString Likarski_roslyny::getPokazannia(){return Pokazannia;};
double Likarski_roslyny::getTsina(){return Tsina;};
void Likarski_roslyny::setLik_forma(AnsiString b){Lik_forma=b;};
void Likarski_roslyny::setPokazannia(AnsiString b){Pokazannia=b;};
void Likarski_roslyny::setTsina(double b){Tsina=b;}
void Likarski_roslyny::Add(AnsiString name_file)
{
ofstream f;
f.open(name_file.c_str(),ios::app);
f<<endl<<Nazva.c_str();
f<<endl<<Rid.c_str();
f<<endl<<Kraina.c_str();
f<<endl<<Lik_forma.c_str();
f<<endl<<Pokazannia.c_str();
f<<endl<<Tsina;
f.close();
};
AnsiString Sumishi::getNazva(){return Nazva;};
void Sumishi::setNazva(AnsiString b){Nazva=b;};
Likarski_roslyny* Sumishi::getPokazannia(){return Pokazannia;};
void Sumishi::setPokazannia(Likarski_roslyny *b)
{for(int i=0;i<Kilkist;i++)Pokazannia[i]=b[i];};
int Sumishi::getKilkist(){return Kilkist;};
void Sumishi::setKilkist(int b){Kilkist=b;};
Likarski_roslyny* Sumishi::getSklad(){return Sklad;};
void Sumishi::setSklad(Likarski_roslyny *b)
{ for(int i=0;i<Kilkist;i++)Sklad[i]=b[i];};
float* Sumishi::getProportsiy(){return Proportsiy;};
void Sumishi::setProportsiy(float *b)
{for(int i=0;i<Kilkist;i++)Proportsiy[i]=b[i];};
double Sumishi::CalcVartist()
{
float s=0;
for (int i=0;i<getKilkist();i++)
{ s+=Sklad[i].getTsina()*Proportsiy[i];}
return s;
};
int Table::Print(Likarski_roslyny* A)
{
ifstream f;
f.open(getName_file().c_str(),ios::in);
int k;
AnsiString nazva,rid,kraina,lik_forma,pokazannia,type;
float tsina,kilkist;
char buff[150];
k=0;
while (!f.eof())
{
f.getline(buff,sizeof(buff));
if (buff[0]!='\0')
nazva=AnsiString(buff);
else
{f.getline(buff,sizeof(buff));
nazva=AnsiString(buff);}
f.getline(buff,sizeof(buff));
rid=AnsiString(buff);
f.getline(buff,sizeof(buff));
kraina=AnsiString(buff);
f.getline(buff,sizeof(buff));
lik_forma=AnsiString(buff);
f.getline(buff,sizeof(buff));
pokazannia=AnsiString(buff);
f.getline(buff,sizeof(buff));
tsina=AnsiString(Convert(buff)).ToDouble();
A[k].setNazva(nazva);
A[k].setRid(rid);
A[k].setKraina(kraina);
A[k].setLik_forma(lik_forma);
A[k].setPokazannia(pokazannia);
A[k].setTsina(tsina);
k++;
}
f.close();
return k;
};
void Table::Delete(AnsiString x)
{
ifstream f;
f.open(getName_file().c_str(),ios::in);
int k=0;
AnsiString nazva,rid,kraina,lik_forma,pokazannia,type;
float tsina,kilkist;
char buff[128];
Likarski_roslyny A[100];
while (!f.eof())
{
f.getline(buff,sizeof(buff));
if (buff[0]!='\0')
nazva=AnsiString(buff);
else
{f.getline(buff,sizeof(buff));
nazva=AnsiString(buff);}
f.getline(buff,sizeof(buff));
rid=AnsiString(buff);
f.getline(buff,sizeof(buff));
kraina=AnsiString(buff);
f.getline(buff,sizeof(buff));
lik_forma=AnsiString(buff);
f.getline(buff,sizeof(buff));
pokazannia=AnsiString(buff);
f.getline(buff,sizeof(buff));
tsina=AnsiString(Convert(buff)).ToDouble();
if (nazva!=x)
{
A[k].setNazva(nazva);
A[k].setRid(rid);
A[k].setKraina(kraina);
A[k].setLik_forma(lik_forma);
A[k].setPokazannia(pokazannia);
A[k].setTsina(tsina);
k++;
}
}
f.close();
ofstream f1;
f1.open(getName_file().c_str(),ios::out);
f1.seekp(0);
for (int i=0;i<k;i++) A[i].Add(getName_file());
//return k;
};
void Table::setName_file(AnsiString a){Name_file=a;};
AnsiString Table::getName_file(){return Name_file;};
int Table::Search_product(AnsiString x,Likarski_roslyny *A)
{
ifstream f;
f.open(getName_file().c_str(),ios::in);
int k;
AnsiString nazva,rid,kraina,lik_forma,pokazannia,type;
float tsina,kilkist;
char buff[150];
k=0;
while (!f.eof())
{
f.getline(buff,sizeof(buff));
if (buff[0]!='\0')
nazva=AnsiString(buff);
else
{f.getline(buff,sizeof(buff));
nazva=AnsiString(buff);}
f.getline(buff,sizeof(buff));
rid=AnsiString(buff);
f.getline(buff,sizeof(buff));
kraina=AnsiString(buff);
f.getline(buff,sizeof(buff));
lik_forma=AnsiString(buff);
f.getline(buff,sizeof(buff));
pokazannia=AnsiString(buff);
f.getline(buff,sizeof(buff));
tsina=AnsiString(Convert(buff)).ToDouble();
if (nazva==x)
{ A[k].setNazva(nazva);
A[k].setRid(rid);
A[k].setKraina(kraina);
A[k].setLik_forma(lik_forma);
A[k].setPokazannia(pokazannia);
A[k].setTsina(tsina);
k++;
}
}
f.close();
return k;
};
ДОДАТОК В
Файл Project.cpp:
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
USEFORM("Unit2.cpp", Form2);
USEFORM("Unit3.cpp", Form3);
USEFORM("Unit4.cpp", Form4);
USEFORM("Unit5.cpp", Form5);
USEFORM("Unit7.cpp", Form7);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->CreateForm(__classid(TForm2), &Form2);
Application->CreateForm(__classid(TForm3), &Form3);
Application->CreateForm(__classid(TForm4), &Form4);
Application->CreateForm(__classid(TForm5), &Form5);
Application->CreateForm(__classid(TForm7), &Form7);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------
ДОДАТОК Г
Файл Unit1.h:
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "Roslyny.cpp"
#include <Menus.hpp>
#include <ExtCtrls.hpp>
#include <jpeg.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TMainMenu *MainMenu1;
TMenuItem *N1;
TMenuItem *N2;
TMenuItem *N3;
TMenuItem *N4;
TMenuItem *N5;
TMenuItem *N6;
TMenuItem *N7;
TImage *Image1;
void __fastcall N3Click(TObject *Sender);
void __fastcall N4Click(TObject *Sender);
void __fastcall N5Click(TObject *Sender);
void __fastcall N6Click(TObject *Sender);
void __fastcall N7Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
Likarski_roslyny a;
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
ДОДАТОК Д
Файл Unit1.cpp:
#include "Unit5.h"
#include "Unit7.h"
#include <fstream.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)
{
Form2->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
Form5->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N5Click(TObject *Sender)
{
Form4->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N6Click(TObject *Sender)
{
Form3->Show();
}
void __fastcall TForm1::N7Click(TObject *Sender)
{
Form7->Show();
}
//---------------------------------------------------------------------------
ДОДАТОК Е
Файл Unit2.h:
#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm2 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
TEdit *edNazva;
TEdit *edRid;
TEdit *edKraina;
TLabel *Label1;
TLabel *Label2;
TLabel *Label3;
TEdit *edLik_forma;
TEdit *edPokazannia;
TEdit *edTsina;
TLabel *Label4;
TLabel *Label5;
TLabel *Label6;
TButton *Button2;
void __fastcall Button1Click(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm2(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm2 *Form2;
//---------------------------------------------------------------------------
#endif
ДОДАТОК Є
Файл Unit2.cpp:
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h"
#include "Unit4.h"
#include "Roslyny.cpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
if (edNazva->Text=="")Application->MessageBox("Введіть назву рослини","!!!");
if (edRid->Text=="")Application->MessageBox("Введіть рід рослини","!!!");
if (edKraina->Text=="")Application->MessageBox("Введіть країну походження рослини","!!!");
if (edLik_forma->Text=="")Application->MessageBox("Введіть лікарську форму рослини","!!!");
if (edPokazannia->Text=="")Application->MessageBox("Введіть показання рослини","!!!");
if (edTsina->Text=="")Application->MessageBox("Введіть ціну рослини","!!!");
Likarski_roslyny b;
b.setNazva(edNazva->Text);
b.setRid(edRid->Text);
b.setKraina(edKraina->Text);
b.setLik_forma(edLik_forma->Text);
b.setPokazannia(edPokazannia->Text);
b.setTsina(edTsina->Text.ToDouble());
b.Add("baza.txt");
Form2->Visible=false;
Form4->Visible=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormShow(TObject *Sender)
{
edNazva->Text="";
edRid->Text="";
edKraina->Text="";
edLik_forma->Text="";
edPokazannia->Text="";
edTsina->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
edNazva->Text="";
edRid->Text="";
edKraina->Text="";
edLik_forma->Text="";
edPokazannia->Text="";
edTsina->Text="";
}
//---------------------------------------------------------------------------
ДОДАТОК Ж
Файл Unit3.h:
#ifndef Unit3H
#define Unit3H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm3 : public TForm
{
__published: // IDE-managed Components
TEdit *edNazva;
TButton *Button1;
TMemo *Memo1;
void __fastcall Button1Click(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm3(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm3 *Form3;
//---------------------------------------------------------------------------
#endif
Файл Unit3.cpp:
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
#include "Roslyny.cpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
Table file;
Likarski_roslyny A[100];
file.setName_file("baza.txt");
int k;
k=file.Search_product(edNazva->Text,A);
Memo1->Clear();
if (k>0)
{ AnsiString temp,temp2,temp3,temp4,temp5;
for (int i=0;i<k;i++)
{
temp="Назва: "+A[i].getNazva()+".";
temp2="Лікарська форма: "+AnsiString(A[i].getLik_forma())+".";
temp3="Показання: "+AnsiString(A[i].getPokazannia());
temp4="Ціна: "+AnsiString(A[i].getTsina())+"грн. за 1 грам";
temp5="________________________";
Memo1->Lines->Add(temp);
Memo1->Lines->Add(temp2);
Memo1->Lines->Add(temp3);
Memo1->Lines->Add(temp4);
Memo1->Lines->Add(temp5);
}
}
else Memo1->Lines->Add("Рослина не знайдена!!!");
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormShow(TObject *Sender)
{
edNazva->Text="";
Memo1->Clear();
}
//---------------------------------------------------------------------------
ДОДАТОК З
Файл Unit4.h:
#ifndef Unit4H
#define Unit4H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class TForm4 : public TForm
{
__published: // IDE-managed Components
TStringGrid *StringGrid1;
TLabel *Label1;
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm4(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm4 *Form4;
//---------------------------------------------------------------------------
#endif
Файл Unit4.cpp:
#include <vcl.h>
#pragma hdrstop
#include "Unit4.h"
#include "Roslyny.cpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::FormShow(TObject *Sender)
{
Table file;
file.setName_file("baza.txt");
Likarski_roslyny mas[100];
int i,j;
for (i=0;i<StringGrid1->RowCount;i++)
for (j=0;j<StringGrid1->ColCount;j++) StringGrid1->Cells[i][j]="";
int n=file.Print(mas);
StringGrid1->RowCount=2;
StringGrid1->Cells[0][0]="назва";
StringGrid1->Cells[1][0]="рід";
StringGrid1->Cells[2][0]="країна";
StringGrid1->Cells[3][0]="лікарська_форма";
StringGrid1->Cells[4][0]="показання";
StringGrid1->Cells[5][0]="ціна";
for (i=0;i<n;i++)
{
StringGrid1->RowCount++;
StringGrid1->Cells[0][i+1]=mas[i].getNazva();
StringGrid1->Cells[1][i+1]=mas[i].getRid();
StringGrid1->Cells[2][i+1]=mas[i].getKraina();
StringGrid1->Cells[3][i+1]=mas[i].getLik_forma();
StringGrid1->Cells[4][i+1]=mas[i].getPokazannia();
StringGrid1->Cells[5][i+1]=mas[i].getTsina();
}
}
//---------------------------------------------------------------------------
ДОДАТОК И
Файл Unit5.h:
#ifndef Unit5H
#define Unit5H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm5 : public TForm
{
__published: // IDE-managed Components
TEdit *edNazva;
TButton *Button1;
void __fastcall Button1Click(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall edNazvaKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TForm5(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm5 *Form5;
//---------------------------------------------------------------------------
#endif
ДОДАТОК І
Файл Unit5.cpp:
#include <vcl.h>
#pragma hdrstop
#include "Unit5.h"
#include "Unit4.h"
#include "Roslyny.cpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button1Click(TObject *Sender)
{
Table file;
file.setName_file("Baza.txt");
file.Delete(edNazva->Text);
Close();
Form5->Visible=false;
Form4->Visible=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm5::FormShow(TObject *Sender)
{
edNazva->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TForm5::edNazvaKeyPress(TObject *Sender, char &Key)
{
if (Key=='\r') Button1->SetFocus();
}
//---------------------------------------------------------------------------
ДОДАТОК Ї
Файл Unit7.h:
#ifndef Unit7H
#define Unit7H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm7 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
TEdit *Edit1;
TEdit *Edit2;
TButton *Button2;
TLabel *Label1;
TEdit *Edit3;
TLabel *Label2;
TButton *Button3;
TListBox *ListBox1;
TListBox *ListBox2;
TLabel *Label3;
TLabel *Label4;
TMemo *Memo1;
void __fastcall Button1Click(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
void __fastcall Button3Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm7(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm7 *Form7;
//---------------------------------------------------------------------------
#endif
ДОДАТОК К
Файл Unit7.cpp:
#include <vcl.h>
#pragma hdrstop
#include "Unit7.h"
#include "Roslyny.cpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm7 *Form7;
Sumishi a;
Likarski_roslyny mas_prod[100];
Likarski_roslyny mas_ingr[100];
float mas_prop[100];
int k;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button1Click(TObject *Sender)
{
for (int i=0;i<ListBox1->Items->Count;i++)
if (ListBox1->Selected[i])
{
if (Edit1->Text=="")Application->MessageBox("Введіть кількість рослини","!!!");
else
{
ListBox2->Items->Add(ListBox1->Items->Strings[i]+" ("+Edit1->Text+" грам)");
mas_ingr[k]=mas_prod[i];
mas_prop[k]=Edit1->Text.ToDouble();
k++;}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm7::FormShow(TObject *Sender)
{
Table file;
k=0;
file.setName_file("Baza.txt");
int n=file.Print(mas_prod);
ListBox1->Items->Clear();
for (int i=0;i<n;i++)
{
AnsiString temp;
temp=mas_prod[i].getNazva()+" показання "+ AnsiString(mas_prod[i].getPokazannia())+ " цiна "+AnsiString(mas_prod[i].getTsina())+" за 1 грам.";
ListBox1->Items->Add(temp);
}
ListBox2->Items->Clear();
Edit1->Text="";
Edit2->Text="";
Edit3->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button2Click(TObject *Sender)
{
a.setKilkist(k);
a.setSklad(mas_ingr);
a.setProportsiy(mas_prop);
a.setNazva(Edit3->Text);
Edit2->Text=AnsiString(a.CalcVartist());
Memo1->Clear();
for (int i=0;i<a.getKilkist();i++)
Memo1->Lines->Add(mas_ingr[i].getPokazannia());
Label3->Caption="Показання для "+ AnsiString(Edit3->Text)+":";
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button3Click(TObject *Sender)
{
ListBox2->Items->Clear();
Edit1->Text="";
Edit2->Text="";
Edit3->Text="";
Label3->Caption="Показання для лікарського засобу:";
Memo1->Clear();
}
//---------------------------------------------------------------------------