usecdata.pas

来自「一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件」· PAS 代码 · 共 34 行

unit uSECData;

interface

uses
  SysUtils, Classes, ABSMain, DB, Provider, Controls;

type
  TSECData = class(TDataModule)
    ABSDatabase1: TABSDatabase;
    qryGetMaxID: TABSQuery;
    qryTree: TABSQuery;
    UpTree: TABSQuery;
    DelTree: TABSQuery;
    InsTree: TABSQuery;
    qryHints: TABSQuery;
    DP: TDataSetProvider;
    qryTmp: TABSQuery;
    UpHints: TABSQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SECData: TSECData;

implementation

{$R *.dfm}

end.