//---- Place thread code here ---- Form1->FDConnection1->DriverName="SQLite"; Form1->FDConnection1->Params->DriverID="SQLite"; String Dstr=System::Ioutils::TPath::Combine(System::Ioutils::TPath::GetDocumentsPath(),"ITsys.db"); Form1->FDConnection1->Params->Database=Dstr; Form1->FDConnection1->Connected=true; //ShowMessage(Dstr); //SQLite查询语句substr取字段某几个字符匹配 Form1->FDQuery1->Open("select sum(TKsum),sum(CT),sum(YZ) from itkg where substr(itid,4,3)='000'"); //显示题量 Form2->GroupBox1->Text=L"总题量:"+Form1->FDQuery1->Fields->Fields[0]->Text; Form2->GroupBox2->Text=L"错题量:"+Form1->FDQuery1->Fields->Fields[1]->Text; Form2->Label2->Text= L"已完成量: "+String(Form1->FDQuery1->Fields->Fields[1]->Text.ToInt()+ Form1->FDQuery1->Fields->Fields[2]->Text.ToInt() )+ L" 道"; Form2->Button2->Text=L"未完成:"+ String(Form1->FDQuery1->Fields->Fields[0]->Text.ToInt() - Form1->FDQuery1->Fields->Fields[1]->Text.ToInt() - Form1->FDQuery1->Fields->Fields[2]->Text.ToInt() ) + L" - 继续完成!";