dm.pas

来自「老年人大学的学籍管理,主要是学费收取」· PAS 代码 · 共 38 行

unit dm;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, ADODB;

type
  Tcodedm = class(TDataModule)
    adqsex: TADOQuery;
    adqedu: TADOQuery;
    adqrace: TADOQuery;
    adqmarry: TADOQuery;
    adqparty: TADOQuery;
    adqart: TADOQuery;
    adqunit: TADOQuery;
    adqdep: TADOQuery;
    adqmajor: TADOQuery;
    adqgrade: TADOQuery;
    adqclass: TADOQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  codedm: Tcodedm;

implementation

uses umain;

{$R *.dfm}

end.