我有一個module 給三個project 用 有兩個project 都沒問題 但有一個用的時候會出現以下error 想請問有什麼可能性會產生

Hi, 看起來是發生問題的專案內, 有兩個 TDatabase 元件, 而 Database name 都設定為 SAMDB 才會發生問題的, 你檢查看看, 應該不難找出!

我是加了這一段之後才會有問題    

 
    try
         Database1.DataBaseName := DB_NAME;
         Database1.Open;
         Database1.Close;
     except
      on EDBEngineError do
      begin
         MessageDlg('Configuration Error on DataBaseName, Program Terminated',mtInformation,[mbOk],0);
         Halt;
      end;
     end;

請問大大知道問題有什麼可能產生 我也找過整個project 中的 Tdatabase 的元件 也看不出什麼 請幫忙

其實我只是想檢查進去的Database name 存不存在 如果不存在就終止程式 請問大大有其他方法嗎? 另外我不太清楚整個 Tsession , Tdatabase, Alias name , database name 的關係 有大大可以發表一下嗎?

另外我用這個方法 它說找不到 但我確定input的DB_name 是正確的 請問我那裡錯了  

 DB := Session1.FindDatabase(DB_NAME);
     if (DB = nil) then
     begin
         MessageDlg('Configuration Error on DataBaseName, Program Terminated',mtInformation,[mbOk],0);
         Halt;
 

TDatabase 的 DatabaseName 是讓 TQuery / TDataset / TTable 等這類元件去連結時使用的, 之所以會發生 'Duplicate database name 'SAMDB'' 的原因就是因為有兩個 TDatabase 的元件中的 DatabaseName 都設為 SAMDB, 所以會產生這個問題!!    另外利用 TSession 來找 TDatabase 是利用你的方式沒錯. 但要注意的是, 你要找的 TDatabase 的 SessionName 必須是你的 Session1 的 SessionName 才行哦, 否則當然會找不到囉. 你可以 check 你的 Object TreeView 即可明白.     如上圖所示, Session1 的 SessionName 是未設定的, 但 Database1 的 SessionName 是 Default, 所以利用 Session1.FindDatabase('mydb') 是找不到這 Database1 的, 要用 Session.FindDatabase('mydb') 才會傳回 Database1 !!

謝謝 timhuang 的講解 但我用的是delphi 4.0 請問那裡可以找到 object treeview?