程式部分： procedure TForm1.Button1Click(Sender: TObject); begin clientdataset1.First; if not clientdataset1.eof then begin if ClientDataSet1.Locate('loginname',sUserName,[])then begin pwd:=ClientDataSet1.lookup('loginname',sUserName,'password'); edit1.Text :=VarToStr(pwd); edit2.Text :=VarToStr(pwd); if pwd <> sUserPWD then begin Application.MessageBox('輸入的用戶名或密碼不對，請您重新檢查','注意',MB_OK); end else if pwd = sUserPWD then showmessage('OK'); end; end; end; 在上面的程式碼執行後，會出現一個問題-> 在第一次click後會先執行application.messagebox，在第二次click時才會執行showmessage，請問要如何解決(sUserName & sUserPWD的輸入均正確)??

你好 可以試試看在 pwd:=ClientDataSet1.lookup('loginname',sUserName,'password'); 這一段程式碼的部分下中斷點看一下所找到的資料為何!! Pillar Wang

------
Pillar Wang

您好﹗    改成這樣試試﹕

begin
  clientdataset1.First;
  if not clientdataset1.eof then
    begin
      if ClientDataSet1.Locate('loginname',sUserName,[])then
        begin
          pwd:=ClientDataSet1.lookup('loginname',sUserName,'password');
          edit1.Text :=VarToStr(pwd);
          edit2.Text :=VarToStr(pwd);
          if pwd <> sUserPWD then
            Application.MessageBox('輸入的用戶名或密碼不對，請您重新檢查','注意',MB_OK)
          else
            showmessage('OK');
        end;
    end;
end;

在上貼程式碼的時候﹐您可使用格式列中的[插入code]功能對程式碼進行縮排﹐以便觀察程式碼的流程﹒ ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================ 發表人 - cashxin2002 於 2005/04/06 12:09:10

------
忻晟

您好﹗    在改一下﹐因為您是利用Locate的方法先來判斷sUserName是否是正确的用戶名﹐若是的話﹐才會進入密碼正确与否的判斷中﹐所以可單獨顯示用戶名的錯誤還是密碼的錯誤﹐如下﹕

begin
  clientdataset1.First;
  if not clientdataset1.eof then
    begin
      if ClientDataSet1.Locate('loginname',sUserName,[])then
        begin
          pwd:=ClientDataSet1.lookup('loginname',sUserName,'password');
          edit1.Text :=VarToStr(pwd);
          edit2.Text :=VarToStr(pwd);
          if pwd <> sUserPWD then
            Application.MessageBox('輸入的密碼不對，請您重新檢查','注意',MB_OK)
          else
            showmessage('OK');
        end
      else
        begin
          Application.MessageBox('輸入的用戶名不對，請您重新檢查','注意',MB_OK);
        end;
    end;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

cashxin2002大大： 改成上述程式後，他直接show給用戶名不對的那個messagebox，感謝你的回答!!

您好﹗    這就說明在執行下句的Locate方法時﹐資料庫中沒有相符合sUserName的資料錄﹒ if ClientDataSet1.Locate('loginname',sUserName,[])then ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

所輸入的sUserName確實存在於資料錄中，仍然出現相同的問題。 目前採sUserName和sUserPWD同時check是可pass的，只是無法個別show出error是在username 或 password，我會再研究看看~~感謝你的回答!!^^ 再請教大大~~ 在開發OCX(ActiveForm)時，使用ClientDataSet1.Locate('loginname;password',VarArrayOf([sUserName,sUserPWD]),[])時會出現[Error] onlinetestImpl1.pas(405): Undeclared identifier: 'VarArrayOf' 此情形要如何解決呢?? 發表人 - jayko 於 2005/04/06 22:31:14

您好﹗    在Uses中加入Variants uses   Windows, Messages, SysUtils, Variants ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