String TUrovenList::Init()
{
TADOQuery *q = new TADOQuery(DM);
TUroven *s;
try {
q->Connection = DM->AsConnection1;
q->SQL->Clear();
q->SQL->Add("SELECT * FROM Uroven");
q->Open();
while (!q->Eof) {
s = new TUroven;
s->UrovenID = q->FieldByName("UrovenID")->AsInteger;
s->UrovenYear = q->FieldByName("UrovenYear")->AsString;
s->UrovenName = q->FieldByName("UrovenName")->AsString;
s->PackageType = q->FieldByName("PackageType")->AsInteger;
Add(s);
q->Next();
}
q->Close();
} catch (...) {
return "error in UrovenList init!";
}
return "";
}
void __fastcall TFrmDemand::ButtonrefreshClick(TObject *Sender)
{
ADOQuery_insert->SQL->Text = (AnsiString)"select * from Demand where project_id=1 order by id_dem";
ADOQuery_insert->Open();
TADOQuery * ado = new TADOQuery(NULL);
ado->Connection = ADOConnection1;
ado->SQL->Text = (AnsiString)"select * from Demand where project_id=1 order by id_dem";
ado->Open();
//TTreeNode* node = TreeView_doc_Struct->Items->AddObject(NULL, this->node_Name->Text, (void*)reqinfo);
//node->Selected = true;
for(ADOQuery_insert->First();!ADOQuery_insert->Eof;ADOQuery_insert->Next())
{
if(ADOQuery_insert->FieldByName("id_par")->Value.IsNull())//==0
{
Demand *reqinfo = new Demand;
//записываем данные из бд в структуры
reqinfo->name_dem = ADOQuery_insert->FieldByName("name_dem")->AsAnsiString.c_str();
reqinfo->text_dem = ADOQuery_insert->FieldByName("text_dem")->AsAnsiString.c_str();
reqinfo->type_dem = ADOQuery_insert->FieldByName("type_dem")->AsAnsiString.c_str();
reqinfo->num_dem = ADOQuery_insert->FieldByName("num_dem")->AsAnsiString.c_str();
reqinfo->code_dem = ADOQuery_insert->FieldByName("code_dem")->AsAnsiString.c_str();
reqinfo->id_dem = ADOQuery_insert->FieldByName("id_dem")->Value;
top_level.push_back(reqinfo);
Recursive(reqinfo, ado);
}
/*reqinfo->name_dem = string(AnsiString(this->node_Name->Text).c_str());
reqinfo->num_par = string(AnsiString("0").c_str());
this->TreeView_doc_Struct->Items->Add(ADOQuery_insert->FieldValues["project_name"]);
*/
}
for(int i = 0;i<top_level.size();i++)
{
TTreeNode* node = TreeView_doc_Struct->Items->AddObject(NULL, top_level[i]->name_dem.c_str(), (void*)(top_level[i]));
RecursiveFChilds(top_level[i], node);
}
}
int CmAuthentication(SOCKET ClientSocket, TMemoryStream *ms)
{
char user[20];
char password[20];
char *tmp = new char[ms->Size];
int r;
TADOQuery *q;
String test[2];
CoInitialize(NULL);
q = DM->UsersQuery;
ms->Seek(0, soFromBeginning);
ms->Read(tmp, ms->Size);
sscanf(tmp, "user=%s password=%s", &user, &password);
q->Parameters->ParseSQL(q->SQL->Text, true);
q->Close();
try {
test[0] = WideString(user);
q->Parameters->ParamByName("user")->Value = WideString(user);
test[1] = WideString(password);
q->Parameters->ParamByName("password")->Value = WideString(password);
q->Open();
if (q->RecordCount)
r = 1;
else
r = 0;
} catch (...) {
r = 0;
}
delete []tmp;
// delete q;
return r;
}
// ---------------------------------------------------------------------------
void __fastcall TFrPrintProductCatalog::LoadPicList(TStrings *NameUser,
TStrings *Status, TStrings *Activities_KC, TStrings *ComboBox9)
{ // Загрузка нового листа выбора
TStrings *S;
AnsiString Sl;
TField *F, *Fi;
TADOQuery *Qi;
Qi = Qw;
if (Status != NULL) {
S = Status;
Qi->Close();
Qi->SQL->Clear();
Qi->SQL->Add
("select -1,' ВСЕ' union select 0,' Не распределен' union select idn,iText from spl_LbText256 where iLvl=1156 and datedel is null Order by 2 "
);
Qi->Open();
Fi = Qi->Fields->Fields[0];
F = Qi->Fields->Fields[1];
S->Clear();
while (Qi->Eof == false) {
S->AddObject(F->AsString, (TObject*)Fi->AsInteger);
Qi->Next();
}
Qi->Close();
}
if (Activities_KC != NULL) {
S = Activities_KC;
Qi->Close();
Qi->SQL->Clear();
Qi->SQL->Add
("select -1,' ВСЕ' union select Idn,iText from spl_LbText256 where iLvl=1199 and DateDel is null"
);
Qi->Open();
Fi = Qi->Fields->Fields[0];
F = Qi->Fields->Fields[1];
S->Clear();
while (Qi->Eof == false) {
S->AddObject(F->AsString, (TObject*)Fi->AsInteger);
Qi->Next();
}
Qi->Close();
}
if (ComboBox9 != NULL) {
S = ComboBox9;
Qi->Close();
Qi->SQL->Clear();
Qi->SQL->Add
("select -1,' ВСЕ' union select 0,' Нет менеджера' union SELECT idManager,u.auFamIO FROM cch_CallManager LEFT JOIN aa_Users u on u.auId=idManager WHERE TypeM=0 ORDER BY 2 "
);
Qi->Open();
Fi = Qi->Fields->Fields[0];
F = Qi->Fields->Fields[1];
S->Clear();
while (Qi->Eof == false) {
S->AddObject(F->AsString, (TObject*)Fi->AsInteger);
Qi->Next();
}
Qi->Close();
}
}
