+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : السلام عليكم--مشكلة--منظومة لمكتبة جامعة وعند الأستعارة يتم تكرار (/showthread.php?tid=19824)
السلام عليكم--مشكلة--منظومة لمكتبة جامعة وعند الأستعارة يتم تكرار - مصطفى الجازوي - 28-03-17
لدي مشكلة اقوم بعمل منظومة لمكتبة جامعة وعند الأستعارة يتم تكرار رقم التسجيل علما بأن رقم التسجيل مفتاح اساسي كيف احل المشكلة افيدونا افادكم الله
RE: السلام عليكم - مساعدة - 28-03-17
السلام عليكم
المفتاح الأساسي لا يتكرر، لهذا من الأفضل وضع المشروع لمعرفة المشكلة وإيجاد الحل المناسب.
RE - مصطفى الجازوي - 28-03-17
شكرا علي المشاركة
وهذا هو كود الاستعارة
sql = "select * from Retieval where Book_no=" & TextBox1.Text
DataAdapter.SelectCommand = New SqlCommand(sql, connection)
DataSet.Clear()
DataAdapter.Fill(DataSet, "Retieval")
If (DataSet.Tables("Retieval").Rows.Count = -1) Then
MsgBox("المشترك غير موجود ")
Exit Sub
End If
'''''''''''''''
'كود التأكد من أن الطالب لم يتعدى 3 كتب
sql = "select count (*) from Book where Book_no=" & TextBox1.Text
DataAdapter.SelectCommand = New SqlCommand(sql, connection)
DataSet.Clear()
connection.Open()
num = DataAdapter.SelectCommand.ExecuteScalar
connection.Close()
'''''''''''''''
If IsDBNull(num) Then
num = 0
Else
If num >= 3 Then
MsgBox("لايمكنك الأستعارة ")
Exit Sub
End If
End If
''''''''''
sql = " insert into Retieval (Book_no,Card_no,NO_borrowed,Bo_date1,Bo_date2,Bo_date3,Bo_Day) values (" & TextBox1.Text & ",'" & TextBox2.Text & "','" & TextBox3.Text & "', "
sql = sql & DateTimePicker1.Value.Date & "," & DateTimePicker2.Value.Date & ", " & DateTimePicker3.Value.Date & ", "
sql = sql & NumericUpDown1.Value & ")"
DataAdapter.InsertCommand = New SqlCommand(sql, connection)
connection.Open()
DataAdapter.InsertCommand.ExecuteNonQuery()
connection.Close()
MsgBox("تمت الأستعارة بنجاح")
مرة اخرى لدي مشكلة في كود الأعارة - مصطفى الجازوي - 28-03-17
وهذا هو كود الاستعارة
''''''''''
البحث عن رقم التسجيل
sql = "select * from Retieval where Book_no=" & TextBox1.Text
DataAdapter.SelectCommand = New SqlCommand(sql, connection)
DataSet.Clear()
DataAdapter.Fill(DataSet, "Retieval")
If (DataSet.Tables("Retieval").Rows.Count = -1) Then
MsgBox("المشترك غير موجود ")
Exit Sub
End If
'''''''''''''''
'كود التأكد من أن الطالب لم يتعدى 3 كتب
sql = "select count (*) from Book where Book_no=" & TextBox1.Text
DataAdapter.SelectCommand = New SqlCommand(sql, connection)
DataSet.Clear()
connection.Open()
num = DataAdapter.SelectCommand.ExecuteScalar
connection.Close()
'''''''''''''''
If IsDBNull(num) Then
num = 0
Else
If num >= 3 Then
MsgBox("لايمكنك الأستعارة ")
Exit Sub
End If
End If
''''''''''
الأستعارة (اضافة)
sql = " insert into Retieval (Book_no,Card_no,NO_borrowed,Bo_date1,Bo_date2,Bo_date3,Bo_Day) values (" & TextBox1.Text & ",'" & TextBox2.Text & "','" & TextBox3.Text & "', "
sql = sql & DateTimePicker1.Value.Date & "," & DateTimePicker2.Value.Date & ", " & DateTimePicker3.Value.Date & ", "
sql = sql & NumericUpDown1.Value & ")"
DataAdapter.InsertCommand = New SqlCommand(sql, connection)
connection.Open()
DataAdapter.InsertCommand.ExecuteNonQuery()
connection.Close()
MsgBox("تمت الأستعارة بنجاح")
RE: السلام عليكم - مساعدة - 28-03-17
يبدو أنك لا تريد أن تضع مشروع للتجربة، إذا فانتظر غيري يفهم موضوعك ويفيدك.
RE: السلام عليكم - مصطفى الجازوي - 28-03-17
أنا وضعت كود الأستعارة ومعنديش مشكلة في وضع البرنامج ولكن كيف
الشكراً علي المساعدة وجدت الحل وهو عمل جدول الحركة يكون فيه رقم المشترك ورقم الكتاب وتاريخ الأستعارة وتاريخ الأرجاع ........