Delphi連接mysql 要做登入畫面該如何開始呢? |
答題得分者是:malanlk
|
b7307024
一般會員 發表:9 回覆:21 積分:6 註冊:2005-07-31 發送簡訊給我 |
|
malanlk
尊榮會員 發表:20 回覆:694 積分:577 註冊:2004-04-19 發送簡訊給我 |
用 Edit...
DBEdit 是所謂的 Data Aware 元件, 必須要和 Table/Query/DataSet 及 DataSource 合在一起用來編輯資料表內欄位的內容. 你只是要做登入, 所以應該是 用幾個 Edit 輸入 Server, UserName, Password 資料後, 代入 TMyConnection 的 Server, UserName, Password三個 Propertys. 再呼叫 TMyConnection.Connect 做登入及連接. 是不是先去看一些基本入門的書, 有不懂的地方再來問....
|
b7307024
一般會員 發表:9 回覆:21 積分:6 註冊:2005-07-31 發送簡訊給我 |
|
malanlk
尊榮會員 發表:20 回覆:694 積分:577 註冊:2004-04-19 發送簡訊給我 |
|
b7307024
一般會員 發表:9 回覆:21 積分:6 註冊:2005-07-31 發送簡訊給我 |
感謝之前大大的回覆!小弟回去事了一下,漸有斬獲!不過我又遇到新的問題了!
我弄兩個edit作帳密的輸入及一個button做按鈕登入在form上,然後在按鈕裡寫了下列程式碼:
MyQuery1.SQL.Text:='SELECT * FROM users where name=''' edit1.text ''' AND password=''' edit2.text '''';
MyQuery1.Execute;
MyQuery1.SQL.Text:=IntToStr(MyQuery1.RecordCount);
if (MyQuery1.RecordCount > 0) then ShowMessage('success');
起先我是先測試 MyQuery1.SQL.Text:=IntToStr(MyQuery1.RecordCount); 將MyQuery1.SQL.Text改成edit3.text 測試輸入正確的值得1及不正確的值得0,結果可以正常執行,但我加入if (MyQuery1.RecordCount > 0) then ShowMessage('success'); ,正常來說MyQuery1.RecordCount > 0 會得到true 就會顯示新視窗 success 但我執行後,結果沒有動靜,那可以請各位大大幫我看看錯在哪裡嗎?謝謝!
|
malanlk
尊榮會員 發表:20 回覆:694 積分:577 註冊:2004-04-19 發送簡訊給我 |
MyQuery1.SQL.Text:='SELECT * FROM users where name='''+ edit1.text + ''' AND password=''' + edit2.text + '''';
MyQuery1.Open;
//MyQuery1.SQL.Text:=IntToStr(MyQuery1.RecordCount);
if (MyQuery1.RecordCount > 0) then ShowMessage('success');
MyQuery1.Close; 發表人 - malanlk 於 2005/08/29 19:05:51
|
b7307024
一般會員 發表:9 回覆:21 積分:6 註冊:2005-07-31 發送簡訊給我 |
|
b7307024
一般會員 發表:9 回覆:21 積分:6 註冊:2005-07-31 發送簡訊給我 |
|
malanlk
尊榮會員 發表:20 回覆:694 積分:577 註冊:2004-04-19 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |