var
sql, sFile:string;
db:TSQLiteDatabase;
begin
try
sFile := G_AppPath + CH_IPC712Db;
//if FileExists('test.db') then DeleteFile('test.db');
//连接数据库，如果数据库文件不存在会自动创建
db:=TSQLiteDatabase.Create(sFile);//使用密码创建数据库
//db:=TSQLiteDatabase.Create('test.db',Nil);//无密码创建数据库
//创建USER表
sql:='CREATE TABLE USER(ID integer PRIMARY KEY AUTOINCREMENT NOT NULL,NAME VARCHAR(50),HOMEPAGE VARCHAR(255))';
db.ExecSQL(sql);
//插入一条测试数据
sql:='INSERT INTO USER VALUES(NULL,"ekinglong","http://www.blogjava.net/ekinglong")';
db.ExecSQL(sql);
sql := 'VACUUM';
db.ExecSQL(sql);
finally
db.Free;
end;
end;