{
TfrmeFV * fr = new TfrmeFV (this, form-> dsrcBrowse, inf);
fr-> Parent = form-> editarea; fr-> Name = ""; Fr-> Align = alTop; inf-> form = fr;
}
if (inf-> type == (AnsiString) "C")
{
TfrmeFieldsN * fr = new TfrmeFieldsN (this, form-> dsrcBrowse, inf);
fr-> Parent = form-> editarea; fr-> Name = ""; Fr-> Align = alTop; inf-> form = fr;
}
if (inf-> type == (AnsiString) "F")// поле інтерпетіруется на етапі підстановки при New,
{//а також для фільтрації (тобто використовується для
// Реалізації обмежених наборів)
form-> FilterBy ("flt_" + Inf-> fieldname, inf-> sql);
}
if (inf-> type == (AnsiString) "L")
{
TfrmeList * fr = new TfrmeList (this, form-> dsrcBrowse, inf);
if (SELECT (mqrB, "select * from fieldelements where parentfield = "+
mqrA-> FieldByName ("code") -> AsString + "order by sortorder "))
{
do
{
fr-> AddElement (mqrB-> FieldByName ("title") -> AsString, mqrB-> FieldByName ("value") -> AsString);
mqrB-> Next ();
} while (! mqrB-> Eof);
fr-> Go ();
mqrB-> Close ();
}
fr-> Parent = form-> editarea; fr-> Name = ""; Fr-> Align = alTop; inf-> form = fr;
}
fldlst-> Add (inf);
mqrA-> Next ();
} while (! mqrA-> Eof);
}
mqrA-> Close ();
}
bool f = ((desc-> type == (AnsiString) "T") && (! Desc-> parentfield.Trim (). IsEmpty ()));
form-> spbTree-> Visible = f;
form-> dbnPlus-> Visible = f;
form-> SetTreeMode (f);
TuneFilters ();
form-> Go ();
}
// --------------------------------------------- ------------------------------
void __ fastcall TfrmUniForm :: TuneFromBtn (TbtnAddInfo * Lnkinfo, AnsiString linkvalue, AnsiString linktitle, AnsiString parentform)
{
if (! lnk) lnk = new TlnkFromBtn ();
form-> lnkb = lnk;
lnk-> linkform = lnkinfo-> linkform;
lnk-> linktofield = lnkinfo-> linktofield;
lnk-> linkfromfield = lnkinfo-> linkfromfield;
lnk-> linkvalue = linkvalue;
lnk-> linktitle = linktitle;
lnk-> parentform = parentform;
}
// --------------------------------------------- ------------------------------
void __ fastcall TfrmUniForm :: TuneForLink ()
{
link = true;
slv = new TformDescription ();
UploadMetaInfo (slv, lnk-> linkform);
form-> slv = slv;
form-> link = link;
desc-> listfield = "add_lnkform_nam";
}
// --------------------------------------------- ------------------------------
void __ fastcall TfrmUniForm :: InitTblAdd ()
{
// ініціалізація tblAdd
AnsiString str;
str...
