Hallo,
ich frage Daten aus einem MS
SQL-Server an.
Bestimmte Datensätze muss ich nachträglich noch anpassen, weil ich die Daten aus einem anderen System importiere und dann per copy und paste in meine Anwendung einfüge.
Die Personen, bei deinen ich noch Änderungen vornehmen lassen möchte, habe ich zur Auswahl in einem DBGrid.
Wenn ich auf die jeweilige Person klicke, werden mir die Felder zum Bearbeiten in den
DB Komponenten angezeigt.
Soweit alles in Ordnung.
Ich habe einen Feldnamen 'pruefer' der je nach Geschlecht den Wert Prüfer:/Prüferin: enthält.
Die Rolle pruefer würde ich gerne erweitern auf 'Protokollant:/Protokollantin:'
Bei DBGrid gibt es aber kein onclick Ereignis, sondern nur ein OnDblClick und OnEnter ... die mir bis jetzt geholfen haben.
Wenn ich also die Person ausgewählt habe, muss ich zweimal klicken, damit mir der Wert zur Radiogroup übergeben wird, um ihn dann ggf. zu ändern.
Ich will eigentlich nicht dazu schreiben müssen, bei der Rolle Prüfer aber bitte doppelt klicken!
Warum gibt es kein onclick Ereignis oder hat jemand eine Idee, wie ich das Problem umgehen kann?
Hier meine kümmerlichen Versuche, den
db gespeicherten String zu extrahieren, damit ich damit weiterarbeiten kann:
Code:
// Rückgabe von Auswahl DBGRid3 läuft nicht!
procedure TForm1.DBGRid3OnDblClick(Sender: TObject);
var
a: string;
s: string;
begin
// Edit1.Clear;
//Passiert nichts DBEdit7.Text := Edit1.Text;
// Fehlermeldung DBEdit7.Field.AsString := Edit1.Text;
// DBEdit7.DataField.Copy(DBEdit7.Text);
// DBEdit7.Text := Label9.Caption;
a := 'Hallo';
Label10.Caption := 'Hallo Label var a bei dbgridonclick -> onenter';
// Fehlermeldung DBEdit7.Field.Text := Label9.Caption;
// passiert nichts DBEdit7.TextHint := Label9.Caption;
// passiert nichts DBEdit7.EditText := Label9.Caption;
{
DBEdit7.SelectAll;
DBEdit7.CopyToClipboard;
Edit1.PasteFromClipboard;
Clipboard.Clear;
Edit1.Clear;
}
// s := DBGrid3.SelectedField.AsString;
if DBEdit7.Text = 'Prüfer:' then RadioGroup1.ItemIndex := 0
else if DBEdit7.Text = 'Prüferin:' then RadioGroup1.ItemIndex := 1
else if DBEdit7.Text = 'Protokollantin:'then RadioGroup1.ItemIndex := 2
else if DBEdit7.Text = 'Protokollant:' then RadioGroup1.ItemIndex := 3
end;
VG
