Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
12
Добавлен:
17.04.2013
Размер:
4.03 Кб
Скачать
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"

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

TForm1 *Form1;
String j,t;
bool s;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm1::EXIT1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
Form2->Panel1->Caption="1 ОТДЕЛ";
Form2->Visible=true;
Form2->ComboBox1->Text="";
Form2->Edit1->Text="";
t="D:\\Program files\\Borland\\Cbuilder5\\goods\\audio.txt";
Form2->ComboBox1->Items->LoadFromFile(t);
j=Form2->Edit1->Text;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
Memo1->Visible=true;
Image1->Visible=false;
if (s==false) {
Memo1->Lines->Add("    ********************ВАШ СЧЕТ******************");
s=true;}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
Form2->Panel1->Caption="2 ОТДЕЛ";
Form2->Visible=true;
Form2->ComboBox1->Text="";
 t="D:\\Program files\\Borland\\Cbuilder5\\goods\\TEA's.txt";
Form2->ComboBox1->Items->LoadFromFile(t);
j=Form2->Edit1->Text;
if (RadioButton2->Checked==true) if (!(j==""))
Memo1->Lines->Add("2 ОТДЕЛ");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton3Click(TObject *Sender)
{
Form2->Panel1->Caption="3 ОТДЕЛ";
Form2->Visible=true;
Form2->ComboBox1->Text="";
 t="D:\\Program files\\Borland\\Cbuilder5\\goods\\tvsets.txt";
Form2->ComboBox1->Items->LoadFromFile(t);
j=Form2->Edit1->Text;
if (RadioButton3->Checked==true) if (!(j==""))
Memo1->Lines->Add("3 ОТДЕЛ");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N11Click(TObject *Sender)
{
Image1->Visible=false;
t="D:\\Program files\\Borland\\Cbuilder5\\goods\\AUDIO.txt";
Memo1->Lines->LoadFromFile(t);
Memo1->Visible=true;
BitBtn2->Visible=true;
BitBtn1->Visible=false;
BitBtn3->Visible=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N21Click(TObject *Sender)
{
Image1->Visible=false;
 t="D:\\Program files\\Borland\\Cbuilder5\\goods\\tea's.txt";
Memo1->Lines->LoadFromFile(t);
Memo1->Visible=true;
BitBtn2->Visible=true;
BitBtn1->Visible=false;
BitBtn3->Visible=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N31Click(TObject *Sender)
{
Image1->Visible=false;
 t="D:\\Program files\\Borland\\Cbuilder5\\goods\\tvsets.txt";
Memo1->Lines->LoadFromFile(t);
Memo1->Visible=true;
BitBtn2->Visible=true;
BitBtn1->Visible=false;
BitBtn3->Visible=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
Image1->Visible=true;
BitBtn1->Visible=true;
BitBtn3->Visible=false;
BitBtn2->Visible=false;
Memo1->Lines->Clear();
Memo1->Visible=false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
Image1->Visible=true;
if (MainMenu1->Items=="1 ОТДЕЛ")
t="D:\\Program files\\Borland\\Cbuilder5\\goods\\AUDIO.txt";
Memo1->Lines->SaveToFile(t);
BitBtn1->Visible=true;
BitBtn3->Visible=false;
BitBtn2->Visible=false;
Memo1->Lines->Clear();
Memo1->Visible=false;
}
//---------------------------------------------------------------------------



Соседние файлы в папке GOODS
  • #
    17.04.201315.89 Кб11Project2.obj
  • #
    17.04.2013876 б11Project2.res
  • #
    17.04.20132.16 Mб11Project2.tds
  • #
    17.04.201377 б11TEA's.txt
  • #
    17.04.201348 б11TVSETS.TXT
  • #
    17.04.20134.03 Кб12Unit1.cpp
  • #
    17.04.2013104.23 Кб11Unit1.dfm
  • #
    17.04.20131.87 Кб12Unit1.h
  • #
    17.04.20134.03 Кб11Unit1.~cpp
  • #
    17.04.2013104.23 Кб11Unit1.~dfm
  • #
    17.04.20131.87 Кб11Unit1.~h