datamodulelocate.pas

学籍管理

{**********************************************************************}
{                    ==================                                }
{                       本地数据模块                                   }
{                   ==================                                 }
{                                    《学籍管理系统》--作者：贺广兵    }
{                                                                      }
{   主要提供给主程序单元访问数据库，通过同组的远程数据模块访问数据库， }
{   及易发生一些问题，如：把远程数据模块的 DATA 通过 DATASOURCE 提供   }
{   给本主程序的 TCLIENTDATASET 则抛出异常。估计是访问冲突，或者是     }
{   MIDAS 本身的限制。                                                 }
{                                                                      }
{**********************************************************************}
unit DataModuleLocate;

interface

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

type
  TLocateData = class(TDataModule)
    ADOConnectionPassword: TADOConnection;
    ADOConnectionDataSource: TADOConnection;
    ADODataSetPassword: TADODataSet;
    ADODataSetDataSource: TADODataSet;
    DataSourceDataSource: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LocateData: TLocateData;

implementation

{$R *.DFM}

end.