+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : اظهار قيمة الربح في الداتا جريد ؟ (/showthread.php?tid=9619)
اظهار قيمة الربح في الداتا جريد ؟ - Abu Ehab - 03-08-13
يعني مش عارف شو أقول لك ...
أنت اللى كتبته ملوش علاقة بالــ LINQ
طيب :
أحـــــــــذف كل الكود بالكامل اللى موجود في فوورم الأضـــــــافة
هـــــــذا فــــــــــورم الأضــــــــافة بالكامل من برمجتي ويا ريت تشوف الفرق بين اللى انت عامله والكود اللى انا عملته وتتعلم الطريقة .
PHP كود :
Public Class Beda_Add_frm
Private db As New DB.Data_BedaDataContext
Public Function _AddingNew(ByVal Tab As DB.Beda) As DB.Beda
db.Bedas.InsertOnSubmit(Tab)
db.SubmitChanges()
Return (From B In db.Bedas Where B.Beda_Name = Tab.Beda_Name _
And B.Beda_Note = Tab.Beda_Note _
And B.Mabee_Price = Tab.Mabee_Price _
And B.Shra_Price = Tab.Shra_Price _
Select B).Single
End Function
Sub Broom()
For Each c As Control In Me.Controls
If TypeOf c Is TextBox Then
c.Text = vbNullString
End If
Next
End Sub
Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save.Click
Try
Dim Tabl As DB.Beda = New DB.Beda
With Tabl
.Beda_Name = txt_beda.Text
.Beda_Note = txt_Note.Text
.Mabee_Price = txt_Mabee.Text
.Shra_Price = txt_shra.Text
End With
_AddingNew(Tabl)
MessageBox.Show("Saved Successfull >>>>> ", "Saved", MessageBoxButtons.OK, MessageBoxIcon.Information)
Broom()
Catch ex As Exception
End Try
End Sub
End Class
اظهار قيمة الربح في الداتا جريد ؟ - kafi - 03-08-13
الف الف شكر
اخي ابو ايهاب
على تجاوبك معي، وعلى هذا الكود المكتوب بطريقة احترافية للغاية
اخي ابو ايهاب
قمت بكتابة كود لاظهار البيانات على الداتا جريد فيو، حتى استطيع رؤية القيم التي قد تم ادخالها الى قاعدة البيانات
[HTML]
Private Sub GetData()
Try
Dim x = From d In DB.Beda
Select d
Dim bsn As New BindingSource()
bsn.DataSource = x
' استعراض البيانات
DGV.DataSource = Nothing
DGV.Columns.Clear()
DGV.AutoGenerateColumns = False
DGV.ColumnCount = 4
DGV.DataSource = bsn
DGV.Columns(0).HeaderText = "اســـم المـــــادة"
DGV.Columns(1).HeaderText = "ســعر الشــراء"
DGV.Columns(2).HeaderText = "ســـعر المبيــع"
DGV.Columns(3).HeaderText = "ملاحظــــات"
DGV.Columns(0).DataPropertyName = "Beda_Name"
DGV.Columns(1).DataPropertyName = "shra_Price"
DGV.Columns(2).DataPropertyName = "Mabee_Price"
DGV.Columns(3).DataPropertyName = "Beda_Note"
Catch
End Try
End Sub
Private Sub Beda_List_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GetData()
End Sub[/HTML]
الا ان هناك خطأ بالكود
ارجو ارشادي الى مكمن الخطأ
الف شكر
بارك الله فيك
مرفق ملف جديد
اظهار قيمة الربح في الداتا جريد ؟ - Abu Ehab - 03-08-13
الفـــــــــورم التاني بتاع الجريدفيووو
PHP كود :
Public Class Beda_List
Private db As New DB.Data_BedaDataContext
Public Function GetAllData() As List(Of DB.Beda)
Return (db.Bedas).ToList
End Function
Private Sub Beda_List_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGridView1.DataSource = GetAllData()
End Sub
Private Sub btn_Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Add.Click
Dim insert_frm As New Beda_Add_frm
insert_frm.ShowDialog()
End Sub
End Class
اظهار قيمة الربح في الداتا جريد ؟ - kafi - 03-08-13
السلام عليكم
الف شكر اخي ابو ايهاب
على نصيحتك الغالية على قلبي، بدات الامور تتبلور وبدأت اشعر بصغر الاكواد
الان تعلمت كود الاضافة، ولاحظت من خلال التجريب
1- اذا لم يتم وضع قيم لخانة سعر الشراء او سعر المبيع، فلا يتم ادخال السجل، مع انني قد جعلت خاصية Nullable لكل الحقلين المذكورين في قاعدة البيانات على قيمة True
كيف السبيل الى اتاحة المجال امام المستثمر بعدم ارغامه على ادخال قيم في حقل سعر الشراء او سعر المبيع
والف الف شكر على تواصلك معي
اظهار قيمة الربح في الداتا جريد ؟ - Abu Ehab - 03-08-13
الحقل اللى أنت مش عايزة يدخل امامك حلين :
اما بتمرر له قيمة فارغه
او بتحذفه من الأجراء
اظهار قيمة الربح في الداتا جريد ؟ - kafi - 03-08-13
اخي ابو ايهاب
إقتباس :اما بتمرر له قيمة فارغه
هل ما تقصده بتمرير قيمة فارغة هو مايلي
Try[HTML]
Dim Tabl As DB.Beda = New DB.Beda
With Tabl
.Beda_Name = txt_beda.Text
.Beda_Note = txt_Note.Text
.Mabee_Price = IIf(txt_Mabee.Text = "", System.DBNull.Value, txt_Mabee.Text)
.Shra_Price = IIf(txt_shra.Text = "", System.DBNull.Value, txt_shra.Text)
End With
_AddingNew(Tabl)
MessageBox.Show("Saved Successfull >>>>> ", "Saved", MessageBoxButtons.OK, MessageBoxIcon.Information)
Broom()
Catch ex As Exception
End Try[/HTML]
تم فحص قيمة متغير سعر الشراء ومتغير سعر المبيع
واسناد قيمة فارغة لهما في حال كانا فارغين
الا ان الكود لم يعد يعمل
الف شكر على تواصلك معي
اظهار قيمة الربح في الداتا جريد ؟ - Abu Ehab - 03-08-13
نـــــعـم ...
اظهار قيمة الربح في الداتا جريد ؟ - kafi - 04-08-13
شكرا اخي ابو ايهاب
على استمرارك بالتواصل معي
وحل المشاكل التي تحصل معي، حتى انتهي من هذا المثال ( اضافة - حذف - تعديل)
إقتباس :تم فحص قيمة متغير سعر الشراء ومتغير سعر المبيع
واسناد قيمة فارغة لهما في حال كانا فارغين
الا ان الكود لم يعد يعمل
وهذا نص الكود
كود :
.Mabee_Price = IIf(txt_Mabee.Text = "", System.DBNull.Value, txt_Mabee.Text)
.Shra_Price = IIf(txt_shra.Text = "", System.DBNull.Value, txt_shra.Text)وفيما يلي المثال من جديد
[COLOR="#B22222"]ارجو تصويب مكمن الخطأ،
والف شكر[/COLOR]
اظهار قيمة الربح في الداتا جريد ؟ - Abu Ehab - 04-08-13
ســــــألتني كثير على فكرة ...!!!
طيب :
زر الحــذف على طريقة أخوك أبو أيهاب :
PHP كود :
Dim DelData As New DB.Data_BedaDataContext
Public Function DeleteHim(ByVal i As String)
DelData.Bedas.DeleteOnSubmit((From ii In DelData.Bedas Where ii.Beda_id = i Select ii).Single)
DelData.SubmitChanges()
Return True
End Function
Private Sub btn_Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Delete.Click
Try
DeleteHim(txt_beda_id.Text)
MsgBox("Data Deleted")
Catch ex As Exception
Throw ex
End Try
End Sub
لو عايز أعطيك دورة في LINQ انا مستعد وتحت رعاية الشركة .
اظهار قيمة الربح في الداتا جريد ؟ - kafi - 04-08-13
الف الف شكر اخي
ابو ايهاب على تواصلك
وعلى اجاباتك الرائعة.
طمعنا كبير، فيك وبامثالك وبهذه المنتديات الغالية على قلوبنا، والتي تساعدنا على على فهم الصعاب.
اظن انك معي، في ان هذا المثال البسيط، سيكون مثال يحتذي به الجميع.
اخي ابو ايهاب
شكرا على كود الحذف، وانا والحمد لله كود الحذف ظبط معي بدون مشاكل، ولي الشرف ان اطلع على كود حضرتك
[COLOR="#000080"]ولكن مازال سؤالي الذي لم احصل على اجابه عليه، وهو متعلق بالادخال والمشكلة الحاصلة في حال كان حقل سعر الشراء او سعر المبيع فارغ
وقد عدلت الكود ووضعت شرط فحص له[/COLOR]
ولكن اصبح الكود يجمد ولا يعمل
وقد ارفقت مثال بالمشاركة السابقة فيه كل التفاصيل
ارجو تصويب كود الادخال فيما يتعلق بما ذكر اعلاه
والف الف شكر