当我运行我的程序并按下我的登录按钮之一时,它说缺少连接或连接字符串连接字符串已经存在
procedure TFmLogin.BtnLogin2Click(Sender: TObject);
begin
ADOUser.ConnectionString:=Connstr;
ADOUser.TableName:='TblUser';
ADOUser.Open;
if ADOUser.Locate('Username', EdUsename.Text,[]) then
begin
if EdPassword.Text=ADOUser['Pword'] then
begin
if ADOUser['AdminLevel']>=0 then
begin
FmBrowse.Delete;
Close
end
else
showmessage('password invalid.');
End;
end
else
Begin
showmessage('Username invalid.');
end;
Close;
end;
我在此过程中找不到任何应该寻找连接字符串的地方,并想知道是否有人可以帮助我找出哪里出错了