تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية عمل بنل ازرار كبنل برامج نقاط البيع .
#1
في هذا المثال نتعلم كيفية عمل بنل ازرار كبنل برامج نقاط البيع بطريقة بسيطة و سهلة :


PHP كود :
   'تعريف داتا تيبل لتعبئ من الجدول المطلوب'
 
   Dim dt As New DataTable
    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles 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(StrSQLcn)
 
       'تنظيف الداتا تيبل'
 
       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.ClickAddressOf ClickButton
        Next
    End Sub
    
'حدث الضغط على الزر المولد'
 
   Private Sub ClickButton(sender As ObjectAs EventArgs)
 
       'اخذ نسخة من سيندر كزر'
 
       Dim d As ButtonXT sender
        
'إضافة معلومات السلعة الى الداتا غريد'
 
       DgvCellPoint.Rows.Add(d.Barcoded.Textd.Price)
 
   End Sub
    
'تحجيم الصورة لتتناسب مع حجم الزر'
 
   Private Function sizeimage(img As Image) As Image
        
'تحجيم الصورة لتتناسب مع حجم الزر'
 
       Return New Bitmap(img, New Size(4848))
 
   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] [intNULL,
    [
MasterButtom] [bitNULL,
    [
ButtonBarcode] [nvarchar](255NULL,
    [
ButtonName] [nvarchar](255NULL,
    [
ButtonType] [intNULL,
    [
ButtonSource] [nvarchar](255NULL,
    [
ButtonShow] [bitNULL,
    [
UserNameXT] [nvarchar](255NULL,
    [
ImageAlignment] [nvarchar](255NULL,
    [
FontAlignment] [nvarchar](255NULL,
    [
ImageLocation] [nvarchar](255NULL,
    [
ForeColor] [nvarchar](255NULL,
    [
BackColor] [nvarchar](255NULL,
    [
FlatStyle] [nvarchar](255NULL,
    [
ButtonWidth] [intNULL,
    [
ButtonHeight] [intNULL,
    [
ButtonTop] [intNULL,
    [
ButtonLeft] [intNULL,
    [
ButtonTopPadding] [intNULL
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 (10N'20052225'N'بيتزا صغيرة'4N'وجبات سريعة'1N'1'N'2'N'512'N'Image\Question4.png'N'-1'N'16777215'N'1'10080555)
INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (20N'20052226'N'بيتزا وسط'4N'وجبات سريعة'1N'1'N'2'N'512'N'Image\RistoranteMatera.png'N'-1'N'16777215'N'1'10080555)
INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (30N'20052227'N'بيتزا كبيرة'4N'وجبات سريعة'1N'1'N'2'N'512'N'Image\Question5.png'N'-1'N'16777215'N'1'10080555)
INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (41N'0'N'بيتزا'0N'الوجبات'1N'1'N'2'N'512'N'Image\Question5.png'N'-1'N'16777215'N'1'10080550)
INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (51N'0'N'الساندويش'0N'الوجبات'1N'1'N'2'N'512'N'Image\Question5.png'N'-1'N'16777215'N'1'10080550)
INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (61N'0'N'الوجبات'0N'الوجبات'1N'1'N'2'N'512'N'Image\RistoranteMatera.png'N'-1'N'16777215'N'1'10080550

تم وضع خاصيتان للزر الاولى الباركود و الثانية السعر كود الزر و الخصائص :

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 


   


الملفات المرفقة
.zip   CellPointButton.zip (الحجم : 631.15 ك ب / التحميلات : 642)
الرد }}}
#2
بارك الله فيك و لك و جزاك خير الجزاء
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5 , ابراهيم ايبو
#3
كتب الله اجرك وانار الله دربك
الرد }}}
#4
و كتب الله لك المثل و اكثر .
و الحمد الله و الشكر لله رب العالمين .
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#5
السيد الفاضل. عايز اعمل زر ارقام. للعدد. وايضا كيفية حذف صنف تم اضافته
الرد }}}
تم الشكر بواسطة: asemshahen5
#6
المهم عمل ازرار العدد
يعني مطوب ١٤ سندوتش
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5
#7
جزاك الله خيرا
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#8
المهم عمل ازرار العدد
يعني مطوب ١٤ سندوتش
الرد }}}
تم الشكر بواسطة: asemshahen5
#9
فشلت في عمل لوحة الة حاسبة للاعداد
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5
#10
مثال الاخ عبد العزيز بعد التعديل .
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل الالة الحاسبة الضغط علي ازرار لوحة المفاتيح atefkhalf2004 4 408 19-08-23, 11:16 AM
آخر رد: atefkhalf2004
Video خطوة خطوة كيفية طباعة الفاتورة باستخدام Crystal report ggtt17121985 0 541 08-06-23, 01:25 AM
آخر رد: ggtt17121985
Star [مشروع] كيفية نقل البيانات الموجودة في الجداول داخل قاعدة البيانات الاولى إلى قاعدة البيانات aliday03 5 1,157 26-03-23, 03:19 PM
آخر رد: sanyor77
  [VB.NET] مثال بسيط عن كيفية عمل برنامج المصحف كمثال موقع [ quran.ksu.edu.sa ] elgokr 12 8,934 14-10-22, 12:59 AM
آخر رد: spiky
  دمج برامج أخرى لتثبيتها مع مشروعك عند عملية التنصيب بإستخدام ClickOnce Publish Wizard عبدالله الدوسري 12 21,026 05-10-22, 03:43 PM
آخر رد: رضوان الجماعي
  [مثال] كيفية تعبئة كمبوبوكس بدلالة تغير عنصر في كومبو آخر asmarsou 0 926 08-08-22, 10:54 PM
آخر رد: asmarsou
  [مشروع] كيفية البحث عن ملف محدد باسم معين في الكمبيوتر asmarsou 5 1,386 18-07-22, 11:11 AM
آخر رد: سعود
  [درس فيديو] شرح بسيط عن كيفية اتمام التصاميم بالادوات الافتراضية kiki 3 2,275 28-03-22, 12:55 AM
آخر رد: أبووسم
Rainbow كيفية عمل الشجرة المحاسبية بطريقة احترافية asemshahen5 38 22,772 03-01-22, 12:30 AM
آخر رد: sayyad
  [VB.NET] كيفية حساب الوحدات فى برامج المبيعات والمخازن units caculate in stock keromero 5 4,252 30-07-21, 05:20 PM
آخر رد: atefkhalf2004

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم