[EMADSS]

(08-10-20, 01:12 PM)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