Discussion :

[Invité]

Bonjour,

dans un DataModule, je dispose d'un connecteur qui est associé à une adresse de serveur, un utilisateur et un password fixes.

Mais la base change selon les TForm. Par exemple dans Form1 et Form2, j'utilise BaseA alors que Form3 utilise BaseB.

La procédure de connexion est dans le DataModule. Je me demandais si selon le nom de la Tform, je pouvais dans cette procédure définir la Base concernée.... ce qui sous entendrait que la méthode function TDataModule.eConnect() : Boolean; serait capable de déterminer dans quelle Form elle est appelée...

Donc schématiquement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
function TDataModule.eConnect() : Boolean;
var
  aBase : String;
begin
  aBase := gBaseDefault;
  case TForm.name of 
    'Form1', 'Form2' : aBase := 'BaseA';
    'Form3' : aBase := 'BaseB';
  [...]
  end;
end;

OK pour l'erreur sur le case of (sur des chaines)... Le problème c'est le TForm qui correspondrait à la Form appelant la fonction du DataModule.

Est-ce jouable ? Bon évidemment, on peut passer le nom de la Form appelante comme paramètre de la méthode... Mais sinon, y a-t-il un moyen en Delphi comme exprimé ci-dessus ?
Merci.

[retwas]

Avec un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if Assigned(TForm3) then
 // tu modifie le param sur sqlconnection contenant ta bdd

[anapurna]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Procedure Connet (FrmAppelant : String) ;
const 
    CSTR_DEFAULT_ALIAS = 'BaseA';
Begin
   database.Connected := FALSE;
    ...
   // parametre ALIAS
  if (frmAppelenant = 'Form3' ) then
     database.AliasName := 'BaseB'
  else
    database.AliasName := CSTR_DEFAULT_ALIAS;
  try
    database.Connected := TRUE;
  // nom d'alias à utiliser
    database.Session.NetFileDir := ExtractFilePath(Application.ExeName); 
  except
    ShowMessage('La base identifiée par '''+database.AliasName+''' est introuvable.');
    Halt(1);
  end;
end;

[tourlourou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
function TDataModule.eConnect(Sender: TForm) : Boolean;
var
  aBase : String;
begin
  aBase := gBaseDefault;
  if Sender is TFormx then aBase := 'BaseX';
  // autant qu'il le faut
  //.. 
end;

ou, pourquoi pas (s'il n'est pas contre nature que le TForm appelant puisse connaître le nom de la base qui lui est associée, en constante dans l'unité par exemple, ou constante de classe) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function TDataModule.eConnect(ToBase: string) : Boolean;