void TIWForm2::XSdq(int TH) //显示当前题号
{
if(TH<0)
return;
//
FDQuery1->RecNo=TH ;
IWLabel1->Caption=" [ 第 "+String(FDQuery1->RecNo) +"/共 "+ String(FDQuery1->RecNo)+" ]";
//显示题目
IWMemo1->Text=FDQuery1->Fields->Fields[1]->AsString; //读取备注型字段
IWRadioButton1->Caption=FDQuery1->Fields->Fields[2]->Text;
IWRadioButton2->Caption=FDQuery1->Fields->Fields[3]->Text;
IWRadioButton3->Caption=FDQuery1->Fields->Fields[4]->Text;
IWRadioButton4->Caption=FDQuery1->Fields->Fields[5]->Text;
}
你是否还在寻找稳定的海外服务器提供商?创新互联www.cdcxhl.cn海外机房具备T级流量清洗系统配攻击溯源,准确流量调度确保服务器高可用性,企业级服务器适合批量采购,新人活动首月15元起,快前往官网查看详情吧