Добавил:

f24 Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Северный (Арктический) федеральный университет им. М. В. Ломоносова

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Архив2 / курсовая docx17 / Kursova_robota_-_Romanchuk_Ya_A_3-kurs_OOP.docx

Скачиваний:

Добавлен:

07.08.2013

Размер:

2.92 Mб

Скачать

☆

<<< < Предыдущая 1 2 3 45 / 55

Додатки

Початок додатку 1

3.4.1 Розробка алгоритмів функцій, що реалізують окремі можливості ПП.

Продовження додатку 1.

Завершення додатку 1.

Початок додатку 2.

Лістинг програми:

Unit1.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include <math.h>

#include <string.h>

#include <stdio.h>

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "oleauto.hpp"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

class Zapis

{

public:

void Button2Click();

void RadioButton1Click();

void RadioButton2Click();

void RadioButton3Click();

void Activate();

void Close();

void denrogdenya();

void poiscFamiliya();

void poiscAdress();

void poiscTelefon();

void poiscRobotaUchoba();

void poiscDataRogdeniya();

void sortFamiliya();

void sortAdress();

void sortTelefon();

void sortRobotaUchoba();

void sortDataRogdeniya();

};

Zapis spisoc;

void Zapis::Activate()

{

Продовження додатку 2.

try{

Form1->ADOConnection1->Open();

Form1->ADODataSet1->Active=true;}

catch (Oleauto::EOleException &e){

MessageDlg("Ошибка доступа к БД. \n"+e.Message, mtError, TMsgDlgButtons()<<mbOK,0);

Form1->DBGrid1->Enabled=false;}}}

void Zapis::Close()

{

if(Form1->DBGrid1->EditorMode){

Form1->ADODataSet1->UpdateBatch(arCurrent);};

}

void Zapis::Button2Click()

{

Form1->Label6->Visible=false;

Form1->RadioButton1->Checked=false;

Form1->RadioButton2->Checked=false;

Form1->RadioButton3->Checked=false;

Form1->Panel1->Visible=true;

Form1->DBGrid1->Visible=true;

Form1->DBEdit1->Visible=true;

Form1->DBEdit2->Visible=true;

Form1->DBEdit3->Visible=true;

Form1->DBEdit4->Visible=true;

Form1->DBEdit5->Visible=true;

Form1->Label1->Visible=true;

Form1->Label2->Visible=true;

Form1->Label3->Visible=true;

Form1->Label4->Visible=true;

Form1->Label5->Visible=true;

Form1->DBNavigator1->Visible=true;

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент ORDER BY Familiya";

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;

}

void Zapis::RadioButton1Click()

