Delphi for iOS开发指南(15):在iOS应用程序中使用SQLite

来源：互联网发布：星火网络电视编辑：程序博客网时间：2024/05/21 11:03

在开始这篇教程之前，你应该阅读并执行下面教程：

iOS开发指南(9)：在iOS应用程序中使用ListBox组件来显示TableView

这篇教程描述了在iOS Device上，通过dbExpress框架，来使用SQLite作为一个本地数据存储的基本步骤。

使用DBExpress来连接数据库

dbExpress是一个十分快速的数据库访问框架，由Delphi编写。RAD Studio为很多主要的数据库提供驱动，例如InterBase，Oracle，DB2，SQL Server，MySQL，Firebird，SQLite，和ODBC。你可以使用相同的过程来访问这些不同的数据库。

在iOS平台，dbExpress支持InterBase ToGo，也支持SQLite。这些数据库产品可以运行在iOSDevice上。
对于其他数据库，例如，Oracle，你至少需要一个客户端的库。在Windows平台上，客户端的库由一个DLL提供来连接数据库。因为，你需要使用中间层技术，例如DataSnap来在iOS Device上连接这些数据库。

另一个讨论如何在iOS Device上不使用客户端的库连接企业级数据库的教程；请查看“iOS教程：在iOS客户端应用程序中连接企业级数据库”。

在Window环境下创建开发使用的数据库

首先，你需要创建一下SQLite数据库文件在你的Windows开发平台下。使用如下步骤，以便于你可以使用Mobile Form Designer来设计你的iOS应用的用户界面。

在Data Explorer中创建数据库

1. 到Data Explorer中，右击SQLite节点，然后选择Add New Connection：

2. 定义连接的名称，例如ShoppingList。

3. 指定数据库文件的路径：

4. 占击Advanced按钮打开Advanced Properties对话框。

5. 更改FailIfMissing属性为Fale，然后关闭对话框：注：设置FailIfMissing为False表示命令DataExplorer在文件不存在的情况下创建一个新的数据库文件。

6. 点击Test Connection按钮。在这个操作中，如果数据库文件不存在，那么会创建一个新的。

在Data Explorer中创建表

1. 在Data Explorer上，选择在SQLite节的ShoppingList节点，然后从下拉菜单中选择New Table。

2. 指定标题为ShopItem列的类型为TEXT。

3. 点击Save按钮，然后指定一个表名（例如，Item。）

设计并配置用户界面

这篇教程使用一个TListBox组件来作为UI元素。

要配置一个ListBox组件，使用下列步骤：

1. 要创建一个HD FireMonkey Mobile Application，选择File>New>FireMonkeyMobile Application-Delphi>Blank Application。

2. 拖放一个TToolBar到窗体上。

3. 拖放一个TButton到TToolBar组件上。

4. 在Object Inspector中设置如下属性：

设置Name属性为ButtonAdd。
设置StyleLookup属性为addtoolbuttonbordered。

5. 拖放一个TButton到TToolBar组件上。

6. 在Object Inspector中设置如下属性：

设置Name属性为ButtonDelete。
设置StyleLookup属性为deletetoolbutton。
设置Text为Delete。
设置Visible为False。

7. 拖放一个TLabel到TToolBar组件上。

8. 在Object Inspector中设置如下属性：

设置Align为alClient。
设置StyleLookup为toollabel。
设置Text为ShoppingList。
设置TextAlign为taCenter。

9. 拖放一个TListBox组件在窗体上。

10. 在Object Inspector，设置ListBox组件的如下属性：

设置Align属性为alClient，以便ListBox组件填充整个窗体。

连接数据

下面这些是连接在Data Explorer中已经定义好了的数据库中的数据的基本步骤：

1. 在Data Explorer上选中Item表，然后拖放到Form Designer上。

注：这会创建两个组件（ShoppingList：TSQLConenction以及Item：TSQLDataSet）到窗体上。

2. 在窗体上选中ShoppingList组件，然后更改Connected属性为True。

3. 在窗体上选中Item组件，然后更改Active属性为True。

4. 选择View>LiveBindings Designer，然后LiveBindingsDesigner打开。

5. 选中Item组件中的ShopItem，然后拖动ShopItem到ListBox1。

下面这些步骤使用在SQLIite数据库中的数据与用户界面连接。如果这篇教程中你使用一个已经存在数据的表，现在应该可以在Form Designer中看到真实数据。

创建一个事件处理过程，当用户从列表中选中一个项目时来让Delete按钮显示

Delete按钮的Visible属性设置为False。因此，默认，用户看不到这个按钮。你可以在用户在列表中选中一个项目时让它可见，如下：

选中ListBox1，然后为OnItemClick事件定义如下事件处理过程。

[delphi] view plaincopyprint?

procedure TForm1.ListBox1ItemClick(const Sender:TCustomListBox;
const Item:TListBoxItem);
begin
ButtonDelete.Visible:= ListBox1.Selected <> nil;
end;

procedure TForm1.ListBox1ItemClick(const Sender:TCustomListBox;  const Item:TListBoxItem);begin  ButtonDelete.Visible:= ListBox1.Selected <> nil;end;

为Add按钮创建一个事件处理过程，来添加列表项

