2 Практикалық бөлім
Пайдаланылған әдебиеттер тізімі
жүктеу/скачать 2,37 Mb.
|
2 Практикалы б лім
Геосаясат түсінігі, 5 сынып 3 тоқсан қмж , Borland C Builder - ОББ-Тапсырма
- Бұл бет үшін навигация:
- Қосымша А Программаның листингі
| Пайдаланылған әдебиеттер тізімі
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(); } //--------------------------------------------------------------------------- жүктеу/скачать 2,37 Mb. Достарыңызбен бөлісу:
|