我寫了幾段如下所示之Function 再執行時有幾個Function會出現DataBase Login的畫面.有的卻不會 且這幾段Function結構均相同,為開啟的資料表不同而已 請先進指點指點..Thanks function READ_ST (NO :STRING):STRING; VAR Query1 : TQUERY; begin TRY Query1 := TQUERY.Create(APPLICATION.Owner); Query1.DatabaseName := 'DB1'; //Query1.Database.LoginPrompt := False; //**error Query1.SQL.Clear; Query1.SQL.Add('SELECT * FROM ST'); QQuery1.SQL.Add('WHERE TENO = ''' NO ''''); Query1.Close; Query1.Open; IF Query1.Eof = FALSE THEN RESULT := Query1.FieldByName('LVE').AsString; IF Query1.Eof = TRUE THEN RESULT := ''; FINALLY Query1.Free; END; end;

建議你用 TDatabase 元件作統一的 Login 動作 (如果你所有的 Query 都指向同一個 Database). 這樣就不會有你說的問題了

function READ_ST (NO :STRING):STRING; VAR Query1 : TQUERY;ConnectionDb:TDataBase; //<----加 begin TRY ConnectionDb := TDataBase.Create(APPLICATION.Owner);//<----加 ConnectionDb.AliasName := 'DB1'; //<----加 ConnectionDb.Database := 'xDb1';//<----加 ConnectionDb.Database.LoginPrompt := False;//<----加 ConnectionDb.open; //<----加 Query1 := TQUERY.Create(APPLICATION.Owner); Query1.DatabaseName := 'xDB1'; //<----改 Query1.SQL.Clear; Query1.SQL.Add('SELECT * FROM ST'); QQuery1.SQL.Add('WHERE TENO = ''' NO ''''); Query1.Close; Query1.Open; IF Query1.Eof = FALSE THEN RESULT := Query1.FieldByName('LVE').AsString; IF Query1.Eof = TRUE THEN RESULT := ''; FINALLY Query1.Free; ConnectionDb.Free;;//<----加 END; end; [舉一反三]是成功設計師的特質

------
==取之於斯,用之於斯==

如前兩位所言, Create TDatabase 但讓該 TDatabase.KeepConnection Property -> True 較妥當. /* 使用中文很辛苦,中華男兒當自強 */

再請問一次 function UNSETREAD (UNNAME, ID :STRING):STRING; VAR ConnectionDb:TDataBase; QDBCHECK : TQUERY; begin TRY //ConnectionDb := TDataBase.Create(APPLICATION.Owner);//<----加(test1) //ConnectionDb.AliasName := 'db1'; //<----加(test1) //ConnectionDb.DatabaseName := 'db1';//<----加(test1) //ConnectionDb.LoginPrompt := False;//<----加(test1) //ConnectionDb.open; //<----加 //TDatabase.KeepConnection := True; //<----加(test3) QDBCHECK := TQUERY.Create(APPLICATION.Owner); QDBCHECK.DatabaseName := 'db1'; //MAIN //QDBCHECK.Database.LoginPrompt := False; //<----加(test2) //QDBCHECK.Database.KeepConnection := True; //<----加(test2) 我加了上述方式,均會發生錯誤,如不加又會出現LoginPrompt,但可正確使用 我的資料庫適用ODBC連結

ConnectionDb.AliasName := 'db1'; ConnectionDb.DatabaseName := 'db1'; 如上兩行, AliasName 與 DatabaseName 的值都相同 把 DatabaseName 的值改成跟 AliasName 不一樣試試 另外您說的會發生錯誤, 是什麼錯誤？ 錯誤訊息為何？ -- 將進酒 杯莫停 與君歌一曲 請君為我傾耳聽

我試過把 DatabaseName 的值改成跟 AliasName 不一樣 但結果均一樣 後來我將所需之DataBase全部在部在一開始用DateBase元件加入 並將LoginPrompt 設為 False與KeepConnection 設為 True 如此即可,這樣的方法對嗎

AliasName 是指在 BDE (或 ODBC) 定的名稱 DataBaseName 你可以隨便打就可以了, 之後的 TTable 或 TQuery 元件 ... 資料庫的名稱你用 DataBaseName 就可以了 這兩個是不能一樣的