تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] جلب QRcode في التقرير
#1
السلام عليكم ورحمة الله 
ارجو مساعدتي 
قمت باشاء QRcode في البرانامج واريد ان يظهر في التقرير مع الفاتورة
الرد }}}
تم الشكر بواسطة:
#2
967735882518+
الرد }}}
تم الشكر بواسطة:
#3
(24-03-22, 12:14 PM)محمد بوقزاحة كتب : السلام عليكم ورحمة الله 
ارجو مساعدتي 
قمت باشاء QRcode في البرانامج واريد ان يظهر في التقرير مع الفاتورة

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

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

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

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

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

شكرا لك اخي
لو تكمل كيف يولد qr وكيف يخزن اقصد الاكواد
الرد }}}
تم الشكر بواسطة:
#8
(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
الرد }}}
تم الشكر بواسطة: محمد بن عطية


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في جلب الصورة في التقرير مصمم هاوي 12 1,226 06-06-25, 03:00 PM
آخر رد: atefkhalf2004
  [سؤال] اريد طباعة تقرير ريبورت فيو مباشرة فور عرض التقرير mh66 1 557 22-03-25, 09:59 AM
آخر رد: mh66
  كيف اضف عدد النسخ فى كود تصدير التقرير الى PDF new_programer 1 365 17-03-25, 12:26 AM
آخر رد: princelovelorn
  طريقة التحكم في التقرير بالكود المتألق9 2 488 23-12-24, 05:11 PM
آخر رد: atefkhalf2004
  مشكلة تكرار الصفوف أثناء عرض التقرير Adel27213 1 263 26-08-24, 01:08 PM
آخر رد: تركي الحلواني
  مشكلة تكرار الصفوف أثناء عرض التقرير Adel27213 0 285 26-08-24, 05:18 AM
آخر رد: Adel27213
  محتاج مساعدة تعديل اعدادات التقرير في الكريستال ريبورت فاتورة (8) C Hamza8484 2 495 23-07-24, 05:03 AM
آخر رد: Hamza8484
  طباعة تقرير بطول وعرض معين (التقرير عبارة عن سطر) atefkhalf2004 7 630 15-07-24, 01:53 AM
آخر رد: atefkhalf2004
  [كود] الفاتورة الالكترونية بلغة vb.net رمز الاستجابة السريع QRcode الريس 3 2,507 28-04-24, 01:42 PM
آخر رد: altoki939
  طريقة عرض التقرير كريستال ريبورت في جهاز العميل Adel27213 2 631 10-12-23, 04:03 AM
آخر رد: Adel27213

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم