密碼登入框的問題? |
|
尚未結案
|
|
assessa
一般會員   發表：2 回覆：2 積分：0 註冊：2002-04-22 發送簡訊給我 |
看了前幾篇文章...做了一個密碼登入框
用adoquery連結access...
登入按鈕只要帳號密碼有錯show出('帳號或密碼不對')後再執行就會出現EOF,BOF畫面
登入按鈕程式如下 procedure TForm2.Button2Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.Active:=false;
adoquery1.SQL.Text :='select * from 員工 where psnl_no=' '' (combobox1.Text) ' and password=' trim(edit2.Text );
adoquery1.Active:=true;
adoquery1.Open ;
if adoquery1.RecordCount>0 then
ModalResult :=mrok
else
showmessage('帳號或密碼不對');
end;
|
|
huwk
資深會員  發表：26 回覆：340 積分：323 註冊：2002-04-03 發送簡訊給我 |
|
|
Arlung Miao
初階會員 發表：9 回覆：44 積分：25 註冊：2004-08-25 發送簡訊給我 |
試一下改成:
adoquery1.Close;
adoquery1.SQL.Text :='select * from 員工 where psnl_no=' '' (combobox1.Text) ' and password=' trim(edit2.Text );
adoquery1.Open ;
if not adoquery1.Eof then begin
ModalResult := mrok;
end else begin
ShowMessage('帳號或密碼不對');
end;
|
|
xxxxzxx
一般會員 發表：21 回覆：49 積分：24 註冊：2004-11-15 發送簡訊給我 |
引言: 看了前幾篇文章...做了一個密碼登入框 用adoquery連結access... 登入按鈕只要帳號密碼有錯show出('帳號或密碼不對')後再執行就會出現EOF,BOF畫面 登入按鈕程式如下 procedure TForm2.Button2Click(Sender: TObject); begin adoquery1.Close; adoquery1.Active:=false; adoquery1.SQL.Text :='select * from 員工 where psnl_no=' '' (combobox1.Text) ' and password=' trim(edit2.Text ); adoquery1.Active:=true; adoquery1.Open ; if adoquery1.RecordCount>0 then ModalResult :=mrok else showmessage('帳號或密碼不對'); end;改成: procedure TForm2.Button2Click(Sender: TObject); begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add('select * from 員工 where psnl_no=''' (combobox1.Text) ''' and password=''' trim(edit2.Text ) ''''); adoquery1.Open ; if adoquery1.RecordCount>0 then ModalResult :=mrok else showmessage('帳號或密碼不對'); end; //需要特别注意SQL语句中的数据类型的一致. |
|
assessa
一般會員 發表：2 回覆：2 積分：0 註冊：2002-04-22 發送簡訊給我 |
發表時間：2005-05-17 21:41:00
IP:61.225.xxx.xxx 未訂閱
系統時間：2024-07-03 2:06:01
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |