منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم قواعد البيانات > قسم أسئلة قواعد البيانات تحت بيئة الـ.NET > اظهار قيمة الربح في الداتا جريد ؟
نسخة كاملة : اظهار قيمة الربح في الداتا جريد ؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3

Abu Ehab

03-08-13, 01:20 AM
يعني مش عارف شو أقول لك ...
أنت اللى كتبته ملوش علاقة بالــ 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, 02:18 AM
الف الف شكر
اخي ابو ايهاب

على تجاوبك معي، وعلى هذا الكود المكتوب بطريقة احترافية للغاية

اخي ابو ايهاب
قمت بكتابة كود لاظهار البيانات على الداتا جريد فيو، حتى استطيع رؤية القيم التي قد تم ادخالها الى قاعدة البيانات
[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, 02:23 AM
الفـــــــــورم التاني بتاع الجريدفيووو
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, 04:30 PM
السلام عليكم

الف شكر اخي ابو ايهاب
على نصيحتك الغالية على قلبي، بدات الامور تتبلور وبدأت اشعر بصغر الاكواد

الان تعلمت كود الاضافة، ولاحظت من خلال التجريب

1- اذا لم يتم وضع قيم لخانة سعر الشراء او سعر المبيع، فلا يتم ادخال السجل، مع انني قد جعلت خاصية Nullable لكل الحقلين المذكورين في قاعدة البيانات على قيمة True

كيف السبيل الى اتاحة المجال امام المستثمر بعدم ارغامه على ادخال قيم في حقل سعر الشراء او سعر المبيع

والف الف شكر على تواصلك معي

Abu Ehab

03-08-13, 09:28 PM
الحقل اللى أنت مش عايزة يدخل امامك حلين :
اما بتمرر له قيمة فارغه
او بتحذفه من الأجراء

kafi

03-08-13, 09:57 PM
اخي ابو ايهاب

إقتباس :اما بتمرر له قيمة فارغه

هل ما تقصده بتمرير قيمة فارغة هو مايلي
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, 11:19 PM
نـــــعـم ...

kafi

04-08-13, 01:20 AM
شكرا اخي ابو ايهاب
على استمرارك بالتواصل معي
وحل المشاكل التي تحصل معي، حتى انتهي من هذا المثال ( اضافة - حذف - تعديل)

إقتباس :تم فحص قيمة متغير سعر الشراء ومتغير سعر المبيع
واسناد قيمة فارغة لهما في حال كانا فارغين

الا ان الكود لم يعد يعمل

وهذا نص الكود
كود :
.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, 05:16 AM
ســــــألتني كثير على فكرة ...!!!
طيب :
زر الحــذف على طريقة أخوك أبو أيهاب :
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, 04:55 PM
الف الف شكر اخي
ابو ايهاب على تواصلك
وعلى اجاباتك الرائعة.

طمعنا كبير، فيك وبامثالك وبهذه المنتديات الغالية على قلوبنا، والتي تساعدنا على على فهم الصعاب.
اظن انك معي، في ان هذا المثال البسيط، سيكون مثال يحتذي به الجميع.

اخي ابو ايهاب
شكرا على كود الحذف، وانا والحمد لله كود الحذف ظبط معي بدون مشاكل، ولي الشرف ان اطلع على كود حضرتك

[COLOR="#000080"]ولكن مازال سؤالي الذي لم احصل على اجابه عليه، وهو متعلق بالادخال والمشكلة الحاصلة في حال كان حقل سعر الشراء او سعر المبيع فارغ
وقد عدلت الكود ووضعت شرط فحص له[/COLOR]
ولكن اصبح الكود يجمد ولا يعمل
وقد ارفقت مثال بالمشاركة السابقة فيه كل التفاصيل
ارجو تصويب كود الادخال فيما يتعلق بما ذكر اعلاه

والف الف شكر
الصفحات : 1 2 3
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم قواعد البيانات > قسم أسئلة قواعد البيانات تحت بيئة الـ.NET > اظهار قيمة الربح في الداتا جريد ؟