全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1696
推到 Plurk!
推到 Facebook!

intraweb登錄界面問題

答題得分者是:waring_id
oktony
中階會員


發表:67
回覆:132
積分:64
註冊:2004-12-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-12-29 22:31:07 IP:218.5.xxx.xxx 未訂閱
我在一個登錄框輸入用戶名和密碼之後按下“確定”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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-12-29 23:04:44 IP:218.32.xxx.xxx 未訂閱
oktony 你好: DM 可能尚未創建, Debug 一下, 應該不難.
oktony
中階會員


發表:67
回覆:132
積分:64
註冊:2004-12-05

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-12-29 23:35:09 IP:218.5.xxx.xxx 未訂閱
我已經debug過了還是一樣,難道是我delphi本身的問題?
WoodTiger
初階會員


發表:35
回覆:90
積分:25
註冊:2003-08-01

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-12-30 12:34:26 IP:60.191.xxx.xxx 未訂閱
oktony你好: 請試一下將servercontroller的cominitialization屬性設置ciMultiThreaded試一下。
------
-=-=-=-=-=-=-=-=-=-=-=
Eveything as your wish.
oktony
中階會員


發表:67
回覆:132
積分:64
註冊:2004-12-05

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-12-30 13:19:12 IP:218.5.xxx.xxx 未訂閱
引言: oktony你好: 請試一下將servercontroller的cominitialization屬性設置ciMultiThreaded試一下。
謝謝!我試過了還是一樣啊
waring_id
一般會員


發表:1
回覆:6
積分:6
註冊:2005-06-13

發送簡訊給我
#6 引用回覆 回覆 發表時間:2005-08-07 23:52:51 IP:218.20.xxx.xxx 未訂閱
不知你的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
系統時間:2024-05-02 21:01:29
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!