delphi xe4 for iOS 学习笔记之一:创建简单的sqlite数据库程序

目标:
1 连接sqlite数据库
2 显示sqlite数据库中的内容
3 增加记录操作

iOS 模拟器屏幕快照“2013-9-11 下午1.59.47”

 

上面的图是ios模拟器的效果,open按钮打开sqlite数据库,add按钮增加一条随机记录,也就是只有数字的那些。只有寥寥几行代码。

整个例子基本跟着这里做:http://docwiki.embarcadero.com/RADStudio/XE4/en/IOS_Tutorial:_Using_SQLite_in_an_iOS_Application

数据库连接什么的都很方便,并且通过分发的设置,不用担心路径问题。不需要自己写什么东西。

我用的是listview来通过binding和数据表的字段关联,同样不用任何代码,建立好对应关系即可。

增加记录用了简单的sqlquery中带参数的sql语句而已,和ios没有太大关系,包括随机数函数之类,delphi几十年积累的好东西都延续到了ios平台。

ios_study_20130911a

 

上图是delphi xe4中的开发状态。

下面是所有的代码:

procedure TfrmSqliteTest.btnOpenSqliteClick(Sender: TObject);
begin
  test_sqlite.Open;
  common.Open;
end;

procedure TfrmSqliteTest.btnAddRecordClick(Sender: TObject);
begin
  SqlQueryInsert.ParamByName('cm_money').AsFloat:=RandomRange(100,2000);
  SqlQueryInsert.ExecSQL();
  common.Refresh;
end;

procedure TfrmSqliteTest.test_sqliteBeforeConnect(Sender: TObject);
begin
{$IFDEF IOS}
  test_sqlite.Params.Values['Database'] := GetHomePath + PathDelim + 'Documents' +
    PathDelim + 'money.sqlite'
{$ENDIF}
end;

我觉得几乎不需要解释了,connect连接相关的就是为了分发到ios模拟器或者iphone真机上做准备的,因为ios还是有一套完善的sandbox机制的,需要遵循。