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()

{

{

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

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->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;