delphi7报错： Missing operator or semicolon

Posted 2023-02-15

代码：
//*******************登录********************
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Active:=false;
ADOQuery1.sql.Clear;
//进行登录判断。利用ADOQuery进行查找，匹配账号和密码
if ComboBox1.Text='用户' then
begin
ADOQuery1.SQL.Add('select * from 学生表 where id='''+Trim(Edit1.Text)+'''and 密码='''+Trim(Edit2.Text)+''' ');
end
else
begin
ADOQuery1.SQL.Add('select * from 管理员表 where id='''+Trim(Edit1.Text)+'''and 密码='''+Trim(Edit2.Text)+''' ');
end
ADOQuery1.Active:=true;
if ADOQuery1.IsEmpty then
begin
ShowMessage('用户信息错误，请核对您的账号密码后再登录！');
Edit2.Text:='';
Edit1.SetFocus;
Abort;
end
else
begin
close;
if ComboBox1.Text='管理员' then
begin
Form2.show;//登陆成功，显示另外一个窗体
Form1.Visible:=false;//隐藏当前窗体
end
else
begin
Form3.show;
Form1.Visible:=false;
end
end
end;

报错：
[错误] Unit1.pas(86): Missing operator or semicolon
[致命错误] Project1.dpr(7): Could not compile used unit 'Unit1.pas'

错误提示是说明缺少操作符或者分号，请检查每句代码后面是否都有结束标志
“；”，比如你的倒数第二个end就没有“；”。 参考技术A 86行没分号！ 参考技术B begin
end; //要加结束符号 ;本回答被提问者采纳