sprintf(xx_sql," select xtmc as 系统名称,xtbm as 系统编码,gnmc as 功能名称, gnbm as 功能编码,kfr as 开发人,lrr as 录入人,lrsj as 录入时间 from tbl_item where xtmc='%s' ",a_Xtmc);
ADOQuery_xx->SQL->Add(xx_sql);
ADOQuery_xx->Active=true;
DataSource_xx->DataSet=ADOQuery_xx;
DBGrid_xx->DataSource=DataSource_xx;
/*
while (!ADOQuery_xx->Eof)
{
//a_Yhm = ADOQuery_yhm->Fields->Fields[0]->AsString;
//a_Yhm = "shaoying";
DBGrid_xx->DataSource->DataSet->Fields->FieldsName[0]->AsString);
//Combo_yhmc->Items->Add(a_Yhm);
ADOQuery_xx->Next();
}
ADOQuery_xx->First();
*/
}