主题:[讨论]ADO数据库连接&SQL语法错误~求救高手~急!!
我做的毕业设计是DELPHI和ACCESS数据库连接的教材管理系统。但是一个小的身份验证界面就出现了语法错误。。请高手帮帮吧~很急~
下面是程序代码~编译时无错误~但是一运行,输入用户名和密码后,点击确定~就会提示FROM语句子句语法错误~而且我又做了一个调用的窗体,但是两个连接不上~
procedure TForm1.Button1Click(Sender: TObject);
var CmdStr:String;
UserType:integer;
//MainForm: TMainForm;
begin
ADOQueryUser.SQL.Clear;
CmdStr:='select * from 操作员信息表 用户名='+ QuotedStr(username.Text) + 'and 密码='+ QuotedStr(password.Text);
ADOQueryUser.SQL.Add(CmdStr);
ADOQueryUser.Open;
if ADOQueryUser.RecordCount<>0 then
begin
UserType:=ADOQueryUser.FieldList[2].AsInteger;
if UserType=0 then
begin
//MainForm.ShowModal(); //管理
end
else
begin
//一般用户
end
end
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.
下面是程序代码~编译时无错误~但是一运行,输入用户名和密码后,点击确定~就会提示FROM语句子句语法错误~而且我又做了一个调用的窗体,但是两个连接不上~
procedure TForm1.Button1Click(Sender: TObject);
var CmdStr:String;
UserType:integer;
//MainForm: TMainForm;
begin
ADOQueryUser.SQL.Clear;
CmdStr:='select * from 操作员信息表 用户名='+ QuotedStr(username.Text) + 'and 密码='+ QuotedStr(password.Text);
ADOQueryUser.SQL.Add(CmdStr);
ADOQueryUser.Open;
if ADOQueryUser.RecordCount<>0 then
begin
UserType:=ADOQueryUser.FieldList[2].AsInteger;
if UserType=0 then
begin
//MainForm.ShowModal(); //管理
end
else
begin
//一般用户
end
end
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.