procedure TForm1.Button1Click(Sender: TObject);
begin
  Table1.DBSession.AddPassword('my1234');
  Table1.Open;
end;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Table1->DBSession->AddPassword("my1234");
  Table1->Open();
}

引言: 我覺得頗有收獲，那請問timhuang 大哥如果要自動輸入user name 又該如何？

引言: 是否可以寫程式的方式來輸入USER NAME=xxxxx PASSWORD=xxxx，這樣子就可以不同的使用者要登入他們自己的database，就不需要一個一個設定，改成可以程式控制，將 user name、password設成變數代入 再次感謝！！ < face="Verdana, Arial, Helvetica"> swordfox, 您好 可以的，但是必須在TDatabase元件Connected屬性設為true之前， 將USER NAME 與 PASSWORD的值傳給TDatabase元件的params屬性即可。 ======================= 涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。 是非終日有，不聽自然無 天下本無事，庸人自擾之

引言: 是否可以寫程式的方式來輸入USER NAME=xxxxx PASSWORD=xxxx，這樣子就可以不同的使用者要登入他們自己的database，就不需要一個一個設定，改成可以程式控制，將 user name、password設成變數代入

procedure TForm1.Button1Click(Sender: TObject);
begin
  Database1.Params.Values['USER NAME'] := 'testdbo';
  Database1.Params.Values['PASSWORD']  := 'testdbopw';
  Database1.Open;
end;

   Database1->Params->Values["USER NAME"]="abcdefg";
   Database1->Params->Values["PASSWORD"]="abcde";