プログラムを実行してログイン ボタンの 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;
この手順のどこにも、接続文字列を探す必要がある場所が見つからず、どこが間違っているのかを誰かが教えてくれるかどうか疑問に思いました