08-10-20, 01:12 PM
(آخر تعديل لهذه المشاركة : 08-10-20, 01:17 PM {2} بواسطة asemshahen5.)
في هذا المثال نتعلم كيفية عمل بنل ازرار كبنل برامج نقاط البيع بطريقة بسيطة و سهلة :
سكربت جدول قاعدة البيانات :
تم وضع خاصيتان للزر الاولى الباركود و الثانية السعر كود الزر و الخصائص :
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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر