24-03-22, 12:14 PM
السلام عليكم ورحمة الله
ارجو مساعدتي
قمت باشاء QRcode في البرانامج واريد ان يظهر في التقرير مع الفاتورة
ارجو مساعدتي
قمت باشاء QRcode في البرانامج واريد ان يظهر في التقرير مع الفاتورة
[VB.NET] جلب QRcode في التقرير
|
24-03-22, 12:14 PM
السلام عليكم ورحمة الله
ارجو مساعدتي قمت باشاء QRcode في البرانامج واريد ان يظهر في التقرير مع الفاتورة
24-03-22, 06:16 PM
967735882518+
24-03-22, 06:26 PM
ان شاء الله الامر ابسط مما تتوقع
قم باضافة حقل من نوع image في الجدول الخاص براس الفاتورة قمت باضافة اداة pictureBox الى شاشة البيع وقم باخفائها لا تجعلها ظاهرة عندما تقوم بتوليد ال qr قم بانشاء الصورة الخاص به في ال pictureBox وقم بتخزينها في الجدول في التقرير قم بجلب هذه الصورة وضعها بالتقرير تم الشكر بواسطة: asmarsou , محمد بن عطية
25-03-22, 08:50 PM
(24-03-22, 08:03 PM)aljzazy كتب : ان شاء الله الامر ابسط مما تتوقع حبيبنا المهندس صبحي ممكن تضع لنا طريقة إنشاء الباركود QR لانني لم اجد اي شرح مبسط في المنتدى و المعروف عنك دائماً شروحة رائعة و بسيطة
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
26-03-22, 03:28 PM
(24-03-22, 08:03 PM)aljzazy كتب : ان شاء الله الامر ابسط مما تتوقع شكرا اخي قمت بتشفير الصورة وحفظها في قاعدة البيانات نوع Sql 2019 عرضت البيانات في التقرير عن طريق dataset كيف اعرض الصورة في التقرير
27-03-22, 09:05 PM
(24-03-22, 08:03 PM)aljzazy كتب : ان شاء الله الامر ابسط مما تتوقع شكرا لك اخي لو تكمل كيف يولد qr وكيف يخزن اقصد الاكواد
28-03-22, 01:47 AM
(27-03-22, 09:05 PM)محمد بن عطية كتب :(24-03-22, 08:03 PM)aljzazy كتب : ان شاء الله الامر ابسط مما تتوقع توليد الكود 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 تم الشكر بواسطة: محمد بن عطية
|
|
المواضيع المحتمل أن تكون متشابهة . | |||||
الموضوع : | الكاتب | الردود : | المشاهدات : | آخر رد | |
[كود] الفاتورة الالكترونية بلغة vb.net رمز الاستجابة السريع QRcode | الريس | 2 | 1,840 |
11-02-24, 02:06 AM آخر رد: moh61 |
|
طريقة عرض التقرير كريستال ريبورت في جهاز العميل | Adel27213 | 2 | 357 |
10-12-23, 04:03 AM آخر رد: Adel27213 |
|
[VB.NET] ما معنى هذا التقرير ؟؟ | AhmedEissa | 0 | 237 |
05-11-23, 05:33 PM آخر رد: AhmedEissa |
|
سؤال حول تصميم التقرير | maher_haddaf | 4 | 404 |
22-10-23, 07:53 PM آخر رد: maher_haddaf |
|
مشكلة فى التقرير | jemyxxo | 1 | 264 |
01-09-23, 04:26 AM آخر رد: اسامه الهرماوي |
|
[VB.NET] مشكلة في التقرير | MOHAMMED ALZWI | 2 | 304 |
14-08-23, 10:21 PM آخر رد: MOHAMMED ALZWI |
|
طباعة التقرير بامر مباشر | حماده ممدوح البحيرى | 3 | 632 |
26-03-23, 12:18 PM آخر رد: sanyor77 |
|
تفقيط حقول التقرير ReportViewer | Tajaldeen | 2 | 714 |
19-02-23, 11:27 PM آخر رد: estefsar |
|
طباعة بيانات التقرير دفعة واحدة | Tajaldeen | 1 | 462 |
27-01-23, 10:03 PM آخر رد: h2551996 |
|
[VB.NET] توليد كود QR من التقرير لاجل فاتورة الكترونية | Abo maria | 1 | 338 |
18-12-22, 01:06 PM آخر رد: Taha Okla |