android sqlite 打包 xe,Delphi-XE10-Android-数据库使用

1.安装好手机驱动，确保手机能够被Delphi识别与调试；

2.启动XE10,新建Multi-Device

Application，Style选Android；　　　　　　

右边的Project Manager处设置Target Platform

　　　　　　　　

3.在Form上放一个TGrid，还有4个FD相关控件：FDConnection1 、FDPhysSQLiteDriverLink1、FDQuery1、FDGUIxWaitCursor1

；

4.双击FDConnection1 设置连接数据库：

Driver

ID选择Sqlite，Database打开已建立好的数据库，User_name及Password都空着吧，点击“Test”按钮进行连接测试，Password不用输，连接OK!

5.进行数据绑定，选择view->LiveBindings Designer，使用绑定向导：

--->

　　--->

--->

--->

最后，点击"Finish",绑定OK。

6.设置FQuery1的"SQL"属性，“select *

from

allYearsAdds”，选择一个表，然后，设置FQuery1的Active为True,就可看见Grid中的表内容了：

7.数据库的发布：选择菜单 project

->deployment->然后点击添加文件按钮，选择中sqlite数据库“vert_salary.db”,添加后双击remote

path处，就自动填写了".\assets\internal"

　　

8.关闭发布窗口，然后在FDConnection1的beforconnect事件中填写如下代码：

procedure TForm1.FDConnection1BeforeConnect(Sender:

TObject);

begin

FDConnection1.Params.Values['Database']

:=TPath.Combine(TPath.GetDocumentsPath, 'vert_salary.db');

end;

9.将FDConnection1的LoginPrompt属性设为False，否则每次都要提示输入口令。

10.在Form的Create事件中增加如下代码，可将数据库所有表名赋予一个ComboBox控件：

procedure

TfrmMain.FormCreate(Sender: TObject);

begin

//

取得数据库的所有表名，并赋值给cbTableName

FDConnection1.GetTableNames('',

'', '', cbTableName.Items);

if cbTableName.Count

> 0 then

cbTableName.ItemIndex

:= 0;

end;