使用sqlite必须指定sqlite的驱动文件位置，windows系统就是sqlite3.dll文件的位置，一般把这个文件放在程序目录下。Sqlite3.dll分64位和32位，根据你的程序选择对应的驱动文件。如果你写的程序是32位的就必须使用32位的sqlite3.dll。你用64位的lazarus开发32位的sqlite程序，那么在开发时候就不会实时的连接到数据库，只能编译后执行时才能连接到数据库。

一、要使用sqlite数据库需要：

1、给ZConnection控件的Protocol属性选“sqlite-3”。

2、给ZConnection控件的LibraryLocation属性指定驱动文件的路径，如果驱动文件在工程目录下，只给出文件名就可以了，程序默认会搜索工程目录下是否有指定的驱动文件。

3、给ZConnection控件的Database属性指定数据库文件名。

现在就可以连接到sqlite3数据库了。

二、下面我们创建一个工程，工程界面如下图：

界面上的组件如下图：

组件的属性设置：

1、ZConnection1:

ControlsCodePage = cCP_UTF8

Connected = True

Database = ':memory:'

Protocol = 'sqlite-3'

LibraryLocation = 'sqlite3.dll'

说明：Database = ':memory:'此属性是指定数据文件，:memory:是内存数据库，程序退出后数据库就没了。

2、ZQuery2:

Connection = ZConnection1

SQL='select id,[名称] from [品种]'

3、DataSource2:

DataSet = ZQuery2

4、DBLookupListBox1:

KeyField = 'id'

ListField = '名称'

ListSource = DataSource2

5、ZQuery1:

Connection = ZConnection1

SQL = 'select * from [化验项目]'

MasterSource = DataSource2

MasterFields = 'id'

LinkedFields = 'pzid'

说明：MasterSource属性设置主表数据源

MasterFields属性设置主表中主从关联的字段

LinkedFields属性设置从表中主从关联的字段

实际就是执行：’select * from [化验项目] where LinkedFields=MasterFields’,上面三个属性就是主从关系联动的关键属性。

6、DataSource1:

DataSet = ZQuery1

7、DBLookupListBox2:

KeyField = 'id'

ListField = '名称'

ListFieldIndex = 0

ListSource = DataSource1

8、DBEdit1: TDBEdit

DataField = '最大值'

DataSource = DataSource1

9、 DBEdit2: TDBEdit

DataField = '最小值'

DataSource = DataSource1

10、DBEdit3: TDBEdit

DataField = '默认值'

DataSource = DataSource1

现在我们双击“创建数据库”按钮，来编写按钮的click事件处理函数，在这里我们创建数据库表：

procedure TForm1.Button1Click(Sender: TObject);var	sqlscript: TZSQLProcessor;	sql: String;begin  sqlscript:=TZSQLProcessor.Create(nil);  sqlscript.Connection:=ZConnection1;  //sqlscript.LoadFromFile('test.SQL');	sql:='DROP TABLE IF EXISTS [品种];'+#13#10+          'CREATE TABLE [品种] ( '+          '[id] integer NOT NULL PRIMARY KEY AUTOINCREMENT,'+          '[名称] nvarchar(254));'+#13#10+          'INSERT INTO [品种] ([名称]) VALUES ("玉米");'+#13#10+          'INSERT INTO [品种] ([名称]) VALUES ("大豆");'+#13#10+          'INSERT INTO [品种] ([名称]) VALUES ("高粱");'+#13#10+          'DROP TABLE IF EXISTS [化验项目];'+#13#10+          'CREATE TABLE [化验项目] ( '+          '[id] integer NOT NULL PRIMARY KEY AUTOINCREMENT, '+          '[pzid] integer,'+          '[名称] nvarchar(254), '+          '[最大值] smallint,'+          '[最小值] smallint, '+          '[默认值] smallint '+          ');'+#13#10+          'INSERT INTO [化验项目] ([pzid],[名称],[最大值],[最小值],[默认值]) VALUES (1,"等级",5,1,2);'+#13#10+          'INSERT INTO [化验项目] ([pzid],[名称],[最大值],[最小值],[默认值]) VALUES (1,"水分",30,15,22);'+#13#10+          'INSERT INTO [化验项目] ([pzid],[名称],[最大值],[最小值],[默认值]) VALUES (2,"等级",3,1,1);';  sqlscript.Execute;  ZQuery2.Active:= True;  ZQuery1.Active:=True;end;

其实sql脚本中的“Drop table ”在这里是没有用的，因为我们使用的是内存数据库，内存数据库在程序每次启动时都是空的。

双击DBLookupListBox1，编写DBLookupListBox1的click事件，这个click事件就是我们选择一个item时触发的函数。

procedure TForm1.DBLookupListBox1Click(Sender: TObject; User: boolean);begin  if DBLookupListBox1.ItemIndex > -1 then begin      //移动Query游标到当前选择的记录上      ZQuery2.RecNo:=DBLookupListBox1.ItemIndex+1;  end;end;

同样的我们再编写DBLookupListBox2的click处理函数：

procedure TForm1.DBLookupListBox2Click(Sender: TObject);begin  if DBLookupListBox2.ItemIndex > -1 then begin  		ZQuery1.RecNo:= DBLookupListBox2.ItemIndex+1;  end;end;

这两个DBLookupListBox控件也可以用TDBGrid控件代替，如果使用TDBGrid控件，我们连上面的事件处理都不用写了，因为TDBGrid控件自带导航记录的功能。

这个主从表联动的示例就完成了，当我们选择一个粮食品种时，检验项目中就会显示这个粮食品种相关的检验项目，当我们选择一个检验项目时，就会显示相应的项目属性。

声明一下，本人不是程序员，也不做相关工作，纯属业余爱好，所以文章仅供参考，有错误之处勿喷，欢迎指正。