工程检测到错误类EAccessViolation
procedure TIWFormLogin.IWButton1Click(Sender: TObject);
var un:integer;
begin
if (IWDBEdit1.Text='') or (IWDBEdit2.Text='') then
begin
WebApplication.ShowMessage('请输入完整的账号或密码！'); //密码或账号为空提示信息
Exit;
end
else
begin
DataModule1.ADOQuery1.Close;
DataModule1.ADOQuery1.SQL.Clear;
DataModule1.ADOQuery1.SQL.Add('SELECT * FROM LXSUser where UName='''+IWDBEdit1.Text+''''+'and UPSWord='''+IWDBEdit2.Text+'''');
//DataModule1.ADOQuery1.Connection.Connected:=True; //激活数据库连接控件 ??多余，和下句功能相同!!
DataModule1.ADOQuery1.Open;
un:=DataModule1.ADOQuery1.RecordCount;
if un=0 then
begin
WebApplication.ShowMessage('此用户名不存在');
exit;
end
else
begin
WebApplication.ShowMessage('用户存在');
//Release; //释放当前窗口
//FromDDEvent:= TFromDDEvent.Create(webapplication);
//FromDDEvent.Show; //显示下一窗口
//Move(TFromDDEvent);
end;
end;
end;
在输入用户名和密码后提示工程检测到错误类EAccessViolation，请帮忙纠错
