__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
// «КЕЙІН» батырмасының оқиға өңдеуші коды
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Form1->Show();
Form3->Hide();
Form2->Hide();
}
// Студенттер тізімі жазылған ListBox1 компонентін шерту оқиғасының коды
void __fastcall TForm2::ListBox1Click(TObject *Sender)
{
if (Form2->ListBox1->ItemIndex==0) M
Memo1->Lines->LoadFromFile("Жаркынбек.txt");
(Form2->ListBox1->ItemIndex==1)
Memo1->Lines->LoadFromFile("Жумагазы.txt");
if (Form2->ListBox1->ItemIndex==2)
Memo1->Lines->LoadFromFile("Имангалиева.txt");
}
«Оқытушылар» терезесі (Form3) үшін жазылған программа мәтіні:
#include "Unit3.h"
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
Достарыңызбен бөлісу: |
