intraweb登錄界面問題 |
答題得分者是:waring_id
|
oktony
中階會員 發表:67 回覆:132 積分:64 註冊:2004-12-05 發送簡訊給我 |
我在一個登錄框輸入用戶名和密碼之後按下“確定”button會提示access violation at address XXXXXX出錯,這是爲什麽?button代碼如下:
procedure TfmMain.btnOKClick(Sender: TObject);
begin
if (trim(edtName.Text)='') or (trim(edtPsw.Text)='') then
begin
webapplication.ShowMessage('请输入用户名和密码!');
exit;
end;
with DM do
begin
tUser.Active:=True; //提示到這步出錯
if not tUser.Locate('name:psw',VarArrayOf([trim(edtName.Text),
trim(edtPsw.Text)]),[]) then
begin
WebApplication.ShowMessage('无效的用户名或口令,请重新输入!');
exit;
end;
Move(TfmMain);
end;
end;
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
|
oktony
中階會員 發表:67 回覆:132 積分:64 註冊:2004-12-05 發送簡訊給我 |
|
WoodTiger
初階會員 發表:35 回覆:90 積分:25 註冊:2003-08-01 發送簡訊給我 |
|
oktony
中階會員 發表:67 回覆:132 積分:64 註冊:2004-12-05 發送簡訊給我 |
|
waring_id
一般會員 發表:1 回覆:6 積分:6 註冊:2005-06-13 發送簡訊給我 |
不知你的DM中的数据的连接方式是什么,如果用ADO的话,就要设好它的联接状态。如果联接不成功的话可能会出现你说的那种情况,最好先做个测试,看看在正常的使用中能不能正常显示DM数据中的信息。
如果可以正常显示的话,估计可能是数据库的字段没设很好的原因。设有ADOConnection1,TADOTable1(LoginUser),TDataSource,
1: 设好ADOConnection1的联接,TADOTable1指向ADOConnection1(表User),TDataSource1指向TADOTable1,
2: 在TADOTable1的Paramters中输入:User :Password;
3: 在TADOTable1的SQL中输入
select *
from User
where (((User.UserId)=:User) and ((User.UserPwd)=:LoginPassword));
4: 在登录界面中输入
if UedtName.Text ='' then
begin
showm('Please Input The User Name:');
UedtName.SetFocus ;
exit; end;
if UedtPwd.Text ='' then
begin
showm('Please Input The User Password:');
UedtPwd.SetFocus ;
exit; end;
usersession.LoginUser.Close ;
Usersession.LoginUser.Parameters[0].Value:=trim(UedtName.Text) ;
Usersession.LoginUser.Parameters[1].Value:=UedtPwd.Text ;
Usersession.LoginUser.Open ;
if ((trim(UedtName.Text) =Usersession.LoginUser.FieldByName('UserId').AsString ) and (trim(UedtPwd.Text) =Usersession.LoginUser.FieldByName('UserPwd').AsString )) then
.......
然后后面的可以继续了 發表人 - waring_id 於 2005/08/07 23:54:51
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |