Ich möchte gerne sicherstellen, dass wenn eine Tabelle (in diesem Fall adotHours
) Edit oder Insert-Modus eintritt und der Benutzer auf die Schaltfläche Speichern, aber versehentlich den gleichen Wert unter der Hours
Spalte wie bereits gebucht eingegeben, erscheint eine Meldung Please enter another value
, andernfalls wird ein anderer Code verwendet, wenn der Benutzer einen anderen Wert eingibt.Probleme mit adoTable
Ich habe die folgende Methode versucht, aber es funktioniert nicht, - was auch immer der Benutzer gibt die Nachricht Please enter another value
erscheint.
procedure TfrmLabour.Button6Click(Sender: TObject);
var
i,j, t: String;
begin
Edit1.Text := adotHours['Hours'];
j := Edit1.Text;
adotHours.Post;
Edit2.Text := adotHours['Hours'];
t := Edit2.Text;
if t = j then
showmessage ('Please enter another value')
else begin.....
end;
während ich weiß, es ist nicht der eleganteste Code sein kann, war mein Denken, dass, sobald der Wert hatte adotHours
Hours
durch die angeschlossenen DBgrid
geschrieben worden ist, wenn es ein anderer Wert ist vor t
die neuen werden würde Wert und damit adotHours['Hours']
wäre anders und erlauben die else begin
. Vorschläge?
Und überprüfen Sie OldValue innerhalb Vorpost Ereignis, viel einfacher und weniger Code als OP mit all den zusätzlichen Zuweisungen etc ... –