zeos stringgrid anzeige

[bl3nder]

Hmm trau mich nicht nen neue Thread dafuer aufzumachen:

Nun hab ichs hinbekommen, dass in meinem Programm die Daten angezeigt werden.
Jetz moecht ichs aber noch farblich hinterlegen und zwar abhaengig von einem Wert der IntegerSpalte "StatusID"
Außerdem moecht ich erreichen, dass er ueber einen Search Button die Suche einschraenken kann


Hier mein Code (aufs wichtigste gekuertzt) , hoffentlich einigermaßen verstaendlich

Stringgridanzeige

Delphi-Quellcode:

procedure TForm1.ShowInGrid( s : String);
var
j : integer;
begin
if SQLConnection.Connected then begin

 if (s = '') then begin
  s := ' SELECT  ';
  s := s + ' r.inventar_Nr ,a.benutzer,a.benutzer_alt, r.netzwerkname,a.raum ,';
  s := s + ' r.bemerkungen ,m.inventar_Nr, d.inventar_Nr, r.statusid';
  s := s + ' FROM arbeitsplatz a inner JOIN rechner r ';
  s := s + ' ON a.rechnerid = r.rechnerid ' ;
  s := s + ' LEFT JOIN monitor m      '  ;
  s := s + ' ON a.monitorid = m.monitorid   ';
  s := s + ' LEFT JOIN dockingstation d  ' ;
  s := s + ' ON r.dockingstationid = d.dockingstationid ';
  s := s + ' WHERE "1=1" ';

    end;
  SQLQuery.Close;
  SQLQuery.SQL.Text := s;
  SQLQuery.Open;

    Grid.RowCount := 2;  // <-- ZeilenAnzahl
    Grid.ColCount := 6; // <-- SpaltenAnzahl
    while not SQLQuery.Eof do begin
        Grid.RowCount := Grid.RowCount + 1;
        Grid.Cells[0,Grid.RowCount-2] := SQLQuery.FieldByName('Inventar_Nr').AsString;
        Grid.Cells[1,Grid.RowCount-2] := SQLQuery.FieldByName('NetzwerkName').AsString;
        Grid.Cells[2,Grid.RowCount-2] := SQLQuery.FieldByName('Benutzer').AsString;
        Grid.Cells[3,Grid.RowCount-2] := SQLQuery.FieldByName('Benutzer_alt').AsString;
        Grid.Cells[4,Grid.RowCount-2] := SQLQuery.FieldByName('Raum').AsString;
        Grid.Cells[5,Grid.RowCount-2] := SQLQuery.FieldByName('Bemerkungen').AsString;
        // griddrawcell; // <------ wie muss der syntax aussehen ?
        SQLQuery.Next;
        end;
    Statusbar1.Panels[0].Text := IntToStr(Grid.RowCount) + ' Einträge';
    end

else
ShowMessage('Not Connected');
end;

Farblich markieren

Delphi-Quellcode:

procedure TForm1.GridDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
          State: TGridDrawState);

var markierung : tcolor;
var j : integer ;
begin
// Zeile einfärben
markierung := clWindow;
case SQLQuery.FieldByName('StatusID').AsInteger of
  1: markierung := $00FBE2D9; // hell-blau      {Status: verwendet
  2: markierung := $0095FF95; // grün           {Status: IT-Pool
  3: markierung := $005B9DFF; // orange         {Status: ausgemustert
  4: markierung := $005B9DFF; // orange         {Status: verkauft
  5: markierung := $0095FF95; // grün           {Status: nicht verwendet
  6: markierung := $005A5AF5; // rot            {Status: ausgeschlachtet
  7: markierung := $000D0DD9; // dunkleres-rot  {Status: gestohlen
  end;
grid.Canvas.Font.Color := markierung;
grid.Canvas.TextRect(Rect,Rect.Left+2,Rect.Top+2,grid.Cells[ACol,ARow]);
end;

Mein Search Button

Delphi-Quellcode:

procedure TForm1.Btn_SearchClick(Sender: TObject);
var
s : string;
begin
  Mc_Bis.Visible := false;
  Mc_Von.Visible := false;
  
if SQLConnection.Connected then begin

//-------Normaler Modus-------
  
if (Ed_InvNr.Enabled and Ed_RName.Enabled and Ed_BName.Enabled )then begin
  SQLQuery.SQL.Text := '';
  
  s := ' SELECT  ';
  s := s + ' r.inventar_Nr ,a.benutzer,a.benutzer_alt, r.netzwerkname,a.raum ,';
  s := s + ' r.bemerkungen ,m.inventar_Nr, d.inventar_Nr, r.statusid';
  s := s + ' FROM arbeitsplatz a inner JOIN rechner r ';
  s := s + ' ON a.rechnerid = r.rechnerid ' ;
  s := s + ' LEFT JOIN monitor m      '  ;
  s := s + ' ON a.monitorid = m.monitorid   ';
  s := s + ' LEFT JOIN dockingstation d  ' ;
  s := s + ' ON r.dockingstationid = d.dockingstationid ';
  s := s + ' WHERE "1=1" ';

  //----------------------------------------------------------------------------

  if (trim(Ed_InvNr.Text) <> '') then
    s := s + ' AND r.Inventar_Nr = "'+trim(Ed_InvNr.Text)+'" ';

  if (trim(Ed_RName.Text) <> '') then
    s := s + ' AND r.Netzwerkname = "'+trim(Ed_RName.Text)+'" ';

  if (trim(Ed_BName.Text) <> '') then
    s := s + ' AND a.Benutzer = "'+trim(Ed_BName.Text)+'" ';

  if (trim(Ed_Raum.Text) <> '') then
    s := s + ' AND a.Raum = "'+trim(Ed_Raum.Text)+'" ';


//  ====> Ergebnis an die SQL-Query schicken

s := s + ' ORDER BY r.Inventar_Nr ';
ShowinGrid(s);


end
else
messageDLG('Nicht Verbunden !',mtError,[mbOK],0);

Mein Probleme:
Beim Click auf den Suche-Button tut sich nichts
Der Syntax der GridDrawCell-Prozedur ist mir nicht ganz klar und wie ich meine momentane Zeile der GridDrawCell-Prozedur vermittle