السلام عليكم ورحمة الله وبركاته
حفظكم الله من كل وباء وبلاء
عندي مشكلة في اكواد الأضافة والحفظ والتعديل وحفظ التعديل اخذت الأكواد من هذا المنتدي ونجحت في التعديل عند البيانات الصغيرة و عند البيانات الكبيرة وقعت في اخطاء الرجاء التصحيح ولكم مني جزيل الشكر
الكود و قاعدة البيانات في المرفقات
حفظكم الله من كل وباء وبلاء
عندي مشكلة في اكواد الأضافة والحفظ والتعديل وحفظ التعديل اخذت الأكواد من هذا المنتدي ونجحت في التعديل عند البيانات الصغيرة و عند البيانات الكبيرة وقعت في اخطاء الرجاء التصحيح ولكم مني جزيل الشكر
الكود و قاعدة البيانات في المرفقات
كود :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
' On Error Resume Next
If MsgBox("هل تريد إضافة سجل جديد ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "إضافة سجل جديد") = MsgBoxResult.Cancel Then Exit Sub
Using Command As New OleDbCommand("SELECT MAX( TxtBoID) FROM emp", con)
If con.State = ConnectionState.Closed Then con.Open()
If Command.ExecuteScalar Is DBNull.Value Then
Call SetState("Add")
InfoBookmark = InfoManager.Position
InfoManager.AddNew()
TxtBoID.Text = 1
TxtBoNa.Focus()
TxtBoID.Enabled = False
TxtBoNa.Enabled = True
TxtBoRe.Enabled = True
TxtNoWadeafa.Enabled = True
TxtBoYestart.Enabled = True
TextBox61.Enabled = False
ComboBox1.Enabled = False
Button5.Enabled = False
Button7.Enabled = True
Button8.Enabled = False
Button9.Enabled = False : Button10.Enabled = False : Button12.Enabled = False : Button11.Enabled = False
Else
Call SetState("Add")
InfoBookmark = InfoManager.Position
InfoManager.AddNew()
TxtBoID.Text = Command.ExecuteScalar().ToString() + 1
TxtBoNa.Focus()
TxtBoID.Enabled = False
TxtBoNa.Enabled = True
TxtBoRe.Enabled = True
TxtNoWadeafa.Enabled = True
TxtBoYestart.Enabled = True
TextBox61.Enabled = False
ComboBox1.Enabled = False
Button5.Enabled = False
Button7.Enabled = True
Button8.Enabled = False
Button9.Enabled = False : Button10.Enabled = False : Button12.Enabled = False : Button11.Enabled = False
End If
End Using
con.Close()
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
' On Error Resume Next
If TxtBoNa.Text.Trim = "" Then
ErrorProvider1.SetError(TxtBoNa, "الرجاء عدم ترك حقل رقم الطّالب فارغا")
MessageBox.Show("الرجاء عدم ترك حقل اسم الطّالب فارغا", "إدخال خاطىء", MessageBoxButtons.OK, MessageBoxIcon.Information)
TxtBoNa.Focus()
Exit Sub
End If
If TxtBoRe.Text.Trim = "" Then
ErrorProvider1.SetError(TxtBoRe, "الرجاء عدم ترك حقل كود الطّالب فارغا")
MessageBox.Show("الرجاء عدم ترك حقل رقم القيد فارغا", "إدخال خاطىء", MessageBoxButtons.OK, MessageBoxIcon.Information)
TxtBoRe.Focus()
Exit Sub
End If
If TxtBoYestart.Text.Trim = "" Then
ErrorProvider1.SetError(TxtBoNa, "الرجاء عدم ترك حقل اسم الطّالب فارغا")
MessageBox.Show("الرجاء عدم ترك حقل سنة التخرج فارغا", "إدخال خاطىء", MessageBoxButtons.OK, MessageBoxIcon.Information)
TxtBoYestart.Focus()
Exit Sub
ElseIf MsgBox("هل تريد حفظ السجل الحالي", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "تأكيد الحفظ") = MsgBoxResult.No Then
ElseIf TxtBoNa.Text = "" Then
MsgBox("الرجاء كتابة الرقم التسلسلي", MsgBoxStyle.MsgBoxRtlReading, "تنبيه")
End If
Dim Checknum As String = ""
Using Check As New OleDbCommand With {.Connection = con, .CommandText = "SELECT ID FROM emp WHERE TxtBoID = @TxtBoID "}
Check.Parameters.Add("@TxtBoID", OleDbType.Integer).Value = Convert.ToInt32(TxtBoID.Text.Trim)
If con.State = ConnectionState.Closed Then con.Open()
Checknum = Check.ExecuteScalar
con.Close()
End Using
If Checknum <> "" Then
MsgBox("عفوًا .. هذا الطّالب سبق تسجيله في النّظام و لا يمكن تكرار تسجيله بنفس رقم القيد ", MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxRight, " خطأ في التسجيل ")
Exit Sub
Else
Using Command As New OleDbCommand With {.Connection = con}
With Command
.CommandText = "INSERT INTO emp(TxtBoID,TNatiID,TxtBoRe,TGender,TxtBoNa,TxtFathNam,TxtGraNam,TxtSurNam,TxtMothNam,TxtMotFatNam,TxtMsur,TxtBathPla,TBirthMonth,TNationality,ComboBox3,TxtNumFam,TxtBaladia,TxtMahlla,ComboBox4,TTaeenNo,Ttarekheh,TxtBoYestart,TxtNoWadeafa,TxtMoneyNo,TxtMalakNo,TGuraCardNo,TCardNo,TBank,TBankBranch,TBankAco,TxtCert,TTimeQual,TQualState,TQualPlace,TxtSpicial,TDgreeEmp,TxtNoQrar,TxtTarekhQrar,TSefatoh,TTimeNexDeg)" & _
"VALUES(@TxtBoID,@TNatiID,@TxtBoRe,@TGender,@TxtBoNa,@TxtFathNam,@TxtGraNam,@TxtSurNam,@TxtMothNam,@TxtMotFatNam,@TxtMsur,@TxtBathPla,@TBirthMonth,@TNationality,@ComboBox3,@TxtNumFam,@TxtBaladia,@TxtMahlla,@ComboBox4,@TTaeenNo,@Ttarekheh,@TxtBoYestart,@TxtNoWadeafa,@TxtMoneyNo,@TxtMalakNo,@TGuraCardNo,@TCardNo,@TBank,@TBankBranch,@TBankAco,@TxtCert,@TTimeQual,@TQualState,@TQualPlace,@TxtSpicial,@TDgreeEmp,@TxtNoQrar,@TxtTarekhQrar,@TSefatoh,@TTimeNexDeg)"
.Parameters.Add("@TxtBoID", OleDbType.Decimal, 18).Value = Decimal.Parse(TxtBoID.Text)
.Parameters.Add("@TNatiID", OleDbType.VarChar).Value = TNatiID.Text
.Parameters.Add("@TxtBoRe", OleDbType.VarChar).Value = TxtBoRe.Text
.Parameters.Add("@TGender", OleDbType.VarChar).Value = TGender.Text
.Parameters.Add("@TxtBoNa", OleDbType.VarChar).Value = TxtBoNa.Text
.Parameters.Add("@TxtFathNam", OleDbType.VarChar).Value = TxtFathNam.Text
.Parameters.Add("@TxtGraNam", OleDbType.VarChar).Value = TxtGraNam.Text
.Parameters.Add("@TxtSurNam", OleDbType.VarChar).Value = TxtSurNam.Text
.Parameters.Add("@TxtMothNam", OleDbType.VarChar).Value = TxtMothNam.Text
.Parameters.Add("@TxtMotFatNam", OleDbType.VarChar).Value = TxtMotFatNam.Text
.Parameters.Add("@TxtMsur", OleDbType.VarChar).Value = TxtMsur.Text
.Parameters.Add("@TxtBathPla", OleDbType.VarChar).Value = TxtBathPla.Text
.Parameters.Add("@TBirthMonth", OleDbType.VarChar).Value = TBirthMonth.Text
.Parameters.Add("@TNationality", OleDbType.VarChar).Value = TNationality.Text
.Parameters.Add("@ComboBox3", OleDbType.VarChar).Value = ComboBox3.Text
.Parameters.Add("@TxtNumFam", OleDbType.VarChar).Value = TxtNumFam.Text
.Parameters.Add("@TxtBaladia", OleDbType.VarChar).Value = TxtBaladia.Text
.Parameters.Add("@TxtMahlla", OleDbType.VarChar).Value = TxtMahlla.Text
.Parameters.Add("@ComboBox4", OleDbType.VarChar).Value = ComboBox4.Text
.Parameters.Add("@TTaeenNo", OleDbType.VarChar).Value = TTaeenNo.Text
.Parameters.Add("@Ttarekheh", OleDbType.VarChar).Value = Ttarekheh.Text
.Parameters.Add("@TxtBoYestart", OleDbType.VarChar).Value = TxtBoYestart.Text
.Parameters.Add("@TxtNoWadeafa", OleDbType.VarChar).Value = TxtNoWadeafa.Text
.Parameters.Add("@TxtMoneyNo", OleDbType.VarChar).Value = TxtMoneyNo.Text
.Parameters.Add("@TxtMalakNo", OleDbType.VarChar).Value = TxtMalakNo.Text
.Parameters.Add("@TGuraCardNo", OleDbType.VarChar).Value = TGuraCardNo.Text
.Parameters.Add("@TCardNo", OleDbType.VarChar).Value = TCardNo.Text
.Parameters.Add("@TBank", OleDbType.VarChar).Value = TBank.Text
.Parameters.Add("@TBankBranch", OleDbType.VarChar).Value = TBankBranch.Text
.Parameters.Add("@TBankAco", OleDbType.VarChar).Value = TBankAco.Text
.Parameters.Add("@TxtCert", OleDbType.VarChar).Value = TxtCert.Text
.Parameters.Add("@TTimeQual", OleDbType.VarChar).Value = TTimeQual.Text
.Parameters.Add("@TQualState", OleDbType.VarChar).Value = TQualState.Text
.Parameters.Add("@TQualPlace", OleDbType.VarChar).Value = TQualPlace.Text
.Parameters.Add("@TxtSpicial", OleDbType.VarChar).Value = TxtSpicial.Text
.Parameters.Add("@TDgreeEmp", OleDbType.VarChar).Value = TDgreeEmp.Text
.Parameters.Add("@TxtNoQrar", OleDbType.VarChar).Value = TxtNoQrar.Text
.Parameters.Add("@TxtTarekhQrar", OleDbType.VarChar).Value = TxtTarekhQrar.Text
.Parameters.Add("@TSefatoh", OleDbType.VarChar).Value = TSefatoh.Text
.Parameters.Add("@TTimeNexDeg", OleDbType.VarChar).Value = TTimeNexDeg.Text
End With
If con.State = ConnectionState.Closed Then con.Open()
If Command.ExecuteNonQuery() = 1 Then
MsgBox("تمت عملية الإضافة بنجاح", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ إجراء الإضافة")
Call Di_Refresh()
Call RecordStudent()
Call ShowRelated()
Else
MsgBox("تأكد من إدخال جميع البيانات وبالصورة الصحيحة", MsgBoxStyle.MsgBoxRtlReading, "إدخال خاطئ أو غير مكتمل")
End If
con.Close()
End Using
End If
Button1.Enabled = True
Button2.Enabled = False
Button5.Enabled = True
Button7.Enabled = False
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
End Sub
Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)
If MsgBox(" هل أنت متأكّد من أنك تريد تعديل بيانات هذا الطّالب : " & TxtBoNa.Text & " ؟ ", MsgBoxStyle.YesNo + MsgBoxStyle.Critical, "تحذير") = MsgBoxResult.No Then
Exit Sub
Else
Call SetState("Edit")
Button1.Enabled = False
Button2.Enabled = False
Button5.Enabled = False
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
End If
End Sub
Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs)
' If TxtBoNa.Text = "" Then
' MsgBox("الرجاء كتابة اسم الطالب", MsgBoxStyle.MsgBoxRtlReading, "تنبيه")
' Else
Using Command As New OleDbCommand
With Command
.CommandText = "UPDATE emp SET TNatiID= @TNatiID,TxtBoRe= @TxtBoRe,TGender= @TGender,TxtBoNa= @TxtBoNa,TxtFathNam= @TxtFathNam,TxtGraNam= @TxtGraNam,TxtSurNam= @TxtSurNam,TxtMothNam= @TxtMothNam,TxtMotFatNam= @TxtMotFatNam,TxtMsur= @TxtMsur,TxtBathPla= @TxtBathPla,TBirthMonth= @TBirthMonth,TNationality= @TNationality,ComboBox3= @ComboBox3,TxtNumFam= @TxtNumFam,TxtBaladia= @TxtBaladia,TxtMahlla= @TxtMahlla,ComboBox4= @ComboBox4,TTaeenNo= @TTaeenNo,Ttarekheh= @Ttarekheh,TxtBoYestart= @TxtBoYestart,TxtNoWadeafa= @TxtNoWadeafa,TxtMoneyNo= @TxtMoneyNo,TxtMalakNo= @TxtMalakNo,TGuraCardNo= @TGuraCardNo,TCardNo= @TCardNo,TBank= @TBank,TBankBranch= @TBankBranch,TBankAco= @TBankAco,TxtCert= @TxtCert,TTimeQual= @TTimeQual,TQualState= @TQualState,TQualPlace= @TQualPlace,TxtSpicial= @TxtSpicial,TDgreeEmp= @TDgreeEmp,TxtNoQrar= @TxtNoQrar,TxtTarekhQrar= @TxtTarekhQrar,TSefatoh= @TSefatoh,TTimeNexDeg= @TTimeNexDeg WHERE TxtBoID = @TxtBoID"
.Connection = con
.Parameters.Add("@TxtBoID", OleDbType.Decimal, 18).Value = Decimal.Parse(TxtBoID.Text)
.Parameters.Add("@TNatiID", OleDbType.VarChar).Value = TNatiID.Text
.Parameters.Add("@TxtBoRe", OleDbType.VarChar).Value = TxtBoRe.Text
.Parameters.Add("@TGender", OleDbType.VarChar).Value = TGender.Text
.Parameters.Add("@TxtBoNa", OleDbType.VarChar).Value = TxtBoNa.Text
.Parameters.Add("@TxtFathNam", OleDbType.VarChar).Value = TxtFathNam.Text
.Parameters.Add("@TxtGraNam", OleDbType.VarChar).Value = TxtGraNam.Text
.Parameters.Add("@TxtSurNam", OleDbType.VarChar).Value = TxtSurNam.Text
.Parameters.Add("@TxtMothNam", OleDbType.VarChar).Value = TxtMothNam.Text
.Parameters.Add("@TxtMotFatNam", OleDbType.VarChar).Value = TxtMotFatNam.Text
.Parameters.Add("@TxtMsur", OleDbType.VarChar).Value = TxtMsur.Text
.Parameters.Add("@TxtBathPla", OleDbType.VarChar).Value = TxtBathPla.Text
.Parameters.Add("@TBirthMonth", OleDbType.VarChar).Value = TBirthMonth.Text
.Parameters.Add("@TNationality", OleDbType.VarChar).Value = TNationality.Text
.Parameters.Add("@ComboBox3", OleDbType.VarChar).Value = ComboBox3.Text
.Parameters.Add("@TxtNumFam", OleDbType.VarChar).Value = TxtNumFam.Text
.Parameters.Add("@TxtBaladia", OleDbType.VarChar).Value = TxtBaladia.Text
.Parameters.Add("@TxtMahlla", OleDbType.VarChar).Value = TxtMahlla.Text
.Parameters.Add("@ComboBox4", OleDbType.VarChar).Value = ComboBox4.Text
.Parameters.Add("@TTaeenNo", OleDbType.VarChar).Value = TTaeenNo.Text
.Parameters.Add("@Ttarekheh", OleDbType.VarChar).Value = Ttarekheh.Text
.Parameters.Add("@TxtBoYestart", OleDbType.VarChar).Value = TxtBoYestart.Text
.Parameters.Add("@TxtNoWadeafa", OleDbType.VarChar).Value = TxtNoWadeafa.Text
.Parameters.Add("@TxtMoneyNo", OleDbType.VarChar).Value = TxtMoneyNo.Text
.Parameters.Add("@TxtMalakNo", OleDbType.VarChar).Value = TxtMalakNo.Text
.Parameters.Add("@TGuraCardNo", OleDbType.VarChar).Value = TGuraCardNo.Text
.Parameters.Add("@TCardNo", OleDbType.VarChar).Value = TCardNo.Text
.Parameters.Add("@TBank", OleDbType.VarChar).Value = TBank.Text
.Parameters.Add("@TBankBranch", OleDbType.VarChar).Value = TBankBranch.Text
.Parameters.Add("@TBankAco", OleDbType.VarChar).Value = TBankAco.Text
.Parameters.Add("@TxtCert", OleDbType.VarChar).Value = TxtCert.Text
.Parameters.Add("@TTimeQual", OleDbType.VarChar).Value = TTimeQual.Text
.Parameters.Add("@TQualState", OleDbType.VarChar).Value = TQualState.Text
.Parameters.Add("@TQualPlace", OleDbType.VarChar).Value = TQualPlace.Text
.Parameters.Add("@TxtSpicial", OleDbType.VarChar).Value = TxtSpicial.Text
.Parameters.Add("@TDgreeEmp", OleDbType.VarChar).Value = TDgreeEmp.Text
.Parameters.Add("@TxtNoQrar", OleDbType.VarChar).Value = TxtNoQrar.Text
.Parameters.Add("@TxtTarekhQrar", OleDbType.VarChar).Value = TxtTarekhQrar.Text
.Parameters.Add("@TSefatoh", OleDbType.VarChar).Value = TSefatoh.Text
.Parameters.Add("@TTimeNexDeg", OleDbType.VarChar).Value = TTimeNexDeg.Text
If con.State = ConnectionState.Closed Then con.Open()
If Command.ExecuteNonQuery() = 1 Then
MsgBox("تمت عملية التعديل بنجاح", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ اجراء التعديل")
Call Di_Refresh()
Else
MsgBox("لم تتم عملية التعديل بنجاح", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ اجراء التعديل")
End If
con.Close()
End With
End Using
Button1.Enabled = True
Button2.Enabled = True
Button5.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
'TxtBoID.Enabled = True
TxtBoNa.Enabled = True
TxtBoRe.Enabled = True
TxtNoWadeafa.Enabled = True
TxtBoYestart.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
End Sub