Einzelnen Beitrag anzeigen

Benutzerbild von AgentAS
AgentAS

Registriert seit: 14. Jul 2003
Ort: Reutlingen
88 Beiträge
 
Delphi 6 Professional
 
#4

Re: SQL Server und Datentypen

  Alt 27. Jul 2003, 13:28
Hallo,

weil ich das Feld zum Rechnen brauche. Aber da es ja normal ist das er die Nullen weglässt .

Eigentlich störts mich nur weil er es halt nicht so schreibt.

Aber da ihr schonmal da seit wie lösche ich ein StringGrid.


Code:
procedure TFormKartenzahlung.StringGridFuellen;
var i : integer;
begin
  Hauptselect;
  with StringGridUebersicht do
  begin
    Cells[0,0] := 'ID' ;
    Cells[1,0] := 'UBericht-Nr.';
    Cells[2,0] := 'Prüf. Ing.';
    Cells[3,0] := 'Uhrzeit';
    Cells[4,0] := 'Datum';
    Cells[5,0] := 'Betrag';
  end;

  i := 1;
  with StringGridUebersicht do
  begin
    while not ADOQryKZ.Eof do
    begin
      Cells[0,i] := ADOQryKZ.FieldByName('id').AsString;
      Cells[1,i] := ADOQryKZ.FieldByName('ubnr').AsString;
      Cells[2,i] := ADOQryKZ.FieldByName('pi').AsString;
      Cells[3,i] := ADOQryKZ.FieldByName('uhrzeit').AsString;
      Cells[4,i] := ADOQryKZ.FieldByName('datum').AsString;
      DecimalSeparator := ',';
      Cells[5,i] := FormatFloat('0.00',ADOQryKZ.FieldByName('betrag').AsFloat);

      ADOQryKZ.Next;
      i := i + 1;
      StringGridUebersicht.RowCount := StringGridUebersicht.RowCount + 1;
    end;
  end;

end;
Nichts wissen ist auch eine Art Wissen.
  Mit Zitat antworten Zitat