+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال عن فكرة نقاط البيع (/showthread.php?tid=24439)
الصفحات:
1
2
RE: سؤال عن فكرة نقاط البيع - عبد العزيز البسكري - 08-04-18
السلام عليكم ور حمة الله و بركاته
بارك الله فيك و لك أخي و أستاذي الغالي " عبد الله الدوسري " على المثال الرائع و المميز
قمة الأبداع و تحفة فنية لا مثيل لها .. أعجبتني كثيرا بكل صدق
باسم الله ما شاء الله
ربنا يبارك فيك وفي صالح أعمالك و يزيدك من علمه و فضله
فقط يا غالي .. و بعد اذن سيادتك و شخصك القدير
فضل و كرم و احسان منك ..و رجاء و لو بعد شهر او شهرين ..
لو يتم تحويل نفس الملف بالأكواد العادية بعيدا عن الأداة الداتاسيت
ألف شكر و بارك الله فيك و لك مقدما و جزاك خير الجزاء
احتراماتي
RE: سؤال عن فكرة نقاط البيع - ملهمـ - 12-04-18
السلام عليكم
أخي قم بعمل حقل في جدول الأصناف
وسميه مثلا Item_cheack من نوع Bit
وقم بوضع أداة شيك بوكس في حالة كانت ترو فـ يكون ترو في قاعدة البيانات
الأن إلى الكود وهو كالتالي
أول شيء سنستخدم أداة FlowLayoutPanel
نضعها في الفورم
ثاني شيء للكود وهو كالتالي وبسيط وساهل
في حدث اللود للفورم
كود :
Dim dt As New DataTable
Dim da As New SqlClient.SqlDataAdapter("select * from Items where Item_Cheack ='true' ", SqlConn)
da.Fill(dt)
If dt.Rows.Count > 0 Then
Dim Value As Integer
For Value = 0 To dt.Rows.Count - 1
Dim Btn As New System.Windows.Forms.Button
' هنا طبعا تضع اسم حقل كود الصنف + كود الصنف
Btn.Name = dt.Rows(Value).Item("Item_Bar")
Btn.Text = dt.Rows(Value).Item("Item_Name")
Btn.Font = Label1.Font
Btn.Width = 150
Btn.Height = 45
AddHandler Btn.Click, AddressOf ButtonClickInFlp
FlpSales.Controls.Add(Btn)
Nextكود :
Private Sub ButtonClickInFlp(ByVal sender As System.Object, ByVal e As System.EventArgs)
sender.GetType()
ItemBarCode.Text = sender.Name
' TxtIDProducer_Leave(Me, e)
ItemBarCode_Leave(Me, e)
End Subبالتوفيق