Announcement

**Andreas Kosch** · 17.05.2000, 06:49

Hallo,

angenommen, im Programm wird eine TTable-Instanz eingesetzt, die auf die Tabelle COUNTRY aus der Delphi-Beispieldatenbank DBDEMOS zugreift. Mit einem Doppelklick auf diese TTable-Instanz wird der Feldeditor aufgerufen, so das über die rechte Maustaste der Menüpunkt Felder hinzufügen aufgerufen werden kann. Im folgenden Dialog fügt man alle Felder hinzu. Delphi legt nun für alle Tabellenspalten ein persistentes TField an - so das zum Beispiel für die Tabellenspalte CAPITAL die Instanz Table1Capital generiert wird.

Somit kann beim Programmstart direkt auf den Wert der entsprechenden Tabellenspalte zugegriffen werden, wobei ohne weitere Aktionen der erste Datensatz der Tabelle ausgelesen wird:
<pre>
procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Active := True;
ComboBox1.Items.Add(Table1Capital.Value);
end;
</pre>
Ein TDBGrid stellt nur die Daten aus einer Datenmenge dar, so das es in jedem Fall sinnvoller ist, gleich auf die dahinterliegende Datenmenge (TTable) zuzugreifen.
&#10

**Michael Wolters** · 17.05.2000, 09:48

Hallo Andreas, danke für Deine schnelle Antwort. 
Nur leider darf ich keine TTable-Komponente benutzen. 
Das Programm sieht lediglich vor, sämtliche Einstellungen 
über ein PopUpMenu auszuführen. In der Datenbank T_TEST 
sollen alle Tabellen gespeichert werden, die im Lauf der Zeit geöffnet werden. Die Datenbank enthält die Werte ID und TABELLEN_NAME. Der DEFAULT-WERT soll anhand der ID ausgewählt 
werden und jederzeit änderbar sein. 
Nachfolgend kommt der Code, der bis jetzt fertig ist. Für 
Deine Hilfe bin ich Dir sehr dankbar. Du kannst mir auch eine E-Mail schicken an folgende Adresse. [email protected]
Gruss Michael
#include <vcl.h> 
#pragma hdrstop 
#include <BasisQuery.h> 
#include "ComboCPP.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TfrmComboBox *frmComboBox; 
//--------------------------------------------------------------------------- 
__fastcall TfrmComboBox::TfrmComboBox(TComponent* Owner) : TForm(Owner) 
{ 
} <br<
//--------------------------------------------------------------------------- 
void __fastcall TfrmComboBox::FormCreate(TObject *Sender) 
{ 
Database1->Connected = true; 
Query = new TBasisQuery(this); 
Query->DB = Database1; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmComboBox:

opTabelleBearbeitenClick(TObject *Sender) 
{ 
if (cboCombo->Text.Length() > 0) 
popTabelleBearbeiten->Enabled = true; 
else 
popTabelleBearbeiten->Enabled = false; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmComboBox::FormDestroy(TObject *Sender) 
{ 
delete Query; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmComboBox:

opEditOeffnenClick(TObject *Sender)
{ 
try 
{ 
Query->GetData(Edit1->Text, DBGrid1); 
} 
catch(TDBError *e)

**Michael Wolters** · 17.05.2000, 09:55

Hallo Andreas der Code wurde leider nicht vollständig übertragen. hier nochmal der Code. 
#include <vcl.h> 
#pragma hdrstop 
#include <BasisQuery.h> 
#include "ComboCPP.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TfrmComboBox *frmComboBox; 
//--------------------------------------------------------------------------- 
__fastcall TfrmComboBox::TfrmComboBox(TComponent* Owner) : TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmComboBox::FormCreate(TObject *Sender) 
{ 
Database1->Connected = true; 
Query = new TBasisQuery(this); 
Query->DB = Database1; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmComboBox:

opTabelleBearbeitenClick(TObject *Sender) 
{
if (cboCombo->Text.Length() > 0) 
popTabelleBearbeiten->Enabled = true; 
else 
popTabelleBearbeiten->Enabled = false; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmComboBox::FormDestroy(TObject *Sender) 
{ 
delete Query; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmComboBox:

opEditOeffnenClick(TObject *Sender) 
{ 
try 
{ 
Query->GetData(Edit1->Text, DBGrid1); 
} 
catch(TDBError *e) 
{ 
Application->MessageBox( e->Message.c_str(), "Fehler", MB_OK); 
} 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmComboBox:

opBeendenClick(TObject *Sender) 
{ 
exit(0); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmComboBox:

opDatenbankOeffnenClick(TObject *Sender) 
{ 
try 
{ 
Query->GetData(Edit1->Text, DBGrid1); 
} 
catch(TDBError *e) 
{ 
Application->MessageBox( e->Message.c_str(), "Fehler", MB_OK); 
} 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmComboBox:

opSaveToComboClick(TObject *Sender) 
// Prüfen, ob der Eintrag vorhanden ist. 
// Wenn nicht, soll er der cboCombo hinzugefügt weden. 
{ 
int i; 
bool vorhanden = false; 
AnsiString eBuf, bBuf; 
eBuf = Edit1->Text; 
for (i = 0; i < cboCombo->Items->Count; i++) 
{ 
bBuf = cboCombo->Items->Strings[i]; 
if ( eBuf == bBuf ) 
{ 
vorhanden = true; 
break; 
} 
} 
if (! vorhanden)
{ 
cboCombo->Items->Add(Edit1->Text); 
} 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmComboBox:

opSaveToT_TESTClick(TObject *Sender) 
{ 
AnsiString asSQL; 

if (cboCombo->Text.Length() > 0) 
{ 
asSQL = "Insert into T_TEST ("; 
asSQL += "ID, "; 
asSQL += "TABELLEN_NAME)"; 
asSQL += " values("; 
asSQL += "0,'"; 
asSQL += cboCombo->Text + "')"; 
try 
{ 
Database1->StartTransaction(); 
Query->ExecData(asSQL); 
Data

**miwo99** · 18.05.2000, 15:19

Hallo Andreas, leider darf ich keine TTable verwenden. Die Tabellen liegen alle zentral auf dem Server. Der Default-Wert soll über das Feld ID in der Tabelle vom Anwender zur Lauzeit änderbar sein.
Gruss Michae

Announcement

Anfänger braucht Hilfe

Anfänger braucht Hilfe

Comment

Comment

Comment

Comment