editieren in DBEdit-Feld nich möglich

[daredd]

Also ich stelle meine Frage noch mal ganz einfach.
Wieso kann ich nicht im DBEdit-Feld editieren? Readonly ist auf False, Enabled auf True. Woran kanns liegen? Erlaubt es vielleicht die Datenbank nicht?

[DeddyH]

Ist die Datenmenge im Editiermodus?

[daredd]

was meinst du?
Also ich habe über

Delphi-Quellcode:

dbName.Text :=  DM.tbKunde.FieldByName('Name').AsString;

daten (also den Namen des Kunden) im Feld drin, wenn ich das Panel mit den DBEdits öffne.
Oder meinste was anderes?

[mkinzler]

Er meint die Datenmenge, mit welcher die DBEdits verknüpft sind.

[daredd]

wenn ihr mir sagt wo ich das Schauen kann, also mit ner Datenbank ist es verknüpft. Aber die Datenmenge?

[mkinzler]

Mit Datenmenge meinte ich ein DataSet (Query, Table, ...)

[Hansa]

Wie soll denn das gehen ? DBEdit ist mit Datenbank verknüpft ? :lol: Genau da hängt die Datenmenge dazwischen. AKA TDataSet oder Abkömmling davon. Da weder die verwendete Datenbank noch sonstwas angegeben wurd und dann noch die falsche Sparte :mrgreen: , kann man nicht viel dazu sagen.

[daredd]

Also das DBEdits ist sind alle mit der DM.KundenSource verknüpft unter der property DataSource.
Unter DataSet sind Sie verknüpft mit tbKunde (die Tabelle mit den Kundendaten).

[DeddyH]

Dann mach mal ein

Delphi-Quellcode:

tbKunde.Edit;

und versuch es dann nochmal.

[mkinzler]

Dein Code ist dann aber nicht sehr sinnvoll.

[DeddyH]

Welcher Code?

[mkinzler]

Ich meine auch daredd

Zitat:

Delphi-Quellcode:

dbName.Text :=  DM.tbKunde.FieldByName('Name').AsString;

Zitat:

Unter DataSet sind Sie verknüpft mit tbKunde

[daredd]

Also hier ist die Source für den Prozess wenn der Button Changep gedrückt wird:

Delphi-Quellcode:

procedure TFormKunden.bbChangePClick(Sender: TObject);
begin
DM.tbKunden.Locate('Ind', qKunden.FieldByName('Ind').AsInteger, []);
DM.tbKunden.Edit;
Panel1.Visible := True;
dbName.Text :=  DM.tbKunden.FieldByName('Name').AsString; // ein DBEdit
dbFirstName.Text := DM.tbKunden.FieldByName('FirstName').AsString; // ein DBEdit
dbPatName.Text := DM.tbKunden.FieldByName('PatName').AsString; // ein DBEdit
dbAge.Text := DM.tbKunden.FieldByName('Age').AsString; // ein DBEdit
dbAddress.Text := DM.tbKunden.FieldByName('Address').AsString; // ein DBEdit
dbPhone.Text := DM.tbKunden.FieldByName('Phone').AsString; // ein DBEdit
Edit1.Text :=  DM.tbKunden.FieldByName('Name').AsString; // ein DBEdit
end;

Also mein Panel öffnet sich dann mit den DBEdits wo schon die kunden daten drin stehen. Wenn ich dann egal in welches DBEdit klicke verschwindet zB der Name und ich kann nichts reinschreiben.

[daredd]

Ich muss ja sehen was davor für ein Name oder Telefonnummer stand, bevor ich es dann ändere.

[mkinzler]

das machen die Edits aber automatisch ohne das du den wert explizit aus sich selber zuweist.

[daredd]

Das ist aber merkwürdig das tuen die bei mir aber nicht!
Vielleicht ist das schon ein Schritt näher zur Lösung.... ?

[mkinzler]

Ist den die Tabelle geöffnet?
Frag mal ab, ob das Locate funktioniert hat

Delphi-Quellcode:

if DM.tbKunden.Locate('Ind', qKunden.FieldByName('Ind').AsInteger, []) then

[daredd]

Also so:

Delphi-Quellcode:

procedure TFormKunden.bbChangePClick(Sender: TObject);
begin
DM.tbKunden.Locate('Ind', qKunden.FieldByName('Ind').AsInteger, []);
if DM.tbKunden.Locate('Ind', qKunden.FieldByName('Ind').AsInteger, [])
then
DM.tbKunden.Edit;
Panel1.Visible := True;
end;

Öffnet er das Panel, das heisst das die Tabelle auf geht. Oder?

[mkinzler]

Es fehlt ein begin

Delphi-Quellcode:

then 
begin

[Hansa]

Sei doch mal kreativ. :shock: :mrgreen: Das bedeutet in diesem Fall : lege ein DBEdit unabhängig von allem anderen auf die Form. Natürlich Datasource, Feld usw. im OI einstellen. Sobald irgendwas darin angezeigt wird, ist das DataSet geöffnet. Wozu wird überhaupt das locate gebraucht ?

[mkinzler]

Zitat:

Wozu wird überhaupt das locate gebraucht ?

Das der Datesatz geladen wird, welcher durch einen Query referenziert wird.

[daredd]

Ob mit begin oder ohne, er öffnet das Panel. Also scheint das öffnen der Tabelle zu funktionieren.
In einem Anderen stelle habe ich TDBTexte dort werden die Kundendaten angezeigt. Wenn ich nun in das Panel auch ein TDBText einfüge zB dbtName dann zeigt er mir den Namen auch nicht an. Obwohl es an der Anderen stelle funktioniert und die Properties genauso eingestellt sind.

[mkinzler]

Stelle mal dein Projekt hier ein.

[daredd]

Ha, ich habs! Dummer Fehler ich habe vergessen unter Property DataField das Feld welchem das DBEdit entprechen soll einzustellen.
Nun gehts das die Daten angezeigt werden.

[daredd]

Nun doch noch eine Frage.
Wie mach ich es eigentlich das er meine Änderungen im DBEdit übernimmt?

[mkinzler]

Delphi-Quellcode:

DataSet.Post;

[daredd]

Geht auch Ohne DataSet.Post;
man muss einfach nur die Tabelle einmal refreshen, schließen und wieder öffnen.
Also es funktioniert jetzt alle einwandfrei vielen Dank!!!

[mkinzler]

Aber die Post ist doch einfacher. Du beenutzt doch auch die Bremse und machst nicht den Motor aus wenn du kurz anhalten willst.

[daredd]

Ok ich machs mal mit Post
:-D

jetzt weiss ich ja wie das geht

[daredd]

Ok, ich habe doch noch ein kleines Problem.

Ich habe je zwei Buttons gemacht einen der die neuen Daten übernehmen bzw. alte Daten überschreiben soll, und einen Cancel Button wo keine änderungen vorgenommen werden sollen. Nun wenn ich auf den Cancel Button drücke und dann in eine Andere Form gehe nimmt er die änderung doch mit.
Also der ändert alles sofort beim schreiben ins DBEdit.
Kann man das irgendwie ändern? oder ist das so?

[mkinzler]

Delphi-Quellcode:

DataSet.Cancel;

verwirft Änderungen

[daredd]

Cool das klappt
Danke!

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Object-Pascal / Delphi-Language" nach "Datenbanken" verschoben.
Datenbank-Frage