u_data1.pas

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

unit u_data1;

interface

uses
  SysUtils, Classes, ASGSQLite3, DB;

type
  TData = class(TDataModule)
    db: TASQLite3DB;
    UpdateSQL: TASQLite3UpdateSQL;
    qmain: TASQLite3Query;
    Datamain: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Data: TData;

implementation

{$R *.dfm}

end.