Проектування триланкової розподіленої інформаційної системи для роботи з БД із використанням технології DataSnap (MIDAS)

БОЛЬШАЯ ЛЕНИНГРАДСКАЯ БИБЛИОТЕКА - РЕФЕРАТЫ - Проектування триланкової розподіленої інформаційної системи для роботи з БД із використанням технології DataSnap (MIDAS)

Проектування триланкової розподіленої інформаційної системи для роботи з БД із використанням технології DataSnap (MIDAS)

Проектування триланкової розподіленої інформаційної системи для роботи з БД із використанням технології DataSnap (MIDAS)

F Мета: отримання практичних навичок проектування розподіленої інформаційної системи із використанням технології MIDAS.

F Завдання:

Створити оригінальну (!) розподілену триланкову інформаційну систему на основі технології MIDAS. Сервер прикладень повинен інкапсулювати та експортувати деякий набір даних з абиякої таблиці БД. Прикладення-клієнт повинен підключатися до сервера прикладень та відображувати отримані від сервера дані у вигляді мережі.

Тепер тільки залишилося написати реакції на події від кнопок форми:

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

#include <vcl.h>

#pragma hdrstop

#include "ClientMainForm.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm1::ConnectClick(TObject *Sender)

{

if (ClientDataSet1->Active) // close and disconnect

{

ClientDataSet1->Close();

DCOMConnection1->Close();

}

else // open (will automatically connect)

{

//DCOMConnection1->Open();

ClientDataSet1->Open();

}

}

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

void __fastcall TForm1::ApplyClick(TObject *Sender)

{

ClientDataSet1->ApplyUpdates(0);

}

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

void __fastcall TForm1::SaveClick(TObject *Sender)

{

ClientDataSet1->SaveToFile("customer.cds", dfBinary);

}

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

void __fastcall TForm1::LoadClick(TObject *Sender)

{

ClientDataSet1->LoadFromFile("customer.cds");

}

Клієнтське прикладення у триланковій моделі повинне володіти лише мінімально необхідним набором функцій, делегуючи більшість операцій з обробки даних серверу прикладень. Все! Прикладення готове до запуску.