Лабы / Тельминов / набор_2 / LABA2 / laba2 / SHOP / Shop

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Shop.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{

}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
otdel=((TRadioButton*)Sender)->Caption;
if (!flag){
Form1->Enabled=false;
Form2->Caption=otdel;
Form2->Enabled=true;
Form2->Visible=true;}
else { Memo1->Visible=true;
Memo1->Lines->LoadFromFile("a:\\Textinf\\"+otdel+".txt");}

}
//---------------------------------------------------------------------------
void __fastcall  TForm1::Panel1Click(TObject *Sender)
{
if (MessageDlg("Продолжить?",mtConfirmation,TMsgDlgButtons() <<mbOK<<mbCancel,0)==mrCancel) {Panel1->Caption="Name за покупку!" ;
Close();}

}
//---------------------------------------------------------------------------
void __fastcall  TForm1::Button1Click(TObject *Sender)
{

Memo1->Lines->Add("------------------------------------Счёт-------------------------");
Memo1->Lines->Add(IntToStr(total)+" руб.");
Memo1->Visible=true;
}
//---------------------------------------------------------------------------
//-----------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
RadioButton1->Checked=false;
RadioButton2->Checked=false;
RadioButton3->Checked=false;
if (!flag){
    flag=1;
    Button2->Caption="Завершть?";
    Memo1->Enabled=true;}

  else  {flag=0;Button2->Visible=false;Edit1->Text="";
    Button2->Caption="Редактировать?";
    Button1->Visible=true;
    Button3->Visible=false;
    Memo1->Lines->Clear();
    Memo1->Visible=false;
    Memo1->Enabled=false;}
 }
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
if (Edit1->Text=="Admin") {Button2->Visible=true;
Button1->Visible=false;
Button3->Visible=true;}

}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (MessageDlg("Вы уверены?",mtConfirmation,TMsgDlgButtons() <<mbOK<<mbNo,0)==mrOk)
Memo1->Lines->SaveToFile("a:\\Textinf\\"+otdel+".txt");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Memo1->Lines->Add("------------------------------------Ваш_чек------------------");
}
//---------------------------------------------------------------------------