procedure TForm1.DatabaseGrid1Click(Sender: TObject);
var i: integer;
begin
if Einsatz.RecordCount = 0
then begin
MessageDlg('
Kein Eintrag vorhanden...',mtInformation, [mbOK], 0);
end else begin
StringGrid3.Align := alClient;
StringGrid3.Visible := true;
Panel4.Color := clyellow;
Label4.Caption := '
MySQL Database';
DatabaseGrid1.Enabled := false;
DatabaseClear1.Enabled := true;
Debugging1.Enabled := true;
Debugging1.
Default := true;
StringGrid3.FixedCols := 0;
StringGrid3.FixedRows := 1;
StringGrid3.ColCount := Einsatz.FieldCount;
StringGrid3.RowCount := Einsatz.RecordCount+1;
for i := 0
to Einsatz.FieldCount - 1
do begin
StringGrid3.Cells[i,0] := Einsatz.Fields[i].DisplayName;
end;
Einsatz.First;
while not Einsatz.Eof
do begin
for i := 0
to Einsatz.FieldCount - 1
do begin
StringGrid3.Cells[i, Einsatz.RecNo] := Einsatz.Fields[i].AsString;
end;
Einsatz.Next;
end;
end;
end;