要如何由程式自動輸入Password |
尚未結案
|
erosme
初階會員 發表:5 回覆:44 積分:29 註冊:2002-12-23 發送簡訊給我 |
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
|
erosme
初階會員 發表:5 回覆:44 積分:29 註冊:2002-12-23 發送簡訊給我 |
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
若是 paradox 的 table password 的話, 可以使用: Table1.DBSession.AddPassword('my1234'); 來進行. 這樣會將 password 放上 Table1 的 DBSession 中.
當然, 若是要移除 password (也就是不要自動登入) 就使用: Table1.DBSession.RemoveAllPasswords; 即可. 範例如下:
procedure TForm1.Button1Click(Sender: TObject); begin Table1.DBSession.AddPassword('my1234'); Table1.Open; end;參考資料 : http://www.rydval.cz/slavek/delphiparadox.php SORRY 忘了是 BCB 的. 再寫一個 BCB 的版本: void __fastcall TForm1::Button1Click(TObject *Sender) { Table1->DBSession->AddPassword("my1234"); Table1->Open(); }發表人 - timhuang 於 2003/05/18 17:12:25 |
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
erosme
初階會員 發表:5 回覆:44 積分:29 註冊:2002-12-23 發送簡訊給我 |
|
swordfox
一般會員 發表:2 回覆:7 積分:1 註冊:2003-05-21 發送簡訊給我 |
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
|
swordfox
一般會員 發表:2 回覆:7 積分:1 註冊:2003-05-21 發送簡訊給我 |
|
tech_state
版主 發表:44 回覆:638 積分:641 註冊:2003-02-10 發送簡訊給我 |
引言: 是否可以寫程式的方式來輸入USER NAME=xxxxx PASSWORD=xxxx,這樣子就可以不同的使用者要登入他們自己的database,就不需要一個一個設定,改成可以程式控制,將 user name、password設成變數代入 再次感謝!! >>< face="Verdana, Arial, Helvetica"> swordfox, 您好 可以的,但是必須在TDatabase元件Connected屬性設為true之前, 將USER NAME 與 PASSWORD的值傳給TDatabase元件的params屬性即可。 ======================= 涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。 是非終日有,不聽自然無 天下本無事,庸人自擾之 |
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
引言: 是否可以寫程式的方式來輸入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; |
swordfox
一般會員 發表:2 回覆:7 積分:1 註冊:2003-05-21 發送簡訊給我 |
|
swordfox
一般會員 發表:2 回覆:7 積分:1 註冊:2003-05-21 發送簡訊給我 |
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
|
swordfox
一般會員 發表:2 回覆:7 積分:1 註冊:2003-05-21 發送簡訊給我 |
|
tech_state
版主 發表:44 回覆:638 積分:641 註冊:2003-02-10 發送簡訊給我 |
swordfox, 您好
timhuang前輩之前用的是Delphi的寫法,請您試試如下的用法。
Database1->Params->Values["USER NAME"]="abcdefg"; Database1->Params->Values["PASSWORD"]="abcde";看來真要如taishyang版主所說的,要請timhuang前輩回答問題時, 列出Delphi與BCB兩種寫法了。 ======================= <>涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。> <>是非終日有,不聽自然無> <>天下本無事,庸人自擾之> |
swordfox
一般會員 發表:2 回覆:7 積分:1 註冊:2003-05-21 發送簡訊給我 |
To tech_state 大姐:
剛剛試過了,可以,謝謝妳!
不過還有個問題:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Query1->DatabaseName="922424";
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("Select 手機 From Customer Where 姓名 Like'abc'");
Query1->Open();
}
上面的式子是我要去抓一筆資料的程式,我想將它 show 在Edit1->Text上
該如何作呢?
謝謝!!
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |