ADO Komponenten funktionieren nicht

Hallo, ich glaube das problem ist das, das automatisch die Skaleneinteilung auf den größten wert eingestellt wird. wenn ich jetzt andere Daten mit kleineren Werten anzeigen will, zeigt er sie wohl an, aber die Skaleneinteilungen bleiben auf den max wert eingestellt. In meinem fall habe ich auf der x-Achse Datum, auf der y_Achse Daten aus der DB. Wenn ich z.B. mit einem Button Daten aus dem letzten Jahr anschaue und dann mit dem nächsten das letzte halbe jahr, passt sich die Leiste nicht an.
Ich finde aber nichts was explizit auf clear Axis oder AutoAxis->Enabled oder ähnliches verweist. die Funktion clear() löscht vieleicht nur die gezeichneten Punkte. Wie kann ich aber die Achsen Einteilung löschen?

Braunstein

Sieh mal nach TChartAxis::Automatic, TChartAxis::AutomaticMinimum, TChartAxis::AutomaticMaximum sowie TChartAxis::Minimum und TChartAxis::Maximum. Wenn Automatic true ist sollte sich die Axe entsprechend des Maximums und Minimums deiner Daten selbst skalieren.
PS:
mit TChartAxis::CalcMinMax() bekommst du Maximum und Minimum deiner der Axe zugeordneten Serie.

Also bei mir ist alles auf true eingestellt, habe sogar versucht per code extra auf true zu initialisieren! es tut aber auch nicht. Bei calcminmax() liefert mir übrigens immer nichts zurück, d.h. die übergebenen Variablen bleiben wie sie waren.

Braunstein

Ist deine Serie mit der Axe verbunden? Das kannst du mit Series->AssociatedToAxis(TChartAxis *ax); prüfen.

Tschuldige aber ich bekomme das nicht ganz hin mit der abfrage, weil ich finde keine hilfe dazu. ich habe es so versucht
Daten->Series1->AssociatedToAxis(Chart1->BottomAxis *ax);
aber er kennt ax nicht, habe es auch mit BottomAxis versucht, kennt er auch nicht. welchen namen erwartet er?
kann ich dir vieleicht die Form mit den Charts senden? dann siehst du ja gleich wie und was eingestellt ist?

Braunstein

Was ist dieses Daten?
Normalerweise geht die Abfrage so

if(Chart1->Series[0]->AssociatedToAxis(Chart1->BottomAxis))
{
// tu irgendwas
}

andere Variante

if( Chart1->BottomAxis == Series1->HorizAxis )
{}

Wenn du die Hilfe zu TChart hast öffne sie bitte. Dann gib beim Index wahlweise
TChart
TChartAxis
TChartSeries an.
Dann findest du alle Methoden und Eigenschaften.

OK,ich habe die abfrage eingebaut. die Serie ist auf jeden fall asoziert.
Daten heißt meine Form. Ich habe jetzt mal einen Button gepostet.(von diesen Refresh(),repaint ist was zuviel,ich weiß). IsValid ist bei mir immer false, d.h. so zeigt er mir nichts an. wenn ich diese Abfrage wegmache zeigt er mir nach ein Diagramm,wenn Chart leer war.Ändere ich mit einem 2 Button das Chart(im prinzip dasselbe wie das gepostete) passierrt nichts mehr wenn ich diesen wieder drücke.