{

Form1->Label6->Visible=false;

if(Form1->RadioButton1->Checked==true){

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент ORDER BY Familiya";

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;

Form1->Panel1->Visible=false;

Form1->DBNavigator1->Visible=false;

}

else

{

Form1->DBNavigator1->Visible=true;

Form1->DBGrid1->Visible=false;

Продовження додатку 2.

Form1->Panel1->Visible=true;

}

void Zapis::RadioButton2Click()

{

Form1->Label6->Visible=false;

if(Form1->RadioButton2->Checked==true){

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент ORDER BY Familiya";

Form1->ADODataSet1->Open();

Form1->Panel1->Visible=true;

Form1->DBGrid1->Visible=false;

Form1->DBEdit1->Visible=true;

Form1->DBEdit2->Visible=true;

Form1->DBEdit3->Visible=true;

Form1->DBEdit4->Visible=true;

Form1->DBEdit5->Visible=true;

Form1->Label1->Visible=true;

Form1->Label2->Visible=true;

Form1->Label3->Visible=true;

Form1->Label4->Visible=true;

Form1->Label5->Visible=true;

Form1->DBNavigator1->Visible=true;

Form1->RadioButton1->Action;

}

else

{

Form1->Panel1->Visible=false;

Form1->DBGrid1->Visible=true;

Form1->DBEdit1->Visible=false;

Form1->DBEdit2->Visible=false;

Form1->DBEdit3->Visible=false;

Form1->DBEdit4->Visible=false;

Form1->DBEdit5->Visible=false;

Form1->Label1->Visible=false;

Form1->Label2->Visible=false;

Form1->Label3->Visible=false;

Form1->Label4->Visible=false;

Form1->Label5->Visible=false;

Form1->DBNavigator1->Visible=false;

}

void Zapis::RadioButton3Click()

{

Form1->Label6->Visible=false;

if(Form1->RadioButton3->Checked==true){

Form3->ShowModal();

if(Form3->ModalResult==mrOk){

Form3->Calendar->Visible=true;

Form1->RadioButton3->SetFocus();

}

Продовження додатку 2.

void Zapis::sortFamiliya()

{

Form1->Label6->Visible=false;

if(Form1->ComboBox1->ItemIndex==0){

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент ORDER BY `Familiya`";

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;}}

void Zapis::sortAdress()

{

Form1->Label6->Visible=false;

if(Form1->ComboBox1->ItemIndex==1){

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент ORDER BY `Adress`";

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;}}

void Zapis::sortTelefon()

{

Form1->Label6->Visible=false;

if(Form1->ComboBox1->ItemIndex==2){

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент ORDER BY `Telefon`";

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;}}

void Zapis::sortRobotaUchoba()

{

Form1->Label6->Visible=false;

if(Form1->ComboBox1->ItemIndex==3){

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент ORDER BY `Robota/Uchoba`";

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;}}

void Zapis::sortDataRogdeniya()

{

Form1->Label6->Visible=false;

if(Form1->ComboBox1->ItemIndex==4){

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент ORDER BY `DataRogdeniya`";

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;}}

void Zapis::poiscFamiliya()

{

if(Form1->ComboBox2->ItemIndex==0){

Form1->DBGrid1->Visible=false;

Form1->DBNavigator1->Visible=false;

Form2->ShowModal();

if(Form2->ModalResult==mrOk){

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент WHERE `Familiya` Like \042%"+

Продовження додатку 2.

Form2->Edit1->Text+"%\042";

Form1->DBGrid1->Visible=true;

}

Form1->ADODataSet1->Open();

Form2->Edit1->Clear();

if(Form1->ADODataSet1->RecordCount==0){

Form1->ADODataSet1->Filtered=false;

ShowMessage("В БД нет записей, удовлетворяющих критерию запроса");}}}

void Zapis::poiscAdress()

{

if(Form1->ComboBox2->ItemIndex==1){

Form1->DBGrid1->Visible=false;

Form1->DBNavigator1->Visible=false;

Form2->ShowModal();

if(Form2->ModalResult==mrOk){

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент WHERE `Adress` Like \042%"+

Form2->Edit1->Text+"%\042";

Form1->DBGrid1->Visible=true;

}

Form1->ADODataSet1->Open();

Form2->Edit1->Clear();

if(Form1->ADODataSet1->RecordCount==0){

Form1->ADODataSet1->Filtered=false;

ShowMessage("В БД нет записей, удовлетворяющих критерию запроса");}}}

void Zapis::poiscTelefon()

{

if(Form1->ComboBox2->ItemIndex==2){

Form1->DBGrid1->Visible=false;

Form1->DBNavigator1->Visible=false;

Form2->ShowModal();

if(Form2->ModalResult==mrOk){

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент WHERE `Telefon` Like \042%"+

Form2->Edit1->Text+"%\042";

Form1->DBGrid1->Visible=true;

}

Form1->ADODataSet1->Open();

Form2->Edit1->Clear();

if(Form1->ADODataSet1->RecordCount==0){

Form1->ADODataSet1->Filtered=false;

ShowMessage("В БД нет записей, удовлетворяющих критерию запроса");}}}

void Zapis::poiscRobotaUchoba()

{

if(Form1->ComboBox2->ItemIndex==3){

Form1->DBGrid1->Visible=false;

Form1->DBNavigator1->Visible=false;

Form2->ShowModal();

if(Form2->ModalResult==mrOk){

Продовження додатку 2.

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент WHERE `Roboya/Uchoba` Like \042%"+

Form2->Edit1->Text+"%\042";

Form1->DBGrid1->Visible=true;

}

Form1->ADODataSet1->Open();

Form2->Edit1->Clear();

if(Form1->ADODataSet1->RecordCount==0){

Form1->ADODataSet1->Filtered=false;

ShowMessage("В БД нет записей, удовлетворяющих критерию запроса");}}}

void Zapis::poiscDataRogdeniya()

{

if(Form1->ComboBox2->ItemIndex==4){

Form1->DBGrid1->Visible=false;

Form1->DBNavigator1->Visible=false;

Form2->ShowModal();

if(Form2->ModalResult==mrOk){

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент WHERE `DataRogdeniya` Like \042%"+

Form2->Edit1->Text+"%\042";

Form1->DBGrid1->Visible=true;

}

Form1->ADODataSet1->Open();

Form2->Edit1->Clear();

if(Form1->ADODataSet1->RecordCount==0){

Form1->ADODataSet1->Filtered=false;

ShowMessage("В БД нет записей, удовлетворяющих критерию запроса");}}}

void Zapis::denrogdenya()

{

Form1->Edit1->Text=Form1->Date->Date.CurrentDate();

Form1->Edit1->Text=Form1->Edit1->Text.SubString(0,5);

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент WHERE `DataRogdeniya` Like \042%"+

Form1->Edit1->Text+"%\042";

Form1->DBGrid1->Visible=true;

Form1->ADODataSet1->Open();

if(Form1->ADODataSet1->RecordCount==0)Form1->DBGrid1->Visible=false;

else Form1->Label6->Visible=true;

}

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormActivate(TObject *Sender)

{

Продовження додатку 2.

spisoc.Activate();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)

{

spisoc.Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

spisoc.Button2Click();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton1Click(TObject *Sender)

{

spisoc.RadioButton1Click();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton2Click(TObject *Sender)

{

spisoc.RadioButton2Click();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::ComboBox1Change(TObject *Sender)

{

spisoc.sortFamiliya();

spisoc.sortAdress();

spisoc.sortTelefon();

spisoc.sortRobotaUchoba();

spisoc.sortDataRogdeniya();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::ComboBox2Change(TObject *Sender)

{

spisoc.poiscFamiliya();

spisoc.poiscAdress();

spisoc.poiscTelefon();

spisoc.poiscRobotaUchoba();

spisoc.poiscDataRogdeniya();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

spisoc.denrogdenya();

}

//---------------------------------------------------------------------------

Продовження додатку 2.

void __fastcall TForm1::RadioButton3Click(TObject *Sender)

{

spisoc.RadioButton3Click();

}

//---------------------------------------------------------------------------

Unit2.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

class Unit2

{

public:

void FormActivate();

void Edit1Change();

};

Unit2 unit;

void Unit2::FormActivate()

{

Form2->Edit1->Clear();

Form2->Edit1->SetFocus();

}

void Unit2::Edit1Change()

{

if(Form2->Edit1->Text.Length()>0)

Form2->Button1->Enabled=true;

else

Form2->Button1->Enabled=false;

}

//---------------------------------------------------------------------------

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm2::FormActivate(TObject *Sender)

{

unit.FormActivate();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Edit1Change(TObject *Sender)

Завершення додатку 2.

{

unit.Edit1Change();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Edit1KeyPress(TObject *Sender, char &Key)

{

if((Key==VK_RETURN)&&(Edit1->Text.Length()>0))

Button1->SetFocus();

}

Unit3.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit3.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

//---------------------------------------------------------------------------

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

<<< < Предыдущая 1 2 3 45 / 55

Соседние файлы в папке курсовая docx17

#
07.08.20132.54 Mб26kursovaya_KhPM_25gr_2012.docx
#
07.08.20132.97 Mб121Kursovaya_po_BZhD.docx
#
07.08.20132.44 Mб66Kursovaya_rabota_Guseva_Evgenia_studenta_3BI1.docx
#
07.08.20133.58 Mб149Kursovaya_SES_TP_3-1-2-5-6_7-4_2012-12-02.docx
#
07.08.20134.19 Mб46kursova_1.docx
#
07.08.20132.92 Mб44Kursova_robota_-_Romanchuk_Ya_A_3-kurs_OOP.docx
#
07.08.20132.57 Mб39kursovoy_2.docx
#
07.08.20133.68 Mб46Kursovoy_Analiz_BP_OAO_DSIO.docx
#
07.08.20133.68 Mб80Kursovoy_proekt_-_kopia.docx
#
07.08.20134.48 Mб35kursovoy_proekt_po_baze_dannnykh.docx
#
07.08.20132.61 Mб39Kursovoy_SDK_Avtosokhranennyy.docx