Allgemeine Fragen zu Access + Delphi

[Sharky]

Hai Saulo,

anbei einmal etwas Code. Ich habe das Ganze ohne DBEdit-Felder gemacht weil.

Alle Felder sind reine TTedits. Im FormActivate lege ich die Passwordchar für die beiden Passwort-Felder fest.

Delphi-Quellcode:

procedure TForm3.FormActivate(Sender: TObject);
begin
 te_Passwort.PasswordChar := '*';
 te_wiederholung.PasswordChar := '*';
end;

{*********************************************************}

procedure TForm3.Button1Click(Sender: TObject);
begin
 Button3.Enabled := False;
 if (Length(TRIM(te_Username.Text)) < 6) then
  begin
   ShowMessage('Der Benutzername muss mindestens 5 Zeichen lang sei.');
   te_Username.SetFocus;
   Exit;
  end;
 if (Length(TRIM(te_Username.Text)) < 6) then
  begin
   ShowMessage('Das Passwort muss mindestens 5 Zeichen lang sei.');
   te_Passwort.SetFocus;
   Exit;
  end;
 if (te_wiederholung <> te_Passwort) then
  begin
   ShowMessage('Das Passwort ist nicht richtig bestätigt.');
   te_wiederholung.Text := '';
   te_wiederholung.SetFocus;
   Exit;
  end;
 if (TRIM(te_Vorname.Text = '')) then //Diesen Block für alle übrigen Edits wiederholen.
  begin
   ShowMessage('Bitte einen Vornamen eingeben.');
   te_wiederholung.SetFocus;
   Exit;
  end;

 Datamodule2.qryUser.Close;
 DataModule2.qryUser.SQL.Clear;
 DataModule2.qryUser.SQL.Add('SELECT Username FROM TUser WHERE Username ='+ QuotedStr(te_Username.Text));
 DataModule2.qryUser.Open;
  if (DataModul2.qryUser.RecordCount <> 0) then
   begin
    ShowMessage('Der Username ist bereits vergeben!');
    Datamodule2.qryUser.Close;
   end
  else
   begin
    with DataModule2.TUser do
     begin
      try
       Edit;
       FieldByName('Passwort').AsString := te_Passwort.Text;
       FieldByName('Username').AsString := te_Username.Text;
       FieldByName('Vorname').AsString := te_Vorname.Text;
       FieldByName('Name').AsString := te_Name.Text;
        // Hier wieder alle weiteren Felder
       Post;
       button3.Enabled := True;
      except
       Close;
       ShowMessage('Fehler unsoo');
      end;
     end;
   end;
end;

Zitat von Saulo:

...prüfe ich ob die telefonnummer richtig eingegeben ist..

Wie ist denn deine Definition einer "richigen Telefonnummer"?