//---------------------------------------------------------------------------
#include <stdio.h>
#include <conio.h>
#include <string.h>
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
void prosm();
void udal();
void copyall();
void vosst();
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N2Click(TObject *Sender)
{
Application->Terminate();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N3Click(TObject *Sender)
{
  Form2->Label1->Visible=true;
  Form2->Label2->Visible=true;
  Form2->Label3->Visible=true;
  Form2->Label4->Visible=true;
  Form2->Label5->Visible=true;
  Form2->Label6->Visible=true;
  Form2->Label7->Visible=true;
  Form2->Label8->Visible=false;
  Form2->Edit1->Visible=true;
  Form2->Edit2->Visible=true;
  Form2->Edit3->Visible=true;
  Form2->Edit4->Visible=true;
  Form2->Edit5->Visible=true;
  Form2->Edit6->Visible=true;
  Form2->Edit7->Visible=true;
  Form2->Edit8->Visible=false;
  Form2->Edit1->Text="";
  Form2->Edit2->Text="";
  Form2->Edit3->Text="";
  Form2->Edit4->Text="";
  Form2->Edit5->Text="";
  Form2->Edit6->Text="";
  Form2->Edit7->Text="";
  Form2->Show();
  Form1->Hide();
  Form2->Tag=1;        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N4Click(TObject *Sender)
{
  FILE *p;
  p=fopen("magazin","rb");
  if (!p)
    {
      MessageDlg("Файл не существует",mtWarning,TMsgDlgButtons()<<mbOK,0);
      Form2->Tag=0;
    }
  else
    {
      fclose(p);
      Form2->Label1->Visible=true;
      Form2->Label2->Visible=true;
      Form2->Label3->Visible=true;
      Form2->Label4->Visible=true;
      Form2->Label5->Visible=true;
      Form2->Label6->Visible=true;
      Form2->Label7->Visible=true;
      Form2->Edit1->Visible=true;
      Form2->Edit2->Visible=true;
      Form2->Edit3->Visible=true;
      Form2->Edit4->Visible=true;
      Form2->Edit5->Visible=true;
      Form2->Edit6->Visible=true;
      Form2->Edit7->Visible=true;
      Form2->Label8->Visible=false;
      Form2->Edit8->Visible=false;
      Form2->Edit1->Text="";
      Form2->Edit2->Text="";
      Form2->Edit3->Text="";
      Form2->Edit4->Text="";
      Form2->Edit5->Text="";
      Form2->Edit6->Text="";
      Form2->Edit7->Text="";
      Form2->Edit8->Text="";
      Form2->Show();
      Form1->Hide();
      Form2->Tag=2;
      Form1->StringGrid1->Visible=false;
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N5Click(TObject *Sender)
{
  FILE *p;
  p=fopen("magazin","rb");
  if (!p)
    {
      MessageDlg("Файл не существует",mtWarning,TMsgDlgButtons()<<mbOK,0);
      Form2->Tag=0;
    }
  else
    {
      fclose(p);
      Form2->Label1->Visible=true;
      Form2->Label2->Visible=true;
      Form2->Label3->Visible=true;
      Form2->Label4->Visible=true;
      Form2->Label5->Visible=true;
      Form2->Label6->Visible=true;
      Form2->Label7->Visible=true;
      Form2->Edit1->Visible=true;
      Form2->Edit2->Visible=true;
      Form2->Edit3->Visible=true;
      Form2->Edit4->Visible=true;
      Form2->Edit5->Visible=true;
      Form2->Edit6->Visible=true;
      Form2->Edit7->Visible=true;
      Form2->Label8->Visible=true;
      Form2->Label8->Caption="Введите номер записи";
      Form2->Edit8->Visible=true;
      Form2->Edit8->Text="";
      Form2->Show();
      Form1->Hide();
      Form2->Tag=3;
      Form1->StringGrid1->Visible=false;
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N6Click(TObject *Sender)
{
  FILE *p;
  p=fopen("magazin","rb");
  if (!p)
    {
      MessageDlg("Файл не существует",mtWarning,TMsgDlgButtons()<<mbOK,0);
      Form2->Tag=0;
    }
  else
    {
      fclose(p);
      prosm();
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N7Click(TObject *Sender)
{
  FILE *p;
  p=fopen("magazin","rb");
  if (!p)
    {
      MessageDlg("Файл не существует",mtWarning,TMsgDlgButtons()<<mbOK,0);
      Form2->Tag=0;
    }
  else
    {
      fclose(p);
      Form2->Label1->Visible=false;
      Form2->Label2->Visible=false;
      Form2->Label3->Visible=false;
      Form2->Label4->Visible=false;
      Form2->Label5->Visible=false;
      Form2->Label6->Visible=false;
      Form2->Label7->Visible=false;
      Form2->Edit1->Visible=false;
      Form2->Edit2->Visible=false;
      Form2->Edit3->Visible=false;
      Form2->Edit4->Visible=false;
      Form2->Edit5->Visible=false;
      Form2->Edit6->Visible=false;
      Form2->Edit7->Visible=false;
      Form2->Label8->Visible=true;
      Form2->Label8->Caption="Введите номер записи";
      Form2->Edit8->Visible=true;
      Form2->Edit8->Text="";
      Form2->Show();
      Form1->Hide();
      Form2->Tag=4;
      Form1->StringGrid1->Visible=false;
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N8Click(TObject *Sender)
{
  FILE *p;
  p=fopen("magazin","rb");
  if (!p)
    {
      MessageDlg("Файл не существует",mtWarning,TMsgDlgButtons()<<mbOK,0);
      Form2->Tag=0;
    }
  else
    {
      fclose(p);
      Form2->Label1->Visible=false;
      Form2->Label2->Visible=false;
      Form2->Label3->Visible=false;
      Form2->Label4->Visible=false;
      Form2->Label5->Visible=false;
      Form2->Label6->Visible=false;
      Form2->Label7->Visible=false;
      Form2->Edit1->Visible=false;
      Form2->Edit2->Visible=false;
      Form2->Edit3->Visible=false;
      Form2->Edit4->Visible=false;
      Form2->Edit5->Visible=false;
      Form2->Edit6->Visible=false;
      Form2->Edit7->Visible=false;
      Form2->Label8->Visible=true;
      Form2->Label8->Caption="Введите срок годности";
      Form2->Edit8->Text="";
      Form2->Edit8->Visible=true;
      Form2->Show();
      Form1->Hide();
      Form2->Tag=5;
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N9Click(TObject *Sender)
{
  FILE *p;
  p=fopen("magazin","rb");
  if (!p)
    {
      MessageDlg("Файл не существует",mtWarning,TMsgDlgButtons()<<mbOK,0);
      Form2->Tag=0;
    }
  else
    {
      fclose(p);
      Form2->Label1->Visible=false;
      Form2->Label2->Visible=false;
      Form2->Label3->Visible=false;
      Form2->Label4->Visible=false;
      Form2->Label5->Visible=false;
      Form2->Label6->Visible=false;
      Form2->Label7->Visible=false;
      Form2->Edit1->Visible=false;
      Form2->Edit2->Visible=false;
      Form2->Edit3->Visible=false;
      Form2->Edit4->Visible=false;
      Form2->Edit5->Visible=false;
      Form2->Edit6->Visible=false;
      Form2->Edit7->Visible=false;
      Form2->Label8->Visible=true;
      Form2->Label8->Caption="Введите цену";
      Form2->Edit8->Text="";
      Form2->Edit8->Visible=true;
      Form2->Show();
      Form1->Hide();
      Form2->Tag=6;
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N10Click(TObject *Sender)
{
  FILE *p;
  p=fopen("magazin","rb");
  if (!p)
    {
      MessageDlg("Файл не существует",mtWarning,TMsgDlgButtons()<<mbOK,0);
     Form2->Tag=0;
    }
  else
    {
      fclose(p);
      Form2->Label1->Visible=false;
      Form2->Label2->Visible=false;
      Form2->Label3->Visible=false;
      Form2->Label4->Visible=false;
      Form2->Label5->Visible=false;
      Form2->Label6->Visible=false;
      Form2->Label7->Visible=false;
      Form2->Edit1->Visible=false;
      Form2->Edit2->Visible=false;
      Form2->Edit3->Visible=false;
      Form2->Edit4->Visible=false;
      Form2->Edit5->Visible=false;
      Form2->Edit6->Visible=false;
      Form2->Edit7->Visible=false;
      Form2->Label8->Visible=true;
      Form2->Label8->Caption="Введите производителя";
      Form2->Edit8->Text="";
      Form2->Edit8->Visible=true;
      Form2->Show();
      Form1->Hide();
      Form2->Tag=7;
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N11Click(TObject *Sender)
{
  FILE *p;
  p=fopen("magazin","rb");
  if (!p)
    {
      MessageDlg("Файл не существует",mtWarning,TMsgDlgButtons()<<mbOK,0);
      Form2->Tag=0;
    }
  else
    {
      fclose(p);
      udal();
    }
  Form1->StringGrid1->Visible=false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N12Click(TObject *Sender)
{
  FILE *p;
  p=fopen("magazin","rb");
  if (!p)
    {
      MessageDlg("Файл не существует",mtWarning,TMsgDlgButtons()<<mbOK,0);
      Form2->Tag=0;
    }
  else
    {
      fclose(p);
      copyall();
    }
  Form1->StringGrid1->Visible=false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N13Click(TObject *Sender)
{
  FILE *p;
  p=fopen("copymagazin","rb");
  if (!p)
    {
      MessageDlg("Резервный файл не существует",mtWarning,TMsgDlgButtons()<<mbOK,0);
      Form2->Tag=0;
    }
  else
    {
      fclose(p);
      vosst();
    }
  Form1->StringGrid1->Visible=false;
}
//---------------------------------------------------------------------------