تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
داله ترقيم تلقائي لكل الشاشات
#1
السلام عليكم ورحمه الله وبركاته

وجدت كود vb.net يوضع داخل كلاس للترقيم التلقائي لكل الشاشات ويعمل جيدا 

كود :
   Public Function GetMaxID(TableName, CoulmnName) As Integer
       Dim dt As New DataTable
       Dim adp As New SqlDataAdapter
       dt.Clear()
       adp = New SqlDataAdapter("select MAX(" & CoulmnName & ") from " & TableName & "", Con)
       adp.Fill(dt)
       Dim autoNumber As Integer
       If IsDBNull(dt(0)(0)) = True Then
           autoNumber = 1
       Else
           autoNumber = dt(0)(0) + 1
       End If
       Return autoNumber
   End Function
وفى داخل الشاشه التي تريد الترقيم بها يوضع هذا السطر
كود :
StudentID.Text = GetMaxID("Student", "StudentID")
قمت بتحويل للكود الى سي شارب عن طريق موقع لتحويل الاكواد واصبح كالتالى
كود :
public int GetMaxID(object TableName, object CoulmnName)
{
   DataTable dt = new DataTable();
   SqlDataAdapter adp = new SqlDataAdapter();
   dt.Clear();
   adp = new SqlDataAdapter("select MAX(" + CoulmnName + ") from " + TableName + "", Con);
   adp.Fill(dt);
   int autoNumber;
   if (IsDBNull(dt(0)(0)) == true)
       autoNumber = 1;
   else
       autoNumber = dt(0)(0) + 1;
   return autoNumber;
}
وفى داخل الشاشه التي تريد ترقيم بها يوضع هذا السطر

كود :
StudentID.Text = GetMaxID("Student", "StudentID");

لكن عند استخدامه بتظهر اخطأ فى الكود
هل من الممكن تتصحيح الاخطاء 
وجزكم الله كل خير
الرد }}}
تم الشكر بواسطة: أسعد
#2
تفضل أخي الكريم ضع هذا بالكلاس :


PHP كود :
       public static Int32 GetMaxIDColumn(string TableNamestring ColumnIDName)
 
       {
 
           Int32 IdX 0;
 
           String StrSQL "Select IIF(Max(" ColumnIDName ") Is NULL,1,Max(" ColumnIDName ")+1) From " TableName;
 
           //SqlConnection Con = new SqlConnection("Server =(local);database=Accounts;integrated security=true");
 
           SqlDataAdapter da = new SqlDataAdapter(StrSQLCon);
 
           DataTable dt = new DataTable();
 
           da.Fill(dt);
 
           IdX Convert.ToInt32(dt.Rows[0][0].ToString());
 
           return IdX;
 
       


و هكذا يتم استخدامه :

PHP كود :
textBox1.Text Class1.GetMaxIDColumn("Employee""EmployeeID").ToString(); 
الرد }}}
#3
(30-07-19, 11:23 PM)asemshahen5 كتب : تفضل أخي الكريم ضع هذا بالكلاس :


PHP كود :
       public static Int32 GetMaxIDColumn(string TableNamestring ColumnIDName)
 
       {
 
           Int32 IdX 0;
 
           String StrSQL "Select IIF(Max(" ColumnIDName ") Is NULL,1,Max(" ColumnIDName ")+1) From " TableName;
 
           //SqlConnection Con = new SqlConnection("Server =(local);database=Accounts;integrated security=true");
 
           SqlDataAdapter da = new SqlDataAdapter(StrSQLCon);
 
           DataTable dt = new DataTable();
 
           da.Fill(dt);
 
           IdX Convert.ToInt32(dt.Rows[0][0].ToString());
 
           return IdX;
 
       


و هكذا يتم استخدامه :

PHP كود :
textBox1.Text Class1.GetMaxIDColumn("Employee""EmployeeID").ToString(); 

الله ينور ياغالى تسلم ايدك
والف شكر لاهتمامك 
وجزاك الله كل خير
الرد }}}
#4
السلام عليكم ورحمة الله وبركاته لو ممكن توضيح الكود السابق للترقيم لأني حاولت اطبقه ما عرفت ولو مثال بسيط اكون لك من الشاكرين

او على الأقل شرح المتغيرات في الكود مثل
GetMaxIDColumn
ColumnIDName
"Employee", "EmployeeID"
الرد }}}
تم الشكر بواسطة: أسعد
#5
(25-04-21, 09:12 PM)علي المروعي كتب : السلام عليكم ورحمة الله وبركاته لو ممكن توضيح  الكود السابق للترقيم لأني حاولت اطبقه ما عرفت ولو مثال بسيط اكون لك من الشاكرين

او على الأقل شرح المتغيرات في الكود مثل
GetMaxIDColumn
ColumnIDName
"Employee", "EmployeeID"
عند استدعاء الدالة تتطلب معاميل
اسم الجدول
واسم العمود الرقمي المراد ترقيمه
كود :
textBox1.Text = Class1.GetMaxIDColumn("اسم العمود", "اسم اجدول").ToString();
الرد }}}
تم الشكر بواسطة: أسعد , أسعد , asemshahen5 , ابراهيم ايبو , amonem


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ترقيم حسب ID الصنف amonem 6 1,886 13-02-22, 12:57 PM
آخر رد: amonem
  [C#.NET] مشروع عمل برنامج نشر تلقائي علي الفيس بوك starmedom 1 1,740 03-05-20, 06:17 PM
آخر رد: starmedom
  كود ترقيم تلقائي رسول555 2 2,388 14-02-19, 11:14 AM
آخر رد: رسول555
  [سؤال] سي شارب قسم الشاشات حيدر العبدلله 1 1,765 06-02-19, 05:53 PM
آخر رد: thevirus
  [سؤال] مشكلة عرض اجمالي تلقائي بمجرد كتابة الرقم في textbox ismail abdullah 6 3,195 26-12-17, 09:42 AM
آخر رد: ismail abdullah
  طريقة اضافة ترقيم لكل صف في التقرير داخل المجموعة sharkawy 1 3,385 02-11-14, 12:25 AM
آخر رد: kslawy

التنقل السريع :


يقوم بقرائة الموضوع: