问题很简单,就是两个个EDIT控件。输入数据后判断其跟数据库里的name,password是否一致
代码如下:(数据库里只有一条记录)
if E_name.Text<>ADOTable1['name'] then
MessageDlg('无此用户!',mtinformation,[mbOK],0)
else begin
if
E_passworld.Text<>ADOTable1['password'] then
MessageDlg('密码错误,请重新输入',mtinformation,[mbOK],0)
else
。。
为什么无论我输入的用户名是否存在都显示 无此用户 ?
好像 if E_name.Text<>ADOTable1['name'] 这个条件白写了
我试过放个Label1
在 if E_name.Text<>ADOTable1['name'] 前加上Label1.Caption:=ADOTable1['name'];
运行后Label1的Caption显示的是正是我数据库里的数据没错啊,而且跟E_name.Text完全一样!这是怎么回事啊?还有我有时候关掉程序后就出现
Access violation at address 00000000.Read of address 0000000.
按多两次F9就没事了,这又是个什么问题?
代码如下:(数据库里只有一条记录)
if E_name.Text<>ADOTable1['name'] then
MessageDlg('无此用户!',mtinformation,[mbOK],0)
else begin
if
E_passworld.Text<>ADOTable1['password'] then
MessageDlg('密码错误,请重新输入',mtinformation,[mbOK],0)
else
。。
为什么无论我输入的用户名是否存在都显示 无此用户 ?
好像 if E_name.Text<>ADOTable1['name'] 这个条件白写了
我试过放个Label1
在 if E_name.Text<>ADOTable1['name'] 前加上Label1.Caption:=ADOTable1['name'];
运行后Label1的Caption显示的是正是我数据库里的数据没错啊,而且跟E_name.Text完全一样!这是怎么回事啊?还有我有时候关掉程序后就出现
Access violation at address 00000000.Read of address 0000000.
按多两次F9就没事了,这又是个什么问题?
也没用,直接跳过这个条件了跟没写一样郁闷死了,各位大侠救命啊~
应该在ADOTable1['name']前边加上trim(),去掉两边空格看看,应该是这样的。
if E_name.Text<>trim(ADOTable1['name']) then