13,825
社区成员
发帖
与我相关
我的任务
分享
void __fastcall TMapFrm::TreeView1Init()
{
try
{
TTreeNode *Root,*Node1,*Node2;
AnsiString TempStr,SQLStr;
TreeView1->Items->Clear();
Root=TreeView1->Items->AddChild(NULL,"全国高速公路网");
Root->SelectedIndex=0;
//Root->Selected=true;
DataMod->ProvinceADOQ->Close();
SQLStr="Select * from ProvinceTable Where DeviceNum>0 Order by ProvinceID";
DataMod->ProvinceADOQ->SQL->Text=SQLStr;
DataMod->ProvinceADOQ->Open();
DataMod->ProvinceADOQ->First();
while(!DataMod->ProvinceADOQ->Eof)
{
TempStr=DataMod->ProvinceADOQ->FieldByName("ProvinceID")->AsAnsiString.SubString(3,2);
TempStr+=DataMod->ProvinceADOQ->FieldByName("ProvinceName")->AsAnsiString;
//TempStr+="("+DataMod->ProvinceADOQ->FieldByName("DeviceNum")->AsAnsiString+")";
Node1=TreeView1->Items->AddChild(Root,TempStr);
Node1->SelectedIndex=1;
DataMod->WaysADOQ->Close();
SQLStr="Select * from waysTable where ProvinceID=";
SQLStr+=DataMod->ProvinceADOQ->FieldByName("ProvinceID")->AsAnsiString;
SQLStr+=" order by highwayID";
DataMod->WaysADOQ->SQL->Text=SQLStr;
DataMod->WaysADOQ->Open();
DataMod->WaysADOQ->First();
while(!DataMod->WaysADOQ->Eof)
{
TempStr=DataMod->WaysADOQ->FieldByName("highwayID")->AsAnsiString.SubString(5,3);
TempStr+=DataMod->WaysADOQ->FieldByName("highwayName")->AsAnsiString;
Node2=TreeView1->Items->AddChild(Node1,TempStr);
Node2->SelectedIndex=2;
DataMod->WaysADOQ->Next();
}
DataMod->ProvinceADOQ->Next();
}
}
catch(...)
{
//
}
}