Private $iMaxRows As Integer = 15  ' Nr. max righe per pagina
Private $iCurrentPage As Integer  ' Pagina corrente
Private $iMaxPage As Integer  ' Nr. max pagine

Public Sub Form_Open()
  Me.Center()

  Crea_Griglia()  ' Avvia Sub creazione griglia
End

Private Sub Crea_Griglia() ' Creazione GridView dati
  With grdDati
    .Rows.Count = 0
    .Columns.Count = 4
    .Columns[0].Text = "Dato 1"
    .Columns[1].Text = "Dato 2"
    .Columns[2].Text = "Dato 3"
    .Columns[3].Text = "Dato 4"
  End With
End

Private Sub Conta_Record()  ' Conteggio record
  Dim rs As Result
  Dim iTmp As Integer

  rs = MGlobal.db.Exec("SELECT COUNT(campo1) FROM tabella")  ' Query conteggio dati

  iTmp = rs.Count Div $iMaxRows ' Suddivisione record per numero max righe (15) impostate per visualizzazione pagine in grdDati

  If rs.Count Mod $iMaxRows > 0 Then  ' Numerazione pagine
      $iMaxPage = iTmp + 1
    Else
      $iMaxPage = iTmp
  Endif

  GeneratePaging(0) ' Avvia Sub selezione dati e generazione pagine
  $iCurrentPage = 1
  NrPagine($iCurrentPage) ' Avvia Sub visualizzazione Nr. pagine
End

Private Sub GeneratePaging(iPage As Integer)  ' Selezione dati e generazione pagine
  Dim sSql As String
  Dim iStartOffset As Integer

  If iPage <= 0 Then  ' Impostazione numerazione pagine = 1 se pagine <= 0
    iPage = 1
  Endif

  iStartOffset = (iPage - 1) * $iMaxRows  ' Calcolo numero max pagine

  sSql = "SELECT campo1"
  sSql &= " FROM tabella"
  sSql &= " ORDER BY campo1"
  sSql &= " LIMIT "
  sSql = sSql & iStartOffset & "," & $iMaxRows

  grdDati.Clear()
  Crea_Griglia()  ' Avvia Sub creazione griglia
  Vis_Dati(grdDati, sSql)  ' Avvia Sub visualizzazione dati
End

Private Sub Vis_Dati(grd As GridView, sQuery As String)  ' Visualizzazione dati
  Dim i As Integer
  Dim rs As Result

  rs = MGlobal.db.Exec(sQuery)

  With rs
    grd.Rows.Count = 0
    If .Count <> 0 Then
        grd.Columns.Count = .Fields.Count
        grd.Rows.Count = .Count
        i = 0
        While i < .Count
          grd[i, 0].Text = rs!campo1
          grd[i, 1].Text = rs!campo2
          grd[i, 2].Text = rs!campo3
          grd[i, 3].Text = rs!campo4
          i = i + 1
          .MoveNext
        Wend
        MGlobal.db.Close()
      Else
        MGlobal.db.Close()
    Endif
  End With
End

Public Sub tbnPgAvanti_Click()  ' Pagina Avanti
  $iCurrentPage = $iCurrentPage + 1

  If $iCurrentPage >= $iMaxPage Then
    $iCurrentPage = $iMaxPage
  Endif

  MGlobal.db.Open()
  GeneratePaging($iCurrentPage) ' Avvia Sub generazione pagine
  NrPagine($iCurrentPage) ' Avvia Sub Nr. Pagine
End

Public Sub tbnPgIndietro_Click()  ' Pagina Indietro
  $iCurrentPage = $iCurrentPage - 1

  If $iCurrentPage <= 1 Then
    $iCurrentPage = 1
  Endif

  MGlobal.db.Open()
  GeneratePaging($iCurrentPage) ' Avvia Sub conteggio record
  NrPagine($iCurrentPage) ' Avvia Sub visualizzazione Nr. pagine
End

Public Sub NrPagine(iPag As Integer)  ' Numerazione pagine
  txlNrPagine.Text = iPag & "<FONT color=black> di </FONT>" & $iMaxPage
End