if adoquery1.Fields[0].value=null then //没有检索出密码
begin
Application.MessageBox('请确认用户名是否正确!','用户名错误!',mb_ok);
exit;
end;
if adoquery1.Fields[0].value=edit_passwd.Text then
begin
if adoquery1.Fields[1].value='1' then
begin
Form1.hide;
form_student.show;
end
else
Application.MessageBox('请选择合适的登录软件!','用户权限错误!',mb_ok);
end
else
Application.MessageBox('密码不正确,注意大小写!','密码错误!',mb_ok);其中if adoquery1.Fields[1].value='1' 中的最后一个1是指什么 是数据库中的还是哪里的???
end ;
begin
Application.MessageBox('请确认用户名是否正确!','用户名错误!',mb_ok);
exit;
end;
if adoquery1.Fields[0].value=edit_passwd.Text then
begin
if adoquery1.Fields[1].value='1' then
begin
Form1.hide;
form_student.show;
end
else
Application.MessageBox('请选择合适的登录软件!','用户权限错误!',mb_ok);
end
else
Application.MessageBox('密码不正确,注意大小写!','密码错误!',mb_ok);其中if adoquery1.Fields[1].value='1' 中的最后一个1是指什么 是数据库中的还是哪里的???
end ;
解决方案 »
- 又收到Borland说我用盗版的传真。散200分。
- 谁能提供一个类似webbrowser的控件?
- IdTCPClien连接不了
- 超级奇怪的问题: dxDBGrid +adoTable 请教各位??
- 想实现类似netmeeting的功能! 底层传输数据部分代码已经写完,c写的,可作成dll提供delphi调用....
- 在TPaintBox上画曲线,曲线每秒钟都有变化,怎么让曲线自右向左的秒动?
- 谁有SOAPConnection连接成功过的?能不能交流一下!
- 如何用sql语句统计满足条件的记录数?
- 同志们谁知道再word里怎么拆分单元格,近来的同志都有分,回答问题的,多加分。。。。
- 您好! 如何使用下载的控件??
- 大家帮帮忙! 如何取十六进制字符串的一段?
- 怎样delphi自带的窗体中加入一个自己的属性
用户名 char 4
密码 int 6
权限 char 1
那是不是指的是密码 是引号里的1 不是中括号里的1