Query Variable ??

[Gigant02]

so ich mal wieder

wenn ich das ganze jetzt in eine externe pas datei verfrachten will wie mache ich das

Delphi-Quellcode:

{$X+}

unit DB_Tools;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  ZConnection,
  zDataSet,
  DB,
  ZAbstractRODataset,
  ZAbstractDataset,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls;

//##############################################################################

function DB_OPEN(var qQuery : TzQuery; cSQL : String): Boolean;

//##############################################################################

implementation

uses DataModule;

function DB_OPEN(var qQuery : TzQuery; cSQL : String): Boolean;
begin

  result := False;
  qQuery := TZQuery.Create(DB_tools);
  qQuery.Connection := DataModule.FrmDataModule.TableConnection;
  qQuery.SQL.Clear;
  qQuery.SQL.Add(cSQL);
  qQuery.Open;
  Result := True;

end;

//******************************************************************************

end.

und dann überall diese pasdatei aufrufen will aber wie mache ich das ?? wenn ich keine form habe ???

hmm ein neues rätzel von mir

lg, Gigant