المشاركات : 20
المواضيع 6
الإنتساب : Mar 2015
السمعة :
0
الشكر: 0
تم شكره 35 مرات في 1 مشاركات
السلام عليكم ورحمه الله وبركاته
انا عندي برنامج شؤون الموظفين
اريد ان يتم اضافة ارقام الموظفين اتماتيكي مثلا اول موظف رقم 5000
بالداتا بيز
وعند الضغط على اضافة موظف جديد اوتماتيكي يظهر لي في خانة التكست رقم الموظف التالي 5001 وهكذا عند اضافة كل موظف يكون الرقم معرف للموظف الجديد
اتمنى مساعدتي
وشكرا
المشاركات : 45
المواضيع 10
الإنتساب : Dec 2014
السمعة :
2
الشكر: 70
تم شكره 89 مرات في 12 مشاركات
في الداتا بير قم بعمل حقل إسمه id وهو رقم الموظف
وإجعل خصائص هذا الحقل ترقيم تلقائي
وفي الفورم لإضافة موظف جديد ضع جميع بيانات الموظف ما عدا رقم الموظف
فلا داعي لها لأن خصائص حقل رقم الموظف في الداتا بيز ترقيم تلقائي
المشاركات : 20
المواضيع 6
الإنتساب : Mar 2015
السمعة :
0
الشكر: 0
تم شكره 35 مرات في 1 مشاركات
يعطيك العافية اخوي
لكن انا اريد حين اذهب لعمل موظف جديد
اولا يظهر رقم الموظف بالتكست ومن ثم انا ادخل باقي البيانات لكي اعرف انا رقم الموظف الذي ادخلته
المشاركات : 10
المواضيع 1
الإنتساب : Oct 2013
السمعة :
0
الشكر: 0
تم شكره 4 مرات في 3 مشاركات
' دالة الترقيم التلقائى
Public Sub AutoNum(ByVal C As TextBox, ByVal SQLStatment As String)
Try
Dim sda As New SqlDataAdapter(SQLStatment, sqlcon)
Dim ds As New DataSet
sda.Fill(ds)
Dim n As Integer = ds.Tables(0).Rows.Count
If n > 0 Then
C.Text = Format(ds.Tables(0).Rows(n - 1)(0) + 1, "00000")
Else
C.Text = Format("00001")
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
sqlcon.Close()
End Try
End Sub