منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيفيت وضع اضافة ارقام موظفين اتماتيكيا

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

انا عندي برنامج شؤون الموظفين
اريد ان يتم اضافة ارقام الموظفين اتماتيكي مثلا اول موظف رقم 5000
بالداتا بيز
وعند الضغط على اضافة موظف جديد اوتماتيكي يظهر لي في خانة التكست رقم الموظف التالي 5001 وهكذا عند اضافة كل موظف يكون الرقم معرف للموظف الجديد

اتمنى مساعدتي

وشكرا

في الداتا بير قم بعمل حقل إسمه id وهو رقم الموظف
وإجعل خصائص هذا الحقل ترقيم تلقائي

وفي الفورم لإضافة موظف جديد ضع جميع بيانات الموظف ما عدا رقم الموظف
فلا داعي لها لأن خصائص حقل رقم الموظف في الداتا بيز ترقيم تلقائي

يعطيك العافية اخوي
لكن انا اريد حين اذهب لعمل موظف جديد
اولا يظهر رقم الموظف بالتكست ومن ثم انا ادخل باقي البيانات لكي اعرف انا رقم الموظف الذي ادخلته

جرب هذا الكود في حدث تحميل فورم الإضافة

PHP كود :

Dim alba As String = "SELECT * FROM TABELNAME"
        Dim DataAdapter1 As New OleDbDataAdapter(alba, newConnection)
        DataAdapter1.Fill(DataSet1, "TABELNAME")
        newConnection.Close()
        Me.BindingContext(DataSet1, "TABELNAME").Position = Me.BindingContext(DataSet1, "TABELNAME").Count - 1
        Dim x As String = 1
        Me.TextBox2.Text = Val(Me.TextBox1.DataBindings.Add("Text", DataSet1, "TABELNAME.FIELDNAME")) + Val(x) 

حيث TABELNAME = اسم الجدول في قاعدة البيانات
TextBox2 = خانة إظهار كود الموظف الجديد
TextBox1 = خانة إظهار آخر كود في الجدول لقاعدة البيانات لديك
وإذا كنت لا تريده يظهر في الفورم يمكنك جعله مخفي
FIELDNAME = اسم حقل كود الموظف في قاعدة البيانات

' دالة الترقيم التلقائى
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

(12-04-15, 10:43 PM)wessam.demerdash كتب : [ -> ]' دالة الترقيم التلقائى
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

جزاك الله خير ضبطت العملية ولله الحمد

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

s3eed

momiana1

s3eed

momiana1

wessam.demerdash

s3eed