Добавил:
korayakov
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабы / ООП.Builder / Лабы / laba2 / SHOP / Shop
.cpp//---------------------------------------------------------------------------
#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("------------------------------------Ваш_чек------------------");
}
//---------------------------------------------------------------------------
Соседние файлы в папке SHOP