Felder aus Datenbank übernehmen

[superstar025]

Hallo habe folgende Fragen.

Habe eine Datenbank mit Feldern und Werten.
Hier stehen Sätze drin die ich durch eine Neuanlage angelegt habe, jedoch muss ich auch die Sätze aktualisieren können.

Hier soll es möglich sein die daten in Maskeditfelder, Comboboxen, Checkbox, Radiobutton oder ähnliches
wieder zu übernehmen.

Die Realsisierung mit Comboboxen

Delphi-Quellcode:

Form1.ComboBox1.Items.Add(query1.Fields[0].asstring);

ist mir bekannt und auch umsetzbar jedoch kenn ich mich absolut nicht mit der Übernahme von daten in ein Maskeditfeld, Radiobutton oder Checkbox aus.
Kann mir dort jemand weiter helfen??


mfg

Matthias

[Bitworm]

Nimm nicht die Standard-GUI-Komponenten, sondern statt dessen die Elemente mit Datenbankanbindung (in der Komponentenpalette unter Datensteuerung). Wenn Du nun noch eine Datasource einrichtest und diese mit der gewünschten Datenquelle verbindest (Tabelle), kannst Du in der Property DataField das anzuzeigende Feld einstellen .

[superstar025]

und wie muss ich das dann mit einem dbedit oder ähnliches programmieren??

[superstar025]

Zitat:

Nimm nicht die Standard-GUI-Komponenten, sondern statt dessen die Elemente mit Datenbankanbindung (in der Komponentenpalette unter Datensteuerung). Wenn Du nun noch eine Datasource einrichtest und diese mit der gewünschten Datenquelle verbindest (Tabelle), kannst Du in der Property DataField das anzuzeigende Feld einstellen .

Ist es denn nicht möglich es so wie ein comboboxfeld zu handhaben, nur halt nicht ein combobox feld sondern dann halt ein maskeditfeld oder falls in der Datenbank eine 1 steht soll der checkboxbutton halt angehakt werden und wenn 0 in dem feld steht dann halt kein Haken!

Ist die möglich??

mfg
matthias

[Albi]

Hallo,

Klar ist es möglich. Wenn Du meinetwegen eine 1 für Checked und eine 0 unChecked in der DB speicherst kannst Du einfach den Status setzen.

Code:

//Status der CBox setzen
CheckBox.checked:= Query1.FieldByName('CBoxSatus').asInteger = 1;
//in Edit schreiben
Edit1.Text:= Query1.FieldByName('Feld').AsString;

Ich hoffe das hilfe Dir etwas weiter.