Hallo,
ich stehe hier vor einem Problem, welches mir nicht ganz plausibel erscheint.
Ich fange mal langsam an
1. Ich habe eine Tabelle mit Access erstellt
2. habe ich diese Tabelle via ADO in mein Delphiprogramm eingebunden
3. Die Daten werden einwandfrei gelesen und geschrieben, bis auf die Daten, die ich per TDBCheckBox verändere oder nur anzeigen lassen will.
Ich benutze eine eigene Steuerleiste für die Datenbank, da der DBNavigator ein paar Funktionen zubviel hat.
Nun zu meinem Problem:
Wenn ich etwas in der Checkbox eintrage, wir der alte Dateneintrag nicht in der Tabelle gelöscht, sondern bleibt bestehen und der neue Eintrag wird einfach hinzugefügt.
Beispiel für meine TDBCheckBox:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.DBCheckBox1Click(Sender: TObject);
begin
DBCheckBox2.Checked := false; DBCheckBox3.Checked := false; DBCheckBox4.Checked := false; raid1.Enabled := true; raid0.Enabled := true; noraid.Enabled:=false; noraid.Checked := false;
controller.Enabled:=true;controller.SetTextBuf('Adaptec ZCR-Controller 2010S');controllerser.Enabled:=true;controllerser.SetTextBuf('');
hddser2.Enabled:=true;hddser2.SetTextBuf('');
vgatyp.Enabled:=false;vgatyp.SetTextBuf('on Board');vgaser.Enabled:=false;vgaser.SetTextBuf('n.a.');
sentry_temp.SetTextBuf('500');
end; |
Scrolle ich jetzt mit meinem Button:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| procedure TForm1.BtnPriorClick(Sender: TObject);
begin
Tabelle.Prior;
BtnLast.Enabled:=True;BtnNext.Enabled:=true;
if Tabelle.Bof then BtnFirstClick(Self)
end; |
Verschwinden gesetzte Haken und tauchen beim zweiten anklicken wieder auf.
Ich hoffe ich habe mich verständlich ausgedrückt .... bzw. ausdrücken können.
Ich benutze Delphi 7 Enterprise.
Danke
Gruß
Snikch
Moderiert von 
raziel: Code- durch Delphi-Tags ersetztWenn ich alle meine C64'er und C128'er zusammenschalte habe ich einen 48Bit PC ...
