+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : كيفية عمل بنل ازرار كبنل برامج نقاط البيع . (/showthread.php?tid=36637)
الصفحات:
1
2
كيفية عمل بنل ازرار كبنل برامج نقاط البيع . - asemshahen5 - 08-10-20
في هذا المثال نتعلم كيفية عمل بنل ازرار كبنل برامج نقاط البيع بطريقة بسيطة و سهلة :
PHP كود :
'تعريف داتا تيبل لتعبئ من الجدول المطلوب'
Dim dt As New DataTable
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'استعلام لجلب المعلومات من جدول الازرار'
Dim StrSQL As String = "Select * From ButtonCellPoint1 where MasterButtom='false'"
'كود الاتصال بقاعدة البيانات'
Dim cn As New SqlConnection("Server =(local);database=ALASEM4;integrated security=True")
'تعريف داتا ادبتر'
Dim da As New SqlDataAdapter(StrSQL, cn)
'تنظيف الداتا تيبل'
dt.Clear()
'تعبئة الداتا تيبل بالجدول المطلوب'
da.Fill(dt)
'تعريف متغيير رقمي لاسم الزر'
Dim x As Integer = 0
'عمل لووب على السجدلات بالجدول المطلوب'
For Each row As DataRow In dt.Rows
'اضافة 1 مع كل دورة'
x += 1
'اضافة زر جديد مع كل دورة في اللوب'
Dim btn As New ButtonXT
'اسم الزر'
btn.Name = "Button" & x
'تسمية الزر'
btn.Text = row("ButtonName").ToString
'خاصية الباركود المضافة للزر'
btn.Barcode = row("ButtonBarcode").ToString
'خاصية السعر المضافة للزر'
btn.Price = row("ButtonType").ToString
'وضع مكان الصورة و عمل تحجيم لها لتتناسب مع الزر'
btn.Image = sizeimage(Image.FromFile(row("ImageLocation").ToString))
'محاذاة الصورة ضع الرقم 2 تعطيك محاذاة للاعلى'
btn.ImageAlign = row("ImageAlignment").ToString
'محاذاة النض ضع الرقم 512 تعطيك محاذاة للاسفل'
btn.TextAlign = row("FontAlignment").ToString
'ضع الرقم 1'
btn.FlatStyle = row("FlatStyle").ToString
'طول الزر لنفرض 80'
btn.Height = row("ButtonHeight").ToString
'عرض الزر لنفرض 100'
btn.Width = row("ButtonWidth").ToString
'بعد اضافة الاداة فلو بانل الى الفورم'
'نقوم باضافة اداة الزر اليها'
FlowLayoutPanel1.Controls.Add(btn)
'اضافة الاحداث عند الضغط على الزر المولد'
AddHandler btn.Click, AddressOf ClickButton
Next
End Sub
'حدث الضغط على الزر المولد'
Private Sub ClickButton(sender As Object, e As EventArgs)
'اخذ نسخة من سيندر كزر'
Dim d As ButtonXT = sender
'إضافة معلومات السلعة الى الداتا غريد'
DgvCellPoint.Rows.Add(d.Barcode, d.Text, d.Price)
End Sub
'تحجيم الصورة لتتناسب مع حجم الزر'
Private Function sizeimage(img As Image) As Image
'تحجيم الصورة لتتناسب مع حجم الزر'
Return New Bitmap(img, New Size(48, 48))
End Function
سكربت جدول قاعدة البيانات :
PHP كود :
/****** Object: Table [dbo].[ButtonCellPoint1] Script Date: 10/08/2020 11:47:07 ص ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[ButtonCellPoint1](
[ButtonID] [int] NULL,
[MasterButtom] [bit] NULL,
[ButtonBarcode] [nvarchar](255) NULL,
[ButtonName] [nvarchar](255) NULL,
[ButtonType] [int] NULL,
[ButtonSource] [nvarchar](255) NULL,
[ButtonShow] [bit] NULL,
[UserNameXT] [nvarchar](255) NULL,
[ImageAlignment] [nvarchar](255) NULL,
[FontAlignment] [nvarchar](255) NULL,
[ImageLocation] [nvarchar](255) NULL,
[ForeColor] [nvarchar](255) NULL,
[BackColor] [nvarchar](255) NULL,
[FlatStyle] [nvarchar](255) NULL,
[ButtonWidth] [int] NULL,
[ButtonHeight] [int] NULL,
[ButtonTop] [int] NULL,
[ButtonLeft] [int] NULL,
[ButtonTopPadding] [int] NULL
) ON [PRIMARY]
GO
INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (1, 0, N'20052225', N'بيتزا صغيرة', 4, N'وجبات سريعة', 1, N'1', N'2', N'512', N'Image\Question4.png', N'-1', N'16777215', N'1', 100, 80, 5, 5, 5)
INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (2, 0, N'20052226', N'بيتزا وسط', 4, N'وجبات سريعة', 1, N'1', N'2', N'512', N'Image\RistoranteMatera.png', N'-1', N'16777215', N'1', 100, 80, 5, 5, 5)
INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (3, 0, N'20052227', N'بيتزا كبيرة', 4, N'وجبات سريعة', 1, N'1', N'2', N'512', N'Image\Question5.png', N'-1', N'16777215', N'1', 100, 80, 5, 5, 5)
INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (4, 1, N'0', N'بيتزا', 0, N'الوجبات', 1, N'1', N'2', N'512', N'Image\Question5.png', N'-1', N'16777215', N'1', 100, 80, 5, 5, 0)
INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (5, 1, N'0', N'الساندويش', 0, N'الوجبات', 1, N'1', N'2', N'512', N'Image\Question5.png', N'-1', N'16777215', N'1', 100, 80, 5, 5, 0)
INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (6, 1, N'0', N'الوجبات', 0, N'الوجبات', 1, N'1', N'2', N'512', N'Image\RistoranteMatera.png', N'-1', N'16777215', N'1', 100, 80, 5, 5, 0)
تم وضع خاصيتان للزر الاولى الباركود و الثانية السعر كود الزر و الخصائص :
PHP كود :
Public Class ButtonXT
Inherits Button
'اضافة خاصية جديدة للزر و هي باركود'
Private BarcodeXT As String
Public Property Barcode() As String
Get
Return BarcodeXT
End Get
Set(ByVal value As String)
BarcodeXT = value
End Set
End Property
'اضافة خاصية جديدة للزر و هي السعر'
Private PriceXT As String
Public Property Price() As String
Get
Return PriceXT
End Get
Set(ByVal value As String)
PriceXT = value
End Set
End Property
End Class
[attachment=25839]
RE: كيفية عمل بنل ازرار كبنل برامج نقاط البيع . - عبد العزيز البسكري - 09-10-20
بارك الله فيك و لك و جزاك خير الجزاء
RE: كيفية عمل بنل ازرار كبنل برامج نقاط البيع . - عمور2016 - 09-10-20
كتب الله اجرك وانار الله دربك
RE: كيفية عمل بنل ازرار كبنل برامج نقاط البيع . - asemshahen5 - 09-10-20
و كتب الله لك المثل و اكثر .
و الحمد الله و الشكر لله رب العالمين .
RE: كيفية عمل بنل ازرار كبنل برامج نقاط البيع . - atefkhalf2004 - 13-10-20
السيد الفاضل. عايز اعمل زر ارقام. للعدد. وايضا كيفية حذف صنف تم اضافته
RE: كيفية عمل بنل ازرار كبنل برامج نقاط البيع . - atefkhalf2004 - 14-10-20
المهم عمل ازرار العدد
يعني مطوب ١٤ سندوتش
RE: كيفية عمل بنل ازرار كبنل برامج نقاط البيع . - ibra9009 - 14-10-20
جزاك الله خيرا
RE: كيفية عمل بنل ازرار كبنل برامج نقاط البيع . - atefkhalf2004 - 15-10-20
المهم عمل ازرار العدد
يعني مطوب ١٤ سندوتش
RE: كيفية عمل بنل ازرار كبنل برامج نقاط البيع . - atefkhalf2004 - 15-10-20
فشلت في عمل لوحة الة حاسبة للاعداد
RE: كيفية عمل بنل ازرار كبنل برامج نقاط البيع . - asemshahen5 - 29-10-20
مثال الاخ عبد العزيز بعد التعديل .