dbcheckboxwert auf default setzen bei neuen Datensatz

Arne Danikowski · Beiträge: 194

Hallo,

ich habe folgenden Code

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
    if Button = nbInsert then            //Wenn Button + betätigt wird
    begin
      edit1.Text:='';                    //Suchfeld wird geleert
      dbedit1.SetFocus;                  //Fokus auf erstes Eingabefeld Namen
      table1.edit;                       //Werte in Datenbank schreiben Checkboxen sollen Nein erhalten
      DBCheckBox1.Checked := False;
      DBCheckBox2.Checked := False;
      DBCheckBox3.Checked := False;
      DBCheckBox4.Checked := False;
      DBCheckBox5.Checked := False;
      table1.post;

    end
end;

Dieser soll, immer wenn der Plus-Button vom dbnavigator gedrücht wird die dbcheckboxen 1-5 auf false setzen. Aber immer wenn ich den Code ausführe, dann
macht der das zwar setz danach die Boxen aber sofort wieder auf nicht ausgewählt, also weder true noch false.
Wenn ich das table.post herausnehme geht es solange, bis ich den Datendatz abspeichere.

was mache ich falsch?

Kroko · Beiträge: 1284 W98 W2k WXP Turbo D

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
    if Button = nbInsert then            //Wenn Button + betätigt wird
    begin
      edit1.Text:='';                    //Suchfeld wird geleert
      dbedit1.SetFocus;                  //Fokus auf erstes Eingabefeld Namen
      table1.edit;                       //Werte in Datenbank schreiben Checkboxen sollen Nein erhalten
      DBCheckBox1.Field.AsBoolean := False;
      //etc.
      table1.post;

    end
end;

_________________
Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!

Arne Danikowski · Beiträge: 194

Danke für die Anwort und Dein Interesse,

Das funktioniert soweit, nur schreibt er nun ein "F" in die Datenbank. Die dbcheckboxes habe ich so konfiguriert, dass false = NEIN und true=JA ist. Dementsprechend sind auch die Datenbankfilter.
Theoretisch könnte ich damit leben, nur müsste ich dann den Filter überall ändern.
Gibt es auch eine Möglichkeit gleich den Wert NEIN zu hinterlegen?

Kroko · Beiträge: 1284 W98 W2k WXP Turbo D

Was passiert denn, wenn statt AsBoolean

markieren

Delphi-Quelltext

1:	AsString := 'NEIN';

schreibst?

_________________
Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!

Arne Danikowski · Beiträge: 194

Ok wer nachdenken kann ist auch klar im Vorteil

bin dann selber darauf gekommen

markieren

Delphi-Quelltext

1:	DBCheckBox1.Field.String := 'NEIN';

Also vorherigen Eintrag ignorieren

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme