if Anweisung zur Laufzeit ändern?

[Mavarik]

Na wenn die Einsatznummer neu erstellt wurde, dann hast Du doch die Einsatznummern...

Mavarik

[mkinzler]

Zitat:

Achja. Da wert ja ein String ist, dann nimm doch auch ...FieldByName("blub").AsString

Warum sollte man den String zuerst in einen String konvertieren? .as<Typ> ist ein Cast und deshalb überflüssig!

[Alterauge]

Ist bestimmt ganz einfach!
Ich denke nur zu kompliziert!

Ach hier die Einfärbung rot!

Delphi-Quellcode:

procedure TForm1.CRDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
   var
  i : Integer;
  Wert: string;
 begin
  if (CRDBGrid1.DataSource.DataSet.RecordCount = 0) then
     Exit;
   Wert := CRDBGrid1.DataSource.DataSet.FieldByName('Zuordnung').Value;
   if Wert = 'ausgerückt' then begin
    CRDBGrid1.Canvas.Brush.Color := clred;
     CRDBGrid1.Canvas.Font.Color := clblack;
       end else
    if Wert = '0 Eingang' then begin
     CRDBGrid1.Canvas.Brush.Color := clyellow;
     CRDBGrid1.Canvas.Font.Color := clblack;
    end else
    if Wert = 'Bearbeitung' then begin
     CRDBGrid1.Canvas.Brush.Color := clFuchsia;
     CRDBGrid1.Canvas.Font.Color := clblack;
     end else
       if Wert = 'Vor Ort beendet' then begin
     CRDBGrid1.Canvas.Brush.Color := cllime;
     CRDBGrid1.Canvas.Font.Color := clblack;
   end else begin
  
    end;
   CRDBGRid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
begin
   CRDBGRid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
        if (gdSelected in State) then
     begin
            // Form1.CRDBGrid1.Canvas.Brush.Color := clSilver;
            // Form1.CRDBGrid1.Canvas.Font.Color:=clblack;
        end;
     form1.crDBGrid1.Canvas.FillRect(Rect);
     form1.crDBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 1, Column.Field.AsString);

begin
  with MyTable1 do
    for i := 5 to Pred(Fields.Count) do
      Fields[i].DisplayWidth := 255;
end;
end;
end;

__________________________________________________ __________________________________________________ ___

Die Einsatznummer wird abgeholt, aus einem Memo!

Delphi-Quellcode:

procedure TForm1.AdvGlowButton28Click(Sender: TObject);
begin
DBEdit9.Text := Copy(DBMemo3.Text, Length(DBMemo3.Text)-9, 10);
end;

[mkinzler]

Duz sagst immer du willst etwas Lernen, berücksichtigst aber nicht die einfachsten Tipps. Zu wurdest schon öfterst ( eigentlich bei jeder deiner Fragen) auf die Bedeutung des Parameters Sender hingeweisen und das dieser der Verwendung einer festen Objektreferenz vorzuziehen ist. Trotzdem verendest du das jedesmal wieder ( CRDBGrid1)!

Kommen weitere Werte hinzu und soll dann auf diese Werte später besonderst reagiert werden, dann nomalisiere diese in der Datenbank und lege dort auch das Verhalten ab.

Z.B. Tabelle Zuordnung (oder Phase)

ID Bez Hintergrund Schrift
1 'ausgerückt' #FF0000 #000000
0 '0 Eingang' ...

In der abgefragten Tabelle dann statt dem Text die ID auf die Zuordnungstabelle (FK) und bei der Abfrage die Farben hinzujoinen

Zitat:

Tu dir selbst einen Gefallen, und benenne deine Controls vernünftig. Das ist ja grausig so!

Das ist auch eine Sache, die man ihm in jedem seiner Fragen sagt.

[Alterauge]

OK, bin ein wenig schlampig!

Auch wenn es nervig ist, noch eine Zwischenfrage!

Was ist hier falsch?

Delphi-Quellcode:

procedure TForm1.Timer6Timer(Sender: TObject);
begin
if (MyTAble1.FieldByName('Einsatznummer').Value) = (MyTAble3.FieldByName('Einsatznummer').Value)   then begin
  ShowMessage('Test');
end;
end;

Frage:
Ist die Einsatznummer aus DB1 = wie Einsatznummer DB2 dann ShowMessage!
Keine Fehlermeldung Quelltext sauber! geht aber nicht?

[Medium]

...Fehlermeldung/Was passiert (nicht)? Sag mal, so neu bist du doch hier nicht, dass man dir noch das Fragen beibringen muss oder?

[mkinzler]

Vielleicht Leerzeichen in den Feldern?

Delphi-Quellcode:

if Trim(MyTAble1.FieldByName('Einsatznummer').Value) = Trim(MyTAble3.FieldByName('Einsatznummer').Value) then 
begin
  ShowMessage('Test');
end;

[Alterauge]

Geht jetzt! Ich Blödmann

Delphi-Quellcode:

[DELPHI]
procedure TForm1.Timer6Timer(Sender: TObject);
begin
if (MyTAble1.FieldByName('Einsatznummer').Text) = (MyTAble3.FieldByName('Einsatznummer').Text)   then begin
  ShowMessage('Test');
end;
end;

[/DELPHI]

[p80286]

Delphi-Quellcode:

if Wert = 'ausgerückt' then begin
if Wert = '0 Eingang' then begin
if Wert = 'Bearbeitung' then begin
if Wert = 'Vor Ort beendet' then begin

Es wäre etwas sicherer statt dieser String-Werte, etwas numerisches zu nutzen.
Falls es z.B. eine Ländercodedifferenz zwischen DB und Client geben sollte, könnte da nur noch datentechnischer Hackepeter übrig bleiben.
ob Mkinzler's Vorschlag der optimale ist, darüber mag man diskutieren. Aber das Prinzip ist richtig, und das solltest Du tunlichst beherzigen, auch wenn Du "etwas schlampig" bist.

Gruß
K-H

[shmia]

Und was ist wenn mehrere Einsatzfahrzeuge zur gleichen Zeit ausgerückt sind?
Dann sollten doch alle rot markiert werden, oder nicht?
Somit wäre schon der Ansatz die Einsatznummer abzufragen falsch.
Du musst schlichtweg den Status des Fahrzeugs abfragen um den Datensatz im DBGrid die gewünschte Farbe zu geben.

Ausserdem hast du zu wenig Statuswerte.
Ein Einsatzfahrzeug kann auch "verunfallt" sein.