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

السلام عليكم ورحمة الله 
ارجو مساعدتي 
قمت باشاء QRcode في البرانامج واريد ان يظهر في التقرير مع الفاتورة

967735882518+

(24-03-22, 12:14 PM)محمد بوقزاحة كتب : [ -> ]السلام عليكم ورحمة الله 
ارجو مساعدتي 
قمت باشاء QRcode في البرانامج واريد ان يظهر في التقرير مع الفاتورة

لو تشرح لي كيف يخزن في قاعده البيانات وكيف انشئه من البدايه

ان شاء الله الامر ابسط مما تتوقع
قم باضافة حقل من نوع image في الجدول الخاص براس الفاتورة
قمت باضافة اداة pictureBox الى شاشة البيع وقم باخفائها لا تجعلها ظاهرة
عندما تقوم بتوليد ال qr قم بانشاء الصورة الخاص به في ال pictureBox  وقم بتخزينها في الجدول
في التقرير قم بجلب هذه الصورة وضعها بالتقرير

(24-03-22, 08:03 PM)aljzazy كتب : [ -> ]ان شاء الله الامر ابسط مما تتوقع
قم باضافة حقل من نوع image في الجدول الخاص براس الفاتورة
قمت باضافة اداة pictureBox الى شاشة البيع وقم باخفائها لا تجعلها ظاهرة
عندما تقوم بتوليد ال qr قم بانشاء الصورة الخاص به في ال pictureBox  وقم بتخزينها في الجدول
في التقرير قم بجلب هذه الصورة وضعها بالتقرير

حبيبنا المهندس صبحي

ممكن تضع لنا طريقة إنشاء الباركود QR

لانني لم اجد اي شرح مبسط في المنتدى و المعروف عنك دائماً شروحة رائعة و بسيطة

(24-03-22, 08:03 PM)aljzazy كتب : [ -> ]ان شاء الله الامر ابسط مما تتوقع
قم باضافة حقل من نوع image في الجدول الخاص براس الفاتورة
قمت باضافة اداة pictureBox الى شاشة البيع وقم باخفائها لا تجعلها ظاهرة
عندما تقوم بتوليد ال qr قم بانشاء الصورة الخاص به في ال pictureBox  وقم بتخزينها في الجدول
في التقرير قم بجلب هذه الصورة وضعها بالتقرير

شكرا اخي  
قمت بتشفير الصورة وحفظها في قاعدة البيانات  نوع Sql 2019
 عرضت البيانات في التقرير عن طريق dataset 
كيف اعرض الصورة في التقرير

(24-03-22, 08:03 PM)aljzazy كتب : [ -> ]ان شاء الله الامر ابسط مما تتوقع
قم باضافة حقل من نوع image في الجدول الخاص براس الفاتورة
قمت باضافة اداة pictureBox الى شاشة البيع وقم باخفائها لا تجعلها ظاهرة
عندما تقوم بتوليد ال qr قم بانشاء الصورة الخاص به في ال pictureBox  وقم بتخزينها في الجدول
في التقرير قم بجلب هذه الصورة وضعها بالتقرير

شكرا لك اخي
لو تكمل كيف يولد qr وكيف يخزن اقصد الاكواد

(27-03-22, 09:05 PM)محمد بن عطية كتب : [ -> ]

(24-03-22, 08:03 PM)aljzazy كتب : [ -> ]ان شاء الله الامر ابسط مما تتوقع
قم باضافة حقل من نوع image في الجدول الخاص براس الفاتورة
قمت باضافة اداة pictureBox الى شاشة البيع وقم باخفائها لا تجعلها ظاهرة
عندما تقوم بتوليد ال qr قم بانشاء الصورة الخاص به في ال pictureBox  وقم بتخزينها في الجدول
في التقرير قم بجلب هذه الصورة وضعها بالتقرير

شكرا لك اخي
لو تكمل كيف يولد qr وكيف يخزن اقصد الاكواد

    توليد الكود qr

 Sub QR_CODE_()
        Dim Generator As New MessagingToolkit.Barcode.BarcodeEncoder
        Generator.BackColor = Color.White
        Generator.LabelFont = New Font("Arial", 7, FontStyle.Regular)
        Generator.IncludeLabel = True
        Generator.CustomLabel = TXT_NUM_CARD.Text

        Try
            pbQrCodeImg.Image = New Bitmap(Generator.Encode(MessagingToolkit.Barcode.BarcodeFormat.QRCode, TXT_UNM_GAID.Text))
        Catch ex As Exception
            pbQrCodeImg.Image = Nothing
        End Try
    End Sub
--------------------------------
التشفير والتخزين في قاعدة البيانات 

Sub save_imge()


        Dim cmd As New SqlCommand
        With cmd
            .Connection = CLS_CON__.SQLCON
            .CommandType = CommandType.Text
            .CommandText = " insert into imgee ( NUM_GAID,amgee )values(@NUM_GAID,@amgee)"
            .Parameters.Clear()
            .Parameters.AddWithValue("@NUM_GAID", SqlDbType.NVarChar).Value = TXT_UNM_GAID.Text
            Dim ms As New IO.MemoryStream
            Dim bmpimage As New Bitmap(pbQrCodeImg.Image)
            bmpimage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
            Dim data As Byte() = ms.GetBuffer()
            Dim p As New SqlParameter("amgee", SqlDbType.Image)
            p.Value = data

            .Parameters.Add(p)
        End With
        If CLS_CON__.SQLCON.State = 1 Then CLS_CON__.SQLCON.Close()
        CLS_CON__.SQLCON.Open()
        cmd.ExecuteNonQuery()
        CLS_CON__.SQLCON.Close()
        'MsgBox("تمت الاضافة بنجاح")
        cmd = Nothing
end sub