各位大哥,我现在在练习一个人事管理的MIS,在系统登陆的LOGIN。PAS中有如下的代码,procedure TF_login.B_loginClick(Sender: TObject);
var
passwd:String;
begin
With DM_main do
begin
Database.Connected:=True;
passwd:=i_passwd.Text;
with q_login do
begin close; SQL.clear; SQL.add('SELECT * FROM PERSON WHERE ID=:USER AND PASSWD=:PASSWD');
sql.add(' AND AUTHORITY='4'');
ParamByname('user').Asstring:=i_user.Text;
parambyname('passwd').AsString:=i_passwd.Text; prepare; open; end;
if Q_login.RecordCount=1 then
begin
F_main.Show;
F_login.Hide;
end
else
begin
Application.MessageBox('请确认用户名和密码,注意大小写!', '认证失败',MB_OK);
Database.Connected:=False;
end;
end;
end;执行时出错误提示“[Error] u_login.pas(68): Missing operator or semicolon
[Fatal Error] attendance.dpr(11): Could not compile used unit 'u_login.pas'”,光标停在sql.add(' AND AUTHORITY='4'');行
是什么错误,小弟多谢了!!!
var
passwd:String;
begin
With DM_main do
begin
Database.Connected:=True;
passwd:=i_passwd.Text;
with q_login do
begin close; SQL.clear; SQL.add('SELECT * FROM PERSON WHERE ID=:USER AND PASSWD=:PASSWD');
sql.add(' AND AUTHORITY='4'');
ParamByname('user').Asstring:=i_user.Text;
parambyname('passwd').AsString:=i_passwd.Text; prepare; open; end;
if Q_login.RecordCount=1 then
begin
F_main.Show;
F_login.Hide;
end
else
begin
Application.MessageBox('请确认用户名和密码,注意大小写!', '认证失败',MB_OK);
Database.Connected:=False;
end;
end;
end;执行时出错误提示“[Error] u_login.pas(68): Missing operator or semicolon
[Fatal Error] attendance.dpr(11): Could not compile used unit 'u_login.pas'”,光标停在sql.add(' AND AUTHORITY='4'');行
是什么错误,小弟多谢了!!!
少了两个单引号