udmcontact.pas

来自「Delphi课堂使用用例」· PAS 代码 · 共 30 行

unit udmContact;

interface

uses
  SysUtils, Classes, DBTables, DB;

type
  TdmContact = class(TDataModule)
    db: TDatabase;
    tbPhoneCode: TTable;
    qrSelect: TQuery;
    qrInsert: TQuery;
    qrUpdate: TQuery;
    qrDelete: TQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmContact: TdmContact;

implementation

{$R *.dfm}

end.