Организация базы данных для хранения динамических моделей беспроводных компьютерных Ad hoc сетей

}

}

void __fastcall TfView::FormActivate(TObject *Sender) //активация формы

{

dsNames->DataSet = dm->tGraphNames;

dsGraph->DataSet = dm->qGraph;

predPoint=0;

FormResize(Sender);

eTime->OnChange = eTimeChange;

}

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

void __fastcall TfView::FormResize(TObject *Sender) //изменение размера

{

CalcGraph();

PaintGraph();

}

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

void __fastcall TfView::gImageMouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

int T= UpDown1->Position;

if (gImage->Canvas->Pixels[X][Y]==clPoint)

{ dm->qGraph->DisableControls();

TBookmark BK = dm->qGraph->GetBookmark();

for (dm->qGraph->First();!dm->qGraph->Eof;dm->qGraph->Next())

{

double x1=scale*(dm->qGraphX->Value+dm->qGraphA->Value*T-minX)-RPoint,

y1=scale*(dm->qGraphY->Value+dm->qGraphB->Value*T-minX)-RPoint,

x2=scale*(dm->qGraphX->Value+dm->qGraphA->Value*T-minX)+RPoint,

y2=scale*(dm->qGraphY->Value+dm->qGraphB->Value*T-minX)+RPoint;

if (((x1<=X)&&(x2>=X)&&(y1<=Y)&&(y2>=Y))&&(predPoint!=dm->qGraph->RecNo))

{

if (HWin == NULL)

{

HWin = new THintWindow(this);

HWin->Parent = fView;

HWin->Color = clInfoBk;

}

predPoint = dm->qGraph->RecNo;

String

s = "X="+dm->qGraphX->AsString+", Y="+dm->qGraphY->AsString+", R="+dm->qGraphR->AsString;

TRect Tr;

Tr.Left = fView->Left+gImage->Left+X-gImage->Canvas->TextWidth(s)/2;

Tr.Top = fView->Top+gImage->Top+Y;

Tr.Right = Tr.Left + gImage->Canvas->TextWidth(s)+20;

Tr.Bottom = Tr.Top + gImage->Canvas->TextHeight(s);

PaintGraph();

HWin->ActivateHint(Tr,s);

}

}

dm->qGraph->GotoBookmark(BK);

dm->qGraph->FreeBookmark(BK);

dm->qGraph->EnableControls();

}

else

{

if (predPoint != 0)

{

predPoint = 0;

PaintGraph();

}

predPoint = 0;

if (HWin!=NULL)

{

HWin->Free();

HWin=NULL;

predPoint = 0;

}

}

}

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

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

{

dsNames->DataSet = NULL;

dsGraph->DataSet = NULL;

}

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

void __fastcall TfView::BitBtn1Click(TObject *Sender) //новый граф

{

rmGetName->ShowModal();

if (rmGetName->ModalResult==mrOk)

{

dm->spNewGraph->Params->Items[1]->Value = rmGetName->Edit1->Text;

int id;

dm->spNewGraph->ExecProc();

id = dm->spNewGraph->Params->Items[0]->Value;

dm->tGraphNames->Refresh();

TLocateOptions opt;

dm->tGraphNames->Locate("ID",id, opt);

}

eTimeChange(Sender);

}

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

void __fastcall TfView::BitBtn2Click(TObject *Sender) //удалить граф

{

if (MessageDlg("Удалить граф "+dm->tGraphNamesNAME->AsString+"?",mtConfirmation,TMsgDlgButtons() << mbYes<<mbNo,0)== mrYes)

{

dm->spDeleteGraph->Params->Items[0]->Value = dm->tGraphNamesID->Value;

dm->spDeleteGraph->ExecProc();

dm->tGraphNames->Refresh();

}

eTimeChange(Sender);

}

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

void __fastcall TfView::Button2Click(TObject *Sender) //удалить узел

{

if (MessageDlg("Удалить узел?",mtConfirmation,TMsgDlgButtons() << mbYes << mbNo,0)== mrYes)

{

dm->spDeletePoint->Params->Items[0]->Value = dm->qGraphGRAPH_ID->Value;

dm->spDeletePoint->Params->Items[1]->Value = dm->qGraphGRAPH_TIME->Value;

dm->spDeletePoint->Params->Items[2]->Value = dm->qGraphX->Value;

dm->spDeletePoint->Params->Items[3]->Value = dm->qGraphY->Value;

dm->spDeletePoint->Params->Items[4]->Value = dm->qGraphA->Value;

dm->spDeletePoint->Params->Items[5]->Value = dm->qGraphB->Value;

dm->spDeletePoint->Params->Items[6]->Value = dm->qGraphR->Value;

dm->spDeletePoint->ExecProc();

dm->qGraph->Close();

dm->qGraph->Open();

}

eTimeChange(Sender);

}

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

void __fastcall TfView::Button1Click(TObject *Sender) //добавить узел

