TQuery *qryUserName = new TQuery(this);
qryUserName->DatabaseName = "DATA";
qryUserName->SQL->Add("Select * from UserName");
qryUserName->Open();
//在執行Open() 時,彈出要輸入Database username 與Password 的對話框
//該如何才能消除該對話框呢? username 與password皆為空白
while (!qryUserName->Eof)
{
String username =qryUserName->FieldByName("username")->AsString;
qryUserName->Next();
}

qryUserName->Database->LoginPrompt = false;
還有這是Delphi 區，下次不要貼錯地方！

謝謝大大指正 ~  受教了 ~~ 下次會注意的 ~~