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;

转载于:https://www.cnblogs.com/delphichm/p/3452849.html