六、点击ImageControl的OnChange事件,写入代码:
void __fastcall TForm2::ImageControl1Change(TObject *Sender)
{
this->UserTable->Edit();
this->UserTable->FieldByName("picture")->Assign(this->ImageControl1->Bitmap);
}
或:点击Table组件的各类事件,作相应的触发动做,如:
void __fastcall TForm2::UserTableBeforePost(TDataSet *DataSet)
{
this->UserTable->Edit();
this->UserTable->FieldByName("picture")->Assign(this->ImageControl1->Bitmap);
}
七、点击MydemoConnection的BeforeConnect事件,写入代码:
void __fastcall TForm2::MydemoConnectionBeforeConnect(TObject *Sender)
{
this->MydemoConnection->Params->Values["Database"]= System::Ioutils::TPath::Combine(System::Ioutils::
TPath::GetDocumentsPath(),"Mydemo.s3db");
}
八、在电脑上运行时,效果如图,点击菜单栏的各个按钮,可方便地实现数据的增删改查。
3、在手机运行
一、打开cmd,找到C:\>Users\Public\Documents\Embarcadero\Studio\FireDAC路径下的两个 .ini 文件,将其添加到工程中,以及把在最初生成数据库的.s3db文件,一样加入工程中;
【注意:打开Project->Deployment,检查两个ini文件是否为 \assets\internal\】
二、运行前,把Usertable设为false,由于数据库文件较大时,手机会卡住打不开,因此能够加一个button来控制数据库开关,无需服务器也可看到数据。