Einzelnen Beitrag anzeigen

Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#28
  Alt 14. Nov 2002, 20:09
Hallo m-werk,

immer wenn du auf die Passwoerter Tabelle zugreifen willst, also hier:

Delphi-Quellcode:
procedure TfrmLogin.FormActivate(Sender: TObject);
begin
   Session.AddPassword('mwerk');
   qryUser.Close;
   qryUser.Open;
   cbUser.Clear;
   if qryUser.RecordCount = 0 then
      cbUser.Items.Add('Kein User definiert.')
   else begin
      cbUser.Items.Add('Bitte User auswählen.');
      while not qryUser.EOF do
      begin
         cbUser.Items.Add(qryUserName.Value);
         qryUser.Next
      end
   end;
   cbUser.ItemIndex := 0;
   Session.RemoveAllPasswords;
end;
und natürlich hier:
Delphi-Quellcode:
procedure TfrmLogin.BitBtn1Click(Sender: TObject);
begin
   if Trim(ePasswort.Text) = 'then
   begin
      MessageDlg('Bitte gültiges Passwort eingeben.', mtInformation,
                 [mbOK], 0);
      ActiveControl := ePasswort;
      ModalResult := mrNone;
      EXIT
   end;
   PasswortOK := False;
   qryCheck.Close;
   if Trim(cbUser.Text) <> 'then
   begin
      qryCheck.ParamByName('name').AsString := cbUser.Text;
      try
         Session.AddPassword('mwerk');
         qryCheck.Open;
         if UpperCase(Trim(qryCheckPasswort.Value)) =
            UpperCase(Trim(ePasswort.Text)) then
            PasswortOK := True
         else begin
            PasswortOK := False;
            MessageDlg('Passwort stimmt nicht.', mtError, [mbOK], 0);
            ModalResult := mrNone;
         end;
         Session.RemoveAllPasswords;
      except
         on exception do
         begin
             MessageDlg('User nicht gefunden.', mtError, [mbOK], 0);
            PasswortOK := False;
         end
      end
   end
   else begin
      MessageDlg('Bitte gültigen User auswählen.', mtError, [mbOK], 0);
      PasswortOK := False;
   end;
   qryCheck.Close;
end;
Zu dem unique Name Problem müsstest du mal im Einzelschrittverfahren die Stelle lokalisieren, an der dieser Fehler auftritt.
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat