DM->ADODsBase->CommandType = cmdText;
DM->ADODsBase->CommandText = "Select * from tblCardInfo where fldCardID = :ID";
DM->ADODsBase->Parameters->ParamByName("ID")->Value = ID;
DM->ADODsBase->Open();
if(!DM->ADODsBase->IsEmpty())
{
//StringGrid2->Cells[1][0] = DM->ADOQryBase->FieldByName("fldCardId")->Value;
StringGrid2->Font->Color = RGB(0, 0, 0); //varCarNo.bstrVa
//Variant varCarNo = DM->ADODsBase->FieldValues["fldCarNumber"];
StringGrid2->Cells[1][1] = DM->ADODsBase->FieldByName("fldCarNumber")->Value.bstrVal;
StringGrid2->Cells[1][2] = DM->ADODsBase->FieldByName("fldVehicleType")->Value.bstrVal;
}
else
{
//StringGrid2->Cells[1][0] =
StringGrid2->Font->Color = RGB(255, 0, 0);
StringGrid2->Cells[1][1] = "基础数据库中无此记录!" ;
StringGrid2->Cells[1][2] = "基础数据库中无此记录!" ;
}
//DM->ADODsBase->ClearFields();
DM->ADODsBase->Close();