C++ (Cpp) TADOQuery::Open示例

示例#1

文件： ListStoreClient.cpp 项目： IshPeredysh/udd2

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

示例#2

文件： FormDemand.cpp 项目： gregorygoldshit/diplom

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

}

示例#3

文件： TClientSockThread.cpp 项目： IshPeredysh/udd

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

示例#4

文件： PrintProductCatalog.cpp 项目： a-ouchakov/DesignerOrders

// ---------------------------------------------------------------------------
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();
	}

}