u_data.pas

来自「sqllite3数据库基本应用(打开,关闭表,及更新数据表)」· PAS 代码 · 共 37 行

unit u_data;

interface

uses
  SysUtils, Classes, DB, ASGSQLite3;

type
  TData = class(TDataModule)
    db: TASQLite3DB;
    Qmain: TASQLite3Query;
    Qtask: TASQLite3Query;
    Qtype: TASQLite3Query;
    Qlogin: TASQLite3Query;
    Qlist: TASQLite3Query;
    Quser: TASQLite3Query;
    Datauser: TDataSource;
    Update: TASQLite3UpdateSQL;
    datamain: TDataSource;
    Datalist: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Data: TData;

implementation

{$R *.dfm}



end.