منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
داله ترقيم تلقائي لكل الشاشات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة السي شارب C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=175)
+--- قسم : قسم اسئلة C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=176)
+--- الموضوع : داله ترقيم تلقائي لكل الشاشات (/showthread.php?tid=30627)



داله ترقيم تلقائي لكل الشاشات - amonem - 30-07-19

السلام عليكم ورحمه الله وبركاته

وجدت كود 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");

لكن عند استخدامه بتظهر اخطأ فى الكود
هل من الممكن تتصحيح الاخطاء 
وجزكم الله كل خير


RE: داله ترقيم تلقائي لكل الشاشات - asemshahen5 - 30-07-19

تفضل أخي الكريم ضع هذا بالكلاس :


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(); 



RE: داله ترقيم تلقائي لكل الشاشات - amonem - 30-07-19

(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(); 

الله ينور ياغالى تسلم ايدك
والف شكر لاهتمامك 
وجزاك الله كل خير


RE: داله ترقيم تلقائي لكل الشاشات - علي المروعي - 25-04-21

السلام عليكم ورحمة الله وبركاته لو ممكن توضيح الكود السابق للترقيم لأني حاولت اطبقه ما عرفت ولو مثال بسيط اكون لك من الشاكرين

او على الأقل شرح المتغيرات في الكود مثل
GetMaxIDColumn
ColumnIDName
"Employee", "EmployeeID"


RE: داله ترقيم تلقائي لكل الشاشات - alfaiz678 - 26-04-21

(25-04-21, 09:12 PM)علي المروعي كتب : السلام عليكم ورحمة الله وبركاته لو ممكن توضيح  الكود السابق للترقيم لأني حاولت اطبقه ما عرفت ولو مثال بسيط اكون لك من الشاكرين

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