PHP كود :
Imports System.Data.SQLite
Imports System.Globalization
Imports System.Threading
Public Class form1
Dim dt As New DataTable
Dim page As Integer = 1
Dim totalpages As Integer = 0
Const perpage As Integer = 50
Dim SQLiteconnstring As String = "Data Source=|DataDirectory|testprent.s3db"
Dim concc As SQLiteConnection
Dim dacc As SQLiteDataAdapter
Dim cmcc As SQLiteCommandBuilder
Dim all_date As New List(Of String)
Private Sub cbox(ByVal year_ As String)
concc = New SQLiteConnection(SQLiteconnstring)
If year_ = "*" Then year_ = ""
Dim sql As String = "Select * from testprent where ((qso_date)like '%" & year_ & "%') order by Qso_id desc"
dacc = New SQLiteDataAdapter(sql, concc)
cmcc = New SQLiteCommandBuilder(dacc)
dt = New DataTable
If dacc.Fill(dt) > 0 Then
totalpages = Math.Ceiling(dt.Rows.Count / perpage)
page = 1
viewpage(page)
End If
'Dim kk(1) As String
'Dim itm As ListViewItem
'For ii As Integer = 0 To dt.Rows.Count - 1
' kk(0) = dt(ii)(1)
' kk(1) = dt(ii)(2)
' itm = New ListViewItem(kk)
' lst1.Items.Insert(0, itm)
'Next
End Sub
Private Sub form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Me.c.Items.Clear()
Me.c.Items.Add("*")
Me.c.DropDownStyle = ComboBoxStyle.DropDownList
Dim da As New SQLiteDataAdapter("SELECT DISTINCT substr(qso_date,0,5) AS d FROM testprent ORDER BY qso_date DESC", SQLiteconnstring)
Dim dt As New DataTable
da.Fill(dt)
For Each r As DataRow In dt.Rows
c.Items.Add(r("d"))
Next
Me.c.SelectedIndex = 0
lst1.FullRowSelect = True
Me.lbl_start.Text = "0 / 0"
Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("en-US")
'lst1.Clear()
'lst1.View = View.Details
'lst1.Columns.Add("Emp Name", 125, HorizontalAlignment.Left)
'lst1.Columns.Add("Emp Date", 125, HorizontalAlignment.Left)
fill()
Application.DoEvents()
End Sub
Sub fill()
lst1.FullRowSelect = True
Me.lbl_start.Text = "0 / 0"
Dim da As New SQLiteDataAdapter("SELECT (SELECT COUNT(*) FROM testprent t WHERE testprent.Qso_id >= t.Qso_id) AS [Serial], * FROM testprent ", SQLiteconnstring)
lst1.Items.Clear()
dt.Clear()
If da.Fill(dt) > 0 Then
totalpages = Math.Ceiling(dt.Rows.Count / perpage)
page = 1
viewpage(page)
'Dim kk(1) As String
'Dim itm As ListViewItem
'For ii As Integer = 0 To dt.Rows.Count - 1
' kk(0) = dt(ii)(1)
' kk(1) = dt(ii)(2)
' itm = New ListViewItem(kk)
' lst1.Items.Insert(0, itm)
'Next
End If
End Sub
Private Sub c_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles c.SelectedIndexChanged
''lst1.Clear()
''lst1.View = View.Details
'lst1.Columns.Add("Emp Name", 125, HorizontalAlignment.Left)
'lst1.Columns.Add("Emp Date", 125, HorizontalAlignment.Left)
lst1.Items.Clear()
cbox(c.Text)
End Sub
Private Sub btn_next_Click(sender As Object, e As EventArgs) Handles btn_next.Click
nextpage()
End Sub
Private Sub btn_prev_Click(sender As Object, e As EventArgs) Handles btn_prev.Click
previouspage()
End Sub
Private Sub btn_last_Click(sender As Object, e As EventArgs) Handles btn_last.Click
lastspage()
End Sub
Private Sub btn_first_Click(sender As Object, e As EventArgs) Handles btn_first.Click
firstspage()
End Sub
Private Sub firstspage()
page = 1
viewpage(page)
End Sub
Private Sub lastspage()
page = totalpages
viewpage(page)
End Sub
Private Sub previouspage()
If page > 1 Then
page -= 1
viewpage(page)
End If
End Sub
Private Sub nextpage()
If page < totalpages Then
page += 1
viewpage(page)
End If
End Sub
Private Sub viewpage(ByVal p As Integer)
Me.lbl_start.Text = "0 / 0"
If totalpages = 0 Then Return
If p > totalpages Then
p = totalpages
page = p
End If
Me.lbl_start.Text = String.Format("{0} / {1}", page, totalpages)
p -= 1
lst1.Items.Clear()
For i = (p * perpage) To (p * perpage) + perpage - 1
If i = dt.Rows.Count Then Exit Sub
Dim r As DataRow = dt.Rows(i)
lst1.Items.Add(New ListViewItem(
{r("Qso_id"),
r("omcall"),
r("mycall"),
r("qso_date"),
r("timeutc"),
r("bands"),
r("modes"),
r("rst_sent")
}))
Next
End Sub
End Class
