10-07-19, 01:50 AM
السلام عليكم اخواني
في كود الحفظ جعلت ملئ تكست بوكس واضافة الصورة واجبان ,(فيجوال بيسك 2010 / أكسس 2013)
في بعض الاحيان رسالة ملئ التكست بوكس للمستخدم تكون فقط تأكيدا له بفعل الامر ,
فحين الضغط على حفظ دون ادخال الصورة يقوم البرنامج بحفظ أمر التخزين مع العلم أنه يطالبني بالصور دون أن يشعرني أنه قام بعمل تخزين بيانات.
لكن حين اضيف الصورة أجد أن البرنامج خزن البيانات بشكل مضاعف حسب عدد مرات الحفظ التي قمت بها قبل اضافة الصورة.
أود منكم معاينة هذا الكود جيدا ونصحي بما يجب فعله
ومن لم يفهم ما اشرت اليه يمكنني الشرح أكثر .
في كود الحفظ جعلت ملئ تكست بوكس واضافة الصورة واجبان ,(فيجوال بيسك 2010 / أكسس 2013)
في بعض الاحيان رسالة ملئ التكست بوكس للمستخدم تكون فقط تأكيدا له بفعل الامر ,
فحين الضغط على حفظ دون ادخال الصورة يقوم البرنامج بحفظ أمر التخزين مع العلم أنه يطالبني بالصور دون أن يشعرني أنه قام بعمل تخزين بيانات.
لكن حين اضيف الصورة أجد أن البرنامج خزن البيانات بشكل مضاعف حسب عدد مرات الحفظ التي قمت بها قبل اضافة الصورة.
أود منكم معاينة هذا الكود جيدا ونصحي بما يجب فعله
ومن لم يفهم ما اشرت اليه يمكنني الشرح أكثر .
كود :
Sub saving()
Try
dt.Rows.Add()
Dim pos As String = dt.Rows.Count - 1
dt.Rows(pos).Item(1) = ComboBox1.Text
dt.Rows(pos).Item(2) = langcombx1.Text
dt.Rows(pos).Item(3) = numeration.Text & " - " & annee.Text
dt.Rows(pos).Item(4) = DateTimePicker1.Value
dt.Rows(pos).Item(5) = TextBox3.Text
dt.Rows(pos).Item(6) = TextBox4.Text
dt.Rows(pos).Item(7) = TextBox5.Text
dt.Rows(pos).Item(8) = TextBox6.Text
dt.Rows(pos).Item(9) = RichTextBox1.Text
If numeration.Text = "" Then
MsgBox("ملئ خانة رقم 1 الشهادة واجب")
Return
End If
If annee.Text = "" Then
MsgBox("ملئ خانة رقم 2 الشهادة واجب")
Return
End If
If TextBox3.Text = "" Then
MsgBox("ملئ خانة الاسم واجب")
Return
End If
Dim txt As String = " - "
Dim EmpNum As String = numeration.Text & txt & annee.Text
If String.IsNullOrEmpty(pathimg.Text) Then
MessageBox.Show("الرجاء اختيار صورة")
Return
Else
If File.Exists("image\" & EmpNum & ".jpg") Then
If MessageBox.Show("توجد صورة لها نفس الاسم هل تريد استبدالها ؟", "عذرا", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
File.Delete("image\" & EmpNum & ".jpg")
File.Copy(pathimg.Text, "image\" & EmpNum & ".jpg")
Else
Return
End If
Else
File.Copy(pathimg.Text, "image\" & EmpNum & ".jpg")
End If
save_date()
clearrr()
MsgBox("تم الحفظ بنجاح")
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
اخواني الكرام أنا متطوع في عمل برنامج مصلحة خيري لمؤسسة تعاونية
وأتمنى منكم مساعدتي قدر الامكان وأجركم عند الله مضاعف