Пайдаланылған әдебиеттер тізімі
1. Семакин, И. Г. Основы программирования: учебник / Семакин И.Г., Шестаков А.П. - М. : Мастерство, 2001. - 432 с
2. Епанешеников А.М., Епанешников В.А. Borland C++ Builder, Мәліметтер қоймасы.
3.Культин Н.Н., Самоучитель: Borland C++ Builder. Object Pascal-да программалау. Санкт-Петербург -1999, -480 с.
4. Страуструп, Б. Язык программирования С++. Специальное издание / Б. Страуструп ; пер. с англ. под ред. Н. Н. Мартынов. - М. : Издательство Бином, 2011. - 1136 с.
5. Фаранов В. В. Учебное пособие по Borland C++ Builder. - СПб., 1999.
6.Ю.Эбнер Михаэль. Borland C++ Builder. Руководство разработчика, - Киев, 2000.
7.Климова Л.М. Borland C++ Builder. Основы програмирования. Решение типовых задач. Самоучитель – М.: КУДИЦ‑ОБРАЗ, 2004.
8. Марченко, А. Л. Основы программирования на С# 2.0 учеб. пособие / А.Л. Марченко. - М. : Интернет-Университет информационных технологий; БИНОМ. Лаборатория знаний, 2007. - 553 с. : ил. - (Основы информационных технологий).
9. Павловская, Т. А. С++. Объектно-ориентированное программирование: практикум / Т. А. Павловская, Ю. А. Щупак. - СПб. : Питер, 2008. - 265 с. : ил. - (Учебное пособие).
10. Подбельский, В. В. Язык СИ++: учеб. пособие для студ. вузов / В. В. Подбельский. - 5-е изд. - М. : Финансы и статистика, 2008. - 560 с. : ил.
Қосымша А
Программаның листингі
#include
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
USEFORM("Unit2.cpp", Form2);
USEFORM("Unit3.cpp", Form3);
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
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();
}
//---------------------------------------------------------------------------
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Form1->Show();
Form2->Hide();
}
//---------------------------------------------------------------------------
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();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Edit2Change(TObject *Sender)
{
DataSource1->DataSet = ADOQuery1;
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Select * from Base WHERE [Стаж] LIKE '%"+Edit2->Text+"%'");
ADOQuery1->Open();
}
//---------------------------------------------------------------------------
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();
}
//---------------------------------------------------------------------------
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();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button3Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
Form1->Show();
Form3->Hide();
}
//---------------------------------------------------------------------------
Достарыңызбен бөлісу: |