عرض مشاركة واحدة
  #1  
قديم 04-01-2021, 04:49 PM
الصورة الرمزية admin
admin 
✯ ادارة المنتدى ✯
 
تاريخ التسجيل: Mar 2021
الدولة: مصر
المشاركات: 733
معدل تقييم المستوى: 10
admin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to behold


افتراضي عمل بنل ازرار كبنل برامج نقاط البيع بطريقة بسيطة

 


السلام عليكم ورحمة الله وبركاته
في هذا المثال نتعلم كيفية عمل بنل ازرار كبنل برامج نقاط البيع بطريقة بسيطة استخدم الاكواد المطروحة
كود:

كود:
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
سكربت جدول قاعدة البيانات :

كود:
كود:
/****** 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)
تم وضع خاصيتان للزر الاولى الباركود و الثانية السعر كود الزر و الخصائص :
كود:

كود:
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




الموضوع الأصلي : عمل بنل ازرار كبنل برامج نقاط البيع بطريقة بسيطة || الكاتب : admin || المصدر : منتدى مجمع التطوير

 

الصور المصغرة للصور المرفقة
1615121134526.jpg‏  
الملفات المرفقة
نوع الملف: zip CellPointButton.zip‏ (631.2 كيلوبايت, المشاهدات 0)

التوقيع

رد مع اقتباس