Text/waterswea
1. Fungsi program: Mengimplementasikan paging untuk Repeater
2. Desain form:
1. Membuat aplikasi Web ASP.NET baru, bernama Repeater2, dan jalur penyimpanannya adalah http://192.168.0.1/Repeater2 (Catatan: Di my komputer IP situs web adalah 192.168.0.1 dan direktori home adalah D:folder web) dan klik OK.
2. Tambahkan tabel dengan tiga baris dan satu kolom ke formulir, tambahkan kontrol Pengulang ke baris pertama tabel, tambahkan dua kontrol Label ke baris kedua tabel, dan tambahkan empat tombol Tombol ke baris ketiga tabel meja.
3. Beralih ke jendela kode HTML dan tambahkan kode berikut di antara <asp:Repeater id="Repeater1" runat="server"> dan </asp:Repeater>:
<ItemTemplate>
<tabel id="Tabel2" style="UKURAN FONT: x-kecil" lebar="498">
<tr>
<td><%#DataBinder.Eval(Container,"DataItem.employeeid")%></td>
<td><%#DataBinder.Eval(Container,"DataItem.lastname")%></td>
</tr>
</tabel>
</ItemTemplate>
3. Desain kode:
Impor System.Data.SqlClient
Formulir Web Kelas Publik1
Mewarisi System.Web.UI.Page
Dim scon Sebagai SqlConnection Baru("server=localhost;database=northwind;uid=sa;pwd=123")
Redupkan sDA Sebagai SqlDataAdapter
Redupkan ds Sebagai DataSet
Dim currentPage As Integer 'Mencatat halaman mana yang sedang Anda buka. Dim maxPage As Integer 'Ada berapa total halaman? Const rowCount As Integer = 3 'Berapa banyak baris yang ada dalam satu halaman? apakah ada total
' Kode formulir
menghilangkan Sub Halaman_Load Pribadi (pengirim ByVal Sebagai System.Object, ByVal e As System.EventArgs) Menangani MyBase.Load
Jika Bukan Page.IsPostBack Lalu
sDA = New SqlDataAdapter("pilih id karyawan, nama belakang dari pesanan karyawan berdasarkan id karyawan", scon)
ds = Kumpulan Data Baru
Mencoba
sDA.Isi(ds, "karyawan")
'Dapatkan jumlah total baris rowSum = ds.Tables(0).Rows.Count
Tangkap mantan Sebagai Pengecualian
jumlah baris = 0
End Coba
'Jika tidak ada data, keluar dari prosesJika rowSum = 0 Lalu Keluar Sub
'Hitung jumlah total halaman data penelusuranJika rowSum Mod rowCount > 0 Lalu
'Jika ada sisa, tambahkan 1
maxPage = jumlah baris jumlah baris + 1
Kalau tidak
'Bagilah maxPage = rowSum rowCount
Berakhir Jika
Halaman saat ini = 1
'Panggil halaman baca proses data terikat (Halaman Saat Ini)
MengikatData()
Label2.Teks = maxPage
'Tombol beranda dan halaman sebelumnya tidak terlihatButton1.Visible = False
Button2.Visible = Salah
Akhiri Jika
End Sub
'Membuat proses pengikatan data
SubBindData()
Repeater1.DataSource = ds
Pengulang1.DataBind()
Label1.Teks = Halaman saat ini
End Sub
'Buat proses untuk mengisi kumpulan data
Sub halaman baca (ByVal n Sebagai Integer)
sDA = New SqlDataAdapter("pilih id karyawan, nama belakang dari pesanan karyawan berdasarkan id karyawan", scon)
ds = Kumpulan Data Baru
ds.Hapus()
sDA.Fill(ds, (n - 1) * rowCount, rowCount, "karyawan")
Akhiri Sub
'Tombol Beranda
Sub Pribadi Button1_Click(Pengirim ByVal Sebagai System.Object, ByVal dan Sebagai System.EventArgs) Menangani Button1.Click
currentPage = 1
'Panggil proses pengisian halaman baca kumpulan data (Halaman Saat Ini)
'Mengikat dataBindData()
'Atur tombol beranda dan halaman pertama agar tidak terlihat, dan tampilkan tombol halaman berikutnya dan terakhir Button1.Visible = False
Button2.Visible = Salah
Button3.Visible = Benar
Button4.Visible =
Tombol Halaman Sebelumnya
Sub Akhir
Sejati
Sub Pribadi Button2_Click(Pengirim ByVal Sebagai System.Object, ByVal dan Sebagai System.EventArgs) Menangani Button2.Click
'Jika halaman saat ini adalah halaman kedua, atur tombol beranda dan halaman sebelumnya menjadi tidak terlihatJika Label1.Teks > 2 Lalu
Button3.Visible = Benar
Button4.Visible = Benar
Kalau tidak
Button1.Visible = Salah
Button2.Visible = Salah
Button3.Visible = Benar
Button4.Visible = Benar
Akhiri Jika
Halaman saat ini = Label1.Teks - 1
halaman baca(Halaman saat ini)
MengikatData()
Akhiri Sub
'Halaman berikutnya
Sub Pribadi Button3_Click(Pengirim ByVal Sebagai System.Object, ByVal dan Sebagai System.EventArgs) Menangani Button3.Click
'Jika halaman saat ini adalah halaman kedua dari belakang, atur tombol halaman terakhir dan halaman berikutnya menjadi tidak terlihatJika Label1.Teks < Label2.Teks - 1 Lalu
Button1.Visible = Benar
Button2.Visible = Benar
Kalau tidak
Button1.Visible = Benar
Button2.Visible = Benar
Button3.Visible = Salah
Button4.Visible = Salah
Akhiri Jika
Halaman saat ini = Label1.Teks + 1
halaman baca(Halaman saat ini)
MengikatData()
End Sub
'Halaman terakhir buttonPrivate Sub Button4_Click(ByVal pengirim Sebagai System.Object, ByVal e As System.EventArgs) Menangani Button4.Click
'Atur halaman saat ini ke jumlah halaman maksimum currentPage = Label2.Text
halaman baca(Halaman saat ini)
MengikatData()
Button1.Visible = Benar
Button2.Visible = Benar
Button3.Visible = Salah
Button4.Visible = Salah
Akhiri Sub
Kelas Akhir
adalah sebagai berikut:
