加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

Delphi-XE10-Android-数据库使用

(2021-03-10 15:20:30)
标签:

delphi

数据库

手机

移动应用

分类: Delphi-XE-Mobile

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

  2.启动XE10,新建Multi-Device Application,Style选Android;      Delphi <wbr><wbr>XE10 <wbr><wbr>Android手机编程使用Sqlite数据库
   右边的Project Manager处设置Target Platform
        Delphi <wbr><wbr>XE10 <wbr><wbr>Android手机编程使用Sqlite数据库

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

    Delphi <wbr><wbr>XE10 <wbr><wbr>Android手机编程使用Sqlite数据库
  4.双击FDConnection1 设置连接数据库:

  Delphi <wbr><wbr>XE10 <wbr><wbr>Android手机编程使用Sqlite数据库
  Driver ID选择Sqlite,Database打开已建立好的数据库,User_name及Password都空着吧,点击“Test”按钮进行连接测试,Password不用输,连接OK!
  5.进行数据绑定,选择view->LiveBindings Designer,使用绑定向导:

  Delphi <wbr><wbr>XE10 <wbr><wbr>Android手机编程使用Sqlite数据库--->Delphi <wbr><wbr>XE10 <wbr><wbr>Android手机编程使用Sqlite数据库

  --->Delphi <wbr><wbr>XE10 <wbr><wbr>Android手机编程使用Sqlite数据库

  --->Delphi <wbr><wbr>XE10 <wbr><wbr>Android手机编程使用Sqlite数据库

  --->Delphi <wbr><wbr>XE10 <wbr><wbr>Android手机编程使用Sqlite数据库
    最后,点击"Finish",绑定OK。

  6.设置FQuery1的"SQL"属性,“select * from allYearsAdds”,选择一个表,然后,设置FQuery1的Active为True,就可看见Grid中的表内容了:

  Delphi <wbr><wbr>XE10 <wbr><wbr>Android手机编程使用Sqlite数据库
  7.数据库的发布:选择菜单 project ->deployment->然后点击添加文件按钮,选择中sqlite数据库“vert_salary.db”,添加后双击remote path处,就自动填写了".\assets\internal"
  Delphi <wbr><wbr>XE10 <wbr><wbr>Android手机编程使用Sqlite数据库

Delphi <wbr><wbr>XE10 <wbr><wbr>Android手机编程使用Sqlite数据库

  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;

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有