+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] جلب QRcode في التقرير (/showthread.php?tid=41024)
جلب QRcode في التقرير - محمد بوقزاحة - 24-03-22
السلام عليكم ورحمة الله
ارجو مساعدتي
قمت باشاء QRcode في البرانامج واريد ان يظهر في التقرير مع الفاتورة
RE: جلب QRcode في التقرير - رسرس - 24-03-22
967735882518+
RE: جلب QRcode في التقرير - محمد بن عطية - 24-03-22
(24-03-22, 12:14 PM)محمد بوقزاحة كتب : السلام عليكم ورحمة الله
ارجو مساعدتي
قمت باشاء QRcode في البرانامج واريد ان يظهر في التقرير مع الفاتورة
لو تشرح لي كيف يخزن في قاعده البيانات وكيف انشئه من البدايه
RE: جلب QRcode في التقرير - aljzazy - 24-03-22
ان شاء الله الامر ابسط مما تتوقع
قم باضافة حقل من نوع image في الجدول الخاص براس الفاتورة
قمت باضافة اداة pictureBox الى شاشة البيع وقم باخفائها لا تجعلها ظاهرة
عندما تقوم بتوليد ال qr قم بانشاء الصورة الخاص به في ال pictureBox وقم بتخزينها في الجدول
في التقرير قم بجلب هذه الصورة وضعها بالتقرير
RE: جلب QRcode في التقرير - أبووسم - 25-03-22
(24-03-22, 08:03 PM)aljzazy كتب : ان شاء الله الامر ابسط مما تتوقع
قم باضافة حقل من نوع image في الجدول الخاص براس الفاتورة
قمت باضافة اداة pictureBox الى شاشة البيع وقم باخفائها لا تجعلها ظاهرة
عندما تقوم بتوليد ال qr قم بانشاء الصورة الخاص به في ال pictureBox وقم بتخزينها في الجدول
في التقرير قم بجلب هذه الصورة وضعها بالتقرير
حبيبنا المهندس صبحي
ممكن تضع لنا طريقة إنشاء الباركود QR
لانني لم اجد اي شرح مبسط في المنتدى و المعروف عنك دائماً شروحة رائعة و بسيطة
RE: جلب QRcode في التقرير - محمد بوقزاحة - 26-03-22
(24-03-22, 08:03 PM)aljzazy كتب : ان شاء الله الامر ابسط مما تتوقع
قم باضافة حقل من نوع image في الجدول الخاص براس الفاتورة
قمت باضافة اداة pictureBox الى شاشة البيع وقم باخفائها لا تجعلها ظاهرة
عندما تقوم بتوليد ال qr قم بانشاء الصورة الخاص به في ال pictureBox وقم بتخزينها في الجدول
في التقرير قم بجلب هذه الصورة وضعها بالتقرير
شكرا اخي
قمت بتشفير الصورة وحفظها في قاعدة البيانات نوع Sql 2019
عرضت البيانات في التقرير عن طريق dataset
كيف اعرض الصورة في التقرير
RE: جلب QRcode في التقرير - محمد بن عطية - 27-03-22
(24-03-22, 08:03 PM)aljzazy كتب : ان شاء الله الامر ابسط مما تتوقع
قم باضافة حقل من نوع image في الجدول الخاص براس الفاتورة
قمت باضافة اداة pictureBox الى شاشة البيع وقم باخفائها لا تجعلها ظاهرة
عندما تقوم بتوليد ال qr قم بانشاء الصورة الخاص به في ال pictureBox وقم بتخزينها في الجدول
في التقرير قم بجلب هذه الصورة وضعها بالتقرير
شكرا لك اخي
لو تكمل كيف يولد qr وكيف يخزن اقصد الاكواد
RE: جلب QRcode في التقرير - محمد بوقزاحة - 28-03-22
(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