2 Практикалық бөлім

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

бет	7/10
Дата	08.02.2022
өлшемі	2,37 Mb.
	#98824

1 2 3 4 5 6 7 8 9 10

Байланысты:
Қызметкерлердің жұмыс орнын құру

Form1 программа бетіне орналастырамыз. Сурет 2.2 Form1 программа бетіне Image компонентінің орналасуы Сурет 2.3 Image компонентінің

2 Практикалық бөлім

2.1 Borland C++ Builder ортасында бағдарламаны жасау мүмкіндіктері

Жоба есебінің қойылымы Borland C++ Builder бағдарламасын пайдаланып, «Қызметкерлердің жұмыс орнын құру» мәліметтер қорын құру. Бұл бағдарламаға Label, Button, Image, Edit, СomboBox, BitBtn, Bevel, DB Grid, DB ComboBox, DB Edit, PrintDialog, DBNavigator компоненттері қолданылады. Бағдарлама мекеме қызметкерлерінің туралы мәлімет шығаруды қамтамасыз етуі тиіс.

Сурет 2.1 Бағдарламаның басты бетінің үлгісі

Borland C++ Builder бағдарламасын қолдану арқылы «Қызметкерлердің жұмыс орнын құру» мәліметтер қорын құру программасы құрылады. Программа құру тәртібі былайша жүргізіледі: берілген формаға Images компонентін қолданбас бұрын PhotoShop программасымен жасалған «Қызметкерлердің жұмыс орнын құру» мәліметтер қорының басты бетінің дизайн салынады.
1. Image компоненті алып, Form1 программа бетіне орналастырамыз.

Сурет 2.2 Form1 программа бетіне Image компонентінің орналасуы

Сурет 2.3 Image компонентінің баптауларының орындалу кезіндегі көрінісі

2. Form2 программа бетіне Button, ComboBox, DB Grid, Edit, Label, Data Source, ADO Table, ADO Connection, ADO Query, PrintDialog, DBNavigator компоненттер орналастырылады.

Сурет 2.4 Мекеме қызметкерлері туралы мәлімет

Сурет 2.5 Edit1 компонентінің баптауларының орындалу кезіндегі көрінісі

Events баптауының OnChange бөліміне келесі кодты енгіземіз:
void __fastcall TForm2::ComboBox1Change(TObject *Sender)
{
DataSource1->DataSet = ADOQuery1;
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
if(ComboBox1->ItemIndex == 0)
ADOQuery1->SQL->Add("Select * from Base");
else
ADOQuery1->SQL->Add("Select * from Base WHERE [Мамандыгы] LIKE '%"+ComboBox1->Text+"%'");
ADOQuery1->Open();
}

Events баптауының OnChange бөліміне келесі кодты енгіземіз:
void __fastcall TForm2::Edit1Change(TObject *Sender)
{
DataSource1->DataSet = ADOQuery1;
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Select * from Base WHERE [Аты-жоні] LIKE '%"+Edit1->Text+"%'");
ADOQuery1->Open();
}

Events баптауының OnChange бөліміне келесі кодты енгіземіз:
void __fastcall TForm2::Edit2Change(TObject *Sender)
{
DataSource1->DataSet = ADOQuery1;
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Select * from Base WHERE [Стаж] LIKE '%"+Edit1->Text+"%'");
ADOQuery1->Open();
}

Events баптауының OnClick бөліміне келесі кодты енгіземіз:
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->Show();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{
Form3->Show();
Form1->Hide();
}

Автор туралы мәлімет шығару үшін Form3 жаңа формасы қосылады. Бұл бетте қолданылатын компонент-Label,TButton

Сурет 2.6 Автор туралы мағлұматтың көрінісі

Events баптауының OnClick бөліміне келесі кодты енгіземіз:
void __fastcall TForm3::Button1Click(TObject *Sender)
{
Form1->Show();
Form3->Hide();
}

Форманы принтерге шығару үшін Form2-ге TButton компонентің қостым. Events баптауының OnClick бөліміне келесі кодты енгіземіз:
void __fastcall TForm2::Button2Click(TObject *Sender)
{
if (PrintDialog1->Execute())
{ TRect SrcRect, DstRect;
Printer()->BeginDoc();
SrcRect.Top=0;
SrcRect.Left=0;
DstRect.Top=0;
DstRect.Left=0;
DstRect.Right=Printer()->PageWidth;
DstRect.Bottom=SrcRect.Bottom*((float)DstRect.Right/(float)SrcRect.Right);
Printer()->EndDoc();
}
}

Сурет 2.7 Форманы принтерге шығару көрінісі

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

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

1 2 3 4 5 6 7 8 9 10