我用的是一个数据表来放用户名和密码的
有一段代码不知怎么样写
意思是:当数据表中的某一行的name字段等于edit1.text、password字段等于edit2.text
然后执行XX
否则执行XX
有一段代码不知怎么样写
意思是:当数据表中的某一行的name字段等于edit1.text、password字段等于edit2.text
然后执行XX
否则执行XX
解决方案 »
- 报表的存取
- 怎么自动生成unit文件?
- 如何用Delphi调用执行Oracle9i的存储过程
- delphi 7与6 的兼容问题? 帮忙
- 已经知道进程的ID,怎么判断这个进程是否还在运行?
- 怎么样才能把键盘上的 Print Screen 键的功能屏蔽掉啊?
- 如果在网络状况不好的情况下,使用SOCKET传输数据,如何避免丢包和长时间等待现象。
- 如何在一个机子上备份数据库服务器上的数据库(备份到数据库服务器上)
- 竹自语请教各位前辈高人:有没有什么中文版的书籍可以代替Delphi帮助的?
- 如何解决delphi5不支持SQL-SERVER70的nvarchar数据类型
- 如何播放文件流
- 在delphi中, 如何调用access2000数据库的报表?
if cilentdataset.locate(用户名的字端名,edit1.text,[]) then
if cilentdataset.fieldbyname(密码的字段名).asstring = edit2.text then
begin
验证成功;
end
else
密码不正确
else
用户名不存在
这种程序很容易找到啊....老大
如果返回的结果为1,那么就算登陆成功!
cilentdataset我指的是用TCilentdataset的控件名字。你有没有丢这样一个控件上去啊?
你看不看出错提示的??
我都写得这么清楚了,如果你还搞不定,难道要我发源代码给你?
补补基础知识去吧......
现在不想动脑子的人太多了~http://lysoft.7u7.net
===或者这样子===>
With AdoQuery do
begin
close;
Sql.Clear;
Sql.Add('Select * from TableName where Name=Trim(edit1.text) and PassWord=Trim(edit2.text)');
open;
If RecordCount>0 then
begin
//执行XX
end
Else
begin
//执行YY
end;
end;
实现方法太多了,随你喜欢,呵呵
只有一边做一些小程序一边学,这样容易记住,但没基础雨步难行
大哥们能告诉我如何入门才是好啊,有没有一边做一边学的教程这种更合适我的学习方法。
先谢谢大家的指导!^_^
有这样的入门教程希望大家高抬贵手发我一份:[email protected]
谢谢
begin
with table1 do
if (edit1.text<>'')and (edit2.text<>'') then //当姓名和密码都不为空时
begin
open; //打开表
if locate('xingming',edit1.text,[])=true then //查找表中姓名是否相同
begin
if fieldbyname('mima').value=trim(edit2.text) then //密码也相同时
from2.show; // 窗体2打开
end
else
from1.close;
end
else
showmessage('请输入你的姓名和密码,谢谢!');
end;