if(Chart1->Series[0]->AssociatedToAxis(Chart1->BottomAxis))
            {
            Daten->Chart1->LeftAxis->Automatic = true;
            Daten->Chart1->BottomAxis->Automatic = true;
            Daten->Chart1->LeftAxis->AutomaticMinimum = true;

            if(Daten->Chart1->IsValidDataSource(Series1,Chart1))
            {
            DataModule1->ADOQuery1->Close();
            DataModule1->ADOQuery1->SQL->Clear();
            DataModule1->ADOQuery1->SQL->Add("SELECT * FROM Tabelle1 WHERE (Tabelle1.AnlagenNr=" + tmp +") AND (Tabelle1.Zeitwert >#" + S + "#)");
            DataModule1->ADOQuery1->Open();

            Daten->Chart1->Series[0]->Clear();  
            while (!DataModule1->ADOQuery1->Eof)
           {
             //Leistung Chart1 Zeichnen
             int Leistung = DataModule1->ADOQuery1->FieldByName("Leistung")->AsInteger;
              Chart1->Series[0]->AddXY(DataModule1->ADOQuery1->FieldByName("Zeitwert")->AsDateTime,Leistung,"",clTeeColor);
           DataModule1->ADOQuery1->Next();      //Setzt u.a. Eof wieder auffalse
           }
           Daten->Chart1->Repaint();
           Daten->Chart1->Refresh();

Braunstein

Ist dein Chart vom Typ TChart oder TDBChart ?
Bei einem TChart macht die Funktion IsValidDatasource keinen Sinn.
Ändere das mal so

// den auskommentierten Teil brauchst du nur einmal am Anfang
//if(Chart1->Series[0]->AssociatedToAxis(Chart1->BottomAxis))
//{
//   Daten->Chart1->LeftAxis->Automatic = true;
//   Daten->Chart1->BottomAxis->Automatic = true;
//   Daten->Chart1->LeftAxis->AutomaticMinimum = true;
// ist hier nicht nötig, wenn keine Verbindung zu einer Datasource besteht
//            if(Daten->Chart1->IsValidDataSource(Series1,Chart1))
//            {
            DataModule1->ADOQuery1->Close();
            DataModule1->ADOQuery1->SQL->Clear();
            DataModule1->ADOQuery1->SQL->Add("SELECT * FROM Tabelle1 WHERE (Tabelle1.AnlagenNr=" + tmp +") AND (Tabelle1.Zeitwert >#" + S + "#)");
            DataModule1->ADOQuery1->Open();

            Daten->Chart1->Series[0]->Clear();
            Daten->Chart1->Series[0]->BeginUpdate(); //verhindert ständiges refresh
            while (!DataModule1->ADOQuery1->Eof)
           {
             //Leistung Chart1 Zeichnen
             int Leistung = DataModule1->ADOQuery1->FieldByName("Leistung")->AsInteger;
             double time =  DataModule1->ADOQuery1->FieldByName("Zeitwert")->AsDateTime;
             Chart1->Series[0]->AddXY(time,Leistung,"",clTeeColor);
             DataModule1->ADOQuery1->Next();      //Setzt u.a. Eof wieder auf false
           }
           Daten->Chart1->Series[0]->EndUpdate();
           Daten->Chart1->Repaint();
//         Daten->Chart1->Refresh();

Das sollte eigentlich gehen. Ansonsten geh mal mit dem Debugger durch und schau dir mal an was hier so passiert.

Er sagt mir beim Compilieren aber das Begin/EndUpdate kein element von TSeries ist.Diese Methoden in zusammenhang mit Charts und Series kennt er bei mir gar nicht. (ich habe übrigens den BCB 6 Profesional).
Sorry wegen IsValid, benutze natürlich TChart

Braunstein

Dann hast du wohl TeeChart4, da gibt es diese Funktionen noch nicht (ich hab Version 5). Dann lass sie halt weg. Sie dienen ja eh nur zur Performanceverbesserung.

Sorry, ich kann jetzt nicht weitermachen da ich weg muss

Ciao und schönes Wochenende

Hallo nochmal,mein problem hat sich leider noch nicht gelöst.
Ich kann das Chart nach wie vor nicht löschen, weder mit Clear() noch mit Repaint().
Ich habe meine Charts auf einen TabbedNotebook plazirt. Normalerweise sollte dies ja keinen Unterschie machen, aber könnte es sein das meine Probleme damit irgendwie zusammenhängen?

Durchaus möglich:

BCB-Hilfe schrieb:

TTabbedNotebook wird nur aus Gründen der Abwärtskompatibilität bereitgestellt. Verwenden Sie in neuen Anwendungen statt dessen die Komponente TPageControl.

idealist

Hallo
ich weiss nicht, wie man über der TChart-Komponente Daten aus einer Datenbank anzeigen lassen kann. Über der TDBChart wäre es ja kein Problem.
Ich müsste höchstwahrscheinlich eine LINE-Series erzeugen dann die Funktion ADDXY, die angeboten wird, benutzen. Ich muss die Time-Werte aus der Datenbank auf die x-Achse transferieren und die Messwerte auf die y-Achse übergeben. Jedoch kann ich meine Zielsetzung nicht programmtechnisch umsetzen.
Ich wäre für jede lehrreiche Antwort dankbar

idealist

Hallo,
leider funktioniert die erwünschte Transformation nicht. Wüsste irgend jemand wie ich daten aus der datenbank über die tchart-komponente anzeigen kann. ich möchte time-werte aus der DB auf die x-Achse übergeben und Messwerte auf die y-Achse .
ich bin sehr dankbar für jede Antwort, durch die ich meine Problemstellung beseitigen kann?

Braunstein

"Funktioniert nicht" ist keine gültige Fehlermeldung. Was geht denn nicht bzw. was hast du denn versucht.

idealist

folgendes wird aus einer csv-datei in eine access-datenbank gespeichert
//for-schleife ....

DataModule.ADOTableTable1.FieldByName('Time').AsString := Felder[1];
DataModule.ADOTableTable1.FieldByName('Messwert').AsString := Felder[f];

{1 aus Felder[1] steht für 1. Feld in der die Time-Werte in einer
csv-Datei stehen und in einer access-DB im 1. Feld abgespeichert
werden. }

{ab dem 2. feld sind messwerte eingetragen; f aus felder[f] steht für
alle ab dem 2. feld anstehenden felder bzw. Spalten, in der die
Messwerte liegen}

....

ich möchte alle im 1. Feld (auf x-Achse) und ab dem 2. Feld (auf y-achse)
anstehenden Werte über eine Tchart anzeigen
IDEE: Arrays doublevariablen zuweisen:

doublex := StrToFloat(Felder[1]);
doubley := StrToFloat(Felder[f]);
dann als parameter an ADDXY übergeben:

frmForm.Chart1.Series[0].AddXY(doublex, doubley, '', clTeeColor) ;

es hat nicht funktioniert

idealist

als Machbarkeitsanalyse reicht im Moment auch anstatt felder[f] auch felder[2]
d.h nur feld 2 als werte für y-achse und feld 1 (=felder[1]) als werte
für x-achse
hätte da jemand eine idee

Braunstein

Noch mal. Was genau geht nicht?
Die Abfrage aus der Datenbank ?
Das Einfügen in den Chart ?
Konnte das Programm überhaupt compiliert werden ?
Zeig doch mal den Code den du verwendet hast. Das was du hier gezeigt hast ist übrigens Pascal.

idealist

ich arbeite im moment mit delphi7

// tabelle Messwert
begin
DModule.ADOTablemesswert.Append;
DModule.ADOTablemesswert.FieldByName('Time').AsString := Felder[1];
DMMain.ADOTableMesswerte.FieldByName('Messwert').AsString := Felder[2];
DMMain.ADOTableMesswerte.Post;
end;
{ die felder aus der 1. Spalte werden in das Feld 'Time' in meiner DB eingetragen
die Felder as der 2. spalte werden in das Feld 'Messwert' eingetragen
?wie kann ich dies grafisch über TChart anzeigen lassen??}
soll ich den gesamten code zuschicken? oder reicht dies?
danke

idealist

schuldigung natürlich nicht DMMain sondern DModule hab mich nur hier verschrieben nicht im code selbst