0

アプリケーションに入力するためのログイン ウィンドウがあります。ここでは login1 という名前のテーブルを挿入し、 と の 2 つの列が"username"あり"password"ます。1) コマンド ボタン 2) Enter キーの 2 つのケースで「ログイン」を行うためのイベントを含めました。そのため、ボタンのクリックイベントと「Enter!」のキーダウンをトリガーするユーザーイベントに次のコードを記述していました。鍵。

if KeyDown(KeyEnter!) THEN   //In User Event case only
string ls_unm;
string ls_pass,ls_field;
ls_unm=dw_log.GetItemString(1,"user_name1");
ls_pass=dw_log.GetItemString(1,"password1");
select password1 into :ls_field  from login1 where login1.user_name1=:ls_unm;
if(ls_field=ls_pass) then  
commit; 
close (w_login);
open(w_main);
else
 rollback;
 messagebox( "","login faild");
 dw_log.Reset();
 dw_log.InsertRow(0);
 end if
    END if

しかし、これで適切なログインを行う方法をデバッグモードでチェックしても、常に「ログインに失敗しました」という応答が返されました

4

2 に答える 2

1

「AcceptText」行が欠落している可能性がありますか?

if KeyDown(KeyEnter!) THEN   //In User Event case only
    string ls_unm;
    string ls_pass,ls_field;
    dw_log.AcceptText()
    ls_unm=dw_log.GetItemString(1,"user_name1");
    ls_pass=dw_log.GetItemString(1,"password1");
于 2016-11-07T08:57:36.960 に答える