u_web_dm.pas

以前写的一个利用P2P 技术的一个通讯的例子。里面用到了 DBISAM 、INDY 控件。

unit U_WEB_DM;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  TF_WEB_DM = class(TDataModule)
    WEBDB: TDatabase;
    qy_wangy: TQuery;
    sp_chkpwd_wangy: TStoredProc;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_WEB_DM: TF_WEB_DM;

implementation

{$R *.dfm}

end.