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.