قواعد المشاركة في المنتدى

(قسم الدعم الفني) الموضوع:دعاء لجلب الحبيب العنيد 00491634511222 – 00491634511222 بواسطة: (ام النور22) :: (أخبار التكنولوجيا) الموضوع:دعاء لجلب الحبيب العنيد 00491634511222 – 00491634511222 بواسطة: (ام النور22) :: (قسم الاعلانات) الموضوع:خواتم سليمانية بواسطة: (رفيف الحياه) :: (أخبار التكنولوجيا) الموضوع:خواتم سليمانية و مروحنة و احجار كريمة بواسطة: (رفيف الحياه) :: (قسم الاعلانات) الموضوع:ارخص شركة تنظيف وتعقيم بالاحساء بواسطة: (جودا احمد) :: (قسم الاعلانات) الموضوع:ارخص شركة تنظيف وتعقيم بجازان بواسطة: (جودا احمد) :: (قسم الاعلانات) الموضوع:طريقة تعقيم المنزل بواسطة: (ياسمين سمير) :: (قسم الاعلانات) الموضوع:تركيب هناجر بالرياض 0558448401 متخصصون في تركيب الهناجر والمستودعات بتقنات عالية جداً بواسطة: (ضياء روحي) :: (قسم الاعلانات) الموضوع:شركة تنظيف بالرياض بواسطة: (نور زيدان) :: (قسم الاعلانات) الموضوع:كافة خدمات العمل عن بعد نقدمها لك بواسطة: (مجتمع خبير) :: (قسم الاعلانات) الموضوع:حمامات مودرن حمامات صغيرة حمامات كبيرة عقارى 01100448640 بواسطة: (سامى سعد) :: (قسم الاعلانات) الموضوع:منطقه الرحمانيه لبيع الشقق بواسطة: (abueldahb740) :: (قسم الاعلانات) الموضوع:طرق تعقيم المنزل من الفيروسات بواسطة: (abueldahb740) :: (قسم الاعلانات) الموضوع:طريقة تنظيف الكنب بخطوات سهلة بواسطة: (abueldahb740) :: (قسم الاعلانات) الموضوع:مصنع اليحيان للابواب الخشبية اقوي عروض وافضل سعر وجودة بواسطة: (abueldahb740) :: (قسم الاعلانات) الموضوع:ثمرة تعاون بين هيئة الشارقة للاستثمار والتطوير شروق و”دايموند ديفلوبرز” بواسطة: (abueldahb740) :: (قسم الاعلانات) الموضوع:شركه تنظيف خزانات بواسطة: (اسماء عومر) :: (منتدى الوورد والباور بوينت) الموضوع:النظافة يمكن تعريف النظافة بأنّها الخلوص من الدنس بواسطة: (فتحية محمد) :: (قسم الاعلانات) الموضوع:فصد عرق النسا فى الرياض أبو انس 0557044912 بواسطة: (اسماء عومر) :: (أخبار التكنولوجيا) الموضوع:شركة مكافحة حشرات بالرياض بواسطة: (ساره محمد)

المواضيع المثبته: (قسم الـ portable) الموضوع:أفضل برامج مفيدة للكمبيوتر وتعمل Portable اي بدون تنصيب بواسطة: (أبو ليان) :: (القسم المفتوح) الموضوع:نصيحة لوجه الله بواسطة: (غزاوية أصيلة) :: (منتدى مبرمجي Microsoft Visual VB.NET) الموضوع:حصرياً : كل شيء يخص الفيجوال بيسك دوت نت - اسطوانات - كتب - أكواد - ال بواسطة: (صائبكو) :: (منتدى الكتب الالكترونية) الموضوع:كتاب لبرامج مصممة بالفيجوال مع أكوادها (الجزء الثاني) بواسطة: (First Star) :: (منتدى Microsoft Excel) الموضوع:هيا بنا نتعلم كتابة الكود فى الاكسيل VBA بواسطة: (ramies) :: (منتدى تصميم صفحات الويب) الموضوع:الجافا سكريبت في كتاب بواسطة: (amricost) :: (منتدى الكتب و المقالات) الموضوع:كتب في الاكسس باللغة العربية بواسطة: (ابو حسام) :: (منتدى نظام تشغيل Linux) الموضوع:أوامر لينكس بواسطة: (khaled helal) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:تعرف على تقنية Oracle APEX بواسطة: (وليد القدسي) :: (منتدى Microsoft SQL Server) الموضوع:تابعوا دروس sql2000 بواسطة: (dody) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:اعداد و تنصيب اوراكل 9i ويندز NT/2000/XP بواسطة: (oracle_egypt) :: (منتدى الكتب و المقالات) الموضوع:أرغب فى تعلم Microsoft Access وإحترافه بواسطة: (Prince4ever) :: (منتدى Microsoft Excel) الموضوع:open office بواسطة: (ramies) :: (منتدى مبرمجي Microsoft Visual VB.NET) الموضوع:الادوات الجديده Controls فى الدوت نت بواسطة: (alaa gomaa) :: (قسم البرامج الجاهزة و الاكواد) الموضوع:مشروع طبيب الاسنان مع السورس كود بواسطة: (ITPROGRAMMER) :: (قسم الدعم الفني) الموضوع:هل تريد التحكم بجهازك كأنك محترف بواسطة: (ياسر جمال) :: (منتدى Microsoft Visual Basic) الموضوع:دورة التعامل مع Data Report باستخدام ADODC ( شرح بالصور ) بواسطة: (Max Bayne) :: (قسم الدروس و الدورات) الموضوع:المواضيع والدروس التعليمية في الدوت نيت - ابدأ من هنا بواسطة: (fmo_82) :: (قسم المواضيع المميزة) الموضوع:تحديث قاعدة بيانات لدى عميل عن طريق الإنترنت... بواسطة: (أبو رهف) :: (منتدى ADO.NET العام) الموضوع:انشاء قواعد البيانات برمجيا جداول - علاقات -قيود بواسطة: (شهرزاد)

إضافة رد إضافة موضوع جديد

> تعديل كود الاضافة والحفظ والتعديل
Bookmark and Share
تقييم الموضوع Label معدل التقيم:0
مشاركةالجمعة,26/رجب/1441 هـ,03:39 مساءً
المشاركة #1

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 2
سجل في:الخميس,04/رجب/1441 هـ,02:30 صباحاً
الدولة:ليبيا
رقم العضوية: 115610



السلام عليكم
اخواني المبرمجين عند مشكلة في ااكواد الأضافة و الحفظ والتعديل ارجو مراجعتها وتعديلها


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
'TxtBoRe.Focus()


' TxtBoRe.Text = "STUDENT" & DateTime.Now.ToString("ddMMyyyyhhmmss")
' TextBox2.Text = Command
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()
'TxtBoRe.Text = Focus()
TxtBoID.Text = Command.ExecuteScalar().ToString() + 1
' TxtBoRe.Text = TxtBoRe.Focus() + 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


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة

    

عدد المتصفحين لهذا المنتدى «1»: (الضيوف «1» - المتخفون «0»)
الأعضاء «0»: .

إضافة رد جديد إضافة موضوع جديد



 
الوقت الأن:اليوم,10:44 مساءً بتوقيت القدس المحتلة

Powered By arabmoheet v3.1

منتديات المحيط العربي  -  راسلنا  -   أعلى
X   رسالة المنتدى
(سوف يتم اغلاق هذه النافذة بعد 2 ثانية)
X   رسالة المنتدى
(سوف يتم اغلاق هذه النافذة بعد 2 ثانية)