ASQLite3DB1
1 新建文件夹 d:\d
2 下载 sqliteadmin
3 用 sqliteadmin 新建数据库 D:\d\db1.s3db
4 新建表 tb1 到数据库 db1 中
5 添加 2行数据到表 tb1 中
6 安装 Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801(不要汉化)
7 下载并安装 ASqlite
File - Close All
File - Open - ASGSQLite3Dsg.pas
Component - Install Component - ok
8 创建 工程 File - Close All
File - New - Application
添加
Edit1: TEdit;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ASQLite3DB1: TASQLite3DB;
ASQLite3Query1: TASQLite3Query;
8 复制 sqlite3.dll 文件到工程目录
procedure TForm1.Edit1Change(Sender: TObject);
begin
//数据库连接组件设置
with ASQLite3DB1 do
begin
Connected := False;
Database := 'db1.s3db';
DefaultDir := ExtractFilePath(Application.ExeName);
DefaultExt := '.s3db';
DriverDLL := 'SQLite3.dll';
Database := 'db1.s3db';
Connected := True;
end;
//数据库查询组件设置
with ASQLite3Query1 do
begin
Close;
Connection := ASQLite3DB1;
SQL.Clear;
SQL.Add('Select * FROM tb1 ' + //tb1后有个空格
'where fd1 like ' + '''' + '%' + Trim(edit1.Text) + '%' + '''' +
' or ' + //or前后都有个空格
'fd2 like ' + '''' + '%' + Trim(edit1.Text) + '%' + '''');
Open;
end;
//数据源设置
DataSource1.DataSet := ASQLite3Query1;
//数据表格设置
DBGrid1.DataSource := DataSource1;
end;