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