{

newPoint->ShowModal();

if (newPoint->ModalResult==mrOk)

{

dm->spAddPoint->Params->Items[0]->Value = dm->tGraphNamesID->Value;

dm->spAddPoint->Params->Items[1]->Value = 0;

dm->spAddPoint->Params->Items[2]->Value = StrToFloat(newPoint->eX->Text);

dm->spAddPoint->Params->Items[3]->Value = StrToFloat(newPoint->eY->Text);

dm->spAddPoint->Params->Items[4]->Value = StrToFloat(newPoint->eA->Text);

dm->spAddPoint->Params->Items[5]->Value = StrToFloat(newPoint->eB->Text);

dm->spAddPoint->Params->Items[6]->Value = StrToFloat(newPoint->eRin->Text);

dm->spAddPoint->ExecProc();

dm->qGraph->Close();

dm->qGraph->Open();

}

eTimeChange(Sender);

}

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

void __fastcall TfView::dsNamesDataChange(TObject *Sender, TField *Field)

{

dm->qGraph->Close();

dm->qGraph->Params->Items[0]->Value = dm->tGraphNamesID->Value;

dm->qGraph->Params->Items[1]->Value = 0;

dm->qGraph->Open();

eTimeChange(Sender);

}

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

void __fastcall TfView::eTimeChange(TObject *Sender)

{

CalcGraph();

PaintGraph();

}

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

void __fastcall TfView::BitBtn3Click(TObject *Sender) //сохранить

{

dm->qGraph->DisableControls();

TBookmark BK = dm->qGraph->GetBookmark();

int T= UpDown1->Position;

TStringList *stm = new TStringList();

stm->Add(dm->tGraphNamesNAME->AsString);

stm->Add(eTime->Text);

for (dm->qGraph->First();!dm->qGraph->Eof;dm->qGraph->Next())

{

double X =dm->qGraphX->Value+dm->qGraphA->Value*T,

Y =dm->qGraphY->Value+dm->qGraphB->Value*T;

stm->Add(FloatToStr(X)+" "+FloatToStr(Y)+" "+dm->qGraphA->AsString+" "+dm->qGraphB->AsString+" "+dm->qGraphR->AsString);

}

dm->qGraph->GotoBookmark(BK);

dm->qGraph->FreeBookmark(BK);

dm->qGraph->EnableControls();

SaveDialog1->DefaultExt="txt";

SaveDialog1->Filter="ASCII files (*.txt)|*.txt|";

SaveDialog1->Title="Сохранить граф "+dm->tGraphNamesNAME->AsString;

if(SaveDialog1->Execute())

{

try

{

AnsiString FileNameR = SaveDialog1->FileName;

stm->SaveToFile(FileNameR);

}

catch(...)

{

MessageDlg("Не удалось сохранить",mtError, TMsgDlgButtons() << mbOK ,0);

}

}

delete stm;

}

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

void __fastcall TfView::Button3Click(TObject *Sender) //загрузить из файла

{

OpenDialog1->DefaultExt="txt";

OpenDialog1->Filter="ASCII files (*.txt)|*.txt|";

OpenDialog1->Title="Сохранить граф "+dm->tGraphNamesNAME->AsString;

if(OpenDialog1->Execute())

{ int T=0;

TStringList *stm = new TStringList(); // а надо ли в Мемо?

AnsiString FileNameR = OpenDialog1->FileName;

stm->LoadFromFile(FileNameR);

if (stm->Count>2)

{

char buf[100];

strcpy(buf, stm->Strings[0].c_str());

FileNameR = String(buf);

dm->spNewGraph->Params->Items[1]->Value = FileNameR ;

dm->spNewGraph->ExecProc();

int id = dm->spNewGraph->Params->Items[0]->Value;

dm->tGraphNames->Refresh();

TLocateOptions opt;

dm->tGraphNames->Locate("ID",id, opt);

strcpy(buf, stm->Strings[1].c_str());

T = StrToInt(String(buf));

double X,Y,A,B,R;

for (int i=2; i<stm->Count;i++ )

{

strcpy(buf, stm->Strings[i].c_str());

char *p = strtok(buf, " \r\n");

X = StrToFloat(String(p));

p = strtok(NULL, " \r\n");

Y = StrToFloat(String(p));

p = strtok(NULL, " \r\n");

A = StrToFloat(String(p));

p = strtok(NULL, " \r\n");

B = StrToFloat(String(p));

p = strtok(NULL, " \r\n");

R = StrToFloat(String(p));

dm->spAddPoint->Params->Items[0]->Value = id;

dm->spAddPoint->Params->Items[1]->Value = 0;

dm->spAddPoint->Params->Items[2]->Value = X-A*T;

dm->spAddPoint->Params->Items[3]->Value = Y-B*T;

dm->spAddPoint->Params->Items[4]->Value = A;

dm->spAddPoint->Params->Items[5]->Value = B;

dm->spAddPoint->Params->Items[6]->Value = R;

dm->spAddPoint->ExecProc();

}

}

dm->qGraph->Close();

dm->qGraph->Open();

delete stm;

UpDown1->Position=T;

eTimeChange(Sender); }

}

Размещено на Allbest.ru