| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/10/16 15:10:03 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 我打入正确的用户名和密码都说我错了,我数据库字段是"user""pass""popedom"三个字段:那位可以解答下,(登陆窗口代码) try ADOTable1.Active:=true; ADOTable1.Filter:='USER="'+edit1.text+'"'; ADOTable1.Filtered:=true; ADOTable1.Open; Except application.Messagebox('请与系统管理员联系.','数据连接错误!',MB_OK); application.Terminate; end; if ADOTable1.RecordCount=1 then begin if ADOTable1['pass']=edit2.Text then begin if ADOTable1['popedom']='1' then begin form1.Hide; end else application.Messagebox('用户权限错误','权限错',MB_OK); end else application.Messagebox('用户密码错误','pass错',MB_OK); end else application.Messagebox('用户名错误','user错',MB_OK); end; ---------------------------------------------- ————————— 本人初学什么都不懂，请帮帮我，万分感谢 |
|||||
| 作者： |
|
2003/10/16 15:24:32 | ||||
| 1楼： | 如何写账号与写入的账号进行比较啊, ---------------------------------------------- ————————— 本人初学什么都不懂，请帮帮我，万分感谢 |
|||||
| 作者： |
|
2003/10/16 15:58:32 | ||||
| 2楼： | 我等,,,,,,,有人在吗,,,帮下我啦,,,,55555555555555555555555 ---------------------------------------------- ————————— 本人初学什么都不懂，请帮帮我，万分感谢 |
|||||
| 作者： |
|
2003/10/16 16:21:56 | ||||
| 3楼： | 给你一个例子： procedure TForm1.Button1Click(Sender: TObject); begin try adotable1.Open; Except application.Messagebox('请与系统管理员联系.','数据连接错误!',MB_OK); application.Terminate; end; adotable1.Locate('姓名',edit1.Text,[]); if adotable1['密码']=edit2.Text then showmessage('ok') else showmessage('no'); end; ---------------------------------------------- -http://www.aipetech.com |
|||||
| 作者： |
|
2003/10/16 17:35:48 | ||||
| 4楼： | 谢谢我看看,,谢谢你这么用心,,,,,感谢,,, ---------------------------------------------- ————————— 本人初学什么都不懂，请帮帮我，万分感谢 |
|||||
| 信息 |
| 登陆以后才能回复 |
