DBgrid;überprüfen des Fieldinhalt vor dem Übernahme

[khalilazzz]

hallo zusammen
Ich habe so ein aufgabe,die sich mit dem DBgrid adotabel,dbsource und accessdatenbank beschäftigt.
ich habe folgendes Problem:
bevor die eingebeben Daten durch das drücken der Retuntaste in dem datenbank aufgenommen wird,wird zusert geprüft,ob dieses Field des DBGrids daten enthält,damit man einen leeres Feld in dem Datenbank vermeiden kann.
bei dem unten eingegeben Code,scheint alles korrekt zu sein.leider ist die abfrage (trim(f.text)<>'') immer true ist,obwohl drin in dem Feld nicht eingegeben worden ist,da der inhalt des f.text entspricht den Ihahlt in dem datenbank.
ich habe andere methoden probiert(f.displaytext, f.value) leider hat es nicht geklappt
hat jemand so einen Idee wie man so was lösen kanm
danke für eure Hilfe.

Code:

procedure TForm.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
 f:TField;
begin
  f:=DBGrid1.SelectedField;
 if(trim(f.text) <>'') and (key=VK_Return) then
   key:=VK_Down
else
  key=0;
 end;

[Sharky]

Hai khalilazzz,

bei den meisten DBs ist es so das ein (String)Feld das noch keinen Inhalt hat dieses den "Wert" Null besitzt. Du solltest also noch zusätzlich prüfen ob das Feld NULL ist.

Code:

procedure TForm.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
 f:TField;
begin
  f:=DBGrid1.SelectedField;
 if ((trim(f.text) <>'') OR (Not (f.IsNull)) and (key=VK_Return) then
   key:=VK_Down
else
  key=0;
 end;

[/quote]

[r_kerber]

Moin khalilazzz,

ich würde die Überprüfung nicht im Grid1KeyDown-Ereignis durchführen. Besser wäre es meines Erachtens im BeforePost der zugehörigen Table bzw Query. Und dann solltest Du den Wert des von Query.Field überprüfen. (z.B. mit IsNull). Falls Du leere zeichenketten auch ausschließen willst geht es auch so (gefunden ibn der OH!),mußt es nur sinngemäß auf ein TStringField anwenden:

Delphi-Quellcode:

procedure TForm1.Table1BeforePost(DataSet: TDataSet);

begin
if DBEdit1.Text = '' then
  Abort;

end;

[khalilazzz]

hi
danke für deinen antwort
ich habe damit auch probiert,leider klappt es nicht.das problem liegt drin,dass die abfrage wird in dem datenbank durchgeführt,und nicht bezogen auf dem Feld des DBgrides ist, so dass der inhalt dieses Feld in dem datenbank (nicht in dem DBgrid) kein null ist und damit ist diese abfrag (if not (f.isNull))immer erfüllt,so dass bei dem drücken des Eingabe taste einen Null in dem Datenbank aufgenommen wird,was zu einem exception führt.

[urs.liska]

Hallo khalilazzz,

wie r_kerber geschrieben hat, ist Dein ursprünglicher Code im OnKeyDown-Event fehl am Platz (der ursprüngliche Code gibt für mich ehrlich gesagt gar keinen Sinn).

Was Du tun musst, ist, im OnBeforePost-Event Dein Feld zu prüfen:

Delphi-Quellcode:

procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
  // (Angenommen, das zu prüfende Feld heißt Feld1)
  If Table1Feld1.IsNull or (Table1Feld1.AsString = '') then abort // bzw. Fehlermeldung ausgeben
end

Damit prüfst Du, ob das Feld NULL ist oder einen leeren String hat.
Wenn Du die Felder nicht persistent hinzufügen willst (über den Feldeditor), musst Du mit Table1.Fields[n] arbeiten (evtl. in einer Schleife abarbeiten).
Diese Abfragen prüfen den aktuellen Wert in Deinen Komponenten, nicht den Wert in der DB.
Vielleicht kommt Dein Problem daher, dass TField.Text nicht den Inhalt des Feldes, sondern den Text angibt, der in einem Steuerelement angezeigt wird (z.B. wird bei einem Blob-Feld nicht der Inhalt angezeigt, sondern "(blob)" oder "(BLOB)"). Ich weiß nicht genau, was bei einem leeren Feld angezeigt wird...

Hoffe das hilft Dir weiter
Urs