//数据库路径
FDConnection1->Params->Database=strMdbFile;
FDConnection1->Params->Password=""; //原SQLite 数据库密码
FDConnection1->Params->NewPassword ="123"; //设置数据库新密码
//载入科目显示
FDQuery1->Active=false;
FDQuery1->SQL->Text ="select * from T59";
FDQuery1->Active=true;
FDQuery1->First();
for(int i=0;i< FDQuery1->RecordCount;i++)
{
for(int j=0;j<5;j++) //第N列
{
if( FDQuery1->FieldList->Fields[j]->Text.Length()>0)
{
((TRzGroupBox* )MyVCL->Items[j*9+i])->Caption=FDQuery1->FieldList->Fields[j]->Text;
}
else
((TRzGroupBox* )MyVCL->Items[j*9+i])->Caption=""; //没有设置就清空
}
FDQuery1->Next();
}
//设置完密码后,再无密码登陆时就会弹出这个窗口数据库已加密!