المشاركات : 5
المواضيع 1
الإنتساب : Jun 2016
السمعة :
0
الشكر: 0
تم شكره 1 مرات في 1 مشاركات
28-03-17, 08:49 PM
(آخر تعديل لهذه المشاركة : 28-03-17, 09:43 PM {2} بواسطة مصطفى الجازوي.)
لدي مشكلة اقوم بعمل منظومة لمكتبة جامعة وعند الأستعارة يتم تكرار رقم التسجيل علما بأن رقم التسجيل مفتاح اساسي كيف احل المشكلة افيدونا افادكم الله
المشاركات : 595
المواضيع 1
الإنتساب : Dec 2016
السمعة :
45
الشكر: 0
تم شكره 544 مرات في 355 مشاركات
السلام عليكم
المفتاح الأساسي لا يتكرر، لهذا من الأفضل وضع المشروع لمعرفة المشكلة وإيجاد الحل المناسب.
المشاركات : 5
المواضيع 1
الإنتساب : Jun 2016
السمعة :
0
الشكر: 0
تم شكره 1 مرات في 1 مشاركات
شكرا علي المشاركة
وهذا هو كود الاستعارة
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("تمت الأستعارة بنجاح")
المشاركات : 5
المواضيع 1
الإنتساب : Jun 2016
السمعة :
0
الشكر: 0
تم شكره 1 مرات في 1 مشاركات
وهذا هو كود الاستعارة
''''''''''
البحث عن رقم التسجيل
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("تمت الأستعارة بنجاح")
المشاركات : 595
المواضيع 1
الإنتساب : Dec 2016
السمعة :
45
الشكر: 0
تم شكره 544 مرات في 355 مشاركات
يبدو أنك لا تريد أن تضع مشروع للتجربة، إذا فانتظر غيري يفهم موضوعك ويفيدك.
المشاركات : 5
المواضيع 1
الإنتساب : Jun 2016
السمعة :
0
الشكر: 0
تم شكره 1 مرات في 1 مشاركات
28-03-17, 09:41 PM
(آخر تعديل لهذه المشاركة : 28-03-17, 09:56 PM {2} بواسطة مصطفى الجازوي.)
أنا وضعت كود الأستعارة ومعنديش مشكلة في وضع البرنامج ولكن كيف
الشكراً علي المساعدة وجدت الحل وهو عمل جدول الحركة يكون فيه رقم المشترك ورقم الكتاب وتاريخ الأستعارة وتاريخ الأرجاع ........