Text/waterswea
1. وظيفة البرنامج: تنفيذ الترحيل لـ Repeater
2. تصميم النموذج:
1. قم بإنشاء تطبيق ويب ASP.NET جديد، يسمى Repeater2، ومسار الحفظ هو http://192.168.0.1/Repeater2 (ملاحظة: في جهازي الكمبيوتر عنوان IP الخاص بموقع الويب هو 192.168.0.1 والدليل الرئيسي هو مجلد D:web) وانقر فوق "موافق".
2. قم بإضافة جدول يحتوي على ثلاثة صفوف وعمود واحد إلى النموذج، وأضف عنصر تحكم مكرر إلى الصف الأول من الجدول، وأضف عنصري تحكم في التسمية إلى الصف الثاني من الجدول، وأضف أربعة أزرار أزرار إلى الصف الثالث من الجدول. طاولة.
3. قم بالتبديل إلى نافذة تعليمات HTML البرمجية وأضف التعليمة البرمجية التالية بين <asp:Repeater id="Repeater1" runat="server"> و</asp:Repeater>:
<ItemTemplate>
<معرف الجدول = "Table2" نمط = "حجم الخط: x-small" العرض = "498">
<تر>
<td><%#DataBinder.Eval(Container,"DataItem.employeeid")%></td>
<td><%#DataBinder.Eval(Container,"DataItem.lastname")%></td>
</tr>
</الجدول>
</ItemTemplate>
3. تصميم الكود:
يستورد System.Data.SqlClient
نموذج ويب للفئة العامة 1
يرث System.Web.UI.Page
Dim scon As New SqlConnection("server=localhost;database=northwind;uid=sa;pwd=123")
خافت sDA كـ SqlDataAdapter
خافت س كمجموعة بيانات
Dim currentPage As Integer 'يسجل الصفحة التي تتواجد فيها حاليًا. Dim maxPage As Integer 'كم عدد الصفحات الموجودة في المجموع؟ ConstrowCount As Integer = 3' كم عدد الصفوف الموجودة في صفحة واحدة؟ هل يوجد إجمالاً
رمز النموذج
omitPrivate Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) يعالج MyBase.Load
إذا لم يكن Page.IsPostBack إذن
sDA = New SqlDataAdapter("حدد معرف الموظف، واسم العائلة من الموظفين حسب ترتيب معرف الموظف"، scon)
ds = مجموعة بيانات جديدة
يحاول
sDA.Fill(ds، "الموظفين")
'الحصول على العدد الإجمالي للصفوفrowSum = ds.Tables(0).Rows.Count
قبض على السابق كاستثناء
مجموع الصفوف = 0
إنهاء حاول
"إذا لم تكن هناك بيانات، فاخرج من العملية إذا كانrowSum = 0 ثم اخرج من Sub
'احسب العدد الإجمالي لصفحات بيانات التصفح إذا كانrowSum ModrowCount > 0 ثم
"إذا كان هناك باقي، أضف 1."
maxPage =rowSumrowCount+1
آخر
'قم بتقسيم maxPage بالضبط علىrowSumrowCount
نهاية إذا كانت
الصفحة الحالية = 1
'استدعاء صفحة قراءة عملية البيانات المرتبطة (الصفحة الحالية)
بيانات الربط ()
Label2.Text = maxPage
'أزرار الصفحة الرئيسية والصفحة السابقة غير مرئيةButton1.Visible = False
Button2.Visible = خطأ
نهاية إذا
End Sub
'إنشاء عملية ربط البيانات
بيانات فرعية ()
Repeater1.DataSource = ds
مكرر1.DataBind()
Label1.Text = الصفحة الحالية
End Sub
'إنشاء عملية لملء مجموعة البيانات
صفحة القراءة الفرعية (ByVal n كعدد صحيح)
sDA = New SqlDataAdapter("حدد معرف الموظف، واسم العائلة من الموظفين حسب ترتيب معرف الموظف"، scon)
ds = مجموعة بيانات جديدة
د.مسح ()
sDA.Fill(ds, (n - 1) *rowCount,rowCount, "الموظفين")
النهاية الفرعية
"زر الصفحة الرئيسية".
الزر الفرعي الخاص 1_Click (مرسل ByVal كـ System.Object، ByVal e كـ System.EventArgs) يعالج Button1.Click
currentPage = 1
'استدعاء عملية ملء صفحة قراءة مجموعة البيانات (الصفحة الحالية)
'ربط البياناتBindData()
'قم بتعيين أزرار الصفحة الرئيسية والصفحة الأولى لتكون غير مرئية، واعرض أزرار الصفحة التالية والأخيرة Button1.Visible = False
Button2.Visible = خطأ
Button3.Visible = صحيح
زر الصفحة السابقة
True
End Sub
الزر الفرعي الخاص 2_Click (مرسل ByVal كـ System.Object، ByVal e كـ System.EventArgs) يعالج Button2.Click
'إذا كانت الصفحة الحالية هي الصفحة الثانية، فاضبط أزرار الصفحة الرئيسية والصفحة السابقة لتكون غير مرئية إذا كان Label1.Text > 2 ثم
Button3.Visible = صحيح
Button4.Visible = صحيح
آخر
Button1.Visible = خطأ
Button2.Visible = خطأ
Button3.Visible = صحيح
Button4.Visible = صحيح
نهاية إذا
الصفحة الحالية = Label1.Text - 1
قراءة الصفحة(الصفحة الحالية)
بيانات الربط ()
End Sub
"الصفحة التالية".
الزر الفرعي الخاص 3_Click (مرسل ByVal كـ System.Object، ByVal e كـ System.EventArgs) يعالج Button3.Click
'إذا كانت الصفحة الحالية هي الصفحة قبل الأخيرة، فاضبط أزرار الصفحة الأخيرة والصفحة التالية لتكون غير مرئية إذا كان Label1.Text < Label2.Text - 1 ثم
Button1.Visible = صحيح
Button2.Visible = صحيح
آخر
Button1.Visible = صحيح
Button2.Visible = صحيح
Button3.Visible = خطأ
Button4.Visible = خطأ
نهاية إذا
الصفحة الحالية = Label1.Text + 1
قراءة الصفحة(الصفحة الحالية)
بيانات الربط ()
End Sub
'الصفحة الأخيرة، الزر الفرعي الخاص 4_Click (مرسل ByVal كـ System.Object، ByVal e كـ System.EventArgs) يعالج الزر 4.Click
'اضبط الصفحة الحالية على الحد الأقصى لعدد الصفحات currentPage = Label2.Text
قراءة الصفحة(الصفحة الحالية)
بيانات الربط ()
Button1.Visible = صحيح
Button2.Visible = صحيح
Button3.Visible = خطأ
Button4.Visible = خطأ
نهاية الفرعية
End Class
هي كما يلي:
