使用 IntraWeb (43) - 测试读取 SqLite (二)

概述一般情况下, 数据源相关控件应该有数据模块中统一管理, 这也方便其他窗体调用; UserSessionUnit 就是一个现成的数据模块. 现在把数据源相关控件放在 UserSessionUnit 的窗体上: FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink;FDGUIxWaitCursor1: TFDGUIxWaitCursor;FDConn
一般情况下,数据源相关控件应该有数据模块中统一管理,这也方便其他窗体调用; UserSessionUnit 就是一个现成的数据模块.
现在把数据源相关控件放在 UserSessionUnit 的窗体上:

FDPhyssqliteDriverlink1: TFDPhyssqliteDriverlink;FDGUIxWaitCursor1: TFDGUIxWaitCursor;FDConnection1: TFDConnection;DataSource1: TDataSource;FDtable1: TFDtable;

并在其 OnCreate 事件中写代码:

procedure TIWUserSession.IWUserSessionBaseCreate(Sender: TObject);begin  FDtable1.Connection := FDConnection1;  DataSource1.DataSet := FDtable1;  FDConnection1.Drivername := 'sqlite';  FDConnection1.Params.Add('Database=FDDemo.sdb');  FDtable1.tablename := 'Orders';  FDtable1.Active := True;end;

主窗体上只留了 IWDBGrID1: TIWDBGrID,其代码更简单了:

uses ServerController; {为使用 UserSession}procedure TIWForm1.IWAppFormCreate(Sender: TObject);begin  IWDBGrID1.DataSource := UserSession.DataSource1;  IWDBGrID1.Align := alClIEnt;end;

效果图:
总结

以上是内存溢出为你收集整理的使用 IntraWeb (43) - 测试读取 SqLite (二)全部内容，希望文章能够帮你解决使用 IntraWeb (43) - 测试读取 SqLite (二)所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。