procedure Tform7.Button1Click(Sender: TObject);
begin
if(edit1.Text='') then
showmessage('请输入用户名!')
else
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from hyuser where uname=:a,hypwd=:d');
query1.Params[0].Value:=edit1.Text;
query1.Params[1].Value:=edit2.Text;
query1.Open; if query1.RecordCount<>0 then
fm_main.Show
else
messagedlg('用户名或密码错误!',mterror,[mbOK],0)end;
uname,hypwd 都为字符型,编译通过,可运行是提示:invalid use of keyword,token:,hypws=?
begin
if(edit1.Text='') then
showmessage('请输入用户名!')
else
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from hyuser where uname=:a,hypwd=:d');
query1.Params[0].Value:=edit1.Text;
query1.Params[1].Value:=edit2.Text;
query1.Open; if query1.RecordCount<>0 then
fm_main.Show
else
messagedlg('用户名或密码错误!',mterror,[mbOK],0)end;
uname,hypwd 都为字符型,编译通过,可运行是提示:invalid use of keyword,token:,hypws=?
解决方案 »
- delphi 对office 2007 的开发
- 如何向另一个程序发送一个ALT+S键
- ClientDataSet1调用存储过程时,第一次调用正常,当第二次调用时,输入参数丢失,谁知道怎么解决?
- 为何我的DELPHI7运行时,提示缺少QREPORT控件???
- 请看以下代码为什么close会出错?
- 請問哪里有關于 Delphi 控件的書籍下載
- 用quickreport做的报表在2000下显示正常,98下怎么那么多问题
- webbrowser弹出新IE后要重新验证
- 50分求winsock的delphi编程资料(中文),快拿分
- 下载的delphi程序不能运行,是什么原因?如何解决?
- 請教各位交叉表的問題,感謝!!!
- 怎么制作教学管理系统?
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from hyuser where uname=:a,hypwd=:d');
query1.Params[0].Value:=edit1.Text;
if edit2.Text<>'' then
query1.Params[1].Value:=edit2.Text
else
query1.Params[1].Value:=''''+'''';//否则应该是两个引号
query1.Open;
一个小小的建议:if(edit1.Text='') then
begin
showmessage('请输入用户名!');
edit1.setfocus;
end;
呵呵~~
query1.SQL.Add('select * from hyuser where uname=:a,hypwd=:d');
改为:
query1.SQL.Add('select * from hyuser where uname=:a and hypwd=:d');
即可.
query1.SQL.Clear;
query1.SQL.Add('select * from hyuser where uname=:a,hypwd=:d');
query1.open;
query1.edit;
query1.Params[0].Value:=edit1.Text;
query1.Params[1].Value:=edit2.Text;
query1.post;
query1.SQL.Add('select * from hyuser where uname=:a,hypwd=:d');//這句錯
query1.SQL.Add('select * from hyuser where uname=:a and hypwd=:d');//改為