datamodule.pas

在打沙场用的最简单

unit Datamodule;

interface

uses
  SysUtils, Classes, Provider, DBClient, DB, ADODB, Forms;

type
  TData = class(TDataModule)
    ADOConnection: TADOConnection;
    QGetdata: TADOQuery;
    CDSgetdata: TClientDataSet;
    DSPgetdata: TDataSetProvider;
    Qcommon: TADOQuery;
    Sgetoutnumber: TADOStoredProc;
    Sgetinnumber: TADOStoredProc;
    Spurchasedetail: TADOStoredProc;
    CDSpurchasedetail: TClientDataSet;
    DSPpurchasedetail: TDataSetProvider;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Data: TData;

implementation

uses DatabaseLink, Servers;

{$R *.dfm}

procedure TData.DataModuleCreate(Sender: TObject);
begin
  try
    Adoconnection.Connected:=False;
    Adoconnection.KeepConnection:=False;
    Adoconnection.LoginPrompt:=False;
    Adoconnection.ConnectionString:=Trim(Frmservers.sc);
    Adoconnection.Connected:=True;
  except
     frmdatabaseLink:=TfrmdatabaseLink.Create(application);
     frmdatabaseLink.ShowModal;
  end;
end;

end.