Программалау технологиясы

{ 
} 
// «КЕЙІН» батырмасының оқиға ӛңдеуші коды 
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; 
//--------------------------------------------------------------------------- 

void __fastcall
TForm3::TForm3(TComponent* Owner) 
: TForm(Owner) 
{ 
} 
// Оқытушылар тізімі жазылған ComboBox1 компоненті оқиғасының коды 

жүктеу/скачать 2,48 Mb.

Достарыңызбен бөлісу: