上一页 1 2 3 4 5 6 7 8 9 10 ··· 215 下一页
摘要: 该话题的继续延伸主要就是 SQL 的语法了, 草草收场的原因是现在的脑筋已经进入了 IntraWeb 的世界.相关备忘会随时补充在下面://连接多个数据库的参考代码:FDConnection1.ExecSQL('ATTACH ''c:\hr.sdb'' AS hr');FDConnection1.E... 阅读全文
posted @ 2014-05-29 17:06 万一 阅读(6316) 评论(3) 推荐(0) 编辑
摘要: 可把下面代码直接贴在空白窗体上, 以快速完成窗体设计:object DBGrid1: TDBGrid Left = 0 Top = 0 Width = 265 Height = 338 Align = alLeft DataSource = DataSource1 TabOrder =... 阅读全文
posted @ 2014-05-28 23:06 万一 阅读(8321) 评论(1) 推荐(0) 编辑
摘要: R-Tree 主要用于三维空间的搜索, 据说这种搜索算法非常之快, 哪怕百万条记录也是眨眼间的事!SQLite 支持 1-5 维, FireDAC 也提供了 TFDSQLiteRTree 控件以方便定义回调函数. 为了简单, 我用二维表进行了成功的测试.建立 R-Tree 表(索引)时需要使用特定语... 阅读全文
posted @ 2014-05-24 00:37 万一 阅读(6897) 评论(4) 推荐(1) 编辑
摘要: SQLite 内部是按二进制排序, 可以支持 ANSI; FrieDAC 通过 TFDSQLiteCollation 支持了 Unicode 排序, 并可通过其 OnCompare 事件自定义排序.下面的例子, 测试了这两种排序的不同.可把下面代码直接贴在空白窗体上, 以快速完成窗体设计:objec... 阅读全文
posted @ 2014-05-23 13:51 万一 阅读(6699) 评论(0) 推荐(0) 编辑
摘要: Sqlite 本身没有这个功能, FireDAC 通过 TFDSQLiteFunction 增加了该功能; 尽管通过某些 SQL 语句或通过视图也可以达到类似效果, 但函数会更灵活些.本例先建了一个成绩表, 然后通过两个 TFDSQLiteFunction 实现了 "总分" 与 "平均分" 的计算.... 阅读全文
posted @ 2014-05-22 21:28 万一 阅读(7567) 评论(1) 推荐(0) 编辑
摘要: 用 TFDSQLiteBackup 控件, 两三行代码即可完成 Sqlite 数据库的备份.procedure TForm1.Button1Click(Sender: TObject);begin {先初始化目标} FDConnection1.DriverName := 'SQLite'; F... 阅读全文
posted @ 2014-05-22 15:19 万一 阅读(9189) 评论(6) 推荐(1) 编辑
摘要: 主要就是设置 TFDConnection 的两个链接参数: Password, NewPassword, 非常简单.const dbPath = 'C:\Temp\SQLiteTest.sdb';{建立加密数据库, 密码是 mm123}procedure TForm1.FormCreate(Sen... 阅读全文
posted @ 2014-05-21 22:37 万一 阅读(9304) 评论(5) 推荐(0) 编辑
摘要: 先在空白窗体上添加: TFDConnection、TFDPhysSQLiteDriverLink、TFDGUIxWaitCursor、TFDQuery、TDataSource、TDBGrid(并在设计时关联好).你也可以复制下面文本框中的内容, 然后直接往窗体上贴, 以快速完成以上的添加过程:obj... 阅读全文
posted @ 2014-05-21 20:34 万一 阅读(13083) 评论(0) 推荐(0) 编辑
摘要: 建立数据库的代码:{建立内存数据库的一般代码:}begin FDConnection1.DriverName := 'SQLite'; //同 FDConnection1.Params.Add('DriverID=SQLite');// FDConnection1.Params.Add('Dat... 阅读全文
posted @ 2014-05-21 15:40 万一 阅读(16011) 评论(5) 推荐(1) 编辑
摘要: 在空白窗体上添加: TFDConnection, TFDPhysSQLiteDriverLink, TFDGUIxWaitCursor, TMemoprocedure TForm1.FormCreate(Sender: TObject);var List: TStrings; V: Varian... 阅读全文
posted @ 2014-05-20 23:55 万一 阅读(17785) 评论(4) 推荐(0) 编辑
上一页 1 2 3 4 5 6 7 8 9 10 ··· 215 下一页