unit DmWater;

interface

uses
  Windows, SysUtils, Messages, Classes, Forms, DB, 
    Controls, Variants, Dialogs, ExtCtrls, Math, DateUtils, dbisamtb;


procedure TGasDB.DataModuleCreate(Sender: TObject);
var
  strDirName  : AnsiString;
begin
    strDirName := ExtractFilePath(Application.EXEName) + 'DB';
    {strDirName := GetExeDir + 'DB';  }
    GasDB.DBGas.Connected := False;
    GasDB.DBGas.Directory := strDirName;
    GasDB.DBGas.SessionName := 'Gsesh';
    GasDB.DBGas.Connected := True;
     with GasDB.DBGas do begin
            DBGas.Connected := True;
            PersTbl.active := True;
            ProvTbl.Active := True;
            BillsTbl.Active := True;
            HseItemsTbl.Active := True;
            ItemsLKupTbl.Active := True;
            UFact.Active := True;
            HeatLoss.Active := True;
            QCalcTot.Active := True;
            QCalcIndoor.Active := True;
            QWaterCalc.Active := True;
            Glossary.Active := True;
       end;
 GasMain.Caption := 'EasyTools GasEasy      Brought to you by ' + GasDB.ProvTblProviderID.Value + ' From ' + GasDB.ProvTblBusName.Value;
end;

Add Forms to Uses for the data module top line

Uses Clause in Phone easy
  Windows, SysUtils, Classes, DB, dbisamtb, Messages, Dialogs, Controls, ExtCtrls,
  Forms, Math;
//-------------------------
//PhDM is the name of the datamodule form
//PhoneDB is the name of the database within the datamodule
//--------------------------------------
procedure TPhDM.DataModuleCreate(Sender: TObject);
var
  strDirName  : AnsiString;
begin
    strDirName := ExtractFilePath(Application.EXEName) + 'DB';
    {strDirName := GetExeDir + 'DB';  }
    PhDM.PhoneDB.Connected := False;
    PhDM.PhoneDB.Directory := strDirName;
    PhDM.PhoneDB.SessionName := 'SPh';
    PhDM.PhoneDB.Connected := True;
     with PhDM.PhoneDB do begin
            PhoneDB.Connected := True;
            Pers.active := True;
            PlansTbl.Active := True;
            PlnItems.Active := True;
            AltPlanItems.Active := True;
            ItmTypes.Active := True;
            Prov.Active := True;
            QCompare.Active := True;
            PlanCalls.Active := True;
            QCompCallDet.Active := True;

       end;
    bTestItems := False;
end;at