0

プログラムを実行してログイン ボタンの 1 つを押すと、接続または接続文字列が見つからないと表示されます。接続文字列は既に存在します

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;

この手順のどこにも、接続文字列を探す必要がある場所が見つからず、どこが間違っているのかを誰かが教えてくれるかどうか疑問に思いました

4

2 に答える 2