mydata.pas

来自「学生学籍管理源码」· PAS 代码 · 共 39 行

unit mydata;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  Tdata = class(TDataModule)
    tcjgly: TTable;
    tptgly: TTable;
    txj: TTable;
    tbk: TTable;
    tyd: TTable;
    tcj: TTable;
    cjgly: TDataSource;
    ptgly: TDataSource;
    xj: TDataSource;
    bk: TDataSource;
    yd: TDataSource;
    cj: TDataSource;
    Database1: TDatabase;
    tls: TTable;
    ls: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  data: Tdata;

implementation

{$R *.dfm}

end.