下一步是给应用程序添加一个功能，可以添加一个项目到Shopping List中去。

1. 拖放一个TSQLQuery组件到窗体上。

2. 在Object Inspector中设置如下属性：

设置Name属性为SQLQueryInsert。
设置SQLConneciton属性为ShoppingList。
设置SQL属性如下：INSERT INTO ITEM (ShopItem) VALUES (:ShopItem)
在Params属性上的Expand（…）按钮。
选中ShopItem参数，然后设置DataType为ftString：

3. 在Form Designer中，双击AddButton组件。添加如下代码到事件处理过程中：

[delphi] view plaincopyprint?

procedure TForm1.ButtonAddClick(Sender: TObject);
var
TaskName: String;
begin
try
if InputQuery('EnterNew Item', 'Name', TaskName) and (TaskName.Trim <> '') then
begin
SQLQueryInsert.ParamByName('ShopItem').AsString := TaskName;
SQLQueryInsert.ExecSQL();
Item.Refresh;
ButtonDelete.Visible := ListBox1.Selected <> nil;
end;
except
on e: Exceptiondo
begin
ShowMessage(e.Message);
end;
end;
end;

procedure TForm1.ButtonAddClick(Sender: TObject);var  TaskName: String;begin  try    if InputQuery('EnterNew Item', 'Name', TaskName) and (TaskName.Trim <> '') then    begin     SQLQueryInsert.ParamByName('ShopItem').AsString := TaskName;     SQLQueryInsert.ExecSQL();      Item.Refresh;     ButtonDelete.Visible := ListBox1.Selected <> nil;    end;  except    on e: Exceptiondo    begin     ShowMessage(e.Message);    end;  end;end;

InputQuery函数显示一个对话框来要求用户输入文本。这个函数在用户选择OK按钮时返回True，以便你可以在用户选择OK并且文本中包含一些数据时才添加数据到数据库中。

为Delete按钮创建一个事件处理过程，来从列表中删除一项

下一步就是给应用程序添加一个功能来从Shopping List中删除一项：

1. 拖放一个TSQLQuery到窗体上。

2. 在Object Inspector中设置如下属性：

设置Name属性为SQLQueryDelete。
设置SQLConnection属性为ShoppingList。
设置SQL属性如下：delete from Item where ShopItem = :ShopItem
选择Params属性的Expand（…）按钮。
选中ShopItem参数，设置DataType为ftString。

3. 在Form Designer中，双击DeleteButton组件。添加如下代码到事件处理过程中：

[delphi] view plaincopyprint?

procedure TForm1.ButtonDeleteClick(Sender: TObject);
var
TaskName: String;
begin
TaskName := ListBox1.Selected.Text;
try
SQLQueryDelete.ParamByName('ShopItem').AsString := TaskName;
SQLQueryDelete.ExecSQL();
Item.Refresh;
ButtonDelete.Visible := ListBox1.Selected <> nil;
except
on e: Exception do
begin
SHowMessage(e.Message);
end;
end;
end;

procedure TForm1.ButtonDeleteClick(Sender: TObject);var  TaskName: String;begin  TaskName := ListBox1.Selected.Text;   try    SQLQueryDelete.ParamByName('ShopItem').AsString := TaskName;    SQLQueryDelete.ExecSQL();    Item.Refresh;    ButtonDelete.Visible := ListBox1.Selected <> nil;  except    on e: Exception do    begin      SHowMessage(e.Message);    end;  end;end;

修改你的代码来连接到在iOS上的本地数据库文件

这个程序的基本功能已经实现了。之前在Data Explorer中，你在Windows上创建了一个数据库文件。这个数据库文件现在在你的iOS Device上不能使用了，除非你将它复制到iOS Device上或创建它。

你可以按照如下步骤创建一个SQLite数据库和表：

指定在iOSDevice上的SQLite数据库路径

1. 在Form Designer中，选中ShoppingList组件。

2. 在Object Inspector中，双击BeforeConnect事件。

3. 添加如下代码到事件处理过程中：

GetHomePath函数提供给你一个iOS应用的真实根目录。强烈建议使用常量System.SysUtils.PathDelim，因为PathDelim使用特定平台的路径分隔符（而不是写死在代码里，例如\或/）。

如果不存在，那么创建表

使用SQLite，当表不存在的时候，你可以创建一个表，通过使用CREATE TABLE IF NOT EXISTS语句。你可以在TSQLConnection组件连接到数据库之后，TSQLDataSet组件连接到表之前创建一个表。使用如下步骤：

1. 在Form Designer中，选中ShoppingList组件。

2. 在Object Inspector，双击AfterConnect事件。

3. 添加如下代码到事件处理过程中：

[delphi] view plaincopyprint?

procedure TForm1.ShoppingListAfterConnect(Sender: TObject);
begin
ShoppingList.ExecuteDirect('CREATE TABLE IF NOT EXISTS Item (ShopItem TEXT NOT NULL)');
end;

procedure TForm1.ShoppingListAfterConnect(Sender: TObject);begin  ShoppingList.ExecuteDirect('CREATE TABLE IF NOT EXISTS Item (ShopItem  TEXT NOT NULL)');end;

在iOS Simulator或iOSDevice上运行你的应用程序