منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : الترقيم التلقائي مع رمز معين في vb.net
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام وعليكم ورحمته الله وبركاتة


كيفكم اخواني الاعزاء كنت حاب اعرف طريقة الترقيم بطريقة دي

F/140001
F/140002

Huh

انا استخدام طريقة تحايل على البرنامج بعمل حقل في قاعده البيانات ترقيم تلقائي وعمل لايبيل برمز الاولي مع رقم 14 وبعد ذالك استخدام الطريقة دي في الترقيم

PHP كود :
Try

            
Dim MaxNum1 As New OleDbCommand(" SELECT Max (inv_no) from pegout"Connstr)

            
'امر ترقيم يدوي تلقائي  
            '
حيث يحسب اكبر رقم في حقل id  ثم يزيد عليه واحد ويضيفه  

            Connstr
.Open()
            
TextBox1.Text Val(MaxNum1.ExecuteScalar().ToString()) + "1"
            
Connstr.Close()




        Catch 
ex As Exception

            
If Connstr.State ConnectionState.Open Then Connstr.Close()

            
MessageBox.Show(ex.Message)

        
End Try 
بعد ذالك اقوم ببربط التكست تبع الترقمي التلقائي مع اليبيل في تكست جديد بلكود التالي

PHP كود :
TextBox21.Text TextBox20.Text TextBox1.Text 

لكن المشكلة بان الترقيم يستمر ولكن بهاذي الطريقة
F/140001
F/140002
.
.
.
.
F/1400010
F/1400011
كود :
Dim MaxNum1 As New OleDbCommand("select max(inv_no) from pegout", Connstr)
conn.Open()
If MaxNum1.ExecuteScalar Is DBNull.Value Then
    TextBox1.Text = "F/" & 140001
  Else
    TextBox1.Text = "F/" & Val(Val(cmd.ExecuteScalar) + 1)
End If
    MaxNum1.Dispose()
    Connstr.Close()

مع العلم ان حقل (inv_no) يكون رقمي ،، وعند حفظ سجل جديد تحفظ القيمة فقط من التكست بوكس بدون (F/) وتكون الطريقة كالتالي :

لمعرفة المكتوب في التكست بوكس 1 ماعدا أول حرفين كالتالي :
كود :
MsgBox(Mid(TextBox1.Text, 3, Len(TextBox1.Text) - 2))

يبدا حساب الرقم من رقم 3 = إبتداء من الرقم الثالث اللي هو بعد (F/)
وحتى طول الموجود في تكست بوكس 1 ناقص 2 اللي هو (F/)

أتمنى الإفادة .
اخي العزيز انظر الى JOBNO كيف يتغير عند الحفظ ويحفظ بقيمة 0 لماذا والامر CMD لماذا كتبتة وانت كاتب MAXNUM1

وشكرا جزيل للمساعدة القيمة منك اخي
جزيت خيرا اخي ولكن بعض تحويلة الى تكست قبال الادخال ولكن ما يتم الانتقال الى الرقم التاتلي وايظن بعد اغلاق البرنامج واعادته فتحة يتغير الكود الى F\1 اضافة الكود التالي في زر الحفظ لكن دون فائدة
PHP كود :
Call CATWIRINTY_Load(Mee
(31-05-14, 12:48 PM)مراد بورجي كتب : [ -> ]جزيت خيرا اخي ولكن بعض تحويلة الى تكست قبال الادخال ولكن ما يتم الانتقال الى الرقم التاتلي وايظن بعد اغلاق البرنامج واعادته فتحة يتغير الكود الى F\1 اضافة الكود التالي في زر الحفظ لكن دون فائدة
PHP كود :
Call CATWIRINTY_Load(Mee

.....

بعد تحويل نوع العمود (الحقل) JobNo إلى نصي
كود :
Dim result As String = MaxNum1.ExecuteScalar
TextBoxX2.Text = result.Substring(0, 2) & (Val(result.Substring(2)) + 1).ToString
(31-05-14, 12:18 PM)مراد بورجي كتب : [ -> ]اخي العزيز انظر الى JOBNO كيف يتغير عند الحفظ ويحفظ بقيمة 0 لماذا والامر CMD لماذا كتبتة وانت كاتب MAXNUM1

وشكرا جزيل للمساعدة القيمة منك اخي

بخصوص cmd استبدلها بي MAXNUM1

ولو ترفق مثال بسيط للمشكلة اقوم بحلها .
vbnet
انت ملك البرمجة Big Grin
جزيت خير الجزاء وكتر الله من امثالكم اخواني الاعزاء نجح الترقيم شكرا لكم
(31-05-14, 01:01 PM)vbnet كتب : [ -> ]
(31-05-14, 12:48 PM)مراد بورجي كتب : [ -> ]جزيت خيرا اخي ولكن بعض تحويلة الى تكست قبال الادخال ولكن ما يتم الانتقال الى الرقم التاتلي وايظن بعد اغلاق البرنامج واعادته فتحة يتغير الكود الى F\1 اضافة الكود التالي في زر الحفظ لكن دون فائدة
PHP كود :
Call CATWIRINTY_Load(Mee

.....

بعد تحويل نوع العمود (الحقل) JobNo إلى نصي
كود :
Dim result As String = MaxNum1.ExecuteScalar
TextBoxX2.Text = result.Substring(0, 2) & (Val(result.Substring(2)) + 1).ToString

جزيت خير الجزاء وكتر الله من امثالكم اخواني الاعزاء نجح الترقيم شكرا لكم
لماذا ادا كان هناك حقول من سابق ما يظهر الرمز /F ويظهر الترقيم طبيعي ؟؟؟؟؟
الصفحات : 1 2