05-05-13, 04:19 AM
السلام عليكم ورحمة الله وبركاته
اصم برنامج محاسبى متخصص بعض الشئ وأعتمد على داتا بيز Local
مشكلتى فى تحديث البيانات أو التعديل عليها ... الفورم الذى استخدمه يحتوى على كمبوبوكس لكل حقل فى الجدول تكون مختفيه فى بداية ظهور الفورم الذى اعمل عليه بالإضافة الى الداتا فيو وتكست بوكس لكل حقل لإدخال عنصر جديد (يتم اخفاؤها عند عمل تعديلات وإظهار الكمبيوبوكس)
- أمر Insert يعمل بكفاءة مع التكست بوكس أثناء تنفيذ البرنامج
- عند التعديل لا يقبل التعديل سواء فى الكمبيوبوكس او الداتا فيو بالأمر update بمعنى اننى ادخل رقم جديد يقبله وعندما اقوم بتنفيذ امر التحديث تعود القيم الى ما كانت عليه امامى فى الكمبيوبوكس والداتا فيو.
- إذا خرجت من البرنامج وعدت الى شاشة التصميم ثم اعدت تشغيل البرنامج مرة اخرى تكون البيانات التى تم تسجيلها موجوده كما هى.
- فى وضع التصميم إذا قمت بإستعراض البيانات التى سجلتها بأى وسيله يتم حذف جميع البيانات ويظهر ملف الداتا فارغا
- جربت اوامر Sqlconnection - Accebtchanges - update بدون فائده
- فى توصيف الداتا فيو التعديل والإضافة والحذف تم تفعيلها
استخدمت نماذج عديده من المنتدى ومن المواقع الأجنبيه ولكن بقيت المشكله كما هى ... قرأت فى ملفات المساعده حتى خرجت عيونى من مقلتيها ولم اصل الى نتيجه
- انا حاليا اعمل على V. basic .net 2010
فى رأيكم أين تكمن المشكله (مع العلم انا مبرمج عتيق جداً منذ اوائل التسعينات ولكن خبرتى فى .net ليست بمستوى V. basic 2005 مثلا وأعلم ان الفارق كبير جدا)
والكود التالى هو المستخدم مع هذا الفورم (قد تلاحظون اننى من النوع العتيق الذى لازال يستخدم اسلوب اللغات القديمه فى البرمجه فعذرا)
اصم برنامج محاسبى متخصص بعض الشئ وأعتمد على داتا بيز Local
مشكلتى فى تحديث البيانات أو التعديل عليها ... الفورم الذى استخدمه يحتوى على كمبوبوكس لكل حقل فى الجدول تكون مختفيه فى بداية ظهور الفورم الذى اعمل عليه بالإضافة الى الداتا فيو وتكست بوكس لكل حقل لإدخال عنصر جديد (يتم اخفاؤها عند عمل تعديلات وإظهار الكمبيوبوكس)
- أمر Insert يعمل بكفاءة مع التكست بوكس أثناء تنفيذ البرنامج
- عند التعديل لا يقبل التعديل سواء فى الكمبيوبوكس او الداتا فيو بالأمر update بمعنى اننى ادخل رقم جديد يقبله وعندما اقوم بتنفيذ امر التحديث تعود القيم الى ما كانت عليه امامى فى الكمبيوبوكس والداتا فيو.
- إذا خرجت من البرنامج وعدت الى شاشة التصميم ثم اعدت تشغيل البرنامج مرة اخرى تكون البيانات التى تم تسجيلها موجوده كما هى.
- فى وضع التصميم إذا قمت بإستعراض البيانات التى سجلتها بأى وسيله يتم حذف جميع البيانات ويظهر ملف الداتا فارغا
- جربت اوامر Sqlconnection - Accebtchanges - update بدون فائده
- فى توصيف الداتا فيو التعديل والإضافة والحذف تم تفعيلها
استخدمت نماذج عديده من المنتدى ومن المواقع الأجنبيه ولكن بقيت المشكله كما هى ... قرأت فى ملفات المساعده حتى خرجت عيونى من مقلتيها ولم اصل الى نتيجه
- انا حاليا اعمل على V. basic .net 2010
فى رأيكم أين تكمن المشكله (مع العلم انا مبرمج عتيق جداً منذ اوائل التسعينات ولكن خبرتى فى .net ليست بمستوى V. basic 2005 مثلا وأعلم ان الفارق كبير جدا)
والكود التالى هو المستخدم مع هذا الفورم (قد تلاحظون اننى من النوع العتيق الذى لازال يستخدم اسلوب اللغات القديمه فى البرمجه فعذرا)
كود :
[align=left]Public Class ProjFrm
Public Mdate
Private Sub ProjFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ProjctsUnderWorkIndxTableAdapter.Fill(Me.Database1DataSet.ProjctsUnderWorkIndx)
Mdate = Me.DateTimePicker1.Value.Date
projnamcmb.Visible = False
wonernamcmb.Visible = False
projplaccmb.Visible = False
contractvlucmb.Visible = False
strtdatecmb.Visible = False
enddatecmb.Visible = False
gdworkcmb.Visible = False
End Sub
Private Sub DateTimePicker1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs)
Mdate = Me.DateTimePicker1.Value.Date
End Sub
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
Mdate = Me.DateTimePicker1.Value.Date
End Sub
Private Sub strtdatetxt_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles strtdatetxt.GotFocus
strtdatetxt.Text = Format(Mdate, "d")
Me.DateTimePicker1.Focus()
End Sub
Private Sub enddatetxt_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles enddatetxt.GotFocus
enddatetxt.Text = Format(Mdate, "d")
Me.DateTimePicker1.Focus()
End Sub
Private Sub إضافةمشروعجديدToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles إضافةمشروعجديدToolStripMenuItem.Click
projnamcmb.Visible = False
wonernamcmb.Visible = False
projplaccmb.Visible = False
contractvlucmb.Visible = False
strtdatecmb.Visible = False
enddatecmb.Visible = False
gdworkcmb.Visible = False
enddatetxt.Visible = True
strtdatetxt.Visible = True
contractvlutxt.Visible = True
projplactxt.Visible = True
wonernamtxt.Visible = True
projnamtxt.Visible = True
gdworktxt.Visible = True
End Sub
Private Sub تعديلبياناتمشروعToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles تعديلبياناتمشروعToolStripMenuItem.Click
projnamcmb.Visible = True
wonernamcmb.Visible = True
projplaccmb.Visible = True
contractvlucmb.Visible = True
strtdatecmb.Visible = True
enddatecmb.Visible = True
gdworkcmb.Visible = True
projnamcmb.Location = projnamtxt.Location
projnamcmb.Size = projplactxt.Size
projnamcmb.BackColor = projplactxt.BackColor
projnamcmb.Font = projnamtxt.Font
projnamcmb.ForeColor = projnamtxt.ForeColor
wonernamcmb.Location = wonernamtxt.Location
wonernamcmb.Size = wonernamtxt.Size
wonernamcmb.BackColor = wonernamtxt.BackColor
wonernamcmb.Font = wonernamtxt.Font
wonernamcmb.ForeColor = wonernamtxt.ForeColor
projplaccmb.Location = projplactxt.Location
projplaccmb.Size = projplactxt.Size
projplaccmb.BackColor = projplactxt.BackColor
projplaccmb.Font = projplactxt.Font
projplaccmb.ForeColor = projplactxt.ForeColor
contractvlucmb.Location = contractvlutxt.Location
contractvlucmb.Size = contractvlutxt.Size
contractvlucmb.BackColor = contractvlutxt.BackColor
contractvlucmb.Font = contractvlutxt.Font
contractvlucmb.ForeColor = contractvlutxt.ForeColor
strtdatecmb.Location = strtdatetxt.Location
strtdatecmb.Size = strtdatetxt.Size
strtdatecmb.BackColor = strtdatetxt.BackColor
strtdatecmb.Font = strtdatetxt.Font
strtdatecmb.ForeColor = strtdatetxt.ForeColor
enddatecmb.Location = enddatetxt.Location
enddatecmb.Size = enddatetxt.Size
enddatecmb.BackColor = enddatetxt.BackColor
enddatecmb.Font = enddatetxt.Font
enddatecmb.ForeColor = enddatetxt.ForeColor
gdworkcmb.Location = gdworktxt.Location
gdworkcmb.Size = gdworktxt.Size
gdworkcmb.BackColor = gdworktxt.BackColor
gdworkcmb.Font = gdworktxt.Font
gdworkcmb.ForeColor = gdworktxt.ForeColor
'إخفاء ادوات التحكم الأصليه
enddatetxt.Visible = False
strtdatetxt.Visible = False
contractvlutxt.Visible = False
projplactxt.Visible = False
wonernamtxt.Visible = False
projnamtxt.Visible = False
gdworktxt.Visible = False
End Sub
Private Sub حفظالمشروعالجديدToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles حفظالمشروعالجديدToolStripMenuItem.Click
Try
Me.ProjctsUnderWorkIndxTableAdapter.Insert(Me.projnamtxt.Text, Me.wonernamtxt.Text, Val(Me.contractvlutxt.Text), Me.projplactxt.Text, Me.strtdatetxt.Text, Me.enddatetxt.Text, Val(Me.gdworktxt.Text))
Me.ProjctsUnderWorkIndxTableAdapter.Fill(Me.Database1DataSet.ProjctsUnderWorkIndx)
MessageBox.Show(" تم الحفظ بنجاح")
Catch ex As Exception
MsgBox(ex.Message)
End Try
enddatetxt.Text = ""
strtdatetxt.Text = ""
contractvlutxt.Text = ""
projplactxt.Text = ""
wonernamtxt.Text = ""
projnamtxt.Text = ""
gdworktxt.Text = ""
End Sub
Private Sub انهاءالعملياتToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles انهاءالعملياتToolStripMenuItem.Click
Database1DataSet.ProjctsUnderWorkIndx.AcceptChanges()
Me.Close()
End Sub
Private Sub حفظالتعديلاتعلىالمشروعToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles حفظالتعديلاتعلىالمشروعToolStripMenuItem.Click
Try
Me.Validate()
Me.ProjctsUnderWorkIndxBindingSource1.EndEdit()
Database1DataSet.ProjctsUnderWorkIndx.AcceptChanges()
Me.ProjctsUnderWorkIndxTableAdapter.Update(Me.Database1DataSet.ProjctsUnderWorkIndx)
Me.ProjctsUnderWorkIndxTableAdapter.Fill(Me.Database1DataSet.ProjctsUnderWorkIndx)
MessageBox.Show(" تم الحفظ بنجاح")
Catch ex As Exception
End Try
End Sub
Private Sub BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorSaveItem.Click
Me.ProjctsUnderWorkIndxTableAdapter.Update(Me.Database1DataSet.ProjctsUnderWorkIndx)
Me.ProjctsUnderWorkIndxTableAdapter.Fill(Me.Database1DataSet.ProjctsUnderWorkIndx)
MessageBox.Show(" تم الحفظ بنجاح")
End Sub
End Class[/align]