editieren in DBEdit-Feld nich möglich

[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 ?