小编Kat*_*ark的帖子

这是显示客户数据库的过程:

    procedure TfrmMain.mnuCustomerClick(Sender: TObject);
    var
      j: integer;
    begin

      con := TFDConnection.Create(nil);
      query := TFDQuery.Create(con);
      con.LoginPrompt := False;
      con.Open('DriverID=SQLite;Database=C:\Users\katiee\Documents\Embarcadero\Studio\Projects\ProgramDatabase;');
      query.Connection := con;
      query.sql.Text := 'SELECT * FROM CustDatabase ORDER BY ID';
      query.Open();
      query.First;

      sgdDatabases.colCount := 9;
      sgdDatabases.FixedCols := 0;
      for j := 0 to sgdDatabases.rowCount do
      sgdDatabases.ColWidths[j] := 100;

      sgdDatabases.Cells[0, 0] := 'ID';
      sgdDatabases.Cells[1, 0] := 'First Name';
      sgdDatabases.Cells[2, 0] := 'Last Name';
      sgdDatabases.Cells[3, 0] := 'Address';
      sgdDatabases.Cells[4, 0] := 'Town';
      sgdDatabases.Cells[5, 0] := 'County';
      sgdDatabases.Cells[6, 0] := 'Postcode';
      sgdDatabases.Cells[7, 0